Samuele E. Locatelli
56 lines
1.5 KiB
VB.net
56 lines
1.5 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
|
|
'CncLib.App.Runtime.Log.WI("TRY creating NC CNC.NC", "TypeNC=" & Config.Settings.Settings.TypeNC.ToString, CLog.Lev.Principal)
|
|
Dim ipFanuc As String
|
|
Dim portIpFanuc As String
|
|
Dim CncScreenHssb As String
|
|
|
|
' imposto IP e porta da chiamata
|
|
ipFanuc = ipTarget
|
|
'portIpFanuc = "8193"
|
|
portIpFanuc = ipPort
|
|
|
|
CncScreenHssb = "0"
|
|
NC = New FANUC(0, ipFanuc, portIpFanuc, CncScreenHssb)
|
|
|
|
Case NC_OSAI
|
|
'If Config.Settings.Settings.OsaiCommType = 1 Then 'SOAP
|
|
NC = New OSAI_OPEN(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 |