Emmanuele Sassi
59 lines
1.8 KiB
VB.net
59 lines
1.8 KiB
VB.net
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
|