0 608 "Enable" 1080 1312 "0xFCFBF7" SoundVolume Var countClick = 0 Var countClick2 = 0 DEBUGVAR MachineStage DEBUGVAR stop_now DEBUGVAR LanguageShow ;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml" Var show_error_normal = "Invisible" Var show_error_sp1 = "Enable" StopLongPlay If LEDSet = "true" Then Else LED LedDoorCup On 255 0 0 255 LED LedDoorLid Off 255 255 255 255 EndIf DEBUGVAR MachineStage DEBUGVAR stop_now Var DirImage = "ROOT/taobin_project/inter/aus/image/vending_error_en" DEBUGVAR MachineStage If MachineStage = "close-maintenance" Then DEBUGVAR stop_now If stop_now = "true" Then Else Var show_error_normal = "Enable" Var show_error_sp1 = "Invisible" EndIf EndIf If MachineStage = "drink-failed" Then If stop_now = "true" Then Else Var show_error_normal = "Enable" Var show_error_sp1 = "Invisible" EndIf EndIf If NETCORE_EVENT_CNT_X >= 30 Then Var NETCORE_EVENT_CNT_X = 0 EndIf Var MaintenanceCard = 20 Random MaintenanceCard Var index = 1 + MaintenanceCard DEBUGVAR DirImage Var RandomImage = "ROOT/taobin_project/image/close_en/Frame" + index Var RandomImage = RandomImage + ".png" DEBUGVAR RandomImage DEBUGVAR Seeker DEBUGVAR DoorCupPosition DEBUGVAR DoorLidPosition DEBUGVAR EmergencyStop Var TimeOut = 0 Var textStep = 0 RootLayoutVisible 3 "show" 1000 Var EmergencyStop = "-" If EmergencyStop = "true" Then If DoorCupPosition = "bottom" Then ; It normal Var EmergencyStop = "false" Else Var MachineErrorDetailAll = "Emergency stop!" EndIf Else Var 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 If textStep > 3 Then 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 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 stop_now_from_door_cup = 1 Then Var stop_now = "false" SAVELOG "stop_now_from_door_cup is set" Var stop_now_from_door_cup = 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/inter/aus/xml/page_show_error.lxml" Refresh EndIf If FirstOpen = 1 Then Var FirstOpen = 0 If MachineStage = "close-maintenance" Then Var LEDSet = "true" ;Open "ROOT/taobin_project/inter/aus/xml/page_show_error.lxml" Refresh EndIf EndIf EndIf EndIf EndIf DEBUGVAR show_error_normal DEBUGVAR show_error_sp1 DEBUGVAR TimeOut Var TimeOut = TimeOut + 1 If TimeOut > 30 Then Var TimeOut = 0 Open "ROOT/taobin_project/inter/aus/xml/page_show_error.lxml" EndIf Refresh TimerReset Var LEDSet = "true" ;Open "ROOT/taobin_project/inter/aus/xml/page_show_error.lxml" show_error_normal 69 642 Var(DirImage + "/img1.png") show_error_sp1 69 642 Var(DirImage + "/img_error_aus.png") 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