Emmanuele Sassi
120 lines
4.0 KiB
VB.net
120 lines
4.0 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports ISOCNC.Remoting
|
|
|
|
Class CommunicationThread
|
|
|
|
|
|
|
|
' variabile che ferma il ciclo
|
|
Public Shared m_Stop As Boolean = False
|
|
|
|
' variabile in cui ci sono stati inizio e fine pezzo
|
|
Private Shared sP1VarName As String = "0.FUNM.E81295"
|
|
Private Shared sP2VarName As String = "0.FUNM.E81296"
|
|
Private Shared sP3VarName As String = "0.FUNM.E81297"
|
|
Private Shared sP4VarName As String = "0.FUNM.E81298"
|
|
Private Shared sResetVarName As String = "0.FUNM.E80048"
|
|
Private Shared m_nP1Var As Integer
|
|
Private Shared m_nP2Var As Integer
|
|
Private Shared m_nP3Var As Integer
|
|
Private Shared m_nP4Var As PartState
|
|
|
|
Public Shared Sub MachManagingThreadFunction(ResultCallbackDlg As ResultCallbackDlg, CloseCallbackDlg As CloseCallbackDlg, UpdateCallbackDlg As UpdateCallbackDlg,
|
|
AlarmCallbackDlg As AlarmCallbackDlg, AxisCoordinatesCallbackDlg As AxisCoordinatesCallbackDlg,
|
|
OpStateCallbackDlg As OpStateCallbackDlg)
|
|
' inizializzo callback
|
|
m_ResultCallbackDlg = ResultCallbackDlg
|
|
m_CloseCallbackDlg = CloseCallbackDlg
|
|
m_UpdateCallbackDlg = UpdateCallbackDlg
|
|
m_AlarmCallbackDlg = AlarmCallbackDlg
|
|
m_AxisCoordinatesCallbackDlg = AxisCoordinatesCallbackDlg
|
|
m_OpStateCallbackDlg = OpStateCallbackDlg
|
|
|
|
' creo classe di comunicazione
|
|
Dim m_MachManaging As MachManaging = New MachManaging()
|
|
|
|
End Sub
|
|
|
|
|
|
End Class
|
|
|
|
Class ThreadCommand
|
|
|
|
Private m_CommandType As CommandTypes
|
|
Public ReadOnly Property CommandType As CommandTypes
|
|
Get
|
|
Return m_CommandType
|
|
End Get
|
|
End Property
|
|
|
|
Private m_nVariables(5) As Integer
|
|
Public ReadOnly Property nVariable As Integer
|
|
Get
|
|
Return m_nVariables(0)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property nVariables As Integer()
|
|
Get
|
|
Return m_nVariables
|
|
End Get
|
|
End Property
|
|
Private m_dVariables(5) As Double
|
|
Public ReadOnly Property dVariable As Double
|
|
Get
|
|
Return m_dVariables(0)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property dVariables As Double()
|
|
Get
|
|
Return m_dVariables
|
|
End Get
|
|
End Property
|
|
Private m_sVariables(5) As String
|
|
Public ReadOnly Property sVariable As String
|
|
Get
|
|
Return m_sVariables(0)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property sVariables As String()
|
|
Get
|
|
Return m_sVariables
|
|
End Get
|
|
End Property
|
|
|
|
Protected Sub New()
|
|
End Sub
|
|
|
|
Public Shared Function CreateCommand(CommandType As CommandTypes) As ThreadCommand
|
|
Dim NewCommand As ThreadCommand = New ThreadCommand
|
|
NewCommand.m_CommandType = CommandType
|
|
Return NewCommand
|
|
End Function
|
|
Public Shared Function CreateCommand(CommandType As CommandTypes, Variable As Integer) As ThreadCommand
|
|
Dim NewCommand As ThreadCommand = New ThreadCommand
|
|
NewCommand.m_CommandType = CommandType
|
|
NewCommand.m_nVariables(0) = Variable
|
|
Return NewCommand
|
|
End Function
|
|
Public Shared Function CreateCommand(CommandType As CommandTypes, Variable As Double) As ThreadCommand
|
|
Dim NewCommand As ThreadCommand = New ThreadCommand
|
|
NewCommand.m_CommandType = CommandType
|
|
NewCommand.m_dVariables(0) = Variable
|
|
Return NewCommand
|
|
End Function
|
|
Public Shared Function CreateCommand(CommandType As CommandTypes, Variable As String) As ThreadCommand
|
|
Dim NewCommand As ThreadCommand = New ThreadCommand
|
|
NewCommand.m_CommandType = CommandType
|
|
NewCommand.m_sVariables(0) = Variable
|
|
Return NewCommand
|
|
End Function
|
|
Public Shared Function CreateCommand(CommandType As CommandTypes, nVariables() As Integer, dVariables() As Double, sVariables() As String) As ThreadCommand
|
|
Dim NewCommand As ThreadCommand = New ThreadCommand
|
|
NewCommand.m_CommandType = CommandType
|
|
NewCommand.m_nVariables = nVariables
|
|
NewCommand.m_dVariables = dVariables
|
|
NewCommand.m_sVariables = sVariables
|
|
Return NewCommand
|
|
End Function
|
|
|
|
End Class
|