Newer
Older
Imports System.Collections.Generic
Module M_Lese
Public Function LESE() As Boolean
Dim AuxEntry As cVEH.cAuxEntry
Dim AuxKV As KeyValuePair(Of String, cVEH.cAuxEntry)
Dim i As Integer
Dim fldgear As Dictionary(Of Integer, String)
Dim fldgFromTo As String()
Dim str As String
Dim MsgSrc As String
MsgSrc = "Main/ReadInp"
'----------------------------- ~GEN~ -----------------------------
If UCase(fEXT(GenFile)) <> ".VECTO" Then
WorkerMsg(tMsgID.Err, "Only .VECTO files are supported in this mode", MsgSrc)
Return False
End If
GEN = New cGEN
GEN.FilePath = GenFile
Try
If Not GEN.ReadFile() Then
WorkerMsg(tMsgID.Err, "Cannot read .gen file (" & GenFile & ")", MsgSrc)
Return False
End If
Catch ex As Exception
WorkerMsg(tMsgID.Err, "File read error! (" & GenFile & ")", MsgSrc, GenFile)
If GEN.NoJSON Then WorkerMsg(tMsgID.Warn, "VECTO file format is outdated! CLICK HERE to convert to current format!", MsgSrc, "<GUI>" & GenFile)
Kostis ANAGNOSTOPOULOS
committed
'VECTO: Defaultwerte für Parameter die nicht mehr in der .GEN/.VECTO sind werden beim Einlesen über SetDefault belegt. |@@| VECTO: Default values for the parameters are no longer in GEN/.VECTO but are allocated when Read about SetDefault.
CycleFiles.Clear()
For Each sb In GEN.CycleFiles
CycleFiles.Add(sb.FullPath)
Next
SOCnJa = GEN.SOCnJa And GEN.VehMode = tVehMode.HEV
SOCstart = GEN.SOCstart
If Not GEN.Init Then Return False
'----------------------------- ~VEH~ -----------------------------
VEH = New cVEH
'Read vehicle specifications
If Not GEN.EngOnly Then
VEH.FilePath = GEN.PathVEH
Try
If Not VEH.ReadFile Then Return False
Catch ex As Exception
WorkerMsg(tMsgID.Err, "File read error! (" & GEN.PathVEH & ")", MsgSrc, GEN.PathVEH)
VEH.hinauf = (VEH.nLeerl / VEH.nNenn) + VEH.hinauf * (1 - (VEH.nLeerl / VEH.nNenn))
VEH.hinunter = (VEH.nLeerl / VEH.nNenn) + VEH.hinunter * (1 - (VEH.nLeerl / VEH.nNenn))
VEH.lhinauf = (VEH.nLeerl / VEH.nNenn) + VEH.lhinauf * (1 - (VEH.nLeerl / VEH.nNenn))
VEH.lhinunter = (VEH.nLeerl / VEH.nNenn) + VEH.lhinunter * (1 - (VEH.nLeerl / VEH.nNenn))
End If
If VEH.NoJSON Then WorkerMsg(tMsgID.Warn, "Vehicle file format is outdated! CLICK HERE to convert to current format!", MsgSrc, "<GUI>" & GEN.PathVEH)
'----------------------------- ~ENG~ -----------------------------
ENG = New cENG
ENG.FilePath = GEN.PathENG
Try
If Not ENG.ReadFile Then Return False
Catch ex As Exception
WorkerMsg(tMsgID.Err, "File read error! (" & GEN.PathENG & ")", MsgSrc, GEN.PathENG)
If ENG.NoJSON Then WorkerMsg(tMsgID.Warn, "Engine file format is outdated! CLICK HERE to convert to current format!", MsgSrc, "<GUI>" & GEN.PathENG)
'----------------------------- ~GBX~ -----------------------------
GBX = New cGBX
If Not GEN.EngOnly Then
GBX.FilePath = GEN.PathGBX
Try
If Not GBX.ReadFile Then Return False
Catch ex As Exception
WorkerMsg(tMsgID.Err, "File read error! (" & GEN.PathGBX & ")", MsgSrc, GEN.PathGBX)
If GBX.NoJSON Then WorkerMsg(tMsgID.Warn, "Gearbox file format is outdated! CLICK HERE to convert to current format!", MsgSrc, "<GUI>" & GEN.PathGBX)
'----------------------------- VECTO -----------------------------
'GEN => VEH
VEH.AuxDef = GEN.AuxDef
If VEH.AuxDef Then
For Each AuxKV In GEN.AuxPaths
AuxEntry = New cVEH.cAuxEntry
AuxEntry.Type = AuxKV.Value.Type
AuxEntry.Path.Init(fPATH(GEN.FilePath), AuxKV.Value.Path.OriginalPath)
VEH.AuxPaths.Add(UCase(Trim(AuxKV.Key)), AuxEntry)
Next
End If
VEH.hinauf = GEN.hinauf
VEH.hinunter = GEN.hinunter
VEH.lhinauf = GEN.lhinauf
VEH.lhinunter = GEN.lhinunter
VEH.pspar = GEN.pspar
VEH.pmodell = GEN.pmodell
'ENG => VEH
VEH.Pnenn = ENG.Pnenn
VEH.nNenn = ENG.nnenn
VEH.nLeerl = ENG.nleerl
VEH.I_mot = ENG.I_mot
'GBX => VEH
If GEN.EngOnly Then
VEH.ganganz = 0
Else
VEH.ganganz = GBX.GetrI.Count - 1
End If
For i = 0 To GBX.GetrI.Count - 1
VEH.siGetrI.Add(GBX.GetrI(i))
VEH.GetrMap.Add(New cSubPath)
If IsNumeric(GBX.GetrMap(i, True)) Then
VEH.GetrEffDef.Add(True)
VEH.GetrEff.Add(CSng(GBX.GetrMap(i, True)))
VEH.GetrEffDef.Add(False)
VEH.GetrEff.Add(0)
VEH.GetrMap(i).Init(fPATH(GEN.PathGBX), GBX.GetrMap(i, True))
End If
Next
VEH.I_Getriebe = GBX.I_Getriebe
VEH.TracIntrSi = GBX.TracIntrSi
'----------------------------- ~FLD~ -----------------------------
' FLD muss jetzt vor MAP/MEP eingelesen werden falls dort <DRAG> Einträge sind! |@@| if there are <DRAG> entries, then read FLD before MAP/MEP!
FLD = New List(Of cFLD)
If ENG.FLDgears.Count = 0 Then
WorkerMsg(tMsgID.Err, "No .vfld file defined in Engine file!", MsgSrc, "<GUI>" & GEN.PathENG)
Return False
End If
fldgear = New Dictionary(Of Integer, String)
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
j = -1
For Each str In ENG.FLDgears
j += 1
If str.Contains("-") Then
fldgFromTo = str.Replace(" ", "").Split("-")
Else
fldgFromTo = New String() {str, str}
End If
For i = CInt(fldgFromTo(0)) To CInt(fldgFromTo(1))
If i > VEH.ganganz Then Exit For
If i < 0 Or i > 99 Then
WorkerMsg(tMsgID.Err, "Cannot assign .vfld file to gear " & i & "!", MsgSrc, "<GUI>" & GEN.PathENG)
Return False
End If
If fldgear.ContainsKey(i) Then
WorkerMsg(tMsgID.Err, "Multiple .vfld files are assigned to gear " & i & "!", MsgSrc, "<GUI>" & GEN.PathENG)
Return False
End If
fldgear.Add(i, ENG.PathFLD(j))
Next
Next
WorkerMsg(tMsgID.Err, "Failed to process engine file '" & GEN.PathENG & "'!", MsgSrc)
Return False
End Try
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
For i = 0 To VEH.ganganz
If Not fldgear.ContainsKey(i) Then
WorkerMsg(tMsgID.Err, "No .vfld file assigned to gear " & i & "!", MsgSrc, "<GUI>" & GEN.PathENG)
Return False
End If
FLD.Add(New cFLD)
FLD(i).FilePath = fldgear(i)
Try
If Not FLD(i).ReadFile Then Return False 'Fehlermeldung hier nicht notwendig weil schon von in ReadFile
Catch ex As Exception
WorkerMsg(tMsgID.Err, "File read error! (" & fldgear(i) & ")", MsgSrc, fldgear(i))
Return False
End Try
'Normalize
FLD(i).Norm()
Next
'----------------------------- ~MAP~ -----------------------------
' Map: Columns 1 and 2 are the x-and y-coordinates (Pe, n)
' the rest are Measurement-values
' Emissions and Consumption in (g/(h*kW_NominalPower) at HDV(SNF)
' Emissions (g/h) and consumption in (g/(h*kW_NominalPower) in cars(PKW) and LCV(LNF)
If Not GEN.CreateMap Then
MAP = New cMAP(GEN.PKWja)
MAP.FilePath = ENG.PathMAP
Try
If Not MAP.ReadFile Then Return False 'Fehlermeldung hier nicht notwendig weil schon von in ReadFile
Catch ex As Exception
WorkerMsg(tMsgID.Err, "File read error! (" & ENG.PathMAP & ")", MsgSrc, ENG.PathMAP)
Return False
End Try
MAP.Norm()
End If
'----------------------------- ~DRI~ -----------------------------
' Reading the Vehicle Driving-cycle (Not in ADVANCE).
' LUZ: 04.02.2011: From now outside of READING because of new BATCH structure
'----------------------------- ~TRS~ -----------------------------
' Dynamik-Korrekturparameter, falls dynamokkorrektur ausgewählt: |@@| Dynamic correction parameter, if exclusively Dynamic-correction(dynamokkorrektur):
' Parameter aus multipler Regressionsanalyse, Differenz zu stationär in |@@| Parameters of multiple regression analysis, Difference with stationary
' HDV(SNF): (g/h) / kW_Nominal-power for individual parameters
' Cars(PKW) (g/h) for emissions (g/h)/kW for consumption
If GEN.dynkorja Then
TRS = New cTRS
TRS.FilePath = GEN.dynspez
Try
If Not TRS.ReadFile Then Return False
Catch ex As Exception
WorkerMsg(tMsgID.Err, "File read error! (" & GEN.dynspez & ")", MsgSrc, GEN.dynspez)
Return False
End Try
End If
'-----------------------------------------------------------------------
'Reading data for hybrid simulation:
If (GEN.ModeHorEV) Then