This commit is contained in:
kong 2021-10-15 15:30:55 +07:00
parent a9464630f5
commit aea3f04ec8
17 changed files with 81 additions and 309 deletions

BIN
image/cart_en/bn_cart1.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.8 KiB

BIN
image/cart_en/bn_cart2.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.1 KiB

BIN
image/cart_en/bp_cart1.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.5 KiB

BIN
image/cart_en/bp_cart2.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.9 KiB

BIN
image/cart_th/bn_cart1.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.1 KiB

BIN
image/cart_th/bn_cart2.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.4 KiB

BIN
image/cart_th/bp_cart1.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.9 KiB

BIN
image/cart_th/bp_cart2.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.2 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 11 KiB

After

Width:  |  Height:  |  Size: 11 KiB

Before After
Before After

Binary file not shown.

After

Width:  |  Height:  |  Size: 9 KiB

View file

@ -118,6 +118,8 @@
EndIf EndIf
EndIf EndIf
DEBUGVAR NetworkStatus
If NetworkStatus = "ACTIVATE" Then If NetworkStatus = "ACTIVATE" Then
Var ShowNetworkProblem = "Invisible" Var ShowNetworkProblem = "Invisible"
Var ShowNetworkProblemText = "" Var ShowNetworkProblemText = ""
@ -132,7 +134,6 @@
Var ShowPrice = "Enable" Var ShowPrice = "Enable"
@ -617,10 +618,15 @@
EndIf EndIf
DEBUGVAR countClick DEBUGVAR countClick
If countClick = 5 Then If countClick = 3 Then
Var countClick = 0 Var countClick = 0
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
;Open "ROOT/taobin_project/xml/page_tel_number_mask.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_tel_number_mask.xml"
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
EndIf EndIf
Refresh Refresh

View file

@ -34,6 +34,8 @@
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/What_would_you_like_to_drink_today.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/What_would_you_like_to_drink_today.mp3"
Play PlaySoundLag Play PlaySoundLag
Var DirImageCart = "ROOT/taobin_project/image/cart_en"
Else Else
Var DirImage = "ROOT/taobin_project/image/page2" Var DirImage = "ROOT/taobin_project/image/page2"
@ -41,6 +43,8 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3" Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
Play PlaySoundLag Play PlaySoundLag
Var DirImageCart = "ROOT/taobin_project/image/cart_th"
EndIf EndIf
@ -73,6 +77,27 @@
Var countClick = 0 Var countClick = 0
Var showCart = "Invisible"
If MultiPayEnable = "true" Then
If CART_COUNT = 1 Then
Var showCart = "Enable"
Var cart_image_bn = DirImageCart + "/bn_cart1.png"
Var cart_image_bp = DirImageCart + "/bp_cart1.png"
EndIf
If CART_COUNT = 2 Then
Var showCart = "Enable"
Var cart_image_bn = DirImageCart + "/bn_cart2.png"
Var cart_image_bp = DirImageCart + "/bp_cart2.png"
EndIf
EndIf
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
@ -88,6 +113,7 @@
EndIf EndIf
Refresh Refresh
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -326,5 +352,19 @@
; Cart
<Button>
<X> 915 </X>
<Y> 1769 </Y>
<State> showCart </State>
<Filename> cart_image_bn </Filename>
<FilenamePress> cart_image_bp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; eng
</EventClick>
</Button>
</Popup> </Popup>

View file

@ -94,6 +94,9 @@
Var Menu8Selected = "Enable" Var Menu8Selected = "Enable"
EndIf EndIf
Var Timeout = 0 Var Timeout = 0
</EventOpen> </EventOpen>
@ -112,5 +115,4 @@
</Popup> </Popup>

View file

@ -41,6 +41,9 @@
Var Menu8Selected = "Enable" Var Menu8Selected = "Enable"
EndIf EndIf
Var Timeout = 0 Var Timeout = 0
</EventOpen> </EventOpen>
@ -3244,5 +3247,4 @@
</Popup> </Popup>

View file

@ -8,83 +8,16 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh> <Refresh> "Partial" </Refresh>
<EventOpen> <EventOpen>
; On open
VendingQR OFF
Var Timeout = 0
Var TelephoneNumber = ""
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var GetCreditFlag = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var number7 = ""
Var number8 = ""
Var number9 = ""
Var number10 = ""
Var Ext1a = ""
Var GetAccFlag = 0
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Var CodeChannel = 0
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventIDCard>
</EventIDCard>
<EventCoin>
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
</EventCoin>
<EventActionOk>
;Open "ROOT/taobin_project/xml/page_payment_credit2.xml"
If GetAccFlag = 1 Then
If Ext1a = "ok" Then
Open "ROOT/taobin_project/xml/page_payment_credit2.xml"
Else
Var ShowErrorText = "Enable"
EndIf
EndIf
Refresh
</EventActionOk>
<EventActionError>
If GetAccFlag = 1 Then
Var ShowErrorText = "Enable"
EndIf
Refresh
</EventActionError>
@ -110,36 +43,7 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Cart "MakeID" 1
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "1"
EndIf
If TelNumLen = 8 Then
Var number8 = "1"
EndIf
If TelNumLen = 9 Then
Var number9 = "1"
EndIf
If TelNumLen = 10 Then
Var number10 = "1"
EndIf
EndIf
</EventClick> </EventClick>
</Button> </Button>
@ -151,36 +55,7 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Cart "MakeID" 2
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "2"
EndIf
If TelNumLen = 8 Then
Var number8 = "2"
EndIf
If TelNumLen = 9 Then
Var number9 = "2"
EndIf
If TelNumLen = 10 Then
Var number10 = "2"
EndIf
EndIf
</EventClick> </EventClick>
</Button> </Button>
@ -192,36 +67,7 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Cart "MakeID" 3
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "3"
EndIf
If TelNumLen = 8 Then
Var number8 = "3"
EndIf
If TelNumLen = 9 Then
Var number9 = "3"
EndIf
If TelNumLen = 10 Then
Var number10 = "3"
EndIf
EndIf
</EventClick> </EventClick>
</Button> </Button>
@ -233,36 +79,7 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Cart "PreparID" 1
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "4"
EndIf
If TelNumLen = 8 Then
Var number8 = "4"
EndIf
If TelNumLen = 9 Then
Var number9 = "4"
EndIf
If TelNumLen = 10 Then
Var number10 = "4"
EndIf
EndIf
</EventClick> </EventClick>
</Button> </Button>
@ -274,36 +91,7 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Cart "PreparID" 2
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "5"
EndIf
If TelNumLen = 8 Then
Var number8 = "5"
EndIf
If TelNumLen = 9 Then
Var number9 = "5"
EndIf
If TelNumLen = 10 Then
Var number10 = "5"
EndIf
EndIf
</EventClick> </EventClick>
</Button> </Button>
@ -315,36 +103,7 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Cart "PreparID" 3
StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then
Var TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "6"
EndIf
If TelNumLen = 8 Then
Var number8 = "6"
EndIf
If TelNumLen = 9 Then
Var number9 = "6"
EndIf
If TelNumLen = 10 Then
Var number10 = "6"
EndIf
EndIf
</EventClick> </EventClick>
</Button> </Button>
@ -479,37 +238,10 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 DEBUGVAR CART1_READY
StrLen TelephoneNumber TelNumLen DEBUGVAR CART2_READY
If TelNumLen < 10 Then DEBUGVAR CART3_READY
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
Var ShowErrorText = "Invisible"
If TelNumLen = 7 Then
Var number7 = "0"
EndIf
If TelNumLen = 8 Then
Var number8 = "0"
EndIf
If TelNumLen = 9 Then
Var number9 = "0"
EndIf
If TelNumLen = 10 Then
Var number10 = "0"
EndIf
EndIf
</EventClick> </EventClick>
</Button> </Button>
@ -522,19 +254,7 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Open "ROOT/taobin_project/xml/page_back_to_main.xml"
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick> </EventClick>
</Button> </Button>

View file

@ -283,6 +283,12 @@
Var SugarState5 = "Enable" Var SugarState5 = "Enable"
;Var BugFlag = 1 ;Var BugFlag = 1
If CartUpdate = "true" Then
Var BugFlag = 1
Var CartUpdate = "-"
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
If BugFlag = 1 Then If BugFlag = 1 Then
@ -1447,24 +1453,21 @@
; Pack ; Pack
Topping "Pack" ExtendData Topping "Pack" ExtendData
If CART1 = "clear" Then If CART1_STATUS = "EMPTY" Then
Topping "AddCart" 1 Cart "AddMenuID" 1
Else Else
If CART2 = "clear" Then If CART2_STATUS = "EMPTY" Then
Topping "AddCart" 2 Cart "AddMenuID" 2
Else Else
If CART3_STATUS = "EMPTY" Then
If CART3 = "clear" Then Cart "AddMenuID" 3
Topping "AddCart" 3
EndIf EndIf
EndIf EndIf
EndIf EndIf
;Open "ROOT/taobin_project/xml/page_catalog.xml" Var CartUpdate = "true"
</EventClick> </EventClick>
</Button> </Button>
; next ; next
<Button> <Button>
<X> 673 </X> <X> 673 </X>

View file

@ -79,9 +79,8 @@
var Text2_7 = Text2_7 + SignalStrengthLevel var Text2_7 = Text2_7 + SignalStrengthLevel
var Text2_7 = Text2_7 + "]" var Text2_7 = Text2_7 + "]"
Topping "DeleteCart" 1
Topping "DeleteCart" 2 Cart "DeleteMenuID" "ALL"
Topping "DeleteCart" 3
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>