Egalware/EgtCOMMTest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Num funzionante

Browse Source
This commit is contained in:
Emmanuele Sassi
2021-11-03 18:51:05 +01:00
parent 95d5baebc9
commit fa0bdaba59
14 changed files with 1488 additions and 417 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MachCommandMessagePanel/MachCommandMessagePanelVM.vb
+7 -13
View File
@@ -230,11 +230,11 @@ Public Class MachCommandMessagePanelVM
Private Sub Init()
' inizializzo valori assi leggendoli da variabili
MachManaging.CommandList.Add(ThreadCommand.CreateCommand(CommandTypes.READ, ASSE_X))
MachManaging.CommandList.Add(ThreadCommand.CreateCommand(CommandTypes.READ, ASSE_Y))
MachManaging.CommandList.Add(ThreadCommand.CreateCommand(CommandTypes.READ, ASSE_Z))
MachManaging.CommandList.Add(ThreadCommand.CreateCommand(CommandTypes.READ, ASSE_B))
MachManaging.CommandList.Add(ThreadCommand.CreateCommand(CommandTypes.READ, ASSE_C))
'MachManaging.CommandList.Add(ThreadCommand.CreateCommand(CommandTypes.READ_TPA, ASSE_X))
'MachManaging.CommandList.Add(ThreadCommand.CreateCommand(CommandTypes.READ_TPA, ASSE_Y))
'MachManaging.CommandList.Add(ThreadCommand.CreateCommand(CommandTypes.READ_TPA, ASSE_Z))
'MachManaging.CommandList.Add(ThreadCommand.CreateCommand(CommandTypes.READ_TPA, ASSE_B))
'MachManaging.CommandList.Add(ThreadCommand.CreateCommand(CommandTypes.READ_TPA, ASSE_C))
End Sub
Public ReadOnly Property Disconnect_Command As ICommand
@@ -248,10 +248,6 @@ Public Class MachCommandMessagePanelVM
MachManaging.CommandList.Add(ThreadCommand.CreateCommand(CommandTypes.DISCONNECT))
End Sub
Public Sub SetOPState(OpState As Integer)
MachManaging.CommandList.Add(ThreadCommand.CreateCommand(CommandTypes.SETOP))
End Sub
Public ReadOnly Property Start_Command As ICommand
Get
If m_cmdStart Is Nothing Then m_cmdStart = New Command(AddressOf Start)
@@ -426,10 +422,8 @@ Public Class MachCommandMessagePanelVM
Map.refAxesPanelVM.AxisCoordinatesCallbackDlg(AxisValue, AxisIndex)
End Sub
Friend Sub OpStateCallbackDlg(newOpState As MachineOperatingState)
If newOpState <> MachineOperatingState.Unspecified Then
Map.refMainWindowVM.SetOPState(newOpState)
End If
Friend Sub OpStateCallbackDlg(newOpState As Integer)
Map.refMainWindowVM.SetOPState(Map.refMainWindowVM.OPStateList.FirstOrDefault(Function(x) x.Id = newOpState))
' Map.refLeftPanelVM.NotifyPropertyChanged(NameOf(Map.refLeftPanelVM.sOPState))
'DbControllers.m_LogMachineController.Create(MachLog.CreateOPStateLog(newOpState))
End Sub