Emmanuele Sassi
59 lines
1.7 KiB
VB.net
59 lines
1.7 KiB
VB.net
Module MachCommConst
|
|
|
|
Public Enum PVars As Integer
|
|
PROD = 0
|
|
MACHGROUP = 1
|
|
PART = 2
|
|
STATE = 3
|
|
End Enum
|
|
|
|
Public Enum ResultTypes
|
|
EXECUTED
|
|
RESULT
|
|
End Enum
|
|
|
|
Public Enum CommandTypes As Integer
|
|
ERROR_ = 0
|
|
CONNECT = 1
|
|
DISCONNECT = 2
|
|
START = 3
|
|
SOFTSTART = 4
|
|
STOP_ = 5
|
|
RESET = 6
|
|
STEP_ = 7
|
|
SETPOINT = 8
|
|
SENDPROG = 9
|
|
REMOVEPROG = 10
|
|
REMOVEALLPROG = 11
|
|
READ = 12
|
|
WRITE = 13
|
|
End Enum
|
|
|
|
Public Enum CommandStates As Integer
|
|
ERROR_ = 0
|
|
OK = 1
|
|
End Enum
|
|
|
|
' stati pezzo
|
|
Private Enum PartState As Integer
|
|
NULL = 0
|
|
START = 1
|
|
END_ = 2
|
|
End Enum
|
|
|
|
Public Delegate Sub ResultCallbackDlg(CommandType As CommandTypes, CommandState As CommandStates, ResultType As ResultTypes, Params As String)
|
|
Public Delegate Sub CloseCallbackDlg(ByRef bCancel As Boolean)
|
|
Public Delegate Sub UpdateCallbackDlg(Param As String, Params As String)
|
|
Public Delegate Sub AlarmCallbackDlg(ByVal AlarmOperation As Integer, ByVal AlarmType As Integer, ByVal AlarmMessage As String, ByVal AlarmCode As String, ByVal AlarmDateTime As String)
|
|
Public Delegate Sub AxisCoordinatesCallbackDlg(ByVal AxisValue As Double, ByVal AxisIndex As Integer)
|
|
Public Delegate Sub OpStateCallbackDlg(ByVal newOpState As ISOCNC.Remoting.MachineOperatingState)
|
|
|
|
Friend m_ResultCallbackDlg As ResultCallbackDlg
|
|
Friend m_CloseCallbackDlg As CloseCallbackDlg
|
|
Friend m_UpdateCallbackDlg As UpdateCallbackDlg
|
|
Friend m_AlarmCallbackDlg As AlarmCallbackDlg
|
|
Friend m_AxisCoordinatesCallbackDlg As AxisCoordinatesCallbackDlg
|
|
Friend m_OpStateCallbackDlg As OpStateCallbackDlg
|
|
|
|
End Module
|