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