pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

DO

Browse source
This commit is contained in:
wanlop run 2024-07-09 16:02:08 +07:00
parent 79fc27dc9b
commit 19ffebde48
6 changed files with 125 additions and 117 deletions
Download patch file Download diff file Expand all files Collapse all files

131
xml/page_remove_cup.xml
View file

@ -44,10 +44,7 @@
LED LedDoorDoor 5 255 255 255 255
Var TimeoutInstance0 = 0
Var CheckCupStateDoorCupClose = "-"
Var CheckCupStateDoorCupCloseCnt = 0
Var CoundUpDelayCertainStage = 0
;include=ROOT/taobin_project/inc/remove_cup_event_open.inc
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -63,102 +60,7 @@
;DEBUGVAR CupArmMove
;DEBUGVAR buttonRemoveCup
; Add haveCup false for block display abnormal. Alternate between page_board.xml and this file.
If HaveCup = "false" Then
If MachineStage = "show-menu" Then
Open "ROOT/taobin_project/xml/page_board.xml"
EndIf
EndIf
If MachineStage = "close-maintenance" Then
Open "ROOT/taobin_project/xml/page_show_error.xml"
EndIf
Var Timeout = Timeout + 1
If Timeout > 15 Then
Var Timeout = 0
EndIf
Var TimeoutInstance0 = TimeoutInstance0 + 1
If TimeoutInstance0 > 600 Then
Var TimeoutInstance0 = 0
SAVELOG "Check Cup all"
Machine CheckCupAll
EndIf
; Logic have differrent drinkfail3.xml
; protect lock
;
If CheckCupStateDoorCupCloseCnt > 0 Then
Var CheckCupStateDoorCupCloseCnt = CheckCupStateDoorCupCloseCnt - 1
DEBUGVAR CheckCupStateDoorCupCloseCnt
If CheckCupStateDoorCupCloseCnt = 0 Then
Var CheckCupStateDoorCupClose = ""
EndIf
EndIf
If HaveCup = "true" Then
If CheckCupStateDoorCupClose = "" Then
Var buttonRemoveCup = "Enable"
EndIf
Else
If buttonRemoveCup = "Enable" Then
Var buttonRemoveCup = "Invisible"
EndIf
EndIf
If DoorCupPosition = "bottom" Then
Else
Var buttonRemoveCup = "Invisible"
Var CoundUpDelayCertainStage = 0
EndIf
If CupArmMove = "true" Then
Var buttonRemoveCup = "Invisible"
If show_eng = "true" Then
Var MachineErrorDetailAll = "Please wait."
Else
Var MachineErrorDetailAll = "กรุณารอสักครู่"
EndIf
Else
If CupArmMove = "false" Then
If HaveCup = "true" Then
If DoorCupPosition = "bottom" Then
If buttonRemoveCup = "Invisible" Then
Var CoundUpDelayCertainStage = CoundUpDelayCertainStage + 1
If CoundUpDelayCertainStage > 2 Then
Var buttonRemoveCup = "Enable"
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
If show_eng = "true" Then
Else
If Timeout = 0 Then
If buttonRemoveCup = "Enable" Then
If CupChecking = "false" Then
If DoorCupPosition = "bottom" Then
Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/remove_cup.mp3"
EndIf
EndIf
EndIf
EndIf
EndIf
;include=ROOT/taobin_project/inc/remove_cup_step.inc
Refresh
TimerReset
@ -166,6 +68,20 @@
</EventTimeout>
<EventMachineCupReady>
SAVELOG "EventMachineCupReady"
Var buttonRemoveCup = "Invisible"
Var HaveCup = "false"
Refresh
</EventMachineCupReady>
<EventMachineCupNotReady>
SAVELOG "EventMachineCupNotReady"
Var CoundUpDelayCertainStage = 5
</EventMachineCupNotReady>
<EventDrink>
SAVELOG "EventDrink"
DEBUGVAR HaveCup
@ -174,13 +90,9 @@
DEBUGVAR CupChecking
DEBUGVAR CupArmMove
If HaveCup = "true" Then
Var buttonRemoveCup = "Enable"
Else
Var buttonRemoveCup = "Invisible"
EndIf
</EventDrink>
<Image>
<X> 0 </X>
<Y> 852 </Y>
@ -198,15 +110,8 @@
<EventClick>
Machine RemoveCup
Machine DoorLidOpen
Var buttonRemoveCup = "Invisible"
; protect value update too slow.
Var DoorCupPosition = "-"
;include=ROOT/taobin_project/inc/remove_cup_button.inc
Var CheckCupStateDoorCupClose = "reset"
Var CheckCupStateDoorCupCloseCnt = 30
Refresh
</EventClick>
</Button>