From fa283cf17e72ab8d5da34752d415d6d77fd462ad Mon Sep 17 00:00:00 2001 From: DarioS Date: Fri, 3 Sep 2021 19:30:17 +0200 Subject: [PATCH] =?UTF-8?q?EgtBEAMWALL=20:=20-=20corretto=20CORE=20per=20l?= =?UTF-8?q?ancio=20pi=C3=B9=20EgtCAM5=20in=20parallelo=20che=20dava=20cras?= =?UTF-8?q?h=20(ora=20CORE=20v.2.9i1).?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- EgtBEAMWALL.Core/Integration/CalcIntegration.vb | 2 ++ EgtBEAMWALL.Core/My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/EgtBEAMWALL.Core/Integration/CalcIntegration.vb b/EgtBEAMWALL.Core/Integration/CalcIntegration.vb index 5db735ba..c3914ef0 100644 --- a/EgtBEAMWALL.Core/Integration/CalcIntegration.vb +++ b/EgtBEAMWALL.Core/Integration/CalcIntegration.vb @@ -75,6 +75,8 @@ Public Module CalcIntegration ' Numero di core logici da utilizzare (minimo tra presenti sul PC e imposti da INI) Dim nMaxThread As Integer = Math.Min(Environment.ProcessorCount, m_MaxCamInstances) + Array.Resize(Of Bar)( vBar, numBars + nMaxThread - 1) + ' Frazione di avanzamento del lavoro (in piu) Dim dProgress As Double = 0 'indice incremento progress durante calcolo barra diff --git a/EgtBEAMWALL.Core/My Project/AssemblyInfo.vb b/EgtBEAMWALL.Core/My Project/AssemblyInfo.vb index 3ad0b6b0..f0b70e32 100644 --- a/EgtBEAMWALL.Core/My Project/AssemblyInfo.vb +++ b/EgtBEAMWALL.Core/My Project/AssemblyInfo.vb @@ -35,5 +35,5 @@ Imports System.Runtime.InteropServices ' by using the '*' as shown below: ' - - + +