Egalware/CMS-MTConn
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

completata pulizia codice siemens (compila!!!)

Browse Source
This commit is contained in:
Samuele E. Locatelli
2017-05-11 12:32:54 +02:00
parent 9b3d1e1e7f
commit 74a92b62e5
1 changed files with 46 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MTC_Adapter/CMSCncLib/CNC/CNC.SIEMENS/CNC.SIEMENS.vb
+46 -123
View File
@@ -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
''' <summary>
''' Legge le memorie di configurazione dal cn
''' </summary>
@@ -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