' Copyright 2014 European Union.
' Licensed under the EUPL (the 'Licence');
'
' * You may not use this work except in compliance with the Licence.
' * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl
' * Unless required by applicable law or agreed to in writing,
' software distributed under the Licence is distributed on an "AS IS" basis,
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports System.Collections.Generic
''' <summary>
''' Main calculation routines.
''' </summary>
''' <remarks></remarks>
Module M_MAIN
Public JobFileList As List(Of String)
Public JobCycleList As List(Of String)
Public JobFile As String
Public CycleFiles As New List(Of String)
Public CurrentCycleFile As String
Private iJob As Integer
Private iCycle As Integer
Private CyclesDim As Integer
Private FilesDim As Integer
Private jsubcycle As Integer
Private jsubcycleDim As Integer
Private SigFile As String
''' <summary>
''' Main calculation routine. Launched by VECTOworker via Mainform's Start button or command line
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function VECTO() As tCalcResult
Dim MsgStrBuilder As System.Text.StringBuilder
Dim i As Integer
Dim path0 As String
Dim JobAbortedByErr As Boolean
Dim CyclAbrtedByErr As Boolean
Dim MsgOut As Boolean
Dim MsgSrc As String
Dim loading As tLoading
Dim LoadList As New List(Of tLoading)
Dim iLoad As Integer
Dim iLoadDim As Integer
MsgSrc = "Main"
MsgStrBuilder = New System.Text.StringBuilder
'If there are any "unplanned" Aborts
VECTO = tCalcResult.Err
'Reset the fault
''ClearErrors()
'Specify Mode and Notification-msg
If Cfg.BatchMode Then
WorkerMsg(tMsgID.Normal, "Starting VECTO Batch...", MsgSrc)
CyclesDim = JobCycleList.Count - 1
Else
WorkerMsg(tMsgID.Normal, "Starting VECTO...", MsgSrc)
CyclesDim = 0
End If
FilesDim = JobFileList.Count - 1
MsgOut = Not Cfg.BatchMode
'License check
If Cfg.BatchMode Then
If Not Lic.LicFeature(1) Then
WorkerMsg(tMsgID.Err, "Your license does not support Batch Mode!", MsgSrc)
GoTo lbErrBefore
End If
End If
If FilesDim = -1 Then
WorkerMsg(tMsgID.Err, "No Job Files defined.", MsgSrc)
GoTo lbErrBefore
End If
If CyclesDim = -1 And Cfg.BatchMode Then
WorkerMsg(tMsgID.Err, "No Driving Cycles defined.", MsgSrc)
GoTo lbErrBefore
End If
'Create BATCH Output-folder if necessary
If Cfg.BatchMode Then
Select Case UCase(Cfg.BATCHoutpath)
Case sKey.JobPath
GoTo lbSkip0
Case Else
path0 = Cfg.BATCHoutpath
End Select
If Not IO.Directory.Exists(path0) Then
Try
IO.Directory.CreateDirectory(path0)
Catch ex As Exception
WorkerMsg(tMsgID.Err, "Failed to create output directory " & path0 & " !", MsgSrc)
GoTo lbErrBefore
End Try
End If
End If
lbSkip0:
'MOD-Data class initialization
MODdata = New cMOD
'New signature file
Lic.FileSigning.NewFile()
'ERG-class initialization
WorkerMsg(tMsgID.Normal, "Analyzing input files", MsgSrc)
VSUM = New cVSUM
If Not VSUM.Init(JobFileList(0)) Then GoTo lbErrBefore
SigFile = Left(VSUM.VSUMfile, VSUM.VSUMfile.Length - 5) & ".vsig"
'Warning on invalid/unrealistic settings
If Cfg.AirDensity > 2 Then WorkerMsg(tMsgID.Err, "Air Density = " & Cfg.AirDensity & " ?!", MsgSrc)
If Cfg.DeclMode Then
LoadList.Add(tLoading.EmptyLoaded)
LoadList.Add(tLoading.RefLoaded)
LoadList.Add(tLoading.FullLoaded)
iLoadDim = 2
Else
LoadList.Add(tLoading.UserDefLoaded)
iLoadDim = 0
End If
'Progbar-Init
WorkerProgInit()
'--------------------------------------------------------------------------------------------
' Calculation Loop for all Preset-cycles and Vehicles:
'
'**********************************************************************************************
'**************************************** Job loop ****************************************
'**********************************************************************************************
For iJob = 0 To FilesDim
iCycle = 0 '<= Damit NrOfRun stimmt
JobFile = fFileRepl(JobFileList(iJob))
WorkerMsg(tMsgID.NewJob, "Job: " & (iJob * (CyclesDim + 1) + iCycle + 1) & " / " & ((FilesDim + 1) * (CyclesDim + 1)) & " | " & fFILE(JobFile, True), MsgSrc)
WorkerStatus("Current Job: " & (iJob * (CyclesDim + 1) + iCycle + 1) & " / " & ((FilesDim + 1) * (CyclesDim + 1)) & " | " & fFILE(JobFile, True))
WorkerJobStatus(iJob, "initialising... ", tJobStatus.Running)
JobAbortedByErr = False
MSGwarn = 0
MSGerror = 0
'Check if Abort
If VECTOworker.CancellationPending Then GoTo lbAbort
'If error when read GEN
CurrentCycleFile = ""
'Reading the input files
WorkerMsg(tMsgID.Normal, "Reading input files", MsgSrc)
If Not ReadFiles() Then
JobAbortedByErr = True
GoTo lbNextJob
End If
'WHTC Correction
If Cfg.DeclMode Then
'Initialise Report
Declaration.ReportInit()
WorkerMsg(tMsgID.Normal, "WHTC Correction", MsgSrc)
VEC.EngOnly = True
MODdata.Init()
If Not Declaration.WHTCinit Then
JobAbortedByErr = True
GoTo lbNextJob
End If
MODdata.CycleInit()
If Not MODdata.Px.Eng_Calc(True) Then
JobAbortedByErr = True
GoTo lbNextJob
End If
MODdata.FCcalc(False)
If MODdata.FCerror Then
WorkerMsg(tMsgID.Err, "WHTC FC calculcation failed!", MsgSrc)
JobAbortedByErr = True
GoTo lbNextJob
End If
Declaration.WHTCcorrCalc()
VEC.EngOnly = False
End If
'BATCH: Create Output-sub-folder
If Cfg.BatchMode And Cfg.ModOut And Cfg.BATCHoutSubD Then
Select Case UCase(Cfg.BATCHoutpath)
Case sKey.JobPath
path0 = fPATH(JobFile)
Case Else
path0 = Cfg.BATCHoutpath
End Select
path0 &= fFILE(JobFile, False) & "\"
If Not IO.Directory.Exists(path0) Then
Try
IO.Directory.CreateDirectory(path0)
Catch ex As Exception
WorkerMsg(tMsgID.Err, "Failed to create output directory " & path0 & " !", MsgSrc)
JobAbortedByErr = True
GoTo lbNextJob
End Try
End If
End If
'**********************************************************************************************
'************************************** Cycle-loop ****************************************
'**********************************************************************************************
For iCycle = 0 To CyclesDim
CyclAbrtedByErr = False
If Cfg.BatchMode Then
'ProgBar
ProgBarCtrl.ProgLock = True
ProgBarCtrl.ProgJobInt = 0
ProgBarCtrl.ProgOverallStartInt = 100 * (iJob * (CyclesDim + 1) + iCycle) / ((FilesDim + 1) * (CyclesDim + 1))
ProgBarCtrl.PgroOverallEndInt = 100 * (iJob * (CyclesDim + 1) + iCycle + 1) / ((FilesDim + 1) * (CyclesDim + 1))
ProgBarCtrl.ProgLock = False
'BATCH mode: Cycles from DRI list
CycleFiles.Clear()
CycleFiles.Add(fFileRepl(JobCycleList(iCycle)))
'Status
WorkerMsg(tMsgID.NewJob, "Cycle: " & (iJob * (CyclesDim + 1) + iCycle + 1) & " / " & ((FilesDim + 1) * (CyclesDim + 1)) & " | " & fFILE(JobFile, True) & " | " & fFILE(CycleFiles(0), True), MsgSrc)
WorkerStatus("Current Job: " & (iJob * (CyclesDim + 1) + iCycle + 1) & " / " & ((FilesDim + 1) * (CyclesDim + 1)) & " | " & fFILE(JobFile, True) & " | " & fFILE(CycleFiles(0), True))
WorkerJobStatus(iJob, "running... " & iCycle + 1 & "/" & (CyclesDim + 1), tJobStatus.Running)
'Output name definition
Select Case UCase(Cfg.BATCHoutpath)
Case sKey.JobPath
path0 = fPATH(JobFile)
Case Else
path0 = Cfg.BATCHoutpath
End Select
If Cfg.BATCHoutSubD Then
MODdata.ModOutpName = path0 & fFILE(JobFile, False) & "\" & fFILE(JobFile, False) & "_" & fFILE(CycleFiles(0), False)
Else
MODdata.ModOutpName = path0 & fFILE(JobFile, False) & "_" & fFILE(CycleFiles(0), False)
End If
End If
'******************************************************************************************
'********************************** VECTO-Cycle-loop START **********************************
'******************************************************************************************
jsubcycleDim = CycleFiles.Count - 1
If jsubcycleDim = -1 Then
WorkerMsg(tMsgID.Err, "No driving cycle defined!", MsgSrc)
JobAbortedByErr = True
GoTo lbNextJob
End If
jsubcycle = -1
For Each CurrentCycleFile In CycleFiles
jsubcycle += 1
ProgBarCtrl.ProgJobInt = 0
If Not Cfg.BatchMode Then
MODdata.ModOutpName = fFileWoExt(JobFile) & "_" & fFILE(CurrentCycleFile, False)
WorkerMsg(tMsgID.NewJob, "Cycle: " & (jsubcycle + 1) & " / " & (jsubcycleDim + 1) & " | " & fFILE(CurrentCycleFile, True), MsgSrc)
End If
If Cfg.DeclMode Then
If Not Declaration.CalcInitCycle(jsubcycle) Then
JobAbortedByErr = True
GoTo lbNextJob
End If
WorkerMsg(tMsgID.Normal, "WHTC Correction Factor: " & Declaration.WHTCcorrFactor, MsgSrc)
Declaration.ReportAddCycle()
End If
'**************************************************************************************
'***************************** VECTO-loading-loop START *******************************
'**************************************************************************************
iLoad = -1
For Each loading In LoadList
iLoad += 1
'ProgBar
If Not Cfg.BatchMode Then
ProgBarCtrl.ProgLock = True
ProgBarCtrl.ProgJobInt = 0
ProgBarCtrl.ProgOverallStartInt = 100 * iJob / (FilesDim + 1) + 100 * jsubcycle / (jsubcycleDim + 1) * 1 / (FilesDim + 1) + 100 * iLoad / (iLoadDim + 1) * 1 / ((FilesDim + 1) * (jsubcycleDim + 1))
ProgBarCtrl.PgroOverallEndInt = 100 * iJob / (FilesDim + 1) + 100 * jsubcycle / (jsubcycleDim + 1) * 1 / (FilesDim + 1) + 100 * (iLoad + 1) / (iLoadDim + 1) * 1 / ((FilesDim + 1) * (jsubcycleDim + 1))
ProgBarCtrl.ProgLock = False
WorkerJobStatus(iJob, "running... " & (iLoad + 1) + jsubcycle * (iLoadDim + 1) & "/" & (jsubcycleDim + 1) * (iLoadDim + 1), tJobStatus.Running)
End If
If Cfg.DeclMode Then
'Results filename with loading
MODdata.ModOutpName = fFileWoExt(JobFile) & "_" & fFILE(CurrentCycleFile, False) & "_" & ConvLoading(loading)
WorkerMsg(tMsgID.NewJob, "Loading: " & (iLoad + 1) & " / " & (iLoadDim + 1) & " | " & ConvLoading(loading), MsgSrc)
If Not Declaration.CalcInitLoad(loading) Then
JobAbortedByErr = True
GoTo lbNextJob
End If
WorkerStatus("Current Job: " & (iJob * (CyclesDim + 1) + iCycle + 1) & " / " & (FilesDim + 1) & " | " & fFILE(JobFile, True) & " | " & Declaration.CurrentMission.NameStr & " | " & ConvLoading(loading))
Else
If Not Cfg.BatchMode Then WorkerStatus("Current Job: " & (iJob * (CyclesDim + 1) + iCycle + 1) & " / " & (FilesDim + 1) & " | " & fFILE(JobFile, True) & " | " & fFILE(CurrentCycleFile, True))
End If
'Clean up
MODdata.Init()
'Read cycle
DRI = New cDRI
DRI.FilePath = CurrentCycleFile
If Not DRI.ReadFile Then
CyclAbrtedByErr = True
GoTo lbAusg
End If
'Grad to Alt
DRI.GradToAlt()
'Convert v(s) into v(t) (optional)
If DRI.Scycle Then
MODdata.Vh.SetAlt()
If MsgOut Then WorkerMsg(tMsgID.Normal, "Converting cycle (v(s) => v(t))", MsgSrc)
If Not DRI.ConvStoT() Then
CyclAbrtedByErr = True
GoTo lbAusg
End If
End If
'If first time step is Zero then duplicate first values to start cycle with vehicle standing.
If DRI.Vvorg AndAlso DRI.tDim > 1 AndAlso DRI.Values(tDriComp.V)(0) < 0.0001 AndAlso DRI.Values(tDriComp.V)(1) >= 0.0001 Then
DRI.FirstZero()
End If
'Convert to 1Hz (optional) - does not apply to v(s) cycles because timestep is missing
If DRI.Tvorg Then
If MsgOut Then WorkerMsg(tMsgID.Normal, "Converting cycle to 1Hz", MsgSrc)
If Not DRI.ConvTo1Hz() Then
'Error-notification in DRI.Convert()
CyclAbrtedByErr = True
GoTo lbAusg
End If
End If
'----------------------------------------------------------------------------
'----------------------------------------------------------------------------
'Initialize Cycle-specs (Speed, Accel, ...)
MODdata.CycleInit()
If VEC.EngOnly Then
If MsgOut Then WorkerMsg(tMsgID.Normal, "Engine Only Calc", MsgSrc)
'Rechne .npi-Leistung in Pe und P_clutch um |@@| Expect Npi-Power into Pe and P_clutch
If Not MODdata.Px.Eng_Calc(False) Then
CyclAbrtedByErr = True
GoTo lbAusg
End If
Else
'Init auxiliaries
If Not VEC.AuxInit() Then
'Error-notification within AuxInit()
JobAbortedByErr = True
GoTo lbNextJob
End If
'CAUTION: VehmodeInit() requires information from VECTO and DRI!
If Not VEH.VehmodeInit() Then
'Error-notification within VehmodeInit()
JobAbortedByErr = True
GoTo lbNextJob
End If
If GBX.TCon Then
If Not GBX.TCinit Then
'Error-notification within TCinit()
JobAbortedByErr = True
GoTo lbNextJob
End If
End If
If MsgOut Then WorkerMsg(tMsgID.Normal, "Driving Cycle Preprocessing", MsgSrc)
If Not MODdata.Px.PreRun Then
CyclAbrtedByErr = True
GoTo lbAusg
End If
If VECTOworker.CancellationPending Then GoTo lbAbort
If MsgOut Then WorkerMsg(tMsgID.Normal, "Vehicle Calc", MsgSrc)
MODdata.Vh.DistCorrInit()
If Not MODdata.Px.Calc() Then
CyclAbrtedByErr = True
GoTo lbAusg
End If
If VECTOworker.CancellationPending Then GoTo lbAbort
'Calculate CycleKin (for erg/sum, etc.)
MODdata.CylceKin.Calc()
End If
'----------------------------------------------------------------------------
'----------------------------------------------------------------------------
If MsgOut Then WorkerMsg(tMsgID.Normal, "FC Interpolation", MsgSrc)
'Calculate FC
MODdata.FCcalc(True)
If VECTOworker.CancellationPending Then GoTo lbAbort
'*** second-by-second output ***
If Cfg.ModOut Then
If MsgOut Then WorkerMsg(tMsgID.Normal, "Writing modal output", MsgSrc)
If Not MODdata.Output() Then
CyclAbrtedByErr = True
GoTo lbAusg
End If
WorkerMsg(tMsgID.Normal, "Modal Results written to: " & fFILE(MODdata.ModOutpName & ".vmod", True), MsgSrc, MODdata.ModOutpName & ".vmod")
End If
lbAusg:
If VECTOworker.CancellationPending Then GoTo lbAbort
'Status-Update
ProgBarCtrl.ProgLock = True
If Cfg.BatchMode Then
WorkerProgJobEnd(100 * (iJob * (CyclesDim + 1) + iCycle + 1) / ((FilesDim + 1) * (CyclesDim + 1)))
Else
WorkerProgJobEnd(100 * iJob / (FilesDim + 1) + 100 * jsubcycle / (jsubcycleDim + 1) * 1 / (FilesDim + 1) + 100 * (iLoad + 1) / (iLoadDim + 1) * 1 / ((FilesDim + 1) * (jsubcycleDim + 1)))
End If
If Cfg.DeclMode Then
Declaration.ReportAddResults()
End If
'VSUM Output (first Calculation - Initialization & Header)
If Not VSUM.WriteVSUM(iJob * (CyclesDim + 1) + iCycle + 1, fFILE(JobFile, True), fFILE(CurrentCycleFile, True), CyclAbrtedByErr) Then GoTo lbErrInJobLoop
'Data Cleanup
MODdata.CleanUp()
Next
'********************************************************************************
'******************** END *** VECTO-loading loop *** END ************************
'********************************************************************************
Next
'******************************************************************************************
'************************* END *** VECTO Cycle-loop *** END *************************
'******************************************************************************************
Next
'**********************************************************************************************
'****************************** END *** Cycle-loop *** END ******************************
'**********************************************************************************************
If Cfg.DeclMode Then
WorkerMsg(tMsgID.Normal, "Writing report file", MsgSrc)
If Declaration.WriteReport() Then
WorkerMsg(tMsgID.Normal, "Report written to: " & fFILE(Declaration.Report.Filepath, True), MsgSrc, "<RUN>" & Declaration.Report.Filepath)
Else
WorkerMsg(tMsgID.Err, "Failed to write pdf report!", MsgSrc)
JobAbortedByErr = True
GoTo lbNextJob
End If
End If
lbNextJob:
If JobAbortedByErr Or (CyclAbrtedByErr And CyclesDim = 0) Then
If JobAbortedByErr Then
If CInt(iJob * (CyclesDim + 1) + 1) = CInt((iJob + 1) * (CyclesDim + 1)) Then
VSUM.WriteVSUM(((iJob + 1) * (CyclesDim + 1)).ToString, fFILE(JobFile, True), "-", True)
Else
VSUM.WriteVSUM((iJob * (CyclesDim + 1) + 1).ToString & ".." & ((iJob + 1) * (CyclesDim + 1)).ToString, fFILE(JobFile, True), "-", True)
End If
End If
WorkerJobStatus(iJob, "Aborted due to error!", tJobStatus.Err)
Else
MsgStrBuilder.Length = 0
MsgStrBuilder.Append("done")
'If GEN.irechwahl = tCalcMode.cmHEV Then MsgStrBuilder.Append(" (dSOC = " & SOC(MODdata.tDim) - SOC(0) & ")")
'Add input file list to signature list
If VEC.CreateFileList Then
For i = 0 To VEC.FileList.Count - 1
Lic.FileSigning.AddFile(VEC.FileList(i))
Next
Else
WorkerMsg(tMsgID.Err, "Could not create file list for signing!", MsgSrc)
End If
If MSGwarn > 0 Then
MsgStrBuilder.Append(". " & MSGwarn & " Warning")
If MSGwarn > 1 Then MsgStrBuilder.Append("s")
End If
If MSGerror > 0 Then
MsgStrBuilder.Append(". " & MSGerror & " Error")
If MSGerror > 1 Then MsgStrBuilder.Append("s")
End If
If MSGerror > 0 Then
WorkerJobStatus(iJob, MsgStrBuilder.ToString & ".", tJobStatus.Warn)
Else
WorkerJobStatus(iJob, MsgStrBuilder.ToString & ".", tJobStatus.OK)
End If
End If
'Check whether Abort
If VECTOworker.CancellationPending Then GoTo lbAbort
Next
'**********************************************************************************************
'******************************* END *** Job loop *** END *******************************
'**********************************************************************************************
WorkerMsg(tMsgID.Normal, "Summary Results written to: " & fFILE(VSUM.VSUMfile, True), MsgSrc, VSUM.VSUMfile)
'JSON Erg Output
If VSUM.WriteJSON() Then
WorkerMsg(tMsgID.Normal, "Summary Results (JSON) written to: " & fFILE(VSUM.VSUMfile & ".json", True), MsgSrc, VSUM.VSUMfile & ".json")
Else
WorkerMsg(tMsgID.Err, "Failed to write JSON Summary Results!", MsgSrc)
End If
'Write file signatures
WorkerMsg(tMsgID.Normal, "Signing files", MsgSrc)
Lic.FileSigning.Mode = vectolic.cFileSigning.tMode.Auto
If Lic.FileSigning.WriteSigFile(SigFile, LicSigAppCode) Then
WorkerMsg(tMsgID.Normal, "Files signed successfully: " & fFILE(SigFile, True), MsgSrc, "<GUI>" & SigFile)
Else
WorkerMsg(tMsgID.Err, "Failed to sign files! " & Lic.FileSigning.ErrorMsg, MsgSrc)
End If
WorkerMsg(tMsgID.Normal, "done", MsgSrc)
VECTO = tCalcResult.Done
GoTo lbExit
lbErrBefore: '!!!!!!!!!! Abbruch bevor (!!!) der erste Job angefangen wurde !!!!!!!!!!!
WorkerMsg(tMsgID.Normal, "aborted", MsgSrc)
VECTO = tCalcResult.Err
For i = 0 To FilesDim
WorkerJobStatus(i, "", tJobStatus.Undef)
Next
GoTo lbExit
lbErrInJobLoop:
WorkerMsg(tMsgID.Normal, "aborted", MsgSrc)
WorkerJobStatus(iJob, "aborted", tJobStatus.Err)
VECTO = tCalcResult.Err
For i = iJob + 1 To FilesDim
WorkerJobStatus(i, "", tJobStatus.Undef)
Next
MODdata.CleanUp()
GoTo lbExit
lbAbort:
WorkerMsg(tMsgID.Normal, "aborted", MsgSrc)
WorkerJobStatus(iJob, "aborted", tJobStatus.Warn)
VECTO = tCalcResult.Abort
For i = iJob + 1 To FilesDim
WorkerJobStatus(i, "", tJobStatus.Undef)
Next
MODdata.CleanUp()
lbExit:
VEC = Nothing
VEH = Nothing
FLD = Nothing
MAP = Nothing
DRI = Nothing
MODdata = Nothing
VSUM = Nothing
ENG = Nothing
GBX = Nothing
End Function
Public Function ReadFiles() As Boolean
Dim sb As cSubPath
Dim OtherModeString As String
Dim MsgSrc As String
MsgSrc = "Main/ReadInp"
If Cfg.DeclMode Then
OtherModeString = "Engineering"
Else
OtherModeString = "Declaration"
End If
'----------------------------- ~VECTO~ -----------------------------
'Read Job file
If UCase(fEXT(JobFile)) <> ".VECTO" Then
WorkerMsg(tMsgID.Err, "Only .VECTO files are supported in this mode", MsgSrc)
Return False
End If
VEC = New cVECTO
VEC.FilePath = JobFile
Try
If Not VEC.ReadFile() Then
WorkerMsg(tMsgID.Err, "Cannot read .vecto file (" & JobFile & ")", MsgSrc)
Return False
End If
Catch ex As Exception
WorkerMsg(tMsgID.Err, "File read error! (" & JobFile & ")", MsgSrc, JobFile)
Return False
End Try
'Check if file was saved in different mode
If Cfg.DeclMode <> VEC.SavedInDeclMode Then WorkerMsg(tMsgID.Warn, "Job file was created in " & OtherModeString & " Mode! Some parameters might be missing and cause errors.", MsgSrc, "<GUI>" & JobFile)
'----------------------------- ~VEH~ -----------------------------
VEH = New cVEH
'Read vehicle specifications
If Not VEC.EngOnly Then
VEH.FilePath = VEC.PathVEH
Try
If Not VEH.ReadFile Then Return False
Catch ex As Exception
WorkerMsg(tMsgID.Err, "File read error! (" & VEC.PathVEH & ")", MsgSrc, VEC.PathVEH)
Return False
End Try
'Check if file was saved in different mode
If Cfg.DeclMode <> VEH.SavedInDeclMode Then WorkerMsg(tMsgID.Warn, "Vehicle file was created in " & OtherModeString & " Mode! Some parameters might be missing and cause errors.", MsgSrc, "<GUI>" & VEC.PathVEH)
End If
If Cfg.DeclMode Then
If Not Declaration.SetRef() Then
WorkerMsg(tMsgID.Err, "Vehicle Configuration not found in Segment Table!", MsgSrc)
Return False
End If
End If
If Cfg.DeclMode Then
If Not VEC.DeclInit() Then Return False
End If
CycleFiles.Clear()
For Each sb In VEC.CycleFiles
CycleFiles.Add(sb.FullPath)
Next
'Error message in init()
If Not VEC.Init Then Return False
'---------------------- ~ENG~ (incl. FLD, MAP) ----------------------
ENG = New cENG
ENG.FilePath = VEC.PathENG
Try
If Not ENG.ReadFile Then Return False
Catch ex As Exception
WorkerMsg(tMsgID.Err, "File read error! (" & VEC.PathENG & ")", MsgSrc, VEC.PathENG)
Return False
End Try
'Check if file was saved in different mode
If Cfg.DeclMode <> ENG.SavedInDeclMode Then WorkerMsg(tMsgID.Warn, "Engine file was created in " & OtherModeString & " Mode! Some parameters might be missing and cause errors.", MsgSrc, "<GUI>" & VEC.PathENG)
'----------------------------- ~GBX~ -----------------------------
GBX = New cGBX
If Not VEC.EngOnly Then
GBX.FilePath = VEC.PathGBX
Try
If Not GBX.ReadFile Then Return False
If Not GBX.GSinit Then Return False
Catch ex As Exception
WorkerMsg(tMsgID.Err, "File read error! (" & VEC.PathGBX & ")", MsgSrc, VEC.PathGBX)
Return False
End Try
'Check if file was saved in different mode
If Cfg.DeclMode <> GBX.SavedInDeclMode Then WorkerMsg(tMsgID.Warn, "Gearbox file was created in " & OtherModeString & " Mode! Some parameters might be missing and cause errors.", MsgSrc, "<GUI>" & VEC.PathGBX)
End If
'Must be called after cGBX.ReadFile because cGBX.GearCount is needed
ENG.Init()
'Must be called after cENG.Init because FLD must be loaded
If Cfg.DeclMode Then
If Not ENG.DeclInit() Then Return False
End If
'Must be after ENG.Init()
If Cfg.DeclMode Then
If Not GBX.DeclInit() Then Return False
End If
Return True
End Function
'---------------------------------------------------------------------------
End Module