Samuele E. Locatelli
57 lines
1.3 KiB
VB.net
57 lines
1.3 KiB
VB.net
Namespace CNC
|
|
|
|
Public Class Runtime
|
|
Public Shared NC As CncLib.CNC.CNC
|
|
|
|
|
|
Public Shared Sub CreateNC(tipoNC As CNC.NcType, ipTarget As String, ipPort As String)
|
|
'************ Istanzio l'oggetto NC *****************
|
|
Try
|
|
|
|
Select Case tipoNC
|
|
|
|
Case NC_FANUC
|
|
Dim ipFanuc As String
|
|
Dim portIpFanuc As String
|
|
Dim CncScreenHssb As String
|
|
|
|
' imposto IP e porta da chiamata
|
|
ipFanuc = ipTarget
|
|
portIpFanuc = ipPort
|
|
|
|
CncScreenHssb = "0"
|
|
NC = New FANUC(0, ipFanuc, portIpFanuc, CncScreenHssb)
|
|
|
|
'Case NC_OSAI_OPEN
|
|
' NC = New OSAI_OPEN(ipTarget)
|
|
|
|
|
|
'Case NC_OSAI_CNDEX
|
|
' NC = New OSAI(ipTarget)
|
|
|
|
Case NC_SIEMENS
|
|
'Try
|
|
' NC = New SIEMENS
|
|
'Catch ex As NcException
|
|
' Dim exStr As String
|
|
' exStr = ex.Message
|
|
' 'NC.frmMain_ref.ExitApp()
|
|
' 'frmMain.ExitApp()
|
|
' 'End
|
|
'End Try
|
|
End Select
|
|
|
|
'CncLib.App.Runtime.Log.WI("OK crating NC CNC.NC", , CLog.Lev.Principal)
|
|
Catch ex As Exception
|
|
Dim exStr As String
|
|
exStr = ex.Message
|
|
'CncLib.App.Runtime.Log.WE("ERR crating NC CNC.NC", ex.Message, True)
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
End Class
|
|
|
|
End Namespace |