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