Egalware/effector.main
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- aggiunto log su fallimento lettura variabili da macchina

Browse Source
This commit is contained in:
Emmanuele Sassi
2024-11-19 16:14:39 +01:00
parent d36077c04f
commit 2c4d43387d
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Effector.Main/LUA/Lua_General.vb
+3
View File
@@ -370,6 +370,7 @@ Public Module Lua_General
state.PushInteger(nResult)
Return 1
Else
EgtOutLog("Error reading variable " & nVarAddr & " on machine " & nMachine & ": " & Machine.ErrMsg)
Return 0
End If
End Function
@@ -389,6 +390,7 @@ Public Module Lua_General
state.PushBoolean(bResult)
Return 1
Else
EgtOutLog("Error reading variable " & nVarAddr & " on machine " & nMachine & ": " & Machine.ErrMsg)
Return 0
End If
End Function
@@ -406,6 +408,7 @@ Public Module Lua_General
state.PushNumber(dResult)
Return 1
Else
EgtOutLog("Error reading variable " & nVarAddr & " on machine " & nMachine & ": " & Machine.ErrMsg)
Return 0
End If
End Function
Effector.Main/MEFPlugin/SupervisorFunctions.vb
+3
View File
@@ -46,6 +46,7 @@ Public Class SupervisorFunctions
If Map.refMainWindowVM.MachineManager.MachineList.Count >= nMachine AndAlso Not IsNothing(Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1)) Then
Return Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1).ReadShortVar(nVarAddr, nResult)
Else
EgtOutLog("Error reading variable " & nVarAddr & " on machine " & nMachine & ": " & Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1).ErrMsg)
Return False
End If
End Function
@@ -54,6 +55,7 @@ Public Class SupervisorFunctions
If Map.refMainWindowVM.MachineManager.MachineList.Count >= nMachine AndAlso Not IsNothing(Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1)) Then
Return Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1).ReadBitVar(nVarAddr, nBit, bResult)
Else
EgtOutLog("Error reading variable " & nVarAddr & " on machine " & nMachine & ": " & Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1).ErrMsg)
Return False
End If
End Function
@@ -62,6 +64,7 @@ Public Class SupervisorFunctions
If Map.refMainWindowVM.MachineManager.MachineList.Count >= nMachine AndAlso Not IsNothing(Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1)) Then
Return Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1).ReadDoubleVar(nVarAddr, dResult)
Else
EgtOutLog("Error reading variable " & nVarAddr & " on machine " & nMachine & ": " & Map.refMainWindowVM.MachineManager.MachineList(nMachine - 1).ErrMsg)
Return False
End If
End Function