This commit is contained in:
wanlop run 2024-07-11 11:15:40 +07:00
parent 19ffebde48
commit c56d3e48e7
24 changed files with 34092 additions and 138 deletions

View file

@ -0,0 +1,9 @@
Machine RemoveCup
Machine DoorLidOpen
Var buttonRemoveCup = "Invisible"
; protect value update too slow.
Var DoorCupPosition = "-"
Var CheckCupStateDoorCupClose = "reset"
Var CheckCupStateDoorCupCloseCnt = 30

View file

@ -0,0 +1,6 @@
Var TimeoutInstance0 = 0
Var buttonRemoveCup = "Enable
Var CheckCupStateDoorCupClose = "-"
Var CheckCupStateDoorCupCloseCnt = 0
Var CoundUpDelayCertainStage = 0
Var TimeoutForProtectButtonHideLongTime = 0

116
inc/remove_cup_step.inc Normal file
View file

@ -0,0 +1,116 @@
; 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 TimeoutForProtectButtonHideLongTime = TimeoutForProtectButtonHideLongTime + 1
If TimeoutForProtectButtonHideLongTime > 120 Then
Var TimeoutForProtectButtonHideLongTime = 0
If buttonRemoveCup = "Enable" Then
Else
If DoorCupPosition = "bottom" Then
SAVELOG "Check Cup all from Long time button hide"
Machine CheckCupAll
EndIf
EndIf
EndIf
Var Timeout = Timeout + 1
If Timeout > 15 Then
Var Timeout = 0
DEBUGVAR HaveCup
DEBUGVAR CupOnArm
DEBUGVAR DoorCupPosition
DEBUGVAR CupChecking
DEBUGVAR CupArmMove
DEBUGVAR buttonRemoveCup
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 > 8 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

25
inc/remove_cup_tag_event Normal file
View file

@ -0,0 +1,25 @@
<EventMachineCupReady>
SAVELOG "EventMachineCupReady"
Var buttonRemoveCup = "Invisible"
Var HaveCup = "false"
Refresh
</EventMachineCupReady>
<EventMachineCupNotReady>
SAVELOG "EventMachineCupNotReady"
Var CoundUpDelayCertainStage = 5
</EventMachineCupNotReady>
<EventDrink>
SAVELOG "EventDrink"
DEBUGVAR HaveCup
DEBUGVAR CupOnArm
DEBUGVAR DoorCupPosition
DEBUGVAR CupChecking
DEBUGVAR CupArmMove
</EventDrink>