messi metodi status/mode x OSAI in test

2018-11-20 18:00:24 +01:00
parent c56dca9c86
commit aad2c8fb22
2 changed files with 9 additions and 2 deletions
@@ -93,9 +93,16 @@ Module M_state_machine
    Dim ncInfo As CndexLinkDotNet.Cndex.GETINFO1DATA
    ncInfo = Nothing

-    CnOsai.NcInfo1(ncInfo)

-    FrmMain.LblMachState.Text = ncInfo.status.ToString()
+    Dim machineStatus As Byte
+    Dim modeSelected As Byte
+
+    machineStatus = CnOsai.GetMachineStatus()
+    modeSelected = CnOsai.GetModeSelected()
+
+    'CnOsai.NcInfo1(ncInfo)
+
+    FrmMain.LblMachState.Text = machineStatus.ToString() + " / " + modeSelected.ToString()

    '' wait for state 0 or 1 at beginning