Imports System.Collections.ObjectModel Imports ISOCNC.Remoting Public Class MachCommandPanelVM Private m_AxisList As ObservableCollection(Of Axis) Public ReadOnly Property AxisList As ObservableCollection(Of Axis) Get Return m_AxisList End Get End Property Private m_OPState As MachineOperatingState 'Public ReadOnly Property OPState As MachineOperatingState ' Get ' Return m_OPState ' End Get 'End Property 'Public ReadOnly Property sOPState As String ' Get ' Select Case m_OPState ' Case MachineOperatingState.Start ' Return "START" ' Case MachineOperatingState.Stop ' Return "STOP" ' Case MachineOperatingState.End ' Return "RESET" ' Case MachineOperatingState.SetPoint ' Return "SETPOINT" ' Case MachineOperatingState.Pending ' Return "PENDING" ' Case Else ' Return "UNSPECIFIED" ' End Select ' End Get 'End Property Public Sub New() Map.SetRefMachCommandMessagePanelVM(Me) '' impostazioni timer degli allarmi 'm_AlarmTimer.Interval = TimeSpan.FromMilliseconds(1500) 'AddHandler m_AlarmTimer.Tick, AddressOf AlarmTimer_Tick '' impostazione assi (leggerli da conf macchina) 'm_AxisList = New ObservableCollection(Of Axis)({New Axis(ASSE_X), ' New Axis(ASSE_Y), ' New Axis(ASSE_Z), ' New Axis(ASSE_C), ' New Axis(ASSE_B)}) '' connetto stampante etichette 'LabelPrinter.ConnectPrinter() 'NotifyPropertyChanged(NameOf(Connect_Background)) End Sub End Class