From 3a68e60a01146f62a8d697c99b5d0e093fc44d01 Mon Sep 17 00:00:00 2001
From: "ankostis@host:STUW025" <ankostis@gmail.com>
Date: Fri, 14 Dec 2012 18:02:06 +0100
Subject: [PATCH] Re-encode all vb-files from ASCI --> UTF8
---
VECTO/ADVANCE/cADVANCE.vb | 62 ++++++++++++------------
VECTO/ApplicationEvents.vb | 20 ++++----
VECTO/File Browser/FB_Dialog.designer.vb | 12 ++---
VECTO/File Browser/FB_Dialog.vb | 32 ++++++------
VECTO/File Browser/FB_Global.vb | 2 +-
VECTO/File Browser/cFileBrowser.vb | 10 ++--
VECTO/GUI/F_ADV.Designer.vb | 12 ++---
VECTO/GUI/F_ADV.vb | 14 +++---
VECTO/GUI/F_ADVfzp.Designer.vb | 12 ++---
VECTO/GUI/F_ADVfzp.vb | 2 +-
VECTO/GUI/F_AboutBox.Designer.vb | 12 ++---
VECTO/GUI/F_AboutBox.vb | 4 +-
VECTO/GUI/F_GEN.Designer.vb | 16 +++---
VECTO/GUI/F_GEN.vb | 38 +++++++--------
VECTO/GUI/F_MAINForm.Designer.vb | 12 ++---
VECTO/GUI/F_MAINForm.vb | 60 +++++++++++------------
VECTO/GUI/F_ModSplit.Designer.vb | 12 ++---
VECTO/GUI/F_ModSplit.vb | 6 +--
VECTO/GUI/F_Options.Designer.vb | 14 +++---
VECTO/GUI/F_Options.vb | 4 +-
VECTO/GUI/F_ShutDown.Designer.vb | 12 ++---
VECTO/GUI/F_ShutDown.vb | 2 +-
VECTO/GUI/F_TEM_Creator.Designer.vb | 14 +++---
VECTO/GUI/F_TEM_Creator.vb | 4 +-
VECTO/GUI/F_VEH.Designer.vb | 16 +++---
VECTO/GUI/F_VEH.vb | 12 ++---
VECTO/GUI/GUI_Subs.vb | 16 +++---
VECTO/Input Files/cSubPath.vb | 2 +-
VECTO/M_FCCor.vb | 14 +++---
VECTO/M_Lese.vb | 12 ++---
VECTO/M_MAIN.vb | 26 +++++-----
VECTO/M_OptInterface.vb | 10 ++--
VECTO/M_SOC_Iter.vb | 10 ++--
VECTO/VECTO_Global.vb | 4 +-
VECTO/VECTO_Types.vb | 2 +-
VECTO/cConfig.vb | 20 ++++----
VECTO/cCycleKin.vb | 4 +-
VECTO/cFile V3.vb | 2 +-
VECTO/cRegression.vb | 2 +-
39 files changed, 270 insertions(+), 270 deletions(-)
diff --git a/VECTO/ADVANCE/cADVANCE.vb b/VECTO/ADVANCE/cADVANCE.vb
index 0afd9832f2..4238b9c9fc 100644
--- a/VECTO/ADVANCE/cADVANCE.vb
+++ b/VECTO/ADVANCE/cADVANCE.vb
@@ -1,4 +1,4 @@
-Imports System.Collections.Generic
+Imports System.Collections.Generic
Public Class cADVANCE_V3
@@ -45,7 +45,7 @@ Public Class cADVANCE_V3
Private t0 As Int32
Private vX() As Single
Private vY() As Single
- Private vNr() As Int32 '<< Int16 zu klein (EkoZara: vNr's bis ~ 48000). M�glich w�re allerdings Int16 von -32767 bis +32767 verwenden d.h. Max = 65534
+ Private vNr() As Int32 '<< Int16 zu klein (EkoZara: vNr's bis ~ 48000). Möglich wäre allerdings Int16 von -32767 bis +32767 verwenden d.h. Max = 65534
Private vNrSub() As Int16 '<< Evtl. weghaun...?
Private vVm() As Single
Private vStg() As Single
@@ -68,7 +68,7 @@ Public Class cADVANCE_V3
Private sSIDlist As List(Of Int32) 'Streckennummer-Liste, aufsteigend sortiert, keine Duplikate
Private sSIDfiles As List(Of Int32) 'Dateinummern, gleich sortiert wie sSIDlist
- 'Felder f�r Streckennummer, Spur und Koordinaten f�r alle STR-Dateien
+ 'Felder für Streckennummer, Spur und Koordinaten für alle STR-Dateien
Private STRlen As Int32
Private sStr As List(Of Int32)
Private sSp As List(Of Int16)
@@ -103,7 +103,7 @@ Public Class cADVANCE_V3
'Berechnung
Private zFZP As Int32 'Globale FZP-Zeile
Private LastGen As String 'Letzte .gen-Datei
- Private VehStrAlt As String 'VehStr = Fahrzeug ID: bestehend aus Fahrzeugnummer (aus VISSIM) und SubNr um Zeitl�cken zu korrigieren
+ Private VehStrAlt As String 'VehStr = Fahrzeug ID: bestehend aus Fahrzeugnummer (aus VISSIM) und SubNr um Zeitlücken zu korrigieren
Private vNrAlt As Int32
Private fzpL10 As Int32
Private fzpL As Int32
@@ -230,7 +230,7 @@ Public Class cADVANCE_V3
Rnd(-1)
Randomize(RndSeed)
- 'F�r AusgVis
+ 'Für AusgVis
iadvance = FZPlen
'Ausgabe-Initialisierung
@@ -330,7 +330,7 @@ Public Class cADVANCE_V3
End If
iadvance = 0
- 'Listen l�schen
+ 'Listen löschen
aWorldX = Nothing
aWorldY = Nothing
aStrId = Nothing
@@ -385,7 +385,7 @@ lbStart:
't0
DRI.t0 = vt(zFZP + 1)
- 'Definiere Felder f�r Fahrzeug-Berechnung
+ 'Definiere Felder für Fahrzeug-Berechnung
z = -1
Do
'Check ob neues Fahrzeug
@@ -416,10 +416,10 @@ lbStart:
aVehNr = vNrAkt
aVehType = CStr(vIDi)
- 'Check ob Zyklus zu kurz => �berspringen
+ 'Check ob Zyklus zu kurz => Überspringen
If z < 1 Then GoTo lbStart
- 'Fahrzeuganzahl je Typ erh�hen
+ 'Fahrzeuganzahl je Typ erhöhen
FLTfleet(aVehType).VehCount += 1
DRI.tDim = z
@@ -473,7 +473,7 @@ lbStart:
STR1 = getSTRfileNr(aStrId(t))
'Falls Wechsel in STR-Nr:
- ' Alte STR-Nr abschlie�en
+ ' Alte STR-Nr abschließen
If STR0 <> STR1 Then
If t0 > -1 Then ' STR0 > -1 Then
@@ -524,7 +524,7 @@ lbStart:
Next
- 'Letzte STR abschlie�en
+ 'Letzte STR abschließen
If t0 > -1 Then
STRergRef = STRerg(STR0)
@@ -693,7 +693,7 @@ lbStart:
WorkerMsg(tMsgID.Normal, "Traffic File: Counting lines...", MsgSrc)
- 'Dateil�nge bestimmen
+ 'Dateilänge bestimmen
Try
f = New System.IO.StreamReader(FZPpath)
Catch ex As Exception
@@ -752,7 +752,7 @@ lbStart:
fReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
fReader.Delimiters = New String() {";"}
- 'Kommentare �berspringen
+ 'Kommentare überspringen
For l = 1 To LineSkip
fReader.ReadLine()
Next
@@ -762,7 +762,7 @@ lbStart:
lc10 = Math.Max(FZPlen / 100, 1000)
Do While Not fReader.EndOfData
line = fReader.ReadFields()
- 'Strecken die nicht in der STR Datei aufgef�hrt sind werden hier entfernt
+ 'Strecken die nicht in der STR Datei aufgeführt sind werden hier entfernt
If STRfilter Then
If line(FZProwStr) <> lastSID Then
lastSID = line(FZProwStr)
@@ -871,7 +871,7 @@ lbProg1:
Do
'Aktuelles Fahrzeug ist vNr1
vNr1 = vNrSort(x1)
- 'Z�hle Fahrzeuge mit vNr = vNr1
+ 'Zähle Fahrzeuge mit vNr = vNr1
x2 = x1
vNrAnz = 0
Do
@@ -1159,7 +1159,7 @@ lbProg1:
'FZP Check:
- ' ...Fahrzeuge aufteilen, die L�cke im Zeitverlauf haben
+ ' ...Fahrzeuge aufteilen, die Lücke im Zeitverlauf haben
Private Sub FZPcheck()
Dim z As Int32
@@ -1305,7 +1305,7 @@ lbProg1:
End Function
- 'Ausgabe Schlie�en
+ 'Ausgabe Schließen
Private Function AusgVis_V3_Close() As Boolean
Dim F611 As New cFile_V3
Dim secvis As Single
@@ -1374,7 +1374,7 @@ lbProg1:
Call F611.WriteLine("Average results per line over total time interval [sec]:", secvis) ' Format 640
Call F611.WriteLine("Cold start extra emissions are included") ' Format *
Call F611.WriteLine("lfd.; x1; y1; x2; y2;Strassen;; mittl.Emiss. [mg/(m*s)];;; ; ; ; ; ; ; ;DTV;Lkw-An-; Fahr-; Qh/;Typ; S_z0;Str-;; lNfz; lBus; F; L; W;Abschn.-") ' Format '(A150)'
- Call F611.WriteLine("Nr.;[m];[m];[m];[m];Breite[m];H�he[m];NOx;BENZOL;RUSS;PM10;KW;CO;CO2;SO2;Stoff 9; Stoff 10;[Kfz/d];teil[-];muster;SBr[m];[-];[m];Nr;Strassenkategorie;[-];[-]; S; N; O;Laenge[m]") ' Format '(A180)'
+ Call F611.WriteLine("Nr.;[m];[m];[m];[m];Breite[m];Höhe[m];NOx;BENZOL;RUSS;PM10;KW;CO;CO2;SO2;Stoff 9; Stoff 10;[Kfz/d];teil[-];muster;SBr[m];[-];[m];Nr;Strassenkategorie;[-];[-]; S; N; O;Laenge[m]") ' Format '(A180)'
'C
For js = 1 To STRlen
ivd = Math.Round(vDTV(js), 0, MidpointRounding.AwayFromZero)
@@ -1598,7 +1598,7 @@ lbProg1:
If Not STRergRef.Ausg() Then Return False
Next
- '********* Ausgabe Summen �ber alle STR's '*********
+ '********* Ausgabe Summen über alle STR's '*********
STRSUMpath = fFileWoExt(JobFile) & ".segment.sum"
@@ -1892,7 +1892,7 @@ lbProg1:
WorkerMsg(tMsgID.Normal, "Starting .mod split.", MsgSrc)
- 'InFile �ffnen
+ 'InFile öffnen
Try
f = New System.IO.StreamReader(InPath)
Catch ex As Exception
@@ -1928,7 +1928,7 @@ lbProg1:
GoTo lbDone
End If
- 'Ausgabedatei �ffnen / Abbruch wenn Fehler beim �ffnen
+ 'Ausgabedatei öffnen / Abbruch wenn Fehler beim Öffnen
If Not fOut.OpenWrite(fFileWoExt(InPath) & "_Veh" & VehNr & ".mod") Then
WorkerMsg(tMsgID.Err, "Cannot create output file. Veh.Nr. " & VehNr, MsgSrc)
GoTo lbDone
@@ -1937,7 +1937,7 @@ lbProg1:
'Schleife durch Datei
Do While Not f.EndOfStream
- 'Falls String schon eine VehNr enth�lt wird Zeile nicht nochmal eingelesen (siehe unten)
+ 'Falls String schon eine VehNr enthält wird Zeile nicht nochmal eingelesen (siehe unten)
If CheckLast Then
CheckLast = False
Else
@@ -1955,17 +1955,17 @@ lbProg1:
'Erste Zeile schreiben ("VehNr: ...")
fOut.WriteLine(laststring)
- 'N�chste Zeile lesen (sonst wird Do While �bersprungen)
+ 'Nächste Zeile lesen (sonst wird Do While übersprungen)
laststring = f.ReadLine
- 'Schleife bis n�chste VehNr / Dateiende
+ 'Schleife bis nächste VehNr / Dateiende
Do While Not f.EndOfStream
- 'Wenn n�chstes Fahrzeug:
+ 'Wenn nächstes Fahrzeug:
If InStr(laststring, "VehNr:", CompareMethod.Text) > 0 Then
If GetVehNr(laststring) = VehNr Then
'Wenn gleiche Fahrzeugnummer: Datei weiter schreiben
- 'Header und Units �berspringen
+ 'Header und Units überspringen
f.ReadLine()
f.ReadLine()
laststring = f.ReadLine
@@ -1983,10 +1983,10 @@ lbProg1:
Loop
- 'Falls nicht EndOfStream Flag setzen damit n�chste VehNr nicht �bersprungen wird
+ 'Falls nicht EndOfStream Flag setzen damit nächste VehNr nicht übersprungen wird
If Not f.EndOfStream Then CheckLast = True
- 'Ausgabedatei schlie�en
+ 'Ausgabedatei schließen
fOut.Close()
'Aus der VehNr-Such-Schleife raus springen
@@ -2122,7 +2122,7 @@ lbDone:
End Class
- 'Klasse f�r abschnittsweise Auswertung
+ 'Klasse für abschnittsweise Auswertung
Private Class cSTRerg
Public MySTRpath As String
@@ -2133,7 +2133,7 @@ lbDone:
Public EMsum As Dictionary(Of String, List(Of Double)) 'Summen-Emissionen je Fahrzeugtyp und Em-Komponente Absolut [g]
- Public Distance As Single 'STR-L�nge f�r Filter in km
+ Public Distance As Single 'STR-Länge für Filter in km
Public Sub Init()
Dim KV As KeyValuePair(Of String, cFLTfleet)
@@ -2378,7 +2378,7 @@ lbDone:
'Schreiben
fSSUM.WriteLine(s.ToString)
- 'Datei schlie�en
+ 'Datei schließen
fSSUM.Close()
Return True
diff --git a/VECTO/ApplicationEvents.vb b/VECTO/ApplicationEvents.vb
index 26c4c8aa88..3f2dc1afdc 100644
--- a/VECTO/ApplicationEvents.vb
+++ b/VECTO/ApplicationEvents.vb
@@ -1,14 +1,14 @@
-Imports System.Collections.Generic
+Imports System.Collections.Generic
Namespace My
- ' F�r MyApplication sind folgende Ereignisse verf�gbar:
+ ' Für MyApplication sind folgende Ereignisse verfügbar:
'
- ' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgel�st.
- ' Shutdown: Wird nach dem Schlie�en aller Anwendungsformulare ausgel�st. Dieses Ereignis wird nicht ausgel�st, wenn die Anwendung nicht normal beendet wird.
- ' UnhandledException: Wird ausgel�st, wenn in der Anwendung eine unbehandelte Ausnahme auftritt.
- ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgel�st, wenn diese bereits aktiv ist.
- ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgel�st.
+ ' Startup: Wird beim Starten der Anwendung noch vor dem Erstellen des Startformulars ausgelöst.
+ ' Shutdown: Wird nach dem Schließen aller Anwendungsformulare ausgelöst. Dieses Ereignis wird nicht ausgelöst, wenn die Anwendung nicht normal beendet wird.
+ ' UnhandledException: Wird ausgelöst, wenn in der Anwendung eine unbehandelte Ausnahme auftritt.
+ ' StartupNextInstance: Wird beim Starten einer Einzelinstanzanwendung ausgelöst, wenn diese bereits aktiv ist.
+ ' NetworkAvailabilityChanged: Wird beim Herstellen oder Trennen der Netzwerkverbindung ausgelöst.
Partial Friend Class MyApplication
'Initialisierung
@@ -95,7 +95,7 @@ Namespace My
DEV = New cDEV
VEC = New cVECTO
- Cfg = New cConfig 'ACHTUNG: cConfig.New l�st cConfig.SetDefault aus welches sKey ben�tigt dehalb muss sKey schon vorher initialisiert werden!!
+ Cfg = New cConfig 'ACHTUNG: cConfig.New löst cConfig.SetDefault aus welches sKey benötigt dehalb muss sKey schon vorher initialisiert werden!!
ProgBarCtrl = New cProgBarCtrl
@@ -106,10 +106,10 @@ Namespace My
'Log starten
If IO.File.Exists(MyAppPath & "LOG.txt") Then
- 'Dateigr��e checken
+ 'Dateigröße checken
logfDetail = My.Computer.FileSystem.GetFileInfo(MyAppPath & "LOG.txt")
- 'Falls Log zu gro�: l�schen
+ 'Falls Log zu groß: löschen
If logfDetail.Length / (2 ^ 20) > Cfg.LogSize Then
LOGfile.WriteLine("Starting new logfile")
diff --git a/VECTO/File Browser/FB_Dialog.designer.vb b/VECTO/File Browser/FB_Dialog.designer.vb
index 4b580609ce..f285c349e8 100644
--- a/VECTO/File Browser/FB_Dialog.designer.vb
+++ b/VECTO/File Browser/FB_Dialog.designer.vb
@@ -1,8 +1,8 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FB_Dialog
Inherits System.Windows.Forms.Form
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
@@ -14,12 +14,12 @@ Partial Class FB_Dialog
End Try
End Sub
- 'Wird vom Windows Form-Designer benötigt.
+ 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
diff --git a/VECTO/File Browser/FB_Dialog.vb b/VECTO/File Browser/FB_Dialog.vb
index 8df7e1451b..5acb015f85 100644
--- a/VECTO/File Browser/FB_Dialog.vb
+++ b/VECTO/File Browser/FB_Dialog.vb
@@ -1,4 +1,4 @@
-Public Class FB_Dialog
+Public Class FB_Dialog
Private MyFolder As String
Private MyFiles() As String
@@ -29,9 +29,9 @@ Public Class FB_Dialog
'New
Public Sub New(ByVal LightMode As Boolean)
- ' Dieser Aufruf ist f�r den Windows Form-Designer erforderlich.
+ ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
- ' F�gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+ ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
MyID = "Default"
UpdateLock = False
Initialized = False
@@ -101,9 +101,9 @@ Public Class FB_Dialog
Exit Sub
End If
LastExt = Trim(Me.ComboBoxExt.Text)
- 'Dateien in Array �bernehmen
+ 'Dateien in Array übernehmen
If Microsoft.VisualBasic.Left(Me.TextBoxPath.Text, 1) = "<" And Me.ListViewFiles.SelectedItems.Count > 0 Then
- 'Mehrere Dateien ausgew�hlt
+ 'Mehrere Dateien ausgewählt
ReDim MyFiles(Me.ListViewFiles.SelectedItems.Count - 1)
x = -1
For Each lv0 As ListViewItem In Me.ListViewFiles.Items
@@ -116,9 +116,9 @@ Public Class FB_Dialog
Else
'Einzelne Datei
path = Trim(Me.TextBoxPath.Text)
- 'Prim�re Extension (u.a. f�r bForceExt)
+ 'Primäre Extension (u.a. für bForceExt)
Ext = Trim(Me.ComboBoxExt.Text.Split(",")(0))
- 'Falls Datei ohne Pfad angegeben dann Pfad hinzuf�gen
+ 'Falls Datei ohne Pfad angegeben dann Pfad hinzufügen
If Microsoft.VisualBasic.Mid(path, 2, 1) <> ":" Then path = MyFolder & path
'Falls statt Datei ein Ordner eingegeben wurde: Auf Ordner wechseln und Abbruch
If IO.Directory.Exists(path) Then
@@ -134,7 +134,7 @@ Public Class FB_Dialog
'Check ob Datei mit Ext angegeben
HasExt = (Microsoft.VisualBasic.Len(IO.Path.GetExtension(path)) > 1)
End If
- 'Falls Datei ohne Endung (nach bForceExt-Abfrage) und nicht existiert dann prim�re Endung hinzuf�gen
+ 'Falls Datei ohne Endung (nach bForceExt-Abfrage) und nicht existiert dann primäre Endung hinzufügen
If Not HasExt Then
If Ext <> "*" And Ext <> "" Then
If Not IO.File.Exists(path) Then path &= "." & Ext
@@ -222,10 +222,10 @@ Public Class FB_Dialog
' Falls kein Pfad angegeben wird: Letzter Ordner, kein Dateiname
If path = "" Then path = FB_FolderHistory(0)
- ' Falls Pfadl�nge zu klein (Pfad ung�ltig): Letzte Datei
+ ' Falls Pfadlänge zu klein (Pfad ungültig): Letzte Datei
If path.Length < 2 Then path = LastFile
- 'Ordner �ffnen - Falls kein Ordner im Pfad: Letzter Ordner
+ 'Ordner öffnen - Falls kein Ordner im Pfad: Letzter Ordner
If fPATH(path) = "" Then
'Falls Datei ohne Pfad angegeben
If Trim(FB_FolderHistory(0)) = "" Then
@@ -269,7 +269,7 @@ Public Class FB_Dialog
End If
End Function
- 'Schlie�en und File/Folder History speichern
+ 'Schließen und File/Folder History speichern
Public Sub SaveAndClose()
Dim f As System.IO.StreamWriter
Dim x As Int16
@@ -778,7 +778,7 @@ Public Class FB_Dialog
UpdateLock = True
- 'Suchfelder l�schen
+ 'Suchfelder löschen
Me.TextBoxSearchFile.Text = ""
Me.TextBoxSearchFolder.Text = ""
@@ -817,11 +817,11 @@ Public Class FB_Dialog
'FolderListe laden
Private Sub LoadListFolder()
Dim SearchPat As String
- 'FolderListe l�schen
+ 'FolderListe löschen
Me.ListViewFolder.Items.Clear()
SearchPat = "*" & Me.TextBoxSearchFolder.Text & "*"
Try
- 'Ordner hinzuf�gen
+ 'Ordner hinzufügen
Dim di As New IO.DirectoryInfo(MyFolder)
Dim aryFi As IO.DirectoryInfo()
Dim fi As IO.DirectoryInfo
@@ -853,14 +853,14 @@ Public Class FB_Dialog
ExtStr = Me.ComboBoxExt.Text.ToString.Split(",")
End If
- 'FileListe l�schen
+ 'FileListe löschen
Me.ListViewFiles.Items.Clear()
SearchFile = Me.TextBoxSearchFile.Text
Me.ListViewFiles.BeginUpdate()
Try
- 'Ordner hinzuf�gen
+ 'Ordner hinzufügen
Dim di As New IO.DirectoryInfo(MyFolder)
Dim aryFi As IO.FileInfo()
Dim fi As IO.FileInfo
diff --git a/VECTO/File Browser/FB_Global.vb b/VECTO/File Browser/FB_Global.vb
index c4d2c71672..c16170b77c 100644
--- a/VECTO/File Browser/FB_Global.vb
+++ b/VECTO/File Browser/FB_Global.vb
@@ -1,4 +1,4 @@
-Module FB_Global
+Module FB_Global
Public FB_FolderHistory(19) As String
Public FB_Drives() As String
diff --git a/VECTO/File Browser/cFileBrowser.vb b/VECTO/File Browser/cFileBrowser.vb
index 725836394e..84a6d9d113 100644
--- a/VECTO/File Browser/cFileBrowser.vb
+++ b/VECTO/File Browser/cFileBrowser.vb
@@ -1,4 +1,4 @@
-Imports System.Collections
+Imports System.Collections
'Imports System.Windows.Forms
'V1.0 10.12.2010
@@ -22,7 +22,7 @@ Imports System.Collections
'...
'fbTXT.Close()
-'**Ben�tigte Globale Variablen (Default):
+'**Benötigte Globale Variablen (Default):
'Public FB_Drives() As String
'Public FB_Init As Boolean = False
'Public FB_FilHisDir As String
@@ -55,12 +55,12 @@ Public Class cFileBrowser
bLightMode = LightMode
End Sub
- 'OpenDialog - �ffnen Dialog - �bergibt True wenn Dialog mit OK beendet wurde
+ 'OpenDialog - Öffnen Dialog - Übergibt True wenn Dialog mit OK beendet wurde
Public Function OpenDialog(ByVal path As String, Optional ByVal MultiFile As Boolean = False, Optional ByVal Ext As String = "") As Boolean
Return CustomDialog(path, True, False, eExtMode.MultiExt, MultiFile, Ext, "Open")
End Function
- 'SaveDialog - Speichern Dialog - �bergibt True wenn Dialog mit OK beendet wurde
+ 'SaveDialog - Speichern Dialog - Übergibt True wenn Dialog mit OK beendet wurde
Public Function SaveDialog(ByVal path As String, Optional ByVal ForceExt As Boolean = True, Optional ByVal Ext As String = "") As Boolean
Dim x As eExtMode
If ForceExt Then
@@ -71,7 +71,7 @@ Public Class cFileBrowser
Return CustomDialog(path, False, True, x, False, Ext, "Save As")
End Function
- 'Dialog �ffnen - �bergibt True wenn Dialog mit OK beendet wurde
+ 'Dialog öffnen - Übergibt True wenn Dialog mit OK beendet wurde
Public Function CustomDialog(ByVal path As String, ByVal FileMustExist As Boolean, ByVal OverwriteCheck As Boolean, ByVal ExtMode As eExtMode, ByVal MultiFile As Boolean, ByVal Ext As String, Optional Title As String = "File Browser") As Boolean
If Not Initialized Then Init()
Return Dlog.Browse(path, FileMustExist, OverwriteCheck, ExtMode, MultiFile, Ext, Title)
diff --git a/VECTO/GUI/F_ADV.Designer.vb b/VECTO/GUI/F_ADV.Designer.vb
index 6d96a64b26..827b74ea3a 100644
--- a/VECTO/GUI/F_ADV.Designer.vb
+++ b/VECTO/GUI/F_ADV.Designer.vb
@@ -1,8 +1,8 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class F_ADV
Inherits System.Windows.Forms.Form
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
@@ -14,12 +14,12 @@ Partial Class F_ADV
End Try
End Sub
- 'Wird vom Windows Form-Designer benötigt.
+ 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(F_ADV))
diff --git a/VECTO/GUI/F_ADV.vb b/VECTO/GUI/F_ADV.vb
index b08c65d60c..e37fe552be 100644
--- a/VECTO/GUI/F_ADV.vb
+++ b/VECTO/GUI/F_ADV.vb
@@ -1,4 +1,4 @@
-Public Class F_ADV
+Public Class F_ADV
Private Const IFanz As Int16 = 4
Dim Advfile As String
@@ -9,7 +9,7 @@ Public Class F_ADV
Changed = False
End Sub
- 'Schlie�en
+ 'Schließen
Private Sub F05_ADV_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If e.CloseReason <> CloseReason.ApplicationExitCall And e.CloseReason <> CloseReason.WindowsShutDown Then
e.Cancel = ChangeCheckCancel()
@@ -164,7 +164,7 @@ Public Class F_ADV
'Zeile 6: STRfilter True/False
Me.CheckBoxSTRfilter.Checked = ADV.STRfilter
- 'Zeile 7: Distance filter f�r SUM.STR
+ 'Zeile 7: Distance filter für SUM.STR
Me.TbFilter.Text = ADV.STRSUMdistflt
'Zeile 8+: STR Dateien
@@ -231,10 +231,10 @@ Public Class F_ADV
Me.TextBoxTEM.Text = txt
End Sub
- 'Formular �nderungen (Kontrolle ob GEN gespeichert)---------------------------------
- 'Event Handler f�r Form�nderungen
+ 'Formular Änderungen (Kontrolle ob GEN gespeichert)---------------------------------
+ 'Event Handler für Formänderungen
- 'Change Status �ndern
+ 'Change Status ändern
Private Sub Change()
Me.ToolStripStatusLabelADV.Text = "Unsaved changes in current file"
Changed = True
@@ -320,4 +320,4 @@ Public Class F_ADV
End Sub
-End Class
\ No newline at end of file
+End Class
diff --git a/VECTO/GUI/F_ADVfzp.Designer.vb b/VECTO/GUI/F_ADVfzp.Designer.vb
index b88482ccbe..497a34216c 100644
--- a/VECTO/GUI/F_ADVfzp.Designer.vb
+++ b/VECTO/GUI/F_ADVfzp.Designer.vb
@@ -1,8 +1,8 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class F_ADVfzp
Inherits System.Windows.Forms.Form
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
@@ -14,12 +14,12 @@ Partial Class F_ADVfzp
End Try
End Sub
- 'Wird vom Windows Form-Designer benötigt.
+ 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
diff --git a/VECTO/GUI/F_ADVfzp.vb b/VECTO/GUI/F_ADVfzp.vb
index 7c7af37d75..2f8f4897db 100644
--- a/VECTO/GUI/F_ADVfzp.vb
+++ b/VECTO/GUI/F_ADVfzp.vb
@@ -1,4 +1,4 @@
-Imports System.Windows.Forms
+Imports System.Windows.Forms
Public Class F_ADVfzp
diff --git a/VECTO/GUI/F_AboutBox.Designer.vb b/VECTO/GUI/F_AboutBox.Designer.vb
index 795e6d4fe0..99af7654d5 100644
--- a/VECTO/GUI/F_AboutBox.Designer.vb
+++ b/VECTO/GUI/F_AboutBox.Designer.vb
@@ -1,8 +1,8 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class F_AboutBox
Inherits System.Windows.Forms.Form
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
@@ -14,12 +14,12 @@ Partial Class F_AboutBox
End Try
End Sub
- 'Wird vom Windows Form-Designer benötigt.
+ 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
diff --git a/VECTO/GUI/F_AboutBox.vb b/VECTO/GUI/F_AboutBox.vb
index e922af60be..f4be9ee1b0 100644
--- a/VECTO/GUI/F_AboutBox.vb
+++ b/VECTO/GUI/F_AboutBox.vb
@@ -1,4 +1,4 @@
-Public Class F_AboutBox
+Public Class F_AboutBox
'Initialisieren
@@ -43,4 +43,4 @@ Public Class F_AboutBox
End Sub
-End Class
\ No newline at end of file
+End Class
diff --git a/VECTO/GUI/F_GEN.Designer.vb b/VECTO/GUI/F_GEN.Designer.vb
index 15e0d0bf01..b056cc0c8f 100644
--- a/VECTO/GUI/F_GEN.Designer.vb
+++ b/VECTO/GUI/F_GEN.Designer.vb
@@ -1,8 +1,8 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class F_GEN
Inherits System.Windows.Forms.Form
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
@@ -14,12 +14,12 @@ Partial Class F_GEN
End Try
End Sub
- 'Wird vom Windows Form-Designer benötigt.
+ 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(F_GEN))
@@ -624,7 +624,7 @@ Partial Class F_GEN
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(96, 13)
Me.Label5.TabIndex = 1
- Me.Label5.Text = "Coolant Temp [°C]:"
+ Me.Label5.Text = "Coolant Temp [°C]:"
'
'Label4
'
@@ -633,7 +633,7 @@ Partial Class F_GEN
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(97, 13)
Me.Label4.TabIndex = 0
- Me.Label4.Text = "Catalyst Temp [°C]:"
+ Me.Label4.Text = "Catalyst Temp [°C]:"
'
'ButOpenMAC
'
diff --git a/VECTO/GUI/F_GEN.vb b/VECTO/GUI/F_GEN.vb
index 239266408b..5aab3a9e59 100644
--- a/VECTO/GUI/F_GEN.vb
+++ b/VECTO/GUI/F_GEN.vb
@@ -1,4 +1,4 @@
-Imports System.Collections.Generic
+Imports System.Collections.Generic
Public Class F_GEN
@@ -56,7 +56,7 @@ Public Class F_GEN
End Sub
- 'Schlie�en
+ 'Schließen
Private Sub F02_GEN_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If e.CloseReason <> CloseReason.ApplicationExitCall And e.CloseReason <> CloseReason.WindowsShutDown Then
e.Cancel = ChangeCheckCancel()
@@ -71,8 +71,8 @@ Public Class F_GEN
End Sub
-#Region "Schaltfl�chen Ein-/Ausblenden (und ggf. Change() aufrufen)"
- '�nderung der DynKor Checkbox
+#Region "Schaltflächen Ein-/Ausblenden (und ggf. Change() aufrufen)"
+ 'Änderung der DynKor Checkbox
Private Sub CheckBoxDynKor_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxDynKor.CheckedChanged
Me.ButOpenTRS.Enabled = Me.CheckBoxDynKor.Checked
Me.TextBoxTRS.Enabled = Me.CheckBoxDynKor.Checked
@@ -80,13 +80,13 @@ Public Class F_GEN
Call Change()
End Sub
- '�nderung der Kaltstart Checkbox
+ 'Änderung der Kaltstart Checkbox
Private Sub CheckBoxColdSt_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxColdSt.CheckedChanged
SetCStab(Me.CheckBoxColdSt.Checked)
Call Change()
End Sub
- '�nderund der SCR Checkbox
+ 'Änderund der SCR Checkbox
Private Sub CheckBoxSCR_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxSCR.CheckedChanged
Me.ButOpenEXS.Enabled = Me.CheckBoxSCR.Checked
Me.TextBoxEXS.Enabled = Me.CheckBoxSCR.Checked
@@ -349,7 +349,7 @@ Public Class F_GEN
Dim f As String
f = fFileRepl(TextBoxVEH.Text, fPATH(Genfile))
- 'Damit Veh-Datei �bergeben wird
+ 'Damit Veh-Datei übergeben wird
F_VEH.GenDir = fPATH(Genfile)
F_VEH.AutoSendTo = True
@@ -375,7 +375,7 @@ Public Class F_GEN
Dim f As String
f = fFileRepl(TbENG.Text, fPATH(Genfile))
- 'Damit Veh-Datei �bergeben wird
+ 'Damit Veh-Datei übergeben wird
F_ENG.GenDir = fPATH(Genfile)
F_ENG.AutoSendTo = True
@@ -401,7 +401,7 @@ Public Class F_GEN
Dim f As String
f = fFileRepl(TbGBX.Text, fPATH(Genfile))
- 'Damit Veh-Datei �bergeben wird
+ 'Damit Veh-Datei übergeben wird
F_GBX.GenDir = fPATH(Genfile)
F_GBX.AutoSendTo = True
@@ -469,7 +469,7 @@ Public Class F_GEN
End Sub
#End Region
-#Region "Men�leiste / Toolbar"
+#Region "Menüleiste / Toolbar"
'New
Private Sub ToolStripBtNew_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripBtNew.Click
@@ -926,11 +926,11 @@ Public Class F_GEN
#End Region
-#Region "Formular �nderungen (Change() Aufruf) und ggf. Tabs ein/ausblenden"
+#Region "Formular Änderungen (Change() Aufruf) und ggf. Tabs ein/ausblenden"
-#Region "Event Handler f�r Form�nderungen"
+#Region "Event Handler für Formänderungen"
- 'Event Handler f�r Form�nderungen
+ 'Event Handler für Formänderungen
Private Sub FormChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
ComboBoxVehType.SelectedIndexChanged, _
ComboBoxGearShift.SelectedIndexChanged, _
@@ -946,13 +946,13 @@ Public Class F_GEN
Call Change()
End Sub
- 'Start/Stop - Checkbox �nderung
+ 'Start/Stop - Checkbox Änderung
Private Sub ChBStartStop_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChBStartStop.CheckedChanged
SetStStoptab(Me.ChBStartStop.Checked)
Change()
End Sub
- 'Start/Stop - Textbox �nderung
+ 'Start/Stop - Textbox Änderung
Private Sub TBSSspeed_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TBSSspeed.TextChanged, TBSStime.TextChanged
Change()
End Sub
@@ -1069,7 +1069,7 @@ Public Class F_GEN
#End Region
- 'Change Status �ndern
+ 'Change Status ändern
Private Sub Change()
If Not Changed Then
Me.ToolStripStatusLabelGEN.Text = "Unsaved changes in current file"
@@ -1115,7 +1115,7 @@ Public Class F_GEN
AuxDlog.TbPath.Text = ""
AuxDlog.CbType.SelectedIndex = -1
AuxDlog.CbType.Text = ""
- AuxDlog.TbID.Text = "" '!!! Vorher Type setzen weil ID beim �ndern von Type �berschrieben wird !!!"
+ AuxDlog.TbID.Text = "" '!!! Vorher Type setzen weil ID beim ändern von Type überschrieben wird !!!"
lbDlog:
If AuxDlog.ShowDialog = Windows.Forms.DialogResult.OK Then
@@ -1172,7 +1172,7 @@ lbDlog:
AuxDlog.TbPath.Text = LV0.SubItems(2).Text
AuxDlog.CbType.SelectedIndex = -1
AuxDlog.CbType.Text = LV0.SubItems(1).Text
- AuxDlog.TbID.Text = LV0.SubItems(0).Text '!!! Vorher Type setzen weil ID beim �ndern von Type �berschrieben wird !!!
+ AuxDlog.TbID.Text = LV0.SubItems(0).Text '!!! Vorher Type setzen weil ID beim ändern von Type überschrieben wird !!!
If AuxDlog.ShowDialog = Windows.Forms.DialogResult.OK Then
LV0.SubItems(0).Text = UCase(Trim(AuxDlog.TbID.Text))
@@ -1283,4 +1283,4 @@ lbDlog:
End Sub
-End Class
\ No newline at end of file
+End Class
diff --git a/VECTO/GUI/F_MAINForm.Designer.vb b/VECTO/GUI/F_MAINForm.Designer.vb
index 86cda8be8b..68d8852ae2 100644
--- a/VECTO/GUI/F_MAINForm.Designer.vb
+++ b/VECTO/GUI/F_MAINForm.Designer.vb
@@ -1,8 +1,8 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class F_MAINForm
Inherits System.Windows.Forms.Form
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
@@ -14,12 +14,12 @@ Partial Class F_MAINForm
End Try
End Sub
- 'Wird vom Windows Form-Designer benötigt.
+ 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
diff --git a/VECTO/GUI/F_MAINForm.vb b/VECTO/GUI/F_MAINForm.vb
index 285b7d03b4..bfad1f6bb5 100644
--- a/VECTO/GUI/F_MAINForm.vb
+++ b/VECTO/GUI/F_MAINForm.vb
@@ -1,4 +1,4 @@
-Imports System.Collections.Generic
+Imports System.Collections.Generic
Public Class F_MAINForm
@@ -177,13 +177,13 @@ Public Class F_MAINForm
Public Sub PHEM_Launcher()
Dim ProgOverall As Boolean
- 'Falls Aufruf w�hrend PHEM schon l�uft
+ 'Falls Aufruf während PHEM schon läuft
If PHEMworker.IsBusy Then
GUImsg(tMsgID.Err, "PHEM is already running!")
Exit Sub
End If
- 'GENlist-Selection l�schen
+ 'GENlist-Selection löschen
Me.LvGEN.SelectedItems.Clear()
'Modus festlegen
@@ -196,7 +196,7 @@ Public Class F_MAINForm
PHEMmode = tPHEMmode.ModeADVANCE
End Select
- 'Wenn mehr als 100 Kombinationen in Batch fragen ob sek�ndliche Ausgabe
+ 'Wenn mehr als 100 Kombinationen in Batch fragen ob sekündliche Ausgabe
If (PHEMmode = tPHEMmode.ModeBATCH) And ((Me.LvGEN.CheckedItems.Count) * (Me.LvDRI.CheckedItems.Count) > 100) And Me.ChBoxModOut.Checked Then
Select Case MsgBox("You are about to run PHEM BATCH with " & (Me.LvGEN.CheckedItems.Count) * (Me.LvDRI.CheckedItems.Count) & " calculations!" & ChrW(10) & "Do you still want to write second-by-second results?", MsgBoxStyle.YesNoCancel)
Case MsgBoxResult.No
@@ -216,13 +216,13 @@ Public Class F_MAINForm
'File- / Zylus- Liste definieren
SetJobList()
- 'Zyklus-Liste definieren (falls nicht BATCH-Modus wird in SetCycleList nur die Liste gel�scht und nicht neu belegt)
+ 'Zyklus-Liste definieren (falls nicht BATCH-Modus wird in SetCycleList nur die Liste gelöscht und nicht neu belegt)
SetCycleList()
- 'Check ob Overall-Progbar ben�tigt
+ 'Check ob Overall-Progbar benötigt
ProgOverall = PHEMmode <> tPHEMmode.ModeADVANCE ' JobFileList.Count > 1 Or PHEMmode = tPHEMmode.ModeBATCH
- 'Launch �ber Job_Launcher
+ 'Launch über Job_Launcher
BGjob = tBGjob.PHEM
Job_Launcher(ProgOverall)
@@ -301,7 +301,7 @@ Public Class F_MAINForm
If DEV.Enabled Then DEV.SaveToFile()
- 'Msg-Ausgabe zur�ck setzen
+ 'Msg-Ausgabe zurück setzen
ClearMSG()
'Button umschalten
@@ -531,7 +531,7 @@ Public Class F_MAINForm
PHEMworker.WorkerReportsProgress = True
PHEMworker.WorkerSupportsCancellation = True
- 'Lizenz �berpr�fen
+ 'Lizenz überprüfen
If Not Lic.LICcheck() Then
MsgBox("License File invalid!" & vbCrLf & vbCrLf & Lic.FailMsg)
If Lic.CreateActFile(MyAppPath & "ActivationCode.dat") Then
@@ -584,7 +584,7 @@ Public Class F_MAINForm
End Sub
- 'Datei mit PHEM �ffnen
+ 'Datei mit PHEM öffnen
Private Sub CmdLineCtrl(ByVal ComLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String))
Dim bBATCH As Boolean
Dim bRUN As Boolean
@@ -623,13 +623,13 @@ Public Class F_MAINForm
End Sub
- 'Schlie�en
+ 'Schließen
Private Sub F01_MAINForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'FileLists speichern
SaveFileLists()
- 'Log schlie�en
+ 'Log schließen
Try
LOGfile.WriteLine("Closing Session " & Now)
LOGfile.WriteLine("------------------------------------------------------------------------------------------")
@@ -643,7 +643,7 @@ Public Class F_MAINForm
Cfg.ConfigSAVE()
If DEV.Enabled Then DEV.SaveToFile()
- 'FileBrowser-Instanzen schlie�en
+ 'FileBrowser-Instanzen schließen
FB_Close()
End Sub
@@ -827,7 +827,7 @@ Public Class F_MAINForm
UpdateGENTabText()
End Sub
- 'Datei zu Liste hinzuf�gen
+ 'Datei zu Liste hinzufügen
Private Sub addGEN()
Dim x As String()
Dim Chck As Boolean = False
@@ -852,7 +852,7 @@ Public Class F_MAINForm
End Sub
- 'Datei �ffnen
+ 'Datei öffnen
Private Sub OpenGenOrAdv()
Dim f As String
@@ -877,7 +877,7 @@ Public Class F_MAINForm
End If
End Sub
- 'GEN/ADV Liste: Datei hinzuf�gen
+ 'GEN/ADV Liste: Datei hinzufügen
Private Sub AddToListViewGEN(ByVal Path As String(), Optional ByVal Txt As String = " ")
Dim pDim As Int16
Dim p As Int16
@@ -886,13 +886,13 @@ Public Class F_MAINForm
Dim fListDim As Int16 = -1
Dim ListViewItem0 As ListViewItem
- 'Falls PHEM l�uft: Vorgang abbrechen (weil Modus�nderung w�hrend Berechnung nix gscheit)
+ 'Falls PHEM läuft: Vorgang abbrechen (weil Modusänderung während Berechnung nix gscheit)
If PHEMworker.IsBusy Then Exit Sub
pDim = UBound(Path)
ReDim fList(0) 'um Nullverweisausnahme-Warnung zu verhindern
- 'Modus umschalten falls n�tig
+ 'Modus umschalten falls nötig
Select Case UCase(fEXT(Path(0)))
Case ".GEN"
If (LastModeIndex = 2) Then Me.CBoxMODE.SelectedIndex = 0
@@ -920,7 +920,7 @@ Public Class F_MAINForm
For f = 0 To fListDim
- 'Wenn Datei schon in Liste vorhanden: Nicht hinzuf�gen (nur wenn einzelne Datei)
+ 'Wenn Datei schon in Liste vorhanden: Nicht hinzufügen (nur wenn einzelne Datei)
If UCase(Path(p)) = UCase(fList(f)) Then
'Status reset
@@ -928,7 +928,7 @@ Public Class F_MAINForm
Me.LvGEN.Items(f).BackColor = Color.FromKnownColor(KnownColor.Window)
Me.LvGEN.Items(f).ForeColor = Color.FromKnownColor(KnownColor.WindowText)
- 'Element ausw�hlen und anhaken
+ 'Element auswählen und anhaken
Me.LvGEN.Items(f).Selected = True
Me.LvGEN.Items(f).Checked = True
Me.LvGEN.Items(f).EnsureVisible()
@@ -939,7 +939,7 @@ Public Class F_MAINForm
End If
- 'Sonst: Datei hinzuf�gen (ohne WorkDir)
+ 'Sonst: Datei hinzufügen (ohne WorkDir)
ListViewItem0 = New ListViewItem(Path(p)) 'fFileWD(Path(p)))
ListViewItem0.SubItems.Add(" ")
ListViewItem0.Checked = True
@@ -1157,7 +1157,7 @@ lbFound:
FileOpen(fFileRepl(Me.LvDRI.SelectedItems(0).SubItems(0).Text, Cfg.WorkDPath))
End Sub
- 'DRI Liste: Datei hinzuf�gen
+ 'DRI Liste: Datei hinzufügen
Private Sub AddToListViewDRI(ByVal Path As String())
Dim pDim As Int16
Dim p As Int16
@@ -1168,7 +1168,7 @@ lbFound:
Me.LvDRI.BeginUpdate()
CheckLock = True
- 'Modus umschalten falls n�tig
+ 'Modus umschalten falls nötig
If (LastModeIndex <> 1) Then Me.CBoxMODE.SelectedIndex = 1
For p = 0 To pDim
@@ -1381,12 +1381,12 @@ lbFound:
ListV.BeginUpdate()
- 'Selected Items l�schen
+ 'Selected Items löschen
For Each ListViewItem0 In ListV.SelectedItems
ListViewItem0.Remove()
Next
- 'Items einf�gen und ausw�hlen
+ 'Items einfügen und auswählen
'For y = y1 To 0 Step -1
For y = 0 To y1
ListViewItem0 = ListV.Items.Insert(index(y), items(y))
@@ -1727,7 +1727,7 @@ lbFound:
End Sub
- 'GEN Editor �ffnen und Datei laden
+ 'GEN Editor öffnen und Datei laden
Friend Sub OpenGENEditor(ByVal x As String)
If Not F_GEN.Visible Then
@@ -1747,7 +1747,7 @@ lbFound:
End Sub
- 'ADV Editor �ffnen und Datei laden
+ 'ADV Editor öffnen und Datei laden
Friend Sub OpenADVEditor(ByVal x As String)
If Not F_ADV.Visible Then
F_ADV.Show()
@@ -1784,7 +1784,7 @@ lbFound:
End Sub
-#Region "Sekund�re Progressbar (ToolStripProgBarSec) ...auch Update von ToolStripProgBarPrim m�glich"
+#Region "Sekundäre Progressbar (ToolStripProgBarSec) ...auch Update von ToolStripProgBarPrim möglich"
Private Sub ProgSecStart()
ProgBarCtrl.ProgJobInt = 0
@@ -2103,7 +2103,7 @@ lbFound:
' If LvMsg.SelectedItems.Count > 0 Then LvMsg.SelectedItems.Clear()
'End Sub
- 'Falls Link => �ffnen
+ 'Falls Link => Öffnen
Private Sub LvMsg_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles LvMsg.MouseClick
If Me.LvMsg.SelectedIndices.Count > 0 Then
If Not Me.LvMsg.SelectedItems(0).Tag Is Nothing Then
@@ -2116,7 +2116,7 @@ lbFound:
End If
End Sub
- 'Hand-Cursor f�r Links
+ 'Hand-Cursor für Links
Private Sub LvMsg_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles LvMsg.MouseMove
Dim lv0 As ListViewItem
lv0 = Me.LvMsg.GetItemAt(e.Location.X, e.Location.Y)
diff --git a/VECTO/GUI/F_ModSplit.Designer.vb b/VECTO/GUI/F_ModSplit.Designer.vb
index ae5f0a9de0..166526ba64 100644
--- a/VECTO/GUI/F_ModSplit.Designer.vb
+++ b/VECTO/GUI/F_ModSplit.Designer.vb
@@ -1,8 +1,8 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class F_ModSplit
Inherits System.Windows.Forms.Form
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
@@ -14,12 +14,12 @@ Partial Class F_ModSplit
End Try
End Sub
- 'Wird vom Windows Form-Designer benötigt.
+ 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
diff --git a/VECTO/GUI/F_ModSplit.vb b/VECTO/GUI/F_ModSplit.vb
index 8b30532439..3267fd6732 100644
--- a/VECTO/GUI/F_ModSplit.vb
+++ b/VECTO/GUI/F_ModSplit.vb
@@ -1,4 +1,4 @@
-Imports System.Windows.Forms
+Imports System.Windows.Forms
Public Class F_ModSplit
@@ -8,10 +8,10 @@ Public Class F_ModSplit
Dim FBtemp As cFileBrowser
Public Sub New()
- ' Dieser Aufruf ist f�r den Windows Form-Designer erforderlich.
+ ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
- ' F�gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+ ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
FBtemp = New cFileBrowser("temp", False, True)
FBtemp.Extensions = New String() {"mod"}
End Sub
diff --git a/VECTO/GUI/F_Options.Designer.vb b/VECTO/GUI/F_Options.Designer.vb
index 2eb1ee0615..2be6956732 100644
--- a/VECTO/GUI/F_Options.Designer.vb
+++ b/VECTO/GUI/F_Options.Designer.vb
@@ -1,8 +1,8 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class F_Options
Inherits System.Windows.Forms.Form
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
@@ -14,12 +14,12 @@ Partial Class F_Options
End Try
End Sub
- 'Wird vom Windows Form-Designer benötigt.
+ 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TextBoxWorDir = New System.Windows.Forms.TextBox()
@@ -232,7 +232,7 @@ Partial Class F_Options
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(41, 13)
Me.Label3.TabIndex = 16
- Me.Label3.Text = "[kg/m³]"
+ Me.Label3.Text = "[kg/m³]"
'
'TbCO2toFC
'
diff --git a/VECTO/GUI/F_Options.vb b/VECTO/GUI/F_Options.vb
index bac4f7aef4..67b240ee9f 100644
--- a/VECTO/GUI/F_Options.vb
+++ b/VECTO/GUI/F_Options.vb
@@ -1,4 +1,4 @@
-Public Class F_Options
+Public Class F_Options
Dim WD As String = " "
@@ -89,4 +89,4 @@ Public Class F_Options
End If
End Sub
-End Class
\ No newline at end of file
+End Class
diff --git a/VECTO/GUI/F_ShutDown.Designer.vb b/VECTO/GUI/F_ShutDown.Designer.vb
index eb0a82c7d1..31cd821865 100644
--- a/VECTO/GUI/F_ShutDown.Designer.vb
+++ b/VECTO/GUI/F_ShutDown.Designer.vb
@@ -1,8 +1,8 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class F_ShutDown
Inherits System.Windows.Forms.Form
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
@@ -14,12 +14,12 @@ Partial Class F_ShutDown
End Try
End Sub
- 'Wird vom Windows Form-Designer benötigt.
+ 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
diff --git a/VECTO/GUI/F_ShutDown.vb b/VECTO/GUI/F_ShutDown.vb
index 75a0f2325b..275fbe4cf1 100644
--- a/VECTO/GUI/F_ShutDown.vb
+++ b/VECTO/GUI/F_ShutDown.vb
@@ -1,4 +1,4 @@
-Imports System.Windows.Forms
+Imports System.Windows.Forms
Imports System.Runtime.InteropServices
Public Class F_ShutDown
diff --git a/VECTO/GUI/F_TEM_Creator.Designer.vb b/VECTO/GUI/F_TEM_Creator.Designer.vb
index 14ae6abe1d..89fe29698b 100644
--- a/VECTO/GUI/F_TEM_Creator.Designer.vb
+++ b/VECTO/GUI/F_TEM_Creator.Designer.vb
@@ -1,8 +1,8 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class F_TEM_Creator
Inherits System.Windows.Forms.Form
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
@@ -14,12 +14,12 @@ Partial Class F_TEM_Creator
End Try
End Sub
- 'Wird vom Windows Form-Designer benötigt.
+ 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TextBoxTemp = New System.Windows.Forms.TextBox
@@ -101,7 +101,7 @@ Partial Class F_TEM_Creator
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(18, 13)
Me.Label2.TabIndex = 7
- Me.Label2.Text = "°C"
+ Me.Label2.Text = "°C"
'
'Label3
'
diff --git a/VECTO/GUI/F_TEM_Creator.vb b/VECTO/GUI/F_TEM_Creator.vb
index a2cb9fe94b..8cd23162ec 100644
--- a/VECTO/GUI/F_TEM_Creator.vb
+++ b/VECTO/GUI/F_TEM_Creator.vb
@@ -1,4 +1,4 @@
-Public Class F_TEM_Creator
+Public Class F_TEM_Creator
'Initialisierung
Private Sub F04_TEM_Creator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
@@ -45,4 +45,4 @@ Public Class F_TEM_Creator
Me.TextBoxPath.Text = fbTEM.Files(0)
End If
End Sub
-End Class
\ No newline at end of file
+End Class
diff --git a/VECTO/GUI/F_VEH.Designer.vb b/VECTO/GUI/F_VEH.Designer.vb
index c3ffe91d24..c569950cdc 100644
--- a/VECTO/GUI/F_VEH.Designer.vb
+++ b/VECTO/GUI/F_VEH.Designer.vb
@@ -1,8 +1,8 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class F_VEH
Inherits System.Windows.Forms.Form
- 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+ 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
@@ -14,12 +14,12 @@ Partial Class F_VEH
End Try
End Sub
- 'Wird vom Windows Form-Designer benötigt.
+ 'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
- 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
- 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
- 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+ 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+ 'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
+ 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(F_VEH))
@@ -246,7 +246,7 @@ Partial Class F_VEH
Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(36, 13)
Me.Label32.TabIndex = 24
- Me.Label32.Text = "[kgm²]"
+ Me.Label32.Text = "[kgm²]"
'
'Label35
'
@@ -273,7 +273,7 @@ Partial Class F_VEH
Me.Label38.Name = "Label38"
Me.Label38.Size = New System.Drawing.Size(24, 13)
Me.Label38.TabIndex = 24
- Me.Label38.Text = "[m²]"
+ Me.Label38.Text = "[m²]"
'
'CbCdMode
'
diff --git a/VECTO/GUI/F_VEH.vb b/VECTO/GUI/F_VEH.vb
index 978088f164..d56f05aea0 100644
--- a/VECTO/GUI/F_VEH.vb
+++ b/VECTO/GUI/F_VEH.vb
@@ -1,4 +1,4 @@
-Imports System.Collections.Generic
+Imports System.Collections.Generic
Public Class F_VEH
@@ -25,7 +25,7 @@ Public Class F_VEH
End Sub
-#Region "Men� / Toolstrip"
+#Region "Menü / Toolstrip"
'New
Private Sub ToolStripBtNew_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripBtNew.Click
@@ -161,7 +161,7 @@ Public Class F_VEH
End Sub
- 'VEH �ffnen
+ 'VEH öffnen
Sub openVEH(ByVal file As String)
Dim i As Int16
Dim VEH0 As cVEH
@@ -334,7 +334,7 @@ Public Class F_VEH
Case Else ' tCdMode.CdOfBeta
bEnabled = True
- Me.LbCdMode.Text = "Input file: Yaw Angle [�], Cd Scaling Factor [-]"
+ Me.LbCdMode.Text = "Input file: Yaw Angle [°], Cd Scaling Factor [-]"
End Select
@@ -402,7 +402,7 @@ Public Class F_VEH
#Region "Change Events"
- 'Change Status �ndern
+ 'Change Status ändern
Private Sub Change()
If Not Changed Then
Me.LbStatus.Text = "Unsaved changes in current file"
@@ -672,4 +672,4 @@ Public Class F_VEH
-End Class
\ No newline at end of file
+End Class
diff --git a/VECTO/GUI/GUI_Subs.vb b/VECTO/GUI/GUI_Subs.vb
index c85f9dc1c1..02990573cf 100644
--- a/VECTO/GUI/GUI_Subs.vb
+++ b/VECTO/GUI/GUI_Subs.vb
@@ -1,4 +1,4 @@
-Module GUI_Subs
+Module GUI_Subs
#Region "GUI Steuerung durch BG-Worker"
@@ -72,26 +72,26 @@ Module GUI_Subs
#End Region
-#Region "GUI Steuerung durch GUI direkt - NICHT �ber BG-Worker"
+#Region "GUI Steuerung durch GUI direkt - NICHT über BG-Worker"
'Status Message direkt an GUI - darf nicht durch den Backgroundworker geschehen!
Public Sub GUImsg(ByVal ID As tMsgID, ByVal Msg As String)
F_MAINForm.MSGtoForm(ID, Msg, "", "")
End Sub
- 'Statusbar - Aufruf durch WorkerMSG oder direkt �ber Form, NIEMALS �ber Worker
+ 'Statusbar - Aufruf durch WorkerMSG oder direkt über Form, NIEMALS über Worker
Public Sub Status(ByVal txt As String)
F_MAINForm.ToolStripLbStatus.Text = txt
End Sub
- 'Status Form zur�ck setzen - Aufruf NUR durch Events, NIEMALS �ber Worker
+ 'Status Form zurück setzen - Aufruf NUR durch Events, NIEMALS über Worker
Public Sub ClearMSG()
F_MAINForm.LvMsg.Items.Clear()
End Sub
#End Region
- 'Klasse zum �bergeben von Nachrichten vom Backgroundworker
+ 'Klasse zum Übergeben von Nachrichten vom Backgroundworker
Public Class cWorkProg
Private MyTarget As tWorkMsgType
Private MyID As tMsgID
@@ -199,7 +199,7 @@ Module GUI_Subs
End If
End Function
- 'Datei in Excel �ffnen
+ 'Datei in Excel öffnen
Public Function FileOpen(ByVal file As String) As Boolean
Dim PSI As New ProcessStartInfo
PSI.FileName = ChrW(34) & Cfg.OpenCmd & ChrW(34)
@@ -213,7 +213,7 @@ Module GUI_Subs
End Function
#Region "Dateipfad Funktionen"
- 'WorkDir oder MainDir einf�gen falls kein Pfad angegeben. Spezial-Ordner einf�gen
+ 'WorkDir oder MainDir einfügen falls kein Pfad angegeben. Spezial-Ordner einfügen
Public Function fFileRepl(ByVal file As String, Optional ByVal MainDir As String = "") As String
Dim ReplPath As String
@@ -243,7 +243,7 @@ Module GUI_Subs
Loop
- 'Pfad erg�nzen falls nicht vorhanden
+ 'Pfad ergänzen falls nicht vorhanden
If fPATH(file) = "" Then
Return ReplPath & file
diff --git a/VECTO/Input Files/cSubPath.vb b/VECTO/Input Files/cSubPath.vb
index f2f7109ee2..8d49a28719 100644
--- a/VECTO/Input Files/cSubPath.vb
+++ b/VECTO/Input Files/cSubPath.vb
@@ -1,4 +1,4 @@
-
+
Public Class cSubPath
diff --git a/VECTO/M_FCCor.vb b/VECTO/M_FCCor.vb
index 1a404366c0..c82bfe62ac 100644
--- a/VECTO/M_FCCor.vb
+++ b/VECTO/M_FCCor.vb
@@ -1,4 +1,4 @@
-Module M_FCCor
+Module M_FCCor
'C
'C
@@ -30,13 +30,13 @@ Module M_FCCor
'C
'c Korrektur des Kraftstoffverbrauches
- 'c nur f�r Handbuchrechnungen und LKW
+ 'c nur für Handbuchrechnungen und LKW
If (GEN.eklasse = 0) Then
- 'c f�r Euro0 und fr�her werden gr��enabh�ngig 3 verschiedene KF verwendet
- 'c daher hier keine Gr��enkorrektur
+ 'c für Euro0 und früher werden größenabhängig 3 verschiedene KF verwendet
+ 'c daher hier keine Größenkorrektur
corr = 1
ElseIf (GEN.eklasse = 1) Then
- 'c Korrekturfunktion f�r Euro1 und Euro 2 1:1 von Stand ARTEMIS �bernommen
+ 'c Korrekturfunktion für Euro1 und Euro 2 1:1 von Stand ARTEMIS übernommen
fc_pnen = 230.55 - 0.0798 * Pnenn
fc_pnen = Math.Max(fc_pnen, 206.2)
fc_ave = 213.9
@@ -47,12 +47,12 @@ Module M_FCCor
fc_ave = 206.8
corr = (fc_pnen / fc_ave)
ElseIf (GEN.eklasse = 3) Then
- 'c Korrekturfunktion Euro 3 gg. ARTEMIS geringf�gig adaptiert (siehe FcCorr_Eu3ff.xls)
+ 'c Korrekturfunktion Euro 3 gg. ARTEMIS geringfügig adaptiert (siehe FcCorr_Eu3ff.xls)
fc_pnen = 239.4 - (0.08465 * (Math.Min(Pnenn, 345)))
fc_ave = 239.4 - (0.08465 * 273.5)
corr = (fc_pnen / fc_ave)
ElseIf ((GEN.eklasse = 4) Or (GEN.eklasse = 5)) Then
- 'c Korrekturfunktion f�r Euro 4 ff analog zu Euro3
+ 'c Korrekturfunktion für Euro 4 ff analog zu Euro3
'c lediglich adaptiert: Durchschnittsnennleistung der ins mep verwursteten Motoren
fc_pnen = 239.4 - (0.08465 * (Math.Min(Pnenn, 345)))
fc_ave = 239.4 - (0.08465 * 287.1)
diff --git a/VECTO/M_Lese.vb b/VECTO/M_Lese.vb
index d42af351cb..8eb1cf0492 100644
--- a/VECTO/M_Lese.vb
+++ b/VECTO/M_Lese.vb
@@ -1,4 +1,4 @@
-Imports System.Collections.Generic
+Imports System.Collections.Generic
Module M_Lese
@@ -32,7 +32,7 @@ Module M_Lese
Return False
End Try
- 'VECTO: Defaultwerte f�r Parameter die nicht mehr in der .GEN/.VECTO sind werden beim Einlesen �ber SetDefault belegt.
+ 'VECTO: Defaultwerte für Parameter die nicht mehr in der .GEN/.VECTO sind werden beim Einlesen über SetDefault belegt.
CycleFiles.Clear()
@@ -128,7 +128,7 @@ Module M_Lese
'----------------------------- ~FLD~ -----------------------------
- ' FLD muss jetzt vor MAP/MEP eingelesen werden falls dort <DRAG> Eintr�ge sind!
+ ' FLD muss jetzt vor MAP/MEP eingelesen werden falls dort <DRAG> Einträge sind!
FLD = New cFLD
FLD.FilePath = ENG.PathFLD
@@ -171,10 +171,10 @@ Module M_Lese
' LUZ: 04.02.2011: Ab jetzt ausserhalb von LESE wegen neuer BATCH-Struktur
'----------------------------- ~TRS~ -----------------------------
- ' Dynamik-Korrekturparameter, falls dynamokkorrektur ausgew�hlt:
- ' Parameter aus multipler Regressionsanalyse, Differenz zu station�r in
+ ' Dynamik-Korrekturparameter, falls dynamokkorrektur ausgewählt:
+ ' Parameter aus multipler Regressionsanalyse, Differenz zu stationär in
' SNF: (g/h)/kW_Nennleistung fuer einzelne Parameter
- ' PKW (g/h) f�r Emissionen , (g/h)/kW fuer Verbrauch
+ ' PKW (g/h) für Emissionen , (g/h)/kW fuer Verbrauch
If GEN.dynkorja Then
TRS = New cTRS
TRS.FilePath = GEN.dynspez
diff --git a/VECTO/M_MAIN.vb b/VECTO/M_MAIN.vb
index 7dc7a6bc1e..99189cb216 100644
--- a/VECTO/M_MAIN.vb
+++ b/VECTO/M_MAIN.vb
@@ -1,4 +1,4 @@
-Imports System.Collections.Generic
+Imports System.Collections.Generic
Module M_MAIN
@@ -28,7 +28,7 @@ Module M_MAIN
Public Function PHEM() As tCalcResult
- 'Hauptprogramm f�r alle Modi
+ 'Hauptprogramm für alle Modi
Dim MsgStrBuilder As System.Text.StringBuilder
@@ -48,7 +48,7 @@ Module M_MAIN
'Falls es zu "ungeplanten" Abbruch kommt
PHEM = tCalcResult.Err
- 'Fehler zur�cksetzen
+ 'Fehler zurücksetzen
''ClearErrors()
'Modus festlegen und Meldung
@@ -125,7 +125,7 @@ lbSkip0:
If Not ERG.ErgEntryInit() Then GoTo lbErrBefore
End If
- 'Warnung wenn ung�ltige/unrealistische Einstellungen
+ 'Warnung wenn ungültige/unrealistische Einstellungen
If Cfg.AirDensity > 2 Then WorkerMsg(tMsgID.Err, "Air Density = " & Cfg.AirDensity & " ?!", MsgSrc)
'Meldungen
@@ -203,7 +203,7 @@ lbADV:
GoTo lbNextJob
End If
- '�berpr�fe ob alle Modi in der GEN Datei lizenziert sind
+ 'Überprüfe ob alle Modi in der GEN Datei lizenziert sind
LicErrorFeat = 0
If GEN.VehMode = tVehMode.HEV Then
@@ -323,7 +323,7 @@ lbADV:
'**************************************************************************************
- 'Einstiegspunkt f�r SOC-Start Iteration
+ 'Einstiegspunkt für SOC-Start Iteration
If GEN.ModeHorEV And SOCnJa Then SOCfirst = True
'Aufraumen
@@ -382,7 +382,7 @@ lbADV:
Else
- 'ACHTUNG: VehmodeInit ben�tigt Infos aus GEN und DRI!
+ 'ACHTUNG: VehmodeInit benötigt Infos aus GEN und DRI!
If Not VEH.VehmodeInit() Then
'Fehlermeldung innerhalb VehmodeInit()
JobAbortedByErr = True
@@ -441,7 +441,7 @@ lbADV:
If PHEMworker.CancellationPending Then GoTo lbAbort
- 'CycleKin (f�r erg/sum usw.) berechnen
+ 'CycleKin (für erg/sum usw.) berechnen
MODdata.CylceKin.Calc()
End If
@@ -449,12 +449,12 @@ lbADV:
'----------------------------------------------------------------------------
- 'Emissionen und Nachbehandlung - wird bei EV-Modus nicht ausgef�hrt
+ 'Emissionen und Nachbehandlung - wird bei EV-Modus nicht ausgeführt
If Not GEN.VehMode = tVehMode.EV Then
If MsgOut Then WorkerMsg(tMsgID.Normal, "Calculating Transient Correction Factors", MsgSrc)
- 'Sek�ndliche TC Parameter ermittlen
+ 'Sekündliche TC Parameter ermittlen
MODdata.TC.Calc()
'Kennfeld Erstellung
@@ -517,7 +517,7 @@ lbADV:
If PHEMworker.CancellationPending Then GoTo lbAbort
- '*** Sek�ndliche Ausgabe ***
+ '*** Sekündliche Ausgabe ***
If Cfg.ModOut Then
If MsgOut Then WorkerMsg(tMsgID.Normal, "Writing modal output", MsgSrc)
If Not MODdata.Output() Then
@@ -537,7 +537,7 @@ lbADV:
End If
- 'Ausgabe f�r BATCH und ADVANCE
+ 'Ausgabe für BATCH und ADVANCE
lbAusg:
If (PHEMmode = tPHEMmode.ModeADVANCE) Then
@@ -564,7 +564,7 @@ lbAusg:
End If
- 'Daten aufr�umen
+ 'Daten aufräumen
MODdata.CleanUp()
'Status-Update
diff --git a/VECTO/M_OptInterface.vb b/VECTO/M_OptInterface.vb
index 7b513aca4e..45658d4d9b 100644
--- a/VECTO/M_OptInterface.vb
+++ b/VECTO/M_OptInterface.vb
@@ -1,4 +1,4 @@
-Imports System.Runtime.Remoting
+Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.Ipc
@@ -41,16 +41,16 @@ Module M_OptInterface
Private Sub OptInit()
- 'Z�hler null setzen
+ 'Zähler null setzen
OptZaehl = 0
- 'Korr. Em. l�schen
+ 'Korr. Em. löschen
ReDim OptEMkor(10)
OptERstat = False
'TODO: I/O-Verzeichnis festlegen
- OptDir = "TODO" ' Fr�her: F_DEV.TbOptInOut.Text
+ OptDir = "TODO" ' Früher: F_DEV.TbOptInOut.Text
If Right(OptDir, 1) <> "\" Then OptDir &= "\"
'Communication - Input
@@ -164,7 +164,7 @@ Module M_OptInterface
Public Sub OptStartRun()
'Timer anhalten
F_MAINForm.ComMsgTimer.Stop()
- 'Z�hler + 1
+ 'Zähler + 1
OptZaehl += 1
'PHEM starten
GUImsg(tMsgID.Normal, "Starte PHEM. Durchgang " & OptZaehl)
diff --git a/VECTO/M_SOC_Iter.vb b/VECTO/M_SOC_Iter.vb
index 39dc1eeea9..48a374c9da 100644
--- a/VECTO/M_SOC_Iter.vb
+++ b/VECTO/M_SOC_Iter.vb
@@ -1,4 +1,4 @@
-Imports System.Collections.Generic
+Imports System.Collections.Generic
Module M_SOC_Iter
@@ -94,7 +94,7 @@ Module M_SOC_Iter
SOChistory.Add(SOCstart)
SOCdeltaHis.Add(SOC(MODdata.tDim) - SOCstart)
- 'Check ob Vorzeichen von Delta-SOC sich �ndert
+ 'Check ob Vorzeichen von Delta-SOC sich ändert
SOCvzX = 0
For x = SOCcount - 1 To 1 Step -1
@@ -165,7 +165,7 @@ Module M_SOC_Iter
Dim VorzPlus As Boolean
Dim UseEmOgl As Boolean
- 'Check ob LinReg m�glich: Mind. 2 Berechnungen; Mind. 1 dSOC-Vorzeichenwechsel
+ 'Check ob LinReg möglich: Mind. 2 Berechnungen; Mind. 1 dSOC-Vorzeichenwechsel
Check = SOCcount > 1
If Check Then
VorzPlus = (SOCdeltaHis(0) > 0)
@@ -281,9 +281,9 @@ lb10:
End If
- 'Korrigierte Emissionen f�r Optimierer
+ 'Korrigierte Emissionen für Optimierer
If bOptOn Then
- 'Falls SOC-Iteration erfolgreich (oder Lin.Reg. nicht m�glich) dann Emissionen der letzten Berechnung (unkorrigiert) verwenden
+ 'Falls SOC-Iteration erfolgreich (oder Lin.Reg. nicht möglich) dann Emissionen der letzten Berechnung (unkorrigiert) verwenden
If UseEmOgl Then
OptEMkor(1) = gesVerbr / Vquer
OptEMkor(2) = gesNOx / Vquer
diff --git a/VECTO/VECTO_Global.vb b/VECTO/VECTO_Global.vb
index 167f0f6a5a..b6daf25654 100644
--- a/VECTO/VECTO_Global.vb
+++ b/VECTO/VECTO_Global.vb
@@ -1,4 +1,4 @@
-Imports System.Collections.Generic
+Imports System.Collections.Generic
Module VECTO_Global
@@ -17,7 +17,7 @@ Module VECTO_Global
'Config-------------------------------------------------------
Public Cfg As cConfig
- 'TODO: Weg damit! SOC-Iteration geh�rt in die Leistungsschleife oder nach Em-Berechnung f�r LinReg
+ 'TODO: Weg damit! SOC-Iteration gehört in die Leistungsschleife oder nach Em-Berechnung für LinReg
Public SOCstart As Single
Public SOC(izykt) As Single
Public Const izykt As Integer = 40000
diff --git a/VECTO/VECTO_Types.vb b/VECTO/VECTO_Types.vb
index 94cbf4f202..21bf7f21b3 100644
--- a/VECTO/VECTO_Types.vb
+++ b/VECTO/VECTO_Types.vb
@@ -1,4 +1,4 @@
-Public Enum tPHEMmode As Short
+Public Enum tPHEMmode As Short
ModeSTANDARD = 0
ModeBATCH = 1
ModeADVANCE = 2
diff --git a/VECTO/cConfig.vb b/VECTO/cConfig.vb
index 21f2fc0768..850f6649f9 100644
--- a/VECTO/cConfig.vb
+++ b/VECTO/cConfig.vb
@@ -1,4 +1,4 @@
-Public Class cConfig
+Public Class cConfig
Private Const FormatVersion As Short = 1
Private FileVersion As Short
@@ -12,7 +12,7 @@ Public Class cConfig
Public TEMexl As Boolean
Public EAAvInt As Short
Public ModOut As Boolean
- Public BATCHoutpath As String 'Ausgabepfad f�r BATCH-Modus: <WORKDIR>, <GENPATH> oder Pfad
+ Public BATCHoutpath As String 'Ausgabepfad für BATCH-Modus: <WORKDIR>, <GENPATH> oder Pfad
Public BATCHoutSubD As Boolean
Public WegKorJa As Boolean
Public LogSize As Single
@@ -49,10 +49,10 @@ Public Class cConfig
'*** Erste Zeile: Version
txt = Trim(UCase(c.ReadLine(0)))
If Microsoft.VisualBasic.Left(txt, 1) = "V" Then
- ' "V" entfernen => Zahl bleibt �brig
+ ' "V" entfernen => Zahl bleibt übrig
txt = txt.Replace("V", "")
If Not IsNumeric(txt) Then
- 'Falls Version ung�ltig: Abbruch
+ 'Falls Version ungültig: Abbruch
GoTo lbEr
Else
'Version festgelegt
@@ -141,12 +141,12 @@ lbEr:
'(07) TEMexl Boolean Open TEM in Excel -nicht in Options Form!!!
'(08) EAAvInt Short Analyse intervals of seconds. Wenn 0: Wert abfragen
'(09) ModOut Boolean Modale Ausgabe
- '(10) WegKorJa Boolean Wegkorrektur damit bei Geschw. Reduktion Zyklus nicht k�rzer wird
+ '(10) WegKorJa Boolean Wegkorrektur damit bei Geschw. Reduktion Zyklus nicht kürzer wird
'(11) GnVorgab Boolean Gang- bzw. Drehzahl
- '(12) LogSize Int16 Maximale Log-Gr��e [MiB]
- '(13) FZPsort Boolean FZP sortieren (fr�her Standard da VISSIM die .fzp nach Sekunden sortiert ausgibt)
+ '(12) LogSize Int16 Maximale Log-Größe [MiB]
+ '(13) FZPsort Boolean FZP sortieren (früher Standard da VISSIM die .fzp nach Sekunden sortiert ausgibt)
'(14) FZPsortExp Boolean Sortierte FZP exportieren
- '(15) BATCHoutpath Boolean Ausgabepfad f�r BATCH-Modus: <WORKDIR>, <GENPATH> oder Pfad
+ '(15) BATCHoutpath Boolean Ausgabepfad für BATCH-Modus: <WORKDIR>, <GENPATH> oder Pfad
'(16) BATCHoutSubD Boolean BATCH-Ausgabe in Unterordner (je .gen Datei)
'(17) AirDensity Single Luftdichte
'(18) FinalEmOnly Boolean Nur Final-Emissions ausgeben
@@ -170,9 +170,9 @@ lbEr:
WorkDirHome = True
End If
Case 2
- LastMode = line 'Fr�her GenLpath = line
+ LastMode = line 'Früher GenLpath = line
Case 3
- 'Fr�her: IntpV2 = CBool(line)
+ 'Früher: IntpV2 = CBool(line)
Case 4
nnormEngStop = CSng(line)
Case 5
diff --git a/VECTO/cCycleKin.vb b/VECTO/cCycleKin.vb
index 68c0523613..26f6b9a294 100644
--- a/VECTO/cCycleKin.vb
+++ b/VECTO/cCycleKin.vb
@@ -1,4 +1,4 @@
-Imports System.Collections.Generic
+Imports System.Collections.Generic
Public Class cCycleKin
@@ -6,7 +6,7 @@ Public Class cCycleKin
Private Const aDecThres As Single = -0.125 '[m/s2]
Private Const vStopThres As Single = 0.1 '[m/s]
- 'Fahrzust�nde in Sekunden
+ 'Fahrzustände in Sekunden
Private tStop0 As Integer
Private tAcc0 As Integer
Private tDec0 As Integer
diff --git a/VECTO/cFile V3.vb b/VECTO/cFile V3.vb
index 4534d8cb68..8d78d18e20 100644
--- a/VECTO/cFile V3.vb
+++ b/VECTO/cFile V3.vb
@@ -1,4 +1,4 @@
-Public Class cFile_V3
+Public Class cFile_V3
Private TxtFldParser As Microsoft.VisualBasic.FileIO.TextFieldParser
Private StrWrter As System.IO.StreamWriter
diff --git a/VECTO/cRegression.vb b/VECTO/cRegression.vb
index 8d0f4def9b..c6ec26ed80 100644
--- a/VECTO/cRegression.vb
+++ b/VECTO/cRegression.vb
@@ -1,4 +1,4 @@
-Public Class cRegression
+Public Class cRegression
Public Class RegressionProcessInfo
--
GitLab