0 608 "Enable" 1080 1312 "0xEAE6E1" SoundVolume Var countClick = 0 Var countClick2 = 0 DEBUGVAR MachineStage DEBUGVAR stop_now OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml" Var DirImage = "ROOT/taobin_project/image/vending_error" 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 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 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 Var textStep = 0 1000 DEBUGVAR NETCORE_LOST_CNT DEBUGVAR MachineStage DEBUGVAR NETCORE_EVENT_CNT_TMP 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 If textStep > 3 Then Var textStep = 0 Var MachineErrorDetailAll = MachineErrorDetailAll + " [ \ ]" EndIf If textStep = 3 Then Var MachineErrorDetailAll = MachineErrorDetailAll + " [ - ]" EndIf If textStep = 2 Then Var MachineErrorDetailAll = MachineErrorDetailAll + " [ / ]" EndIf If textStep = 1 Then Var MachineErrorDetailAll = MachineErrorDetailAll + " [ | ]" EndIf Var textStep = textStep + 1 ;DEBUGVAR MachineErrorDetailAll ;DEBUGVAR textStep 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 Var NETCORE_LOST_COUNT_UP = NETCORE_LOST_COUNT_UP + 1 DEBUGVAR NETCORE_LOST_COUNT_UP If NETCORE_LOST_COUNT_UP > 300 Then SAVELOG " NETCORE_LOST_COUNT_UP out !" Reboot EndIf Var NETCORE_LOST_COUNT_UP_STR = " Net " + NETCORE_LOST_COUNT_UP If textStep = 4 Then Var MachineErrorDetailAll = NETCORE_LOST_COUNT_UP_STR + " ###" EndIf If textStep = 3 Then Var MachineErrorDetailAll = NETCORE_LOST_COUNT_UP_STR + " ###" EndIf If textStep = 2 Then Var MachineErrorDetailAll = NETCORE_LOST_COUNT_UP_STR + " ##" EndIf If textStep = 1 Then Var MachineErrorDetailAll = NETCORE_LOST_COUNT_UP_STR + " #" EndIf Else If stop_now_from_netcore_event = 1 Then Var stop_now = "false" SAVELOG "stop_now_from_netcore_event is set" Var stop_now_from_netcore_event = 0 EndIf If MachineStage = "" Then Var LEDSet = "false" Open "ROOT/taobin_project/xml/page_board.xml" EndIf 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" Refresh 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" Refresh EndIf EndIf EndIf EndIf EndIf Var TimeOut = TimeOut + 1 If TimeOut > 60 Then Var TimeOut = 0 Open "ROOT/taobin_project/xml/page_show_error.xml" 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") 990 640 show_btn show_btp "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ; eng If show_eng = "true" Then Var show_eng = "false" Else Var show_eng = "true" EndIf Var ClickCountMainTe = 0 Open "ROOT/taobin_project/xml/page_show_error.xml" 0 1860 200 50 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var countClick = countClick + 1 If countClick = 3 Then EndIf If countClick = 10 Then Var countClick = 0 MainMenu EndIf Refresh 870 1860 200 50 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 5 1868 24 Center 1080 RobotoRegular 0xDE794E MachineErrorDetailAll