Carlo
50 lines
1.3 KiB
VB.net
50 lines
1.3 KiB
VB.net
Imports NGP_COMM_DLL
|
|
|
|
Public Class MachineManager
|
|
'
|
|
'
|
|
' !!!! TO DO : use a list of n machines, not just 2 !!!!
|
|
'
|
|
|
|
Private m_Machine1 As NC.NC_generic
|
|
Public ReadOnly Property Machine1 As NC.NC_generic
|
|
Get
|
|
Return m_Machine1
|
|
End Get
|
|
End Property
|
|
|
|
Private m_Machine2 As NC.NC_generic
|
|
Public ReadOnly Property Machine2 As NC.NC_generic
|
|
Get
|
|
Return m_Machine2
|
|
End Get
|
|
End Property
|
|
|
|
Sub New()
|
|
End Sub
|
|
|
|
Sub Init()
|
|
If GetMainPrivateProfileInt(S_NC, K_NC_SIMULATE, 0) = 1 Then
|
|
m_Machine1 = New NC.Simulated
|
|
m_Machine1.Connect("")
|
|
m_Machine2 = New NC.Simulated
|
|
m_Machine2.Connect("")
|
|
Else
|
|
m_Machine1 = New NC.OsaiOpen
|
|
m_Machine2 = New NC.OsaiOpen
|
|
Dim sM1IpAddress As String = ""
|
|
Dim sM2IpAddress As String = ""
|
|
GetMainPrivateProfileString(S_NC, K_IP_ADDRESS & 1.ToString(), "", sM1IpAddress)
|
|
GetMainPrivateProfileString(S_NC, K_IP_ADDRESS & 2.ToString(), "", sM2IpAddress)
|
|
m_Machine1.Connect(sM1IpAddress)
|
|
m_Machine2.Connect(sM2IpAddress)
|
|
End If
|
|
End Sub
|
|
|
|
Sub Close()
|
|
m_Machine1.Disconnect()
|
|
m_Machine2.Disconnect()
|
|
End Sub
|
|
|
|
End Class
|