EVENT_CNT ++

This commit is contained in:
miggaze 2022-07-04 15:10:13 +07:00
parent c7f83b28e7
commit 18b6b03d90
2 changed files with 113 additions and 23 deletions

View file

@ -52,6 +52,8 @@
Var Seeker.CurrCreditTelNum = ""
Var Seeker.CurrCreditPinNum = ""
; On open
Var menu_back_to_main = "ROOT/taobin_project/xml/page_back_to_main.xml"
@ -470,8 +472,35 @@
Var show_lang = "THAI"
GetDateEndOfMonth SalaryDate
DEBUGVAR SalaryDate
;Var NETCORE_EVENT_CNT_TMP = 0
;DEBUGVAR NETCORE_EVENT_CNT_TMP
;DEBUGVAR NCIC07_EVENT_CNT
;
;If NCIC07_EVENT_CNT = NETCORE_EVENT_CNT_TMP Then
;
; Var NETCORE_EVENT_CNT_X = NETCORE_EVENT_CNT_X + 1
; If NETCORE_EVENT_CNT_X >= 3 Then
; Var stop_now = "true"
; Var MachineErrorDetailAll = "Netcore Lost"
; DEBUGVAR "NCIC07_EVENT_CNT"
; DEBUGVAR NCIC07_EVENT_CNT
; Open "ROOT/taobin_project/xml/page_show_error.xml"
; EndIf
;
;
;
;Else
;
; Var NETCORE_EVENT_CNT_TMP = NCIC07_EVENT_CNT
; Var NETCORE_EVENT_CNT_X = 0
;
;EndIf
Var NETCORE_EVENT_CNT_X = 0
Var NETCORE_EVENT_CNT_TMP = NCIC07_EVENT_CNT
</EventOpen>
@ -506,6 +535,29 @@
SAVELOG "NETCORE_LOST_CNT"
Open "ROOT/taobin_project/xml/page_show_error.xml"
EndIf
DEBUGVAR NETCORE_EVENT_CNT_X
If NCIC07_EVENT_CNT = NETCORE_EVENT_CNT_TMP Then
Var NETCORE_EVENT_CNT_X = NETCORE_EVENT_CNT_X + 1
If NETCORE_EVENT_CNT_X >= 5 Then
Var stop_now = "true"
Var MachineErrorDetailAll = "Netcore Lost"
DEBUGVAR "NCIC07_EVENT_CNT"
DEBUGVAR NCIC07_EVENT_CNT
Open "ROOT/taobin_project/xml/page_show_error.xml"
EndIf
Else
Var NETCORE_EVENT_CNT_X = 0
Var NETCORE_EVENT_CNT_TMP = NCIC07_EVENT_CNT
EndIf
EndIf
If MachineStage = "drink-failed" Then
@ -630,6 +682,20 @@
If Seeker = "curr" Then
If DoorCupPosition = "bottom" Then
; It normal
Var EmergencyStop = "false"
Else
Var EmergencyStop = "true"
;Open "ROOT/taobin_project/xml/page_show_error.xml"
EndIf
EndIf
Refresh
TimerReset

View file

@ -99,6 +99,16 @@
EndIf
EndIf
If NETCORE_EVENT_CNT_X >= 30 Then
Var NETCORE_EVENT_CNT_X = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
Else
Var DirImage = "ROOT/taobin_project/image/vending_error"
EndIf
EndIf
StopLongPlay
@ -154,6 +164,19 @@
If NETCORE_LOST_CNT > 0 Then
Else
DEBUGVAR NCIC07_EVENT_CNT
DEBUGVAR NETCORE_EVENT_CNT_TMP
If NCIC07_EVENT_CNT = NETCORE_EVENT_CNT_TMP Then
Else
If MachineStage = "" Then
Var LEDSet = "false"
Open "ROOT/taobin_project/xml/page_board.xml"
EndIf
If MachineStage = "show-menu" Then
Var LEDSet = "false"
@ -184,6 +207,7 @@
EndIf
EndIf
EndIf
EndIf
Var TimeOut = TimeOut + 1
If TimeOut > 12 Then