This site uses cookies. Visit our cookies policy page or click the link in any footer for more information and to change your preferences.

Accept all cookies Accept only essential cookies

Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS has been phased out. To see alternatives please check here

Skip to content
Snippets Groups Projects
Select Git revision
  • 1b8305c1bbd4e6480ac716c922100e5332790a86
  • main default protected
  • feat/enable_debug_criteria
  • feat/ci_modifications
  • feat/drop_legacy_main_based
  • feat/v27_xsd_main_based
  • Drift_Test
  • milestones/3.3.1
  • milestones/3.3.0
  • milestones/3.1.9
  • milestones/3.1.8
  • milestones/3.2.1
  • milestones/3.2.0_RC
  • milestones/3.2.0
  • milestones/3.1.9.1
  • milestones/3.1.8.4
  • milestones/3.1.8.3
  • milestones/3.1.8.2
  • milestones/3.1.8.1
  • milestones/3.1.7
  • milestones/3.1.6
  • milestones/3.1.5
  • milestones/3.1.4
  • milestones/3.1.3
  • milestones/3.1.2
  • milestones/3.1.1
  • milestones/3.0.0
27 results

F_Main.vb

Blame
    • Code owners
    Assign users and groups as approvers for specific file changes. Learn more.
    F_Main.vb 45.57 KiB 
    Imports System.IO

Public Class F_Main
    ' Declarations
    Private ToolstripSave As Boolean = False
    Private Formname As String = "Job configurations"
    Private Cali As Boolean = True

    ' Load the GUI
    Private Sub CSEMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        ' Declarations
        Dim configL As Boolean = True
        Dim NoLegFile As Boolean = False

        ' Initialisation
        crt.hz_out = 1
        PBInfoIcon.Visible = False
        TBInfo.Visible = False

        ' Connect the Backgroundworker with the GUI
        BWorker = Me.BackgroundWorkerVECTO

        ' Name of the GUI
        Me.Text = AppName & " " & AppVers

        ' Write the beginning in the Log
        fWriteLog(1)
        AppFormStarted = True

        ' Load the config file
        '
        Try
            Prefs = New cPreferences(PrefsPath)
        Catch ex As Exception
            logme(9, False, format( _
                    "Failed loading Preferences({0}) due to: {1}\n\iThis is normal the first time you launch the application.", _
                    PrefsPath, ex.Message), ex)
            configL = False
        End Try

        ' Load the generic shape curve file
        If Not fGenShpLoad() Then
            Me.Close()
        End If

        '' Create working dir if not exists.
        ''
        If Not IO.Directory.Exists(Prefs.workingDir) Then
            IO.Directory.CreateDirectory(Prefs.workingDir)
        End If

        'Lizenz checken
        If Not Lic.LICcheck() Then
            logme(9, True, Lic.FailMsg)
            CreatActivationFileToolStripMenuItem_Click(sender, e)
            Me.Close()
        End If

        '' Write a defult config file if failed to read one.
        ''
        If Not configL Then
            Try
                Prefs.Store(PrefsPath)
                logme(7, False, format("Stored new Preferences({0}).", PrefsPath))
            Catch ex As Exception
                logme(9, False, format("Failed storing default Preferences({0}) due to: {1}", PrefsPath, ex.Message), ex)
            End Try
        End If
    End Sub

    #Region "Main"
    ' Close the GUI
    Private Sub CSEMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        ' Write the end into the Log
        fWriteLog(3)
    End Sub

    ' Open the filebrowser for the selection of the vehiclefile
    Private Sub ButtonSelectVeh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSelectVeh.Click
        ' Open the filebrowser with the *.csveh parameter
        If fbVEH.OpenDialog(Prefs.workingDir, False) Then
            If (fbVEH.Files(0) <> Nothing) Then
                Me.TextBoxVeh1.Text = fbVEH.Files(0)
            End If
        End If
    End Sub

    ' Open the vehiclefile in the Notepad
    Private Sub ButtonVeh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonVeh.Click
        If IO.File.Exists(Me.TextBoxVeh1.Text) Then
            System.Diagnostics.Process.Start(Prefs.editor, Me.TextBoxVeh1.Text)
        Else
            logme(9, True, "No such Inputfile: " & Me.TextBoxVeh1.Text)
        End If
    End Sub

    ' Open the filebrowser for the selection of the weatherfile
    Private Sub ButtonSelectWeather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSelectWeather.Click
        ' Open the filebrowser with the *.cswea parameter
        If fbAMB.OpenDialog(Prefs.workingDir, False) Then
            If (fbAMB.Files(0) <> Nothing) Then
                Me.TextBoxWeather.Text = fbAMB.Files(0)
            End If
        End If
    End Sub

    ' Open the weatherfile in the Notepad
    Private Sub ButtonWeather_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonWeather.Click
        If IO.File.Exists(Me.TextBoxWeather.Text) Then
            System.Diagnostics.Process.Start(Prefs.editor, Me.TextBoxWeather.Text)
        Else
            logme(9, True, "No such Inputfile: " & Me.TextBoxWeather.Text)
        End If
    End Sub

    ' Calibration elements
#Region "Calibration"
    ' Open the filebrowser for the selection of the datafile from the calibration run
    Private Sub ButtonSelectDataC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSelectDataC.Click
        ' Open the filebrowser with the *.csdat parameter
        If fbVEL.OpenDialog(Prefs.workingDir, False) Then
            If (fbVEL.Files(0) <> Nothing) Then
                Me.TextBoxDataC.Text = fbVEL.Files(0)
            End If
        End If
    End Sub

    ' Open the datafile from the calibration test in Excel
    Private Sub ButtonDataC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDataC.Click
        ' Declarations
        Dim PSI As New ProcessStartInfo

        ' Exit the sub if no value is selected
        If Not Me.TextBoxDataC.Text.Count > 0 Then Exit Sub

        ' Open the File in Excel
        PSI.FileName = "excel"
        PSI.Arguments = ChrW(34) & Me.TextBoxDataC.Text & ChrW(34)
        Process.Start(PSI)
    End Sub
    
    ' Open the filebrowser for the selection of the measure section config file (MSC)
    Private Sub ButtonSelectMSCC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSelectMSCC.Click
        ' Open the filebrowser with the *.csmsc parameter
        If fbMSC.OpenDialog(Prefs.workingDir, False) Then
            If (fbMSC.Files(0) <> Nothing) Then
                Me.TextBoxMSCC.Text = fbMSC.Files(0)
            End If
        End If
    End Sub

    ' Open the measure section config file (MSC) in Excel
    Private Sub ButtonMSCC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonMSCC.Click
        ' Declarations
        Dim PSI As New ProcessStartInfo

        ' Exit the sub if no value is selected
        If Not Me.TextBoxMSCC.Text.Count > 0 Then Exit Sub

        ' Open the File in Excel
        PSI.FileName = "excel"
        PSI.Arguments = ChrW(34) & Me.TextBoxMSCC.Text & ChrW(34)
        Process.Start(PSI)
    End Sub

    ' Calculate button calibration test
    Private Sub ButtonCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalC.Click
        ' Generate cancel butten if the backgroundworker is busy
        If BWorker.IsBusy Then
            logme(8, False, "Calibration not started! Another operation still running in the background")
            BWorker.CancelAsync()
            Exit Sub
        End If

        ' Read the data from the GUI
        UI_PopulateToJob(True)
        UI_PopulateToCriteria()

        Dim ok = False
        Try
            ' Change the Calculate button in a cancel button
            Me.ButtonCalC.Text = "Cancel"
            Me.TextBoxRVeh.Text = 0
            Me.TextBoxRAirPos.Text = 0
            Me.TextBoxRBetaMis.Text = 0
            Cali = True

            ' Save the Jobfiles
            SaveJobImpl(False)

            ' Check if outfolder exist. If not then generate the folder
            If Not System.IO.Directory.Exists(OutFolder) Then
                If OutFolder <> Nothing Then
                    ' Generate the folder if it is desired
                    Dim resEx As MsgBoxResult
                    resEx = MsgBox(format("Output-folder({0}) doesn´t exist! \n\nCreate Folder?", OutFolder), MsgBoxStyle.YesNo, "Create folder?")
                    If resEx = MsgBoxResult.Yes Then
                        IO.Directory.CreateDirectory(OutFolder)
                    Else
                        Exit Sub
                    End If
                Else
                    logme(9, False, "No outputfolder is given!")
                    Exit Sub
                End If
            End If

            ' Clear the MSG on the GUI
            Me.ListBoxMSG.Items.Clear()
            fClear_VECTO_Form(False, False)
    
            logme(7, False, format("Starting CALIBRATION: \n\i* Job: {0}\n* Out: {1}", JobFile, OutFolder))

            ' Start the calculation in the backgroundworker
            Me.BackgroundWorkerVECTO.RunWorkerAsync()

            ok = True
        Finally
            If Not ok Then Me.ButtonEval.Text = "Calibrate"
        End Try
    End Sub
#End Region

    ' Test elements
#Region "Test"
    ' Open the filebrowser for the selection of the measure section file from the test run
    Private Sub ButtonSelectMSCT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSelectMSCT.Click
        ' Open the filebrowser with the *.csmsc parameter
        If fbMSC.OpenDialog(Prefs.workingDir, False) Then
            If (fbMSC.Files(0) <> Nothing) Then
                Me.TextBoxMSCT.Text = fbMSC.Files(0)
            End If
        End If
    End Sub

    ' Open the measure section config file (MSC) in Excel
    Private Sub ButtonMSCT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonMSCT.Click
        ' Declarations
        Dim PSI As New ProcessStartInfo

        ' Exit the sub if no value is selected
        If Not Me.TextBoxMSCT.Text.Count > 0 Then Exit Sub

        ' Open the File in Excel
        PSI.FileName = "excel"
        PSI.Arguments = ChrW(34) & Me.TextBoxMSCT.Text & ChrW(34)
        Process.Start(PSI)
    End Sub

    ' Open the filebrowser for the selection of the first low speed data file from the test run
    Private Sub ButtonSelectDataLS1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' Open the filebrowser with the *.csdat parameter
        If fbVEL.OpenDialog(Prefs.workingDir, False) Then
            If (fbVEL.Files(0) <> Nothing) Then
                Me.TextBoxDataLS1.Text = fbVEL.Files(0)
            End If
        End If
    End Sub

    ' Open the first low speed data file in Excel
    Private Sub ButtonDataLS1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' Declarations
        Dim PSI As New ProcessStartInfo

        ' Exit the sub if no value is selected
        If Not Me.TextBoxDataLS1.Text.Count > 0 Then Exit Sub

        ' Open the File in Excel
        PSI.FileName = "excel"
        PSI.Arguments = ChrW(34) & Me.TextBoxDataLS1.Text & ChrW(34)
        Process.Start(PSI)
    End Sub

    ' Open the filebrowser for the selection of the high speed data file from the test run
    Private Sub ButtonSelectDataHS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' Open the filebrowser with the *.csdat parameter
        If fbVEL.OpenDialog(Prefs.workingDir, False) Then
            If (fbVEL.Files(0) <> Nothing) Then
                Me.TextBoxDataHS.Text = fbVEL.Files(0)
            End If
            End If
    End Sub

    ' Open the high speed data file in Excel
    Private Sub ButtonDataHS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' Declarations
        Dim PSI As New ProcessStartInfo

        ' Exit the sub if no value is selected
        If Not Me.TextBoxDataHS.Text.Count > 0 Then Exit Sub

        ' Open the File in Excel
        PSI.FileName = "excel"
        PSI.Arguments = ChrW(34) & Me.TextBoxDataHS.Text & ChrW(34)
        Process.Start(PSI)
    End Sub

    ' Open the filebrowser for the selection of the second low speed data file from the test run
    Private Sub ButtonSelectDataLS2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' Open the filebrowser with the *.csdat parameter
        If fbVEL.OpenDialog(Prefs.workingDir, False) Then
            If (fbVEL.Files(0) <> Nothing) Then
                Me.TextBoxDataLS2.Text = fbVEL.Files(0)
            End If
        End If
    End Sub

    ' Open the second low speed data file in Excel
    Private Sub ButtonDataLS2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' Declarations
        Dim PSI As New ProcessStartInfo

        ' Exit the sub if no value is selected
        If Not Me.TextBoxDataLS2.Text.Count > 0 Then Exit Sub

        ' Open the File in Excel
        PSI.FileName = "excel"
        PSI.Arguments = ChrW(34) & Me.TextBoxDataLS2.Text & ChrW(34)
        Process.Start(PSI)
    End Sub

    ' Evaluate button test run
    Private Sub ButtonEvaluate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEval.Click
        ' Generate cancel butten if the backgroundworker is busy
        If BWorker.IsBusy Then
            BWorker.CancelAsync()
            logme(8, False, "Evaluation not started! Another operation still running in the background")
            Exit Sub
        End If

        ' Read the data from the GUI
        UI_PopulateToJob(True)
        UI_PopulateToCriteria()

        Dim ok = False
        Try
            ' Change the Calculate button in a cancel button
            Me.ButtonEval.Text = "Cancel"
            Cali = False

            fWriteLog(2, 4, "----- Speed runs ")

            ' Save the Jobfiles
            SaveJobImpl(False)

            ' Check if outfolder exist. If not then generate the folder
            If Not System.IO.Directory.Exists(OutFolder) Then
                If OutFolder <> Nothing Then
                    ' Generate the folder if it is desired
                    Dim resEx As MsgBoxResult
                        resEx = MsgBox(format("Output-folder({0}) doesn´t exist! \n\nCreate Folder?", OutFolder), MsgBoxStyle.YesNo, "Create folder?")
                    If resEx = MsgBoxResult.Yes Then
                        IO.Directory.CreateDirectory(OutFolder)
                    Else
                        Exit Sub
                    End If
                Else
                    logme(9, False, "No outputfolder is given!")
                    Exit Sub
                End If
            End If

            ' Clear the MSG on the GUI
            fClear_VECTO_Form(False, False)

            ' Write the Calculation status in the Messageoutput and in the Log
            logme(7, False, format("Starting EVALUATION: \n\i* Job: {0}\n* Out: {1}", JobFile, OutFolder))

            ' Start the calculation in the backgroundworker
            Me.BackgroundWorkerVECTO.RunWorkerAsync()

            ok = True
        Finally
            If Not ok Then Me.ButtonEval.Text = "Evaluate"
        End Try
    End Sub
#End Region

    ' Programmcode Menustrip
#Region "Menustrip"
#Region "Datei"
    ' Menu New
    Private Sub ToolStripMenuItemNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemNew.Click
        fClear_VECTO_Form(True)
    End Sub

    ' Menu open
    Private Sub ToolStripMenuItemOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemOpen.Click, ButtonLoadJob.Click
        ' Open the filebrowser with the *.csjob parameter
        If fbVECTO.OpenDialog(Prefs.workingDir, False) Then

            JobFile = fbVECTO.Files(0)
            If (JobFile <> Nothing) Then
                ' Clear the GUI
                fClear_VECTO_Form(False)
                OutFolder = joinPaths(fPath(JobFile), "Results\")

                ' Identify the given Jobfile
                '' Read Jobfile and populate GUI
                ''
                Try
                    Dim newJob As cJob
                    If JobFile.EndsWith(".csjob.json") Then
                        newJob = New cJob(JobFile)
                    Else
                        newJob = New cJob(True)
                        newJob.fReadOldJobFile()
                    End If
                    newJob.Validate()
                    installJob(newJob)
                    UI_PopulateFromJob()
                    UI_PopulateFromCriteria()
                Catch ex As Exception
                    logme(9, False, format("Failed reading Job-file({0}) due to: {1}", JobFile, ex.Message), ex)
                End Try
            End If
        End If
    End Sub

    ' Menu Save
        Private Sub Event_SaveJob(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemSave.Click
        SaveJobImpl(False)
    End Sub
    ' Menu Save as
    Private Sub Event_SaveJobAs(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemSaveAs.Click, ButtonSaveAsNew.Click
        SaveJobImpl(True)
    End Sub

    Private Sub SaveJobImpl(ByVal isSaveAs As Boolean)
        ' Identify if the file should save under a new name
        If JobFile = Nothing Or isSaveAs Then
            ' Open the filebrowser to select the folder and name of the Jobfile
            If fbVECTO.SaveDialog(JobFile) Then
                JobFile = fbVECTO.Files(0)
                OutFolder = joinPaths(fPath(JobFile), "Results\")
                Me.Text = Formname & " " & JobFile
            End If
            If (JobFile = Nothing) Then
                Exit Sub
            End If
        End If

        ' Get all data from the GUI
        UI_PopulateToJob()
        UI_PopulateToCriteria()

        ' Write the file
        If Not JobFile.EndsWith(".csjob.json", StringComparison.OrdinalIgnoreCase) Then
            JobFile = joinPaths(fPath(JobFile), fName(JobFile, False) & ".csjob.json")
        End If
        Job.Store(JobFile)
    End Sub

    ' Menu Exit
    Private Sub ToolStripMenuItemExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemExit.Click
        ' Close the GUI
        Me.Close()
    End Sub
#End Region

#Region "Tools"
    ' Menu open the Log
    Private Sub ToolStripMenuItemLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemLog.Click
        System.Diagnostics.Process.Start(Prefs.editor, joinPaths(MyPath, "log.txt"))
    End Sub

    ' Menu open the config file
    Private Sub ToolStripMenuItemOption_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemOption.Click
        ' Show the confic GUI
        F_Preferences.Show()
    End Sub
#End Region

#Region "Info"
    ' Create activation file
    Private Sub CreatActivationFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreatActivationFileToolStripMenuItem.Click
        Lic.CreateActFile(MyPath & "ActivationCode.dat")
        logme(7, True, "Activation code created under: " & MyPath & "ActivationCode.dat")
    End Sub

    ' Menu open the Infobox
    Private Sub ToolStripMenuItemAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemAbout.Click
        ' Show the info GUI
        F_About.Show()
    End Sub

    ' Menu open the user manual
    Private Sub ToolStripMenuItemManu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemManu.Click
        Dim manual_fname As String = joinPaths(MyPath, "Docs", "VECTO_CSE-User Manual.pdf")
        Try
                System.Diagnostics.Process.Start(manual_fname)
        Catch ex As Exception
            logme(8, False, format("Failed opening User Manual({0}) due to: {1}", manual_fname, ex.Message), ex)
        End Try
    End Sub
#End Region
#End Region
#End Region

    ' Option Tab
#Region "Options"

    ' Check if the input is a number
    Private Sub TextBox_TextChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TBDeltaTTireMax.KeyPress, TBDeltaRRCMax.KeyPress, TBTambVar.KeyPress, _
        TBTambTamac.KeyPress, TBTambMax.KeyPress, TBTambMin.KeyPress, TBDeltaHzMax.KeyPress, TBRhoAirRef.KeyPress, TBAccCorrAve.KeyPress, TBDeltaParaMax.KeyPress, TBDeltaXMax.KeyPress, TBDeltaYMax.KeyPress, _
        TBDeltaHeadMax.KeyPress, TBDsMinCAL.KeyPress, TBDsMinLS.KeyPress, TBDsMinHS.KeyPress, TBDsMinHeadHS.KeyPress, TBvWindAveLSMax.KeyPress, TBvWindAveHSMax.KeyPress, TBvWindAveCALMax.KeyPress, TBvWind1sLSMax.KeyPress, TBvWind1sHSMax.KeyPress, TBvWind1sCALMax.KeyPress, TBvVehFloatD.KeyPress, TBvVehAveLSMin.KeyPress, TBvVehAveLSMax.KeyPress, TBvVehAveHSMin.KeyPress, TBvVeh1sD.KeyPress, TBTqSumFloatD.KeyPress, TBTq1sD.KeyPress, TBLengCrit.KeyPress, TBDistFloat.KeyPress, TBBetaAveHSMax.KeyPress, TBBetaAveCALMax.KeyPress
        Select Case Asc(e.KeyChar)
            Case 48 To 57, 46 ' Zahlen zulassen (ASCII)
            Case Else ' Alles andere Unterdrücken
                e.Handled = True
        End Select
    End Sub

    ' Set all textboxes to standard
    Private Sub doResetCriteria(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ' Set the parameter to standard

        installJob(New cJob())
        UI_PopulateFromJob()
        UI_PopulateFromCriteria()
    End Sub

    ' Set all textboxes to standard
    Private Sub doExportCriteria(ByVal sender As System.Object, ByVal e As System.EventArgs)
        UI_PopulateToJob(False)
        UI_PopulateToCriteria()
        If fbCRT.SaveDialog(Prefs.workingDir) Then
            Dim fname = fbCRT.Files(0)
            If fname Is Nothing Then Return
            Crt.Store(fname)
        End If
    End Sub

    ' Set all textboxes to standard
    Private Sub doImportCriteria(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If fbCRT.OpenDialog(Prefs.workingDir) Then
            Dim fname = fbCRT.Files(0)
            If fname Is Nothing Then
                Return
            End If
            Dim newCrt = New cCriteria(fname)
            Job.Criteria = newCrt
            Crt = newCrt
        End If
        UI_PopulateFromJob()
        UI_PopulateFromCriteria()
    End Sub

    ' CheckBox for the acceleration calibration
    Private Sub CheckBoxAcc_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxAcc.CheckedChanged
        crt.accel_correction = CheckBoxAcc.Checked
    End Sub

    ' Checkbox for the gradient correction
    Private Sub CheckBoxGrd_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBoxGrd.CheckedChanged
        crt.gradient_correction = CheckBoxGrd.Checked
    End Sub

    ' Change in the 1Hz radio button
    Private Sub RB1Hz_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB1Hz.CheckedChanged
            If RB1Hz.Checked Then
            crt.hz_out = 1
        Else
            crt.hz_out = 100
        End If
    End Sub

    ' Change in the 100Hz radio button
    Private Sub RB100Hz_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RB100Hz.CheckedChanged
        If RB100Hz.Checked Then
            crt.hz_out = 100
        Else
            crt.hz_out = 1
        End If
    End Sub
#End Region


    '*********Backgroundworker*********

    ' Backgroundworker for the calculation in the background
    Private Sub BackgroundWorkerVECTO_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) _
        Handles BackgroundWorkerVECTO.DoWork

        '##### START THE CALCULATION #####
        '#################################
        '' FIXME:  Stop abusing worker-Thread with Globals, use DoWorkEventArgsfor that instead!!
        calculation(Cali)

        '#################################

        ' Polling if the backgroundworker was canceled
        If Me.BackgroundWorkerVECTO.CancellationPending Then e.Cancel = True

    End Sub

    ' Output from messages with the Backgroundworker
    Private Sub BackgroundWorkerVECTO_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) _
        Handles BackgroundWorkerVECTO.ProgressChanged

        Dim workerMsg As cLogMsg = e.UserState
        If workerMsg IsNot Nothing Then
            workerMsg.forwardLog()
        End If
    End Sub

    ' Identify the ending from the backgroundworker
    Private Sub BackgroundWorkerVECTO_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) _
        Handles BackgroundWorkerVECTO.RunWorkerCompleted

        Dim op = IIf(Cali, "Calibration", "Evaluation")

        ' If an Error is detected
        If e.Error IsNot Nothing Then
            logme(8, False, format("{0} ended with exception: {1}", op, e.Error.Message), e.Error)
        Else
            If e.Cancelled Then
                logme(7, False, format("{0} aborted by user.", op))
            Else
                logme(7, False, format("{0} ended OK.", op))
                If Cali Then Me.ButtonEval.Enabled = True
            End If
        End If

        ' Reset the calculate button to calculate
        If Cali Then
            Me.ButtonCalC.Text = "Calibrate"
            Me.TextBoxRVeh.Text = Math.Round(fv_veh, 3).ToString
            Me.TextBoxRAirPos.Text = Math.Round(fv_pe, 3).ToString
            Me.TextBoxRBetaMis.Text = Math.Round(beta_ame, 2).ToString
            Else
            Me.ButtonEval.Text = "Evaluate"
        End If
        FileBlock = False
    End Sub

#Region "UI populate"

    ' Function to get all parameter from the GUI
    Function UI_PopulateToJob(Optional ByVal validate As Boolean = False) As Boolean
        ' Read the data from the textboxes (General)
        Job.vehicle_fpath = TextBoxVeh1.Text
        Job.ambient_fpath = TextBoxWeather.Text
        Job.Anemometer(0) = TextBoxAirf.Text
        Job.Anemometer(1) = TextBoxAird.Text
        Job.Anemometer(2) = TextBoxbetaf.Text
        Job.Anemometer(3) = TextBoxbetad.Text

        ' Appropriate the inputfiles from calibration run
        Job.calibration_fpath = TextBoxDataC.Text
        Job.track_fpath = TextBoxMSCC.Text

        ' Appropriate the inputfiles from test run
        Job.low1_fpath = TextBoxDataLS1.Text
        Job.high_fpath = TextBoxDataHS.Text
        Job.low2_fpath = TextBoxDataLS2.Text
        Job.MSCTSpez = TextBoxMSCT.Text
        Crt.rr_corr_factor = TextBoxRRC.Text

        If validate Then
            Job.Validate()
        End If

        Return True
    End Function

    ' Get the parameters from option tab
    Sub UI_PopulateToCriteria()
        ' Evaluation box
        Crt.accel_correction = CheckBoxAcc.Checked
        Crt.gradient_correction = CheckBoxGrd.Checked

        ' Output box
        If RB1Hz.Checked Then Crt.hz_out = 1
        If RB100Hz.Checked Then Crt.hz_out = 100

        'Parameter boxes
        ' General valid criteria
        Crt.delta_t_tyre_max = TBDeltaTTireMax.Text
        Crt.delta_rr_corr_max = TBDeltaRRCMax.Text
        Crt.t_amb_var = TBTambVar.Text
        Crt.t_amb_tarmac = TBTambTamac.Text
        Crt.t_amb_max = TBTambMax.Text
        Crt.t_amb_min = TBTambMin.Text
        ' General
        Crt.delta_Hz_max = TBDeltaHzMax.Text
        Crt.roh_air_ref = TBRhoAirRef.Text
        Crt.acc_corr_avg = TBAccCorrAve.Text
        Crt.delta_parallel_max = TBDeltaParaMax.Text
        ' Identification of measurement section
        Crt.trigger_delta_x_max = TBDeltaXMax.Text
        Crt.trigger_delta_y_max = TBDeltaYMax.Text
        Crt.delta_head_max = TBDeltaHeadMax.Text
        ' Requirements on number of valid datasets
        Crt.segruns_min_CAL = TBDsMinCAL.Text
        Crt.segruns_min_LS = TBDsMinLS.Text
        Crt.segruns_min_HS = TBDsMinHS.Text
        Crt.segruns_min_head_MS = TBDsMinHeadHS.Text
        ' DataSet validity criteria
        Crt.dist_float = TBDistFloat.Text
            ' Calibration
        Crt.v_wind_avg_max_CAL = TBvWindAveCALMax.Text
        Crt.v_wind_1s_max_CAL = TBvWind1sCALMax.Text
        Crt.beta_avg_max_CAL = TBBetaAveCALMax.Text
        ' Low and high speed test
        Crt.leng_crit = TBLengCrit.Text
        ' Low speed test
        Crt.v_wind_avg_max_LS = TBvWindAveLSMax.Text
        Crt.v_wind_1s_max_LS = TBvWind1sLSMax.Text
        Crt.v_veh_avg_max_LS = TBvVehAveLSMax.Text
        Crt.v_veh_avg_min_LS = TBvVehAveLSMin.Text
        Crt.v_veh_float_delta_LS = TBvVehFloatD.Text
        Crt.tq_sum_float_delta_LS = TBTqSumFloatD.Text
        ' High speed test
        Crt.v_wind_avg_max_HS = TBvWindAveHSMax.Text
        Crt.v_wind_1s_max_HS = TBvWind1sHSMax.Text
        Crt.v_veh_avg_min_HS = TBvVehAveHSMin.Text
        Crt.beta_avg_max_HS = TBBetaAveHSMax.Text
        Crt.v_veh_1s_delta_HS = TBvVeh1sD.Text
        Crt.tq_sum_1s_delta_HS = TBTq1sD.Text
    End Sub

    Sub UI_PopulateFromJob()
        ' Transfer the data to the GUI
        ' General
        TextBoxVeh1.Text = Job.vehicle_fpath
        TextBoxAirf.Text = Job.Anemometer(0)
        TextBoxAird.Text = Job.Anemometer(1)
        TextBoxbetaf.Text = Job.Anemometer(2)
        TextBoxbetad.Text = Job.Anemometer(3)
        TextBoxWeather.Text = Job.ambient_fpath
        ' Calibration
        TextBoxMSCC.Text = Job.track_fpath
        TextBoxDataC.Text = Job.calibration_fpath
        ' Test
        TextBoxMSCT.Text = Job.MSCTSpez
        TextBoxRRC.Text = Crt.rr_corr_factor
        TextBoxDataLS1.Text = Job.low1_fpath
        TextBoxDataHS.Text = Job.high_fpath
        TextBoxDataLS2.Text = Job.low2_fpath

    End Sub

    ' Function to set the parameters to standard
    Sub UI_PopulateFromCriteria()
        ' Write the Standard values in the textboxes
        ' General valid criteria
        TBDeltaTTireMax.Text = crt.delta_t_tyre_max
        TBDeltaRRCMax.Text = crt.delta_rr_corr_max
        TBTambVar.Text = crt.t_amb_var
        TBTambTamac.Text = crt.t_amb_tarmac
        TBTambMax.Text = crt.t_amb_max
        TBTambMin.Text = crt.t_amb_min
        ' General
        TBDeltaHzMax.Text = crt.delta_Hz_max
        TBRhoAirRef.Text = crt.roh_air_ref
        TBAccCorrAve.Text = crt.acc_corr_avg
        TBDeltaParaMax.Text = crt.delta_parallel_max
        ' Identification of measurement section
        TBDeltaXMax.Text = crt.trigger_delta_x_max
        TBDeltaYMax.Text = crt.trigger_delta_y_max
        TBDeltaHeadMax.Text = crt.delta_head_max
        ' Requirements on number of valid datasets
        TBDsMinCAL.Text = crt.segruns_min_CAL
        TBDsMinLS.Text = crt.segruns_min_LS
        TBDsMinHS.Text = crt.segruns_min_HS
        TBDsMinHeadHS.Text = crt.segruns_min_head_MS
        ' DataSet validity criteria
        TBDistFloat.Text = crt.dist_float
        ' Calibration
            TBvWindAveCALMax.Text = crt.v_wind_avg_max_CAL
        TBvWind1sCALMax.Text = crt.v_wind_1s_max_CAL
        TBBetaAveCALMax.Text = crt.beta_avg_max_CAL
        ' Low and high speed test
        TBLengCrit.Text = crt.leng_crit
        ' Low speed test
        TBvWindAveLSMax.Text = crt.v_wind_avg_max_LS
        TBvWind1sLSMax.Text = crt.v_wind_1s_max_LS
        TBvVehAveLSMax.Text = crt.v_veh_avg_max_LS
        TBvVehAveLSMin.Text = crt.v_veh_avg_min_LS
        TBvVehFloatD.Text = crt.v_veh_float_delta_LS
        TBTqSumFloatD.Text = crt.tq_sum_float_delta_LS
        ' High speed test
        TBvWindAveHSMax.Text = crt.v_wind_avg_max_HS
        TBvWind1sHSMax.Text = crt.v_wind_1s_max_HS
        TBvVehAveHSMin.Text = crt.v_veh_avg_min_HS
        TBBetaAveHSMax.Text = crt.beta_avg_max_HS
        TBvVeh1sD.Text = crt.v_veh_1s_delta_HS
        TBTq1sD.Text = crt.tq_sum_1s_delta_HS
        ' Evaluation box
        CheckBoxAcc.Checked = crt.accel_correction
        CheckBoxGrd.Checked = crt.gradient_correction

        ' Output
        If crt.hz_out = 1 Then
            RB1Hz.Checked = True
        ElseIf crt.hz_out = 100 Then
            RB100Hz.Checked = True
        End If
    End Sub


    ' Clear the GUI
    Public Function fClear_VECTO_Form(ByVal Komplet As Boolean, Optional ByVal Fields As Boolean = True) As Boolean
        If Komplet Then
            ' Clear the Jobfile and the output folder
            JobFile = Nothing
            OutFolder = Nothing
        End If

        If Fields Then
            ' Clear the Textboxes or set them to default
            TextBoxVeh1.Clear()
            TextBoxWeather.Clear()
            TextBoxAirf.Text = 1
            TextBoxAird.Text = 0
            TextBoxbetaf.Text = 1
            TextBoxbetad.Text = 0
            CheckBoxAcc.Checked = True
            CheckBoxGrd.Checked = False

            ' Calibration fields
            TextBoxDataC.Clear()
            TextBoxMSCC.Clear()
            TextBoxRRC.Text = 1.0

            ' Test run fields
            TextBoxMSCT.Clear()
            TextBoxDataLS1.Clear()
            TextBoxDataHS.Clear()
            TextBoxDataLS2.Clear()

            ButtonEval.Enabled = False

            ' Option parameters to standard
            installJob(New cJob)
            UI_PopulateFromJob()
            UI_PopulateFromCriteria()
        End If

            ' Clear the Warning and Error box
        ListBoxWar.Items.Clear()
        ListBoxErr.Items.Clear()
        TabControlOutMsg.SelectTab(0)
        TabPageErr.Text = "Errors (0)"
        TabPageWar.Text = "Warnings (0)"
        Return True
    End Function


#End Region ' UI populate


#Region "Infobox"
    ' Deactivate the message
    Private Sub DeacMsg(ByVal sender As Object, ByVal e As System.EventArgs) Handles _
 _
 _
 _
 _
         LDeltaTTireMax.MouseLeave, TBDeltaTTireMax.MouseLeave, LDeltaRRCMax.MouseLeave, TBDeltaRRCMax.MouseLeave, LTambVar.MouseLeave, TBTambVar.MouseLeave, _
        LTambTamac.MouseLeave, TBTambTamac.MouseLeave, LTambMax.MouseLeave, TBTambMax.MouseLeave, LTambMin.MouseLeave, TBTambMin.MouseLeave, LDeltaHzMax.MouseLeave, TBDeltaHzMax.MouseLeave, _
        LRhoAirRef.MouseLeave, TBRhoAirRef.MouseLeave, LAccCorrAve.MouseLeave, TBAccCorrAve.MouseLeave, LDeltaParaMax.MouseLeave, TBDeltaParaMax.MouseLeave, LDeltaXMax.MouseLeave, TBDeltaXMax.MouseLeave, _
        LDeltaYMax.MouseLeave, TBDeltaYMax.MouseLeave, LContAng.MouseLeave, TBDeltaHeadMax.MouseLeave, LDsMinCAL.MouseLeave, TBDsMinCAL.MouseLeave, LDsMinLS.MouseLeave, TBDsMinLS.MouseLeave, LDsMinHS.MouseLeave, _
        TBDsMinHS.MouseLeave, LDsMinHeadMS.MouseLeave, TBDsMinHeadHS.MouseLeave, TBvWindAveLSMax.MouseLeave, TBvWindAveHSMax.MouseLeave, TBvWindAveCALMax.MouseLeave, TBvWind1sLSMax.MouseLeave, TBvWind1sHSMax.MouseLeave, TBvWind1sCALMax.MouseLeave, TBvVehFloatD.MouseLeave, TBvVehAveLSMin.MouseLeave, TBvVehAveLSMax.MouseLeave, TBvVehAveHSMin.MouseLeave, TBvVeh1sD.MouseLeave, TBTqSumFloatD.MouseLeave, TBTq1sD.MouseLeave, TBLengCrit.MouseLeave, TBDistFloat.MouseLeave, TBBetaAveHSMax.MouseLeave, TBBetaAveCALMax.MouseLeave, LvWindAveLSMax.MouseLeave, LvWindAveHSMax.MouseLeave, LvWindAveCALMax.MouseLeave, LvWind1sLSMax.MouseLeave, LvWind1sHSMax.MouseLeave, LvWind1sCALMax.MouseLeave, LvVehFloatD.MouseLeave, LvVehAveLSMin.MouseLeave, LvVehAveLSMax.MouseLeave, LvVehAveHSMin.MouseLeave, LvVeh1sD.MouseLeave, LTqSumFloatD.MouseLeave, LTq1sD.MouseLeave, LLengCrit.MouseLeave, LDistFloat.MouseLeave, LBetaAveHSMax.MouseLeave, LBetaAveCALMax.MouseLeave
        TBInfo.Visible = False
        PBInfoIcon.Visible = False
    End Sub

    ' Show the message in the infobox
    Private Function InfActivat(ByVal Text As String) As Boolean
        TBInfo.Visible = True
        PBInfoIcon.Visible = True
        TBInfo.BackColor = System.Drawing.Color.LightYellow
        TBInfo.Text = Text
        Return True
    End Function

#Region "FloatDist"
    ' Show the message
    Private Sub ShowMsgFloatDist(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBDistFloat.MouseMove, LDistFloat.MouseMove
        InfActivat("Distance used for calculation of floatinig average signal used for stabilitay criteria in low speed tests")
    End Sub
#End Region

#Region "vWindAveCALMax"
    ' Show the message
    Private Sub ShowMsgvWindAveCALMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBvWindAveCALMax.MouseMove, LvWindAveCALMax.MouseMove
        InfActivat("Maximum average wind speed during calibration test")
    End Sub
#End Region

#Region "vWind1sCALMax"
    ' Show the message
    Private Sub ShowMsgvWind1sCALMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBvWind1sCALMax.MouseMove, LvWind1sCALMax.MouseMove
        InfActivat("Maximum gust wind speed during calibration test")
    End Sub
#End Region

#Region "BetaAveCALMax"
    ' Show the message
    Private Sub ShowMsgBetaAveCALMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBBetaAveCALMax.MouseMove, LBetaAveCALMax.MouseMove
        InfActivat("Maximum average beta during calibration test")
    End Sub
#End Region

#Region "LengCrit"
    ' Show the message
    Private Sub ShowMsgLengCrit(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBLengCrit.MouseMove, LLengCrit.MouseMove
        InfActivat("Maximum absolute difference of distance driven with lenght of section as specified in configuration")
        End Sub
#End Region

#Region "vWindAveLSMax"
    ' Show the message
    Private Sub ShowMsgvWindAveLSMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBvWindAveLSMax.MouseMove, LvWindAveLSMax.MouseMove
        InfActivat("Maximum average wind speed during low speed test")
    End Sub
#End Region

#Region "vWind1sLSMax"
    ' Show the message
    Private Sub ShowMsgvWind1sLSMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBvWind1sLSMax.MouseMove, LvWind1sLSMax.MouseMove
        InfActivat("Maximum gust wind speed during low speed test")
    End Sub
#End Region

#Region "vVehAveLSMax"
    ' Show the message
    Private Sub ShowMsgvVehAveLSMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBvVehAveLSMax.MouseMove, LvVehAveLSMax.MouseMove
        InfActivat("Maximum average vehicle speed for low speed test")
    End Sub
#End Region

#Region "vVehAveLSMin"
    ' Show the message
    Private Sub ShowMsgvVehAveLSMin(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBvVehAveLSMin.MouseMove, LvVehAveLSMin.MouseMove
        InfActivat("Minimum average vehicle speed for low speed test")
    End Sub
#End Region

#Region "vVehFloatD"
    ' Show the message
    Private Sub ShowMsgvVehFloatD(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBvVehFloatD.MouseMove, LvVehFloatD.MouseMove
        InfActivat("+/- Maximum deviation of floating average vehicle speed from average vehicle speed over entire section (low speed test)")
    End Sub
#End Region

#Region "TqSumFloatD"
    ' Show the message
    Private Sub ShowMsgTqSumFloatD(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBTqSumFloatD.MouseMove, LTqSumFloatD.MouseMove
        InfActivat("+/- Maximum relative deviation of floating average torque from average torque over entire section (low speed test)")
    End Sub
#End Region

#Region "vWindAveHSMax"
    ' Show the message
    Private Sub ShowMsgvWindAveHSMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBvWindAveHSMax.MouseMove, LvWindAveHSMax.MouseMove
        InfActivat("Maximum average wind speed during high speed test")
    End Sub
#End Region

#Region "vWind1sHSMax"
    ' Show the message
    Private Sub ShowMsgvWind1sHSMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBvWind1sHSMax.MouseMove, LvWind1sHSMax.MouseMove
        InfActivat("Maximum gust wind speed during high speed test")
    End Sub
#End Region

#Region "vVehAveHSMin"
    ' Show the message
    Private Sub ShowMsgvVehAveHSMin(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBvVehAveHSMin.MouseMove, LvVehAveHSMin.MouseMove
        InfActivat("Minimum average vehicle speed for high speed test")
    End Sub
#End Region

#Region "BetaAveHSMax"
    ' Show the message
    Private Sub ShowMsgBetaAveHSMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBBetaAveHSMax.MouseMove, LBetaAveHSMax.MouseMove
        InfActivat("Maximum average beta during high speed test")
        End Sub
#End Region

#Region "vVeh1sD"
    ' Show the message
    Private Sub ShowMsgvVeh1sD(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBvVeh1sD.MouseMove, LvVeh1sD.MouseMove
        InfActivat("+/- Maximum deviation of 1s average vehicle speed from average vehicle speed over entire section (high speed test)")
    End Sub
#End Region

#Region "Tq1sD"
    ' Show the message
    Private Sub ShowMsgTq1sD(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TBTq1sD.MouseMove, LTq1sD.MouseMove
        InfActivat("+/- Maximum relative deviation of 1s average torque from average torque over entire section (high speed test)")
    End Sub
#End Region

#Region "DeltaTTireMax"
    ' Show the message
    Private Sub ShowMsgDeltaTTireMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LDeltaTTireMax.MouseMove, TBDeltaTTireMax.MouseMove
        InfActivat("Maximum variation of tyre temperature between high speed tests and low speed tests")
    End Sub
#End Region

#Region "DeltaRRCMax"
    ' Show the message
    Private Sub ShowMsgDeltaRRCMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LDeltaRRCMax.MouseMove, TBDeltaRRCMax.MouseMove
        InfActivat("Maximum difference of RRC from the two low speed runs")
    End Sub
#End Region

#Region "TambVar"
    ' Show the message
    Private Sub ShowMsgTambVar(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LTambVar.MouseMove, TBTambVar.MouseMove
        InfActivat("Maximum variation of ambient temperature (measured at the vehicle) during the tests (evaluated based on the used datasets only)")
    End Sub
#End Region

#Region "TambTamac"
    ' Show the message
    Private Sub ShowMsgTambTamac(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LTambTamac.MouseMove, TBTambTamac.MouseMove
        InfActivat("Maximum temperature below which no documentation of tarmac conditions is necessary")
    End Sub
#End Region

#Region "TambMax"
    ' Show the message
    Private Sub ShowMsgTambMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LTambMax.MouseMove, TBTambMax.MouseMove
        InfActivat("Maximum ambient temperature (measured at the vehicle) during the tests (evaluated based on the used datasets only)")
    End Sub
#End Region

#Region "TambMin"
    ' Show the message
    Private Sub ShowMsgTambMin(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LTambMin.MouseMove, TBTambMin.MouseMove
        InfActivat("Minimum ambient temperature (measured at the vehicle) during the tests (evaluated based on the used datasets only)")
    End Sub
#End Region

#Region "ContHz"
    ' Show the message
    Private Sub ShowMsgContHz(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LDeltaHzMax.MouseMove, TBDeltaHzMax.MouseMove
        InfActivat("Maximum allowed deviation of timestep-size in csdat-file from 100Hz")
    End Sub
#End Region

#Region "RhoAirRef"
    ' Show the message
    Private Sub ShowMsgRhoAirRef(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LRhoAirRef.MouseMove, TBRhoAirRef.MouseMove
        InfActivat("Reference air density")
        End Sub
#End Region

#Region "AveSecAcc"
    ' Show the message
    Private Sub ShowMsgAveSecAcc(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LAccCorrAve.MouseMove, TBAccCorrAve.MouseMove
        InfActivat("Averaging of vehicle speed for correction of acceleration forces")
    End Sub
#End Region

#Region "DeltaHeadMax"
    ' Show the message
    Private Sub ShowMsgDeltaHeadMax(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LDeltaParaMax.MouseMove, TBDeltaParaMax.MouseMove
        InfActivat("Maximum heading difference for measurement section (parallelism criteria for test track layout)")
    End Sub
#End Region

#Region "ContSecL"
    ' Show the message
    Private Sub ShowMsgContSecL(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LDeltaXMax.MouseMove, TBDeltaXMax.MouseMove
        InfActivat("+/- Size of the control area around a MS start/end point where a trigger signal is valid (driving direction)")
    End Sub
#End Region

#Region "LRec"
    ' Show the message
    Private Sub ShowMsgLRec(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LDeltaYMax.MouseMove, TBDeltaYMax.MouseMove
        InfActivat("+/- Size of the control area around a MS start/end point where a trigger signal is valid (perpendicular to driving direction)")
    End Sub
#End Region

#Region "ContAng"
    ' Show the message
    Private Sub ShowMsgContAng(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LContAng.MouseMove, TBDeltaHeadMax.MouseMove
        InfActivat("+/- Maximum deviation from heading as read from the csdat-file to the heading from csms-file for a valid dataset")
    End Sub
#End Region

#Region "NSecAnz"
    ' Show the message
    Private Sub ShowMsgNSecAnz(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LDsMinCAL.MouseMove, TBDsMinCAL.MouseMove
        InfActivat("Minimum number of valid datasets required for the calibration test (per combination of MS ID and DIR ID)")
    End Sub
#End Region

#Region "NSecAnzLS"
    ' Show the message
    Private Sub ShowMsgNSecAnzLS(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LDsMinLS.MouseMove, TBDsMinLS.MouseMove
        InfActivat("Minimum number of valid datasets required for the low speed test (per combination of MS ID and DIR ID)")
    End Sub
#End Region

#Region "NSecAnzHS"
    ' Show the message
    Private Sub ShowMsgNSecAnzHS(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LDsMinHS.MouseMove, TBDsMinHS.MouseMove
        InfActivat("Minimum number of valid datasets required for the high speed test (per combination of MS ID and DIR ID)")
    End Sub
#End Region

#Region "MSHSMin"
    ' Show the message
    Private Sub ShowMsgMSHSMin(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LDsMinHeadMS.MouseMove, TBDsMinHeadHS.MouseMove
        InfActivat("Minimum TOTAL number of valid datasets required for the high speed test per heading")
    End Sub
#End Region
#End Region

    Private Sub ButtonClearLogs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClearLogs.Click
        ListBoxMSG.Items.Clear()
        TabPageMSG.Text = "Messages(0)"
            ListBoxWar.Items.Clear()
        TabPageWar.Text = "Warnings(0)"
        ListBoxErr.Items.Clear()
        TabPageErr.Text = "Errors(0)"
    End Sub
End Class

    For further information about the platform and support, please see https://code.europa.eu/info/about