Namespace CNC

  Public Class Runtime
    Public Shared NC As EgwProxy.MultiCncLib.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

        'EgwProxy.MultiCncLib.App.Runtime.Log.WI("OK  crating NC  CNC.NC", , CLog.Lev.Principal)
      Catch ex As Exception
        Dim exStr As String
        exStr = ex.Message
        'EgwProxy.MultiCncLib.App.Runtime.Log.WE("ERR crating NC  CNC.NC", ex.Message, True)
      End Try


    End Sub


  End Class

End Namespace