0 608 "Enable" 1080 1312 "0xEAE6E1" SoundVolume
Var countClick = 0
Var countClick2 = 0
DEBUGVAR MachineStage
DEBUGVAR stop_now
Var show_error_normal = "Invisible"
Var show_error_sp1 = "Enable"
;If EmergencyStop = "true" Then
; Var stop_now = "true"
; 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
If MachineStage = "mcu-upgrade" Then
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
If NeedUpgrade = "true" Then
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
DEBUGVAR stop_now
DEBUGVAR MachineStage
If MachineStage = "close-maintenance" Then
If stop_now = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
Else
Var DirImage = "ROOT/taobin_project/image/vending_error"
EndIf
Else
Var show_error_normal = "Enable"
Var show_error_sp1 = "Invisible"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/close_en/"
Else
Var DirImage = "ROOT/taobin_project/image/close_th"
EndIf
EndIf
EndIf
DEBUGVAR DirImage
If MachineStage = "drink-failed" Then
If stop_now = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_en/"
Else
Var DirImage = "ROOT/taobin_project/image/vending_error"
EndIf
Else
Var show_error_normal = "Enable"
Var show_error_sp1 = "Invisible"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/close_en/"
Else
Var DirImage = "ROOT/taobin_project/image/close_th"
EndIf
EndIf
EndIf
If NETCORE_LOST_CNT > 0 Then
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
If LEDSet = "true" Then
Else
LED LedDoorCup On 255 0 0 255
LED LedDoorLid Off 255 255 255 255
EndIf
Var MaintenanceCard = 20
Random MaintenanceCard
Var index = 1 + MaintenanceCard
If show_eng = "true" Then
Var RandomImage = "ROOT/taobin_project/image/close_en/Frame" + index
Var RandomImage = RandomImage + ".png"
Else
Var RandomImage = "ROOT/taobin_project/image/close_en/Frame" + index
Var RandomImage = RandomImage + ".png"
EndIf
DEBUGVAR Seeker
DEBUGVAR DoorCupPosition
DEBUGVAR DoorLidPosition
DEBUGVAR EmergencyStop
Var TimeOut = 0
5000
DEBUGVAR EmergencyStop
DEBUGVAR NETCORE_LOST_CNT
DEBUGVAR DoorCupPosition
DEBUGVAR MachineStage
Var EmergencyStop = "-"
If EmergencyStop = "true" Then
If DoorCupPosition = "bottom" Then
; It normal
Var EmergencyStop = "false"
Else
Var MachineErrorDetailAll = "Emergency stop!"
EndIf
Else
Var MachineErrorDetailAll = MachineErrorDetail + " / "
Var MachineErrorDetailAll = MachineErrorDetailAll + MachineErrorDetailEng
DEBUGVAR MachineStage
If NETCORE_LOST_CNT > 0 Then
Else
If MachineStage = "show-menu" Then
Var LEDSet = "false"
Open "ROOT/taobin_project/xml/page_board.xml"
EndIf
If MachineStage = "remove-cup" Then
Var LEDSet = "false"
Open "ROOT/taobin_project/xml/page_remove_cup.xml"
EndIf
If MachineStage = "drink-failed" Then
Var FirstOpen = 1
Var LEDSet = "true"
Open "ROOT/taobin_project/xml/page_show_error.xml"
EndIf
If FirstOpen = 1 Then
Var FirstOpen = 0
If MachineStage = "close-maintenance" Then
Var LEDSet = "true"
Open "ROOT/taobin_project/xml/page_show_error.xml"
EndIf
EndIf
EndIf
Var TimeOut = TimeOut + 1
If TimeOut > 12 Then
Var TimeOut = 0
Open "ROOT/taobin_project/xml/page_show_error.xml"
EndIf
EndIf
Refresh
TimerReset
Var LEDSet = "true"
;Open "ROOT/taobin_project/xml/page_show_error.xml"
show_error_normal 127 688 Var(DirImage + "/img1.png") show_error_normal 0 924 RandomImage show_error_sp1 0 897 Var(DirImage + "/img1.png") show_error_sp1 0 694 Var(DirImage + "/text1.png") show_error_sp1 0 1685 Var(DirImage + "/text2.png")