diff --git a/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb b/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb index bb1337d..db2d2bb 100644 --- a/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb +++ b/MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb @@ -47,31 +47,30 @@ Namespace CNC MyBase.New() _Type = NcType.SIEMENS - 'verifico di aver prima avviato la Sinumerik HMI - If FindProcess("slsmhmihost") Is Nothing Then - MessageBox.Show("Sinumerik HMI process not found!" & vbNewLine & _ - "Run Sinumerik HMI before starting CMS Control.", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Stop) - Throw New CmsNcException("ERR Sinumerik HMI process not found CNC.SIEMENS") - End If + ' commentato in blocco: c aspettiamo che il CmsControl, che lancia l'adapter, si occupi della verifica dell'HMI siemens + ''verifico di aver prima avviato la Sinumerik HMI + 'If FindProcess("slsmhmihost") Is Nothing Then + ' 'MessageBox.Show("Sinumerik HMI process not found!" & vbNewLine & _ + ' ' "Run Sinumerik HMI before starting CMS Control.", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Stop) + ' Throw New CmsNcException("ERR Sinumerik HMI process not found CNC.SIEMENS") + 'End If + Try m_DataSvcRW = New DataSvc Catch ex As System.IO.FileNotFoundException ' intercetta l'exception se non lanciato sopra l'hmi - MessageBox.Show("CMS Control must be run over Sinumerik Operate!" & vbNewLine & _ - "Run CMS Control through shortcut.", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Stop) + 'MessageBox.Show("CMS Control must be run over Sinumerik Operate!" & vbNewLine & _ + '"Run CMS Control through shortcut.", My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Stop) Throw New CmsNcException("ERR CMS Control must be run over Sinumerik Operate CNC.SIEMENS") End Try - 'Definisco l'area della Cnc Window - SetCncWindowSize() - End Sub Public Overrides Sub Connect(Optional ByRef szStatus As String = "") Try 'se non ho eccezioni dichiaro connessione avvenuta _bConnected = True - Log.WI("OK Connect CNC.SIEMENS", "Connected=" & _bConnected, CLog.Lev.Secondary) + 'Log.WI("OK Connect CNC.SIEMENS", "Connected=" & _bConnected, CLog.Lev.Secondary) Catch ex As Exception Throw New CmsNcException("ERR Connect CNC.SIEMENS", ex) End Try @@ -82,88 +81,12 @@ Namespace CNC Try 'dichiaro disconnessione avvenuta _bConnected = False - Log.WI("OK Disconnect CNC.SIEMENS", "Connected=" & _bConnected, CLog.Lev.Secondary) + 'Log.WI("OK Disconnect CNC.SIEMENS", "Connected=" & _bConnected, CLog.Lev.Secondary) Catch ex As Exception Throw New CmsNcException("ERR Disconnect CNC.SIEMENS", ex) End Try End Sub - Public Overrides Sub CncException(Optional ByRef szStatus As String = "") - 'Con la Sinumerik Operate solutionline non si riesce a riprendere la connessione una volta caduta - Debug.Print("CC: CNC.SIEMENS DataSvcException: " & szStatus) - '' Dim ret = MessageBox.Show("DataSvcException" & vbLf & szStatus & vbLf & vbLf & "CMSControl will be close", "Cnc Exception", MessageBoxButtons.OK, MessageBoxIcon.Error) - frmMain_ref.ExitApp() - End - End Sub - - Public Overrides Function SetCncWindowSize() As Boolean - Dim CncWindowSizeNew As Size - - 'leggo la risoluzione della Cnc Window - Try - Dim res As New ScreenResolution() - res = Infrastructure.CurrentResolution - CncWindowSizeNew = New System.Drawing.Size(res.X, res.Y) - If _CncWindowSize <> CncWindowSizeNew Then - _CncWindowSize = CncWindowSizeNew - Return True - Else - Return False - End If - Catch ex As InfrastructureException - Throw New CmsNcException(ex.Message) - End Try - End Function - - Public Overrides Function FindCncWindow() As Boolean - _CncWindowProcess = FindProcess("slsmhmihost") - Return _CncWindowProcess IsNot Nothing - End Function - - Public Overrides Function CncIsIconic() As Boolean - If _CncWindowProcess IsNot Nothing Then - Return ProcessIsIconic(_CncWindowProcess.MainWindowHandle) - End If - End Function - - Public Overrides Function CncIsZoomed() As Boolean - If _CncWindowProcess IsNot Nothing Then - Return ProcessIsZoomed(_CncWindowProcess.MainWindowHandle) - End If - End Function - - Public Overrides Sub MinimizeCnc() - MinimizeWindow("slsmhmihost") - End Sub - - Public Overrides Sub NormalizeCnc() - SetWindowIcon("slsmhmihost", My.Resources.SinumerikHmi.Handle) - - SetWindowTitle("slsmhmihost", "Sinumerik HMI") - ShowNormalWindow("slsmhmihost") - MoveWindow("slsmhmihost", _CncWindowPosition, "Sinumerik HMI") - - HideWindow("run_hmi") - HideWindow("slsmsystemmanager") - End Sub - - Public Overrides Sub SetCncFocus() - SetWindowFocus("slsmhmihost") - End Sub - - Public Overrides Sub MoveCnc() - MoveWindow("slsmhmihost", CncWindowPosition) - End Sub - - Public Overrides Function GetCncWindowId() As Long - _CncWindowProcess = FindProcess("slsmhmihost") - If _CncWindowProcess IsNot Nothing Then - Return _CncWindowProcess.Id - Else - Return -1 - End If - End Function - ''' ''' Legge le memorie di configurazione dal cn ''' @@ -275,7 +198,7 @@ Namespace CNC End Try Loop Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Write on S_RW_Boolean CNC.SIEMENS", ex.Message, True) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Boolean CNC.SIEMENS", ex.Message, True) Return False End Try @@ -292,7 +215,7 @@ Namespace CNC Loop Value = itemRW.Value Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Read on S_RW_Boolean CNC.SIEMENS", ex.Message, True) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Boolean CNC.SIEMENS", ex.Message, True) Return False End Try End If @@ -357,9 +280,9 @@ Namespace CNC End If Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Write on S_RW_Boolean CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Boolean CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Write on S_RW_Boolean CNC.SIEMENS", ex.Message, True) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Boolean CNC.SIEMENS", ex.Message, True) Return False End Try @@ -392,9 +315,9 @@ Namespace CNC End If Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Read on S_RW_Boolean CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Boolean CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Read on S_RW_Boolean CNC.SIEMENS", ex.Message, True) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Boolean CNC.SIEMENS", ex.Message, True) Return False End Try End If @@ -447,9 +370,9 @@ Namespace CNC End Try Loop Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Write on S_RW_Byte CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Byte CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Write on S_RW_Byte CNC.SIEMENS", ex.Message, True) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Byte CNC.SIEMENS", ex.Message, True) Return False End Try @@ -473,9 +396,9 @@ Namespace CNC Next i End If Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Read on S_RW_Byte CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Byte CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Read on S_RW_Byte CNC.SIEMENS", ex.Message) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Byte CNC.SIEMENS", ex.Message) Return False End Try End If @@ -528,9 +451,9 @@ Namespace CNC Loop Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Write on S_RW_Word CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Word CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Write on S_RW_Word CNC.SIEMENS", ex.Message) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Word CNC.SIEMENS", ex.Message) Return False End Try @@ -555,9 +478,9 @@ Namespace CNC End If Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Read on S_RW_Word CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Word CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Read on S_RW_Word CNC.SIEMENS", ex.Message, True) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Word CNC.SIEMENS", ex.Message, True) Return False End Try End If @@ -610,9 +533,9 @@ Namespace CNC Loop Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Write on S_RW_Word CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Word CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Write on S_RW_Word CNC.SIEMENS", ex.Message) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Word CNC.SIEMENS", ex.Message) Return False End Try @@ -637,9 +560,9 @@ Namespace CNC End If Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Read on S_RW_Short CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Short CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Read on S_RW_Short CNC.SIEMENS", ex.Message, True) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Short CNC.SIEMENS", ex.Message, True) Return False End Try End If @@ -695,9 +618,9 @@ Namespace CNC Loop Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Write on S_RW_DWord CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_DWord CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Write on S_RW_DWord CNC.SIEMENS", ex.Message) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_DWord CNC.SIEMENS", ex.Message) Return False End Try @@ -722,9 +645,9 @@ Namespace CNC End If Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Read on S_RW_DWord CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_DWord CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Read on S_RW_DWord CNC.SIEMENS", ex.Message, True) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_DWord CNC.SIEMENS", ex.Message, True) Return False End Try End If @@ -776,9 +699,9 @@ Namespace CNC Loop Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Write on S_RW_Integer CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Integer CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Write on S_RW_Integer CNC.SIEMENS", ex.Message) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Integer CNC.SIEMENS", ex.Message) Return False End Try @@ -803,9 +726,9 @@ Namespace CNC End If Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Read on S_RW_Integer CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Integer CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Read on S_RW_Integer CNC.SIEMENS", ex.Message, True) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Integer CNC.SIEMENS", ex.Message, True) Return False End Try End If @@ -859,9 +782,9 @@ Namespace CNC Loop Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Write on S_RW_Real CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Real CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Write on S_RW_Real CNC.SIEMENS", ex.Message) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_Real CNC.SIEMENS", ex.Message) Return False End Try @@ -886,9 +809,9 @@ Namespace CNC End If Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Read on S_RW_Real CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Real CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Read on S_RW_Real CNC.SIEMENS", ex.Message, True) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_Real CNC.SIEMENS", ex.Message, True) Return False End Try End If @@ -926,9 +849,9 @@ Namespace CNC Loop Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Write on S_RW_R_LReal CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_R_LReal CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Write on S_RW_R_LReal CNC.SIEMENS", ex.Message) + 'Log.WW("ERR m_DataSvcRW.Write on S_RW_R_LReal CNC.SIEMENS", ex.Message) Return False End Try @@ -947,9 +870,9 @@ Namespace CNC Value = itemRW.Value Catch ex As DataSvcException - Log.WW("ERR m_DataSvcRW.Read on S_RW_R_LReal CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_R_LReal CNC.SIEMENS DataSvcException", ex.Message & vbNewLine & ex.StackTrace) Catch ex As Exception - Log.WW("ERR m_DataSvcRW.Read on S_RW_R_LReal CNC.SIEMENS", ex.Message, True) + 'Log.WW("ERR m_DataSvcRW.Read on S_RW_R_LReal CNC.SIEMENS", ex.Message, True) Return False End Try End If