OmagCUT 1.6r2 :

- modifiche a comunicazione con Siemens
- modifiche per impostare forzatamente fase di lavorazione iniziale ( 1).

CNCommunication.vb

@@ -58,7 +58,7 @@ Public Class CNCommunication
       Else
          m_nNCType = GetPrivateProfileInt(S_NUMERICALCONTROL, K_TYPE, 0, m_MainWindow.GetMachIniFile())
       End If
-      EgtOutLog(m_MainWindow.m_bNCLink.ToString & m_nNCType)
+      EgtOutLog("NcLink=" & m_MainWindow.m_bNCLink.ToString & " type=" & m_nNCType)
 
       ' Se CNSiemens leggo path programmino di comunicazione
       If m_nNCType = 3 Then
@@ -154,7 +154,6 @@ Public Class CNCommunication
                m_CN = New Num.NumNC
             Case 3
                m_CN = New CN_Siemens
-               EgtOutLog("Classe siemens creata")
          End Select
          ' Recupero e imposto le variabili per i dati del CN (feed, speed,...)
          Dim sVal As String = String.Empty
@@ -212,7 +211,6 @@ Public Class CNCommunication
                m_MachineStatus.MachineStatusGrid.Background = Application.Current.FindResource("OmagCut_DarkGray")
                'Avvio programmino di comunicazione
                Process.Start(m_sCNSiemensHMIPath, "-start """ & m_sCNSiemensPath & """")
-               EgtOutLog("programmino avviato")
             End If
       End Select
 

MainWindow.xaml.vb

@@ -815,10 +815,8 @@ Class MainWindow
 
    Private Sub MainWindow_ContentRendered(sender As Object, e As EventArgs) Handles Me.ContentRendered
       ' Verifico presenza del collegamento al CN
-      EgtOutLog("mainwindow")
       m_bNCLink = (GetPrivateProfileInt(S_GENERAL, K_CNLINK, 0, m_sIniFile) <> 0)
       m_CNCommunication.CNCommunication_Initialization()
-      EgtOutLog("CnPartito")
    End Sub
 
    Private Sub EgtWPFInit()

My Project/AssemblyInfo.vb

@@ -60,5 +60,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.6.18.1")> 
-<Assembly: AssemblyFileVersion("1.6.18.1")> 
+<Assembly: AssemblyVersion("1.6.18.2")> 
+<Assembly: AssemblyFileVersion("1.6.18.2")> 

SimulationPageUC.xaml.vb

@@ -30,7 +30,7 @@ Public Class SimulationPageUC
       Dim sVal As String = DoubleToString(SpeedSlider.Value, 1)
       WritePrivateProfileString(S_SIMUL, K_SLIDERVAL, sVal, m_MainWindow.GetIniFile())
       ' Torno alla prima fase
-      EgtSetCurrPhase(1)
+      EgtSetCurrPhase(1, True)
       ' Ripristino visibilità standard
       EgtSetMachineLook(MCH_LOOK.TAB)
    End Sub
@@ -165,7 +165,7 @@ Public Class SimulationPageUC
          ' Vado in home
          EgtSimHome()
          ' Imposto prima fase
-         EgtSetCurrPhase(1)
+         EgtSetCurrPhase(1, True)
          ' Aggiorno visualizzazione
          EgtDraw()
          ' Aggiorno dati CNC

WorkInProgressPageUC.xaml.vb

@@ -162,7 +162,7 @@ Public Class WorkInProgressPageUC
       If m_MainWindow.m_CNCommunication.m_CN.n_DReadELS_handle = 1 Then
          nCurrPhase = m_MainWindow.m_CNCommunication.m_CN.d_DReadELS_value
       End If
-      EgtSetCurrPhase(nCurrPhase)
+      EgtSetCurrPhase(nCurrPhase, True)
       EgtDraw()
       ' Ciclo
       While m_bContinue