Gestione attesa per scatto fotografia (EnableGoHome)

Constants/ConstMachIni.vb

@@ -186,6 +186,7 @@
    Public Const K_CAMERA_DIRECT_CMD As String = "CameraDirectCmd"
    Public Const K_CAMERA_STATE_VAR As String = "CameraStateVar"
    Public Const K_ENABELE_GOHOME_FOR_PHOTO As String = "EnableGoHomeForPhoto"
+   Public Const K_PENDIG_TIME_FOR_PHOTO As String = "PendigTimeForPhoto"
 
    Public Const S_TOOLS As String = "Tools"
    Public Const K_DRILLBIT As String = "Drillbit"

RawPhoto/Camera.vb

@@ -390,6 +390,8 @@ Public Class Camera
       ' Leggo nome variabile posizione home raggiunta
       Dim CameraStateNameVar As String = String.Empty
       GetPrivateProfileString(S_PHOTO, K_CAMERA_STATE_VAR, "", CameraStateNameVar, m_MainWindow.GetMachIniFile())
+      Dim nSteps As Integer = 20
+      nSteps = GetPrivateProfileInt(S_PHOTO, K_PENDIG_TIME_FOR_PHOTO, nSteps, m_MainWindow.GetMachIniFile())
       If String.IsNullOrEmpty(CameraStateNameVar) Then
          'Return False
       Else
@@ -403,7 +405,7 @@ Public Class Camera
       System.Threading.Thread.Sleep(300)
       ' Definisco flag posizionamento completato
       Dim bPositionOk As Boolean = False
-      For I As Integer = 0 To 40
+      For I As Integer = 0 To nSteps
          ' Devo rileggere la variabile ad ogni ciclo
          m_MainWindow.m_CNCommunication.m_CN.ReadEls_Add_Parameter(CameraStateNameVar, 3)
          System.Threading.Thread.Sleep(100)