diff --git a/VECTO/Configuration.vb b/VECTO/Configuration.vb index be269f4d783d13e10fa4f9033fb1a7a58f7609bb..8b6eac1d550401df2c4b4dfb34459035032d9b76 100644 --- a/VECTO/Configuration.vb +++ b/VECTO/Configuration.vb @@ -29,6 +29,7 @@ Public Class Configuration Public Co2PerFc As Double Public FirstRun As Boolean Public DeclMode As Boolean + Public Multithreaded As Boolean Public ValidateRunData As Boolean @@ -61,10 +62,14 @@ Public Class Configuration DeclMode = True ValidateRunData = True OutputFolder = "" + Multithreaded = True End Sub Public Sub Load() SetDefault() + If Environment.GetCommandLineArgs().Contains("-st") Then + Multithreaded = False + End If If Not File.Exists(FilePath) Then Exit Sub diff --git a/VECTO/GUI/MainForm.vb b/VECTO/GUI/MainForm.vb index d827cc5a895c2ad792fbc47c09d4409c3fde6cbf..33d7b72ee63ca36e21fedf2aa1e3ea59b8debac9 100644 --- a/VECTO/GUI/MainForm.vb +++ b/VECTO/GUI/MainForm.vb @@ -1095,7 +1095,7 @@ lbFound: $"Starting Simulation ({JobFileList.Count} Jobs, {jobContainer.GetProgress().Count _ } Runs)"}) - jobContainer.Execute(True) + jobContainer.Execute(Cfg.Multithreaded) Dim start As DateTime = DateTime.Now() diff --git a/VECTO/My Project/launchSettings.json b/VECTO/My Project/launchSettings.json new file mode 100644 index 0000000000000000000000000000000000000000..87b7d25d68ceacec8328b515d06cab8ac3511c78 --- /dev/null +++ b/VECTO/My Project/launchSettings.json @@ -0,0 +1,11 @@ +{ + "profiles": { + "VECTO": { + "commandName": "Project" + }, + "VECTO_singlethreaded": { + "commandName": "Project", + "commandLineArgs": "-st" + } + } +} \ No newline at end of file