Samuele E. Locatelli
35 lines
1.0 KiB
VB.net
35 lines
1.0 KiB
VB.net
Imports CMSCncLib.App.Runtime
|
|
Imports CMSCncLib.CNC
|
|
Imports CMSCncLib.Tools
|
|
|
|
Namespace CNC
|
|
|
|
Public Class Runtime
|
|
Public Shared NC As CMSCncLib.CNC.CNC
|
|
|
|
Public Shared Sub CreateNC()
|
|
|
|
'************ Istanzio l'oggetto NC *****************
|
|
Try
|
|
'CMSCncLib.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
|
|
|
|
ipFanuc = "192.168.211.5"
|
|
portIpFanuc = "8193"
|
|
CncScreenHssb = "0"
|
|
NC = New FANUC(0, ipFanuc, portIpFanuc, CncScreenHssb)
|
|
|
|
'CMSCncLib.App.Runtime.Log.WI("OK crating NC CNC.NC", , CLog.Lev.Principal)
|
|
Catch ex As Exception
|
|
'CMSCncLib.App.Runtime.Log.WE("ERR crating NC CNC.NC", ex.Message, True)
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
End Class
|
|
|
|
End Namespace |