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

Fix bug smoothis step insert cup

Browse source
This commit is contained in:
wanlop run 2025-06-16 22:08:16 +07:00
parent 39b0120885
commit 0107048a78
13 changed files with 1554 additions and 571 deletions
Download patch file Download diff file Expand all files Collapse all files

6
inter/tha/xml/page_payment_pack_and_send.xml
View file

@ -42,6 +42,8 @@
If TimeOutSmoothiesProcess = 0 Then
Var OverrideVideoThankyou = 1
Machine DoorClose
Var SelectDrink = Seeker.selected_a_drink
Var SelectSugarID = ""
@ -98,9 +100,7 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var SmoothieProcessState = "press"
__CMD "UseArm" "2" "-" "-"
Machine InsertCupAndOpen
</EventClick>
</Button>

39
inter/tha/xml/page_smoothie_suggest_and_process.xml
View file

@ -6,7 +6,7 @@
<Volume> SoundVolume </Volume>
<EventOpen>
SAVELOG "======================================= page_smoothie_suggest_and_process.xml == Version 1.07 =============================="
SAVELOG "======================================= page_smoothie_suggest_and_process.xml == Version 1.09 =============================="
; On open
TopView "show"
@ -417,23 +417,38 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
SAVELOG " SmoothieProcessState press "
If DoorCupPosition = "top" Then
SAVELOG " SmoothieProcessState press-button "
DEBUGVAR DoorCupPosition
DEBUGVAR SmoothieProcessState
DEBUGVAR AnyArmConfuse
DEBUGVAR SensorDoorCupStatus
If DoorCupPosition = "bottom" Then
Else
If SmoothieProcessState = "checking" Then
Else
Var CountDownCupStageRunningTimeout = 15
Var CountDownCertainConfuse = 2
Var ArmIDForMakeOrderStr = "" + ArmIDForMakeOrder
DEBUGVAR ArmIDForMakeOrderStr
__CMD "UseArm" ArmIDForMakeOrderStr "-" "-"
Machine InsertCupAndOpen
If SmoothieProcessState = "blendnow" Then
Else
If AnyArmConfuse = 0 Then
Var CountDownCupStageRunningTimeout = 15
Var CountDownCertainConfuse = 2
Var ArmIDForMakeOrderStr = "" + ArmIDForMakeOrder
DEBUGVAR ArmIDForMakeOrderStr
__CMD "UseArm" ArmIDForMakeOrderStr "-" "-"
Machine InsertCupAndOpen
Var SmoothieProcessState = "press"
EndIf
EndIf
EndIf
EndIf
Var SmoothieProcessState = "press"
</EventClick>
</Button>
@ -542,7 +557,7 @@
<Width> 1080 </Width>
<Align> end </Align>
<Color> 0xFF0000 </Color>
<Value> "V105 "</Value>
<Value> "V109 "</Value>
</Text>