diff --git a/VECTO/ADVANCE/cADVANCE.vb b/VECTO/ADVANCE/cADVANCE.vb
index 0afd9832f2d1fe654e5c863ee85634dc5420346e..4238b9c9fc2be192760bdb7a876b2b359f08ea38 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 26c4c8aa88312cd452611c3d0decea37136b7a51..3f2dc1afdc22c47c03e43a48bbd960121478e8f1 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 4b580609ce66e9506e30ebc052f806cb137df885..f285c349e8ed3b8946a7ffa5a38b92204e16abda 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 8df7e1451b4dcb9066757a56b4e76c9a2706e700..5acb015f8546d7d4cfa3bf0c0a9a0b59ccef05f4 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 c4d2c71672486aad6f5c7913cace04f1d94ccde5..c16170b77c4b674122fe17ac4c8196a9b0070952 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 725836394e0caef2dcc7d25a4cbd26997f921f73..84a6d9d1131066070bb37c1a71ae4ef12c8d4380 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 6d96a64b26d26cb7e577ae7e3db622303a9beab2..827b74ea3abd797c5060a948d05f5cbbffe477c6 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 b08c65d60cd248b0e8aea5d0441fc9bb02b4a46b..e37fe552be88e7e29b9c3a046d6ba056b458fec1 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 b88482ccbee39eb25d40d862839e8b5515132481..497a34216ce5029650eec58d7b566c208e78d30e 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 7c7af37d752a6b759c16e3531f26367175145c2e..2f8f4897db5ed896ee7a6ea07f805c0de4902f6f 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 795e6d4fe0fc9775be4610e3274afe59de549ed4..99af7654d532fbee8d3e9fda9dcaa4a010cb99ab 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 e922af60bed2d7f131e22d12127fd00fbbdf5274..f4be9ee1b0f0fb9d3cad8b522c052456010da9e7 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 15e0d0bf01bc11607b91c43133925915b9ddaca6..b056cc0c8f02b56ef7204c936e3d7aba912b232b 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 239266408bd604f315146e91a0af88df8f585ce0..5aab3a9e59786a6da2234973f29333b6b3226123 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 86cda8be8bb771f326ebc064aa85ef20a3c08a41..68d8852ae28ab5248dec0ab5aefe9a9e7eacfd6e 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 285b7d03b45f9145b4c732091c96394f4437f48a..bfad1f6bb5e856c07095ad261088a92d0f279757 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 ae5f0a9de039562ab26f09f8783a719b37882cc1..166526ba64c11cfd5deb665010bd0d024451f3c5 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 8b305324395a633be1cc5ed77d0e59e0c3f9ae42..3267fd67324ae72dbe8792e4f6622ad966043734 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 2eb1ee061557b0fe7ce37f6b78026b481d72a0eb..2be6956732b69605ace91800ea52dbd73029d3fa 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 bac4f7aef4fbb7958584029b7cf27e8fefb80356..67b240ee9f7a4087ea3f33643ae72fe9d5d89f59 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 eb0a82c7d15896a573c9cbaf5f2930c6582ed17b..31cd82186559adf7d6a22d5780bb5d745e576411 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 75a0f2325b3cd8d6e286a32f77e9261076e1d1a9..275fbe4cf1923c3b948876d90c2832985322bd3a 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 14ae6abe1d08d7d6909da9c0a0119ba5870d9d9b..89fe29698bd7a07e968e93edb06d5333c3bea83c 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 a2cb9fe94b2293eac4da5367dfb9fcc8ffc4d465..8cd23162ec5ad71453cd3a683e39a61ccdc1c300 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 c3ffe91d240cb7bb4152b63912bb3d6375855dd5..c569950cdc6f1e4f556513272158757a114dbf1c 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 978088f164943898c696d3aaf9e376f0e658a15d..d56f05aea06a1d65a6c1ed4bd8829fa5381863d0 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 c85f9dc1c10da025cfa7828c70e8b82a3b083ac2..02990573cf4d2b05a929cdbefe726299bb4c9db1 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 f2f7109ee27dbc266f132a66ec1536e868ec5aee..8d49a28719dfe4014aae0986122c1c892bc023b2 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 1a404366c0a1e82ec8431ea5c4c0b51d68d84ba5..c82bfe62ac0601ec13e36f349140413f6a14e4d6 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 d42af351cb36221eeadb26d20374ed7f5be0a14f..8eb1cf0492e7ccca62d372ef9f01ce9967e0fc22 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 7dc7a6bc1e103f9b586fc867343994cebfbe97ba..99189cb216c9a760b7c1213d994f73721ab32ecb 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 7b513aca4e58484918bdb561c531158c9d21af3c..45658d4d9b15f18e6d798837921fe7b90d40af3e 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 39dc1eeea9da1e696d39b9f16b6c16ec6c3430db..48a374c9da41fedb91da2f5e79f07808db5f1253 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 167f0f6a5a6379c6d02d2a427fb95082c9f008a1..b6daf25654e13bad9cd6481edf479a498560c7a7 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 94cbf4f2029b4af28e4cb10062758453341bf8a0..21bf7f21b33b262f86b2b3268eb623e728049358 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 21f2fc0768a39156af6a7640b7073f85fb5e8d34..850f6649f994714ab3c880d99ae124a60bcf118d 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 68c05236131436b51281c7d3a172e03d6099710b..26f6b9a294be72080c04b745eaaae8c316ac20b2 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 4534d8cb68947e84b1b7d284ebe3b7fa3256112d..8d78d18e2015d72385f43504694a7d63e2059965 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 8d0f4def9b9d0e45d4d321eb34d09d8585c0e2a3..c6ec26ed8018cdf65f6430a6ef567a601095127c 100644
--- a/VECTO/cRegression.vb
+++ b/VECTO/cRegression.vb
@@ -1,4 +1,4 @@
-Public Class cRegression
+Public Class cRegression
Public Class RegressionProcessInfo