async: Stop abusing worker-Thread with Globals, use DoWorkEventArgs instead.

* job: FIX reading of OldJobFiles, broken by previous MainForm UI work.
* log: FIX (minor) doubl-log wrnings.
* UI: Improve the image of the "exec" buttons.
* Reset [TAB]-order on MainForm.

CHANGES.md

@@ -20,7 +20,8 @@ JRC contributions (see VECTO-29):
   * Implement an API for writing Header/Body json-files.
   * Apply Object-oriented design weith resource-management when I/O files.
   * Sporadic fixes to work with filenames having 2-part extensions (ie `some_file.csjob.json`).
-  * Improve logging-API so now a single log-routine is used everywhere(instead of 3 different ones).
+  * Log: Improve logging-API so now a single log-routine is used everywhere(instead of 3 different ones).
+  * async: Stop abusing worker-Thread with Globals, use DoWorkEventArgs instead.
   * General restructuring of the folders and names in the project.
 
 
@@ -36,6 +37,7 @@ JRC contributions:
 ##### Internal:
   * Log unhandled exceptions.
   * Gather all infos related to Job-properties (type, description, units) in a single place, the JSON-schema for the job-file.
+  * async: Stop abusing worker-Thread with Globals, use DoWorkEventArgs instead.
   * Sporadic fixes to work with filenames having 2-part extensions (ie `some_file.csjob.json`).
   * More refactorings to simplify structure of source files and folders.
 

CSE/ApplicationEvents.vb

@@ -109,7 +109,7 @@
         End Sub
         'Private Sub MyApplicationDomain_UnhandledException(ByVal sender As Object, ByVal ev As UnhandledExceptionEventArgs)
         '    Dim ex As Exception = DirectCast(ev.ExceptionObject, Exception)
-        '    logme(9, False, format("Worked's unhandled exception: {0}", ex.Message), ex)
+        '    logme(9, False, format("Worker's unhandled exception: {0}", ex.Message), ex)
         'End Sub
     End Class
 

CSE/CSE.vbproj

@@ -298,6 +298,13 @@
   <ItemGroup>
     <None Include="Resources\Refresh-icon.png" />
   </ItemGroup>
+  <ItemGroup>
+    <None Include="Resources\Play-icon.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="Resources\Stop-icon.png" />
+    <None Include="Resources\Stop-icon1.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.

CSE/GUI/F_Main.vb

@@ -5,7 +5,6 @@ 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
@@ -78,7 +77,7 @@ Public Class F_Main
         fWriteLog(3)
     End Sub
 
-    Private Sub ClearLogsHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClearLogs.Click
+    Private Sub ClearLogsHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemClearLog.Click
         ListBoxMSG.Items.Clear()
         TabPageMSG.Text = "Messages(0)"
         ListBoxWar.Items.Clear()
@@ -93,15 +92,15 @@ Public Class F_Main
 
 #Region "Job IO"
     ' Menu New
-    Private Sub NewJobHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemNew.Click
+    Private Sub NewJobHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemNewJob.Click
         fClear_VECTO_Form(True)
     End Sub
 
-    Private Sub ReloadJobHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonReloadJob.Click
+    Private Sub ReloadJobHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemReloadJob.Click
         Dim reload = True
         doLoadJob(reload)
     End Sub
-    Private Sub LoadJobHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemOpen.Click, ButtonLoadJob.Click
+    Private Sub LoadJobHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemLoadJob.Click
         Dim reload = False
         doLoadJob(reload)
     End Sub
@@ -134,7 +133,7 @@ Public Class F_Main
                 newJob = New cJob(jobFileToLoad)
             Else
                 newJob = New cJob(True)
-                newJob.fReadOldJobFile()
+                newJob.fReadOldJobFile(jobFileToLoad)
             End If
             newJob.Validate()
 
@@ -147,11 +146,11 @@ Public Class F_Main
         End Try
     End Sub
 
-    Private Sub SaveJobHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemSave.Click, ButtonSaveJob.Click
+    Private Sub SaveJobHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemSaveJob.Click
         Dim saveAs = False
         doSaveJob(saveAs)
     End Sub
-    Private Sub SaveJobAsHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemSaveAs.Click, ButtonSaveNewJob.Click
+    Private Sub SaveJobAsHandler(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemSaveAsJob.Click
         Dim saveAs = True
         doSaveJob(saveAs)
     End Sub
@@ -233,6 +232,29 @@ Public Class F_Main
 
 
 #Region "Calibration"
+
+    '####################################################################
+    '#### Only HERE manage "Exec" button's state (Text, Image, etc). ####
+    '####################################################################
+    Private _CalibrationState As Boolean = False
+    Private _CalibrationTxts = {"Calibrate", "Cancel"}
+    Private _CalibrationImgs = {My.Resources.Resources.Play_icon, My.Resources.Resources.Stop_icon}
+    Private Property CalibrationState As Boolean
+        Get
+            Return _CalibrationState
+        End Get
+        Set(ByVal value As Boolean)
+            If _CalibrationState Xor value Then
+                Dim indx = -CInt(value)
+                Me.ButtonCalC.Text = _CalibrationTxts(indx)
+                Me.ButtonCalC.Image = _CalibrationImgs(indx)
+                Me.ButtonCalC.UseWaitCursor = value
+            End If
+            _CalibrationState = value
+        End Set
+    End Property
+
+
     ' 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
@@ -282,47 +304,47 @@ Public Class F_Main
     End Sub
 
     ' Calculate button calibration test
-    Private Sub ButtonCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalC.Click
+    Private Sub CalibrationHandler(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
+            logme(8, False, "Cancel requested for background-operation...")
+            Return
         End If
 
         ' Read the data from the GUI
         UI_PopulateToJob(True)
         UI_PopulateToCriteria()
 
+        Me.TextBoxRVeh.Text = 0
+        Me.TextBoxRAirPos.Text = 0
+        Me.TextBoxRBetaMis.Text = 0
+
+        ' 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
+
         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
+            ' Change the button "Exec" --> "Cancel" 
+            Me.CalibrationState = True
 
             ' Save the Jobfiles
             doSaveJob(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)
@@ -330,17 +352,41 @@ Public Class F_Main
             logme(7, False, format("Starting CALIBRATION: \n\i* Job: {0}\n* Out: {1}", JobFile, OutFolder))
 
             ' Start the calculation in the backgroundworker
-            Me.BackgroundWorkerVECTO.RunWorkerAsync()
+            Dim jobType = OpType.Calibration
+            Me.BackgroundWorkerVECTO.RunWorkerAsync(New cAsyncJob(jobType))
 
             ok = True
         Finally
-            If Not ok Then Me.ButtonEval.Text = "Calibrate"
+            '' Re-enable "Exec" button on failures.
+            If Not ok Then CalibrationState = False
         End Try
     End Sub
 #End Region ' Calibration
 
 
-#Region "Coasting"
+#Region "Evaluation"
+    '####################################################################
+    '#### Only HERE manage "Exec" button's state (Text, Image, etc). ####
+    '####################################################################
+    Private _EvaluationState As Boolean = False
+    Private _EvaluationTxts = {"Evaluate", "Cancel"}
+    Private _EvaluationImgs = {My.Resources.Resources.Play_icon, My.Resources.Resources.Stop_icon}
+    Private Property EvaluationState As Boolean
+        Get
+            Return _EvaluationState
+        End Get
+        Set(ByVal value As Boolean)
+            If _EvaluationState Xor value Then
+                Dim indx = -CInt(value)
+                Me.ButtonEval.Text = _EvaluationTxts(indx)
+                Me.ButtonEval.Image = _EvaluationImgs(indx)
+                Me.ButtonEval.UseWaitCursor = value
+            End If
+            _EvaluationState = value
+        End Set
+    End Property
+
+
     ' 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
@@ -438,46 +484,47 @@ Public Class F_Main
     End Sub
 
     ' Evaluate button test run
-    Private Sub ButtonEvaluate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEval.Click
+    Private Sub EvaluationHandler(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
+            logme(8, False, "Cancel requested for background-operation...")
+
+            Return
         End If
 
         ' Read the data from the GUI
         UI_PopulateToJob(True)
         UI_PopulateToCriteria()
 
+        ' 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
+
+
         Dim ok = False
         Try
-            ' Change the Calculate button in a cancel button
-            Me.ButtonEval.Text = "Cancel"
-            Cali = False
+            ' Change the button "Exec" --> "Cancel" 
+            Me.EvaluationState = True
 
             fWriteLog(2, 4, "----- Speed runs ")
 
             ' Save the Jobfiles
             doSaveJob(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)
 
@@ -485,14 +532,16 @@ Public Class F_Main
             logme(7, False, format("Starting EVALUATION: \n\i* Job: {0}\n* Out: {1}", JobFile, OutFolder))
 
             ' Start the calculation in the backgroundworker
-            Me.BackgroundWorkerVECTO.RunWorkerAsync()
+            Dim jobType = OpType.Evaluation
+            Me.BackgroundWorkerVECTO.RunWorkerAsync(New cAsyncJob(jobType))
 
             ok = True
         Finally
-            If Not ok Then Me.ButtonEval.Text = "Evaluate"
+            '' Re-enable "Exec" button on failures.
+            If Not ok Then EvaluationState = False
         End Try
     End Sub
-#End Region ' Coasting
+#End Region ' Evaluation
 
 
 #Region "Tools menu"
@@ -616,20 +665,46 @@ Public Class F_Main
 #End Region 'Options tab
 
 
+#Region "AsynJob"
+
+    Private Enum OpType
+        Calibration
+        Evaluation
+    End Enum
+
+    ''' <summary>The Datum exchanged in the 3 AsyncWorked methods</summary>
+    Private Class cAsyncJob
+
+        Public ReadOnly Operation As OpType
+
+        Sub New(ByVal type As OpType)
+            Me.Operation = type
+        End Sub
+
+        Public ReadOnly Property IsCalibration As Boolean
+            Get
+                Return Me.Operation = OpType.Calibration
+            End Get
+        End Property
+
+    End Class
+
     '*********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
 
+        Dim asyncJob As cAsyncJob = e.Argument
+        '' Pass the async-job datum down the road.
+        e.Result = asyncJob
+
         '##### START THE CALCULATION #####
         '#################################
-        '' FIXME:  Stop abusing worker-Thread with Globals, use DoWorkEventArgsfor that instead!!
-        calculation(Cali)
-
+        calculation(asyncJob.IsCalibration)
         '#################################
 
-        ' Polling if the backgroundworker was canceled
+        ' Cancel if cancel requested...
         If Me.BackgroundWorkerVECTO.CancellationPending Then e.Cancel = True
 
     End Sub
@@ -647,32 +722,30 @@ Public Class F_Main
     ' 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)
+            logme(8, False, format("Backround operation ended with exception: {0}", e.Error.Message), e.Error)
+        ElseIf e.Cancelled Then
+            logme(7, False, "Backround operation  aborted by user.")
         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
+            logme(7, False, "Backround operation ended OK.")
+            Dim asyncJob As cAsyncJob = e.Result
+            If asyncJob.IsCalibration Then Me.ButtonEval.Enabled = True
         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
+
+        '' Re-enable all "Exec" buttons
+        CalibrationState = False
+        EvaluationState = False
+
+        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
+
+
     End Sub
+#End Region ' AsynJob
 
 #Region "UI populate"
 
@@ -681,11 +754,12 @@ Public Class F_Main
         ' 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
-
+        If UBound(Job.Anemometer) = 3 Then
+            Job.Anemometer(0) = TextBoxAirf.Text
+            Job.Anemometer(1) = TextBoxAird.Text
+            Job.Anemometer(2) = TextBoxbetaf.Text
+            Job.Anemometer(3) = TextBoxbetad.Text
+        End If
         ' Appropriate the inputfiles from calibration run
         Job.calib_run_fpath = TextBoxDataC.Text
         Job.calib_track_fpath = TextBoxMSCC.Text
@@ -871,6 +945,8 @@ Public Class F_Main
             TextBoxDataLS2.Clear()
 
             ButtonEval.Enabled = False
+            EvaluationState = False
+
 
             ' Option parameters to standard
             installJob(New cJob)
@@ -962,4 +1038,7 @@ Public Class F_Main
 
 #End Region
 
+    Private Sub ClearLogToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemClearLog.Click
+
+    End Sub
 End Class

CSE/GUI/F_Preferences.vb

@@ -34,7 +34,7 @@ Public Class F_Preferences
 
     Private Sub FormClosingHandler(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
         If Me.Dirty Then
-            Dim res = MsgBox("Save changes?", MsgBoxStyle.YesNoCancel, "Preferences Changed")
+            Dim res = MsgBox(format("Preferences have changed.\nSave changes?"), MsgBoxStyle.YesNoCancel, "Save Preferences?")
             Select Case res
                 Case MsgBoxResult.No
                 Case MsgBoxResult.Yes

CSE/IO/cJob.vb

@@ -261,7 +261,7 @@ Public Class cJob
 
 
     ' Function for reading the jobfile
-    Public Sub fReadOldJobFile()
+    Public Sub fReadOldJobFile(ByVal jobFile As String)
         ' Declarations
         Dim i As Integer
         Dim Line() As String
@@ -270,7 +270,7 @@ Public Class cJob
 
         Using FileInVECTO As New cFile_V3
             ' Open the jobfile
-            FileInVECTO.OpenReadWithEx(JobFile)
+            FileInVECTO.OpenReadWithEx(jobFile)
 
             ' Read the data from the jobfile
             vehicle_fpath = FileInVECTO.ReadLine(0)
@@ -393,7 +393,7 @@ Public Class cJob
                                 crt.tq_sum_1s_delta_HS = Line(0)
                         End Select
                     Else
-                        Throw New ArgumentException(format("The given value in the Job-file({0}) at position({1}) is not a number!", JobFile, i))
+                        Throw New ArgumentException(format("The given value in the Job-file({0}) at position({1}) is not a number!", jobFile, i))
                     End If
                 Loop
             Catch ex As Exception
@@ -402,7 +402,7 @@ Public Class cJob
 
             ' Look if enough parameters are given
             If i < 34 Then
-                Throw New ArgumentException(format("Premature ending of the Job-file({0})!", JobFile))
+                Throw New ArgumentException(format("Premature ending of the Job-file({0})!", jobFile))
             End If
 
 

CSE/My Project/Resources.Designer.vb

@@ -210,6 +210,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Play_icon() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Play-icon", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized resource of type System.Drawing.Bitmap.
         '''</summary>
@@ -250,6 +260,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Stop_icon() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Stop-icon", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized resource of type System.Drawing.Bitmap.
         '''</summary>

CSE/My Project/Resources.resx

@@ -133,6 +133,9 @@
   <data name="Icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Icon.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Refresh-icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Refresh-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Beenden" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Beenden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -151,6 +154,9 @@
   <data name="Neu" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Neu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Play-icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Play-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="VECTO_LOGO" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\VECTO_LOGO.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -181,7 +187,7 @@
   <data name="Öffnen" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\Öffnen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Refresh-icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\Resources\Refresh-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Stop-icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\Stop-icon1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>
\ No newline at end of file

CSE/utils.vb

@@ -261,37 +261,42 @@ Module utils
     Private Sub updateLogWindow(ByVal logFileLevel As Integer, ByVal text As String, ByVal tabLabel As String, ByVal ex As Exception)
         ' Established the text wit the symbol from the style
         Dim printEx = False
+        Dim lbox As ListBox
 
         If (ex IsNot Nothing) Then
             printEx = (logFileLevel > 1 AndAlso Prefs.logLevel <= 2)
             text = format("{0} (Check {1} for details)", text, IIf(printEx, "error/warn tab", "log-file"))
         End If
 
-        ' Write to Log-windows
-        Select Case logFileLevel
-            Case 2 ' Warning
-                F_Main.ListBoxMSG.Items.Add(text)
-                F_Main.ListBoxWar.Items.Add(text)
-                F_Main.TabPageWar.Text = format("Warnings({0})", F_Main.ListBoxWar.Items.Count)
-                If printEx Then
-                    F_Main.ListBoxWar.Items.Add(format("\i{0}", ex))
-                End If
-            Case 3 ' Error
-                F_Main.ListBoxErr.Items.Add(text)
-                If printEx Then
-                    F_Main.ListBoxErr.Items.Add(format("\i{0}", ex))
-                End If
-                F_Main.TabPageErr.Text = format("Errors({0})", F_Main.ListBoxErr.Items.Count)
-            Case Else
-                '' ignored
-        End Select
-        F_Main.ListBoxMSG.Items.Add(text)
-        F_Main.TabPageMSG.Text = format("Messages({0})", F_Main.ListBoxMSG.Items.Count)
-
+        ' Always write to log-msg tab.
+        ''
+        lbox = F_Main.ListBoxMSG
+        lbox.Items.Add(text)
+        F_Main.TabPageMSG.Text = format("Messages({0})", lbox.Items.Count)
         ' Set the Scrollbars in the Listboxes at the end
-        F_Main.ListBoxMSG.TopIndex = F_Main.ListBoxMSG.Items.Count - 1
-        F_Main.ListBoxWar.TopIndex = F_Main.ListBoxWar.Items.Count - 1
-        F_Main.ListBoxErr.TopIndex = F_Main.ListBoxErr.Items.Count - 1
+        lbox.TopIndex = lbox.Items.Count - 1
+
+        ''Write to other Log-windows.
+        ''
+        Dim label As String
+        If logFileLevel = 2 Then        ' Warning
+            lbox = F_Main.ListBoxWar
+            label = "Warnings"
+        ElseIf logFileLevel = 3 Then    ' Error
+            lbox = F_Main.ListBoxErr
+            label = "Errors"
+        Else
+            Return
+        End If
+
+        lbox.Items.Add(text)
+        If printEx Then
+            lbox.Items.Add(format("\i{0}", ex))
+        End If
+
+        lbox.TopIndex = lbox.Items.Count - 1
+        F_Main.TabPageWar.Text = format("Warnings({0})", lbox.Items.Count)
+
 
     End Sub
 
@@ -463,9 +468,7 @@ Module utils
         End Using
     End Sub
 
-    ''' <summary>
-    ''' Reads an obligatory value from a json-object, or uses the default-value (if supplied).
-    ''' </summary>
+    ''' <summary>Reads an obligatory value from a json-object, or uses the default-value (if supplied).</summary>
     Function jvalue(ByVal jobj As JObject, ByVal item As Object, Optional ByVal defaultValue As Object = Nothing) As Object
         Dim value = jobj(item)
 
@@ -550,10 +553,7 @@ Module utils
     Private regexp_newLine As New Regex("\r\n|\n\r|\n|\r", RegexOptions.Compiled)
 
 
-    '''<summary>
-    ''' Invokes String.Format() translating '\n', '\t' and '\i' for indenting by-2
-    '''   all subsequent lines.
-    '''</summary>
+    '''<summary>Invokes String.Format() translating '\n', '\t' and '\i' for indenting by-2 all subsequent lines</summary>
     ''' <remarks>
     ''' New-lines are visible only in textBoxes - not console and/or imediate-window.
     ''' <h4>EXAMPLE:</h4>