This commit is contained in:
miggaze 2020-10-28 16:59:31 +07:00
parent e8c55750a4
commit b5b2c8b129
3 changed files with 32 additions and 9 deletions

View file

@ -35,6 +35,7 @@
Var IntVendingCampaign = 0
Var CodeChannel = 0
Var CoinVendingOnFlag = 0

View file

@ -29,13 +29,14 @@
Var alphaState = "Invisible"
Var CoinInFlag = 0
Var CoinAmount = 0
;Var CoinAmount = 0
Var CancelFlag = 0
Var CancelCounter = 0
Var CoinInCounter = 0
Var PayAmount = PriceDrink
Var RemainAmount = PayAmount - IntVendingCampaign
Var RemainAmount = PayAmount - IntVendingCampaign
Var RemainAmount = RemainAmount - CoinAmount
Var RemainAmountStr = "" + RemainAmount
Var Timeout = 0
Var PayOK = 0
@ -70,7 +71,14 @@
If QRChannel = 0 Then
;Var VendingQRCode = "ERROR"
VendingQR ON
CoinVending ON
If CoinVendingOnFlag = 0 Then
CoinVending ON
Var CoinVendingOnFlag = 1
Else
EndIf
;Var QRCODE99 = ""
@ -110,6 +118,10 @@
Var PayState2 = "Disable"
EndIf
Var PayState3 = "Enable"
If CoinAmount > 0 Then
Var PayState2 = "Disable"
Var PayState3 = "Disable"
EndIf
Var showRemaining = charOfBaht + RemainAmountStr
EndIf
@ -517,7 +529,7 @@
If CoinInFlag = 0 Then
Var alphaState = "Enable"
CoinVending OFF
;CoinVending OFF
VendingQR ON
Refresh
@ -645,7 +657,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var alphaState = "Invisible"
CoinVending ON
;CoinVending ON
VendingQR OFF
Refresh
</EventClick>

View file

@ -19,7 +19,7 @@
VendingQR ON
Var QRCODE99 = ""
CoinVending OFF
;CoinVending OFF
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
@ -153,6 +153,7 @@
Var ShowErrorText = "Enable"
Var GetPayInfoFlag = 0
Var CodeChannel = 0
Var Tel_Confirm_State = "Disable"
Refresh
EndIf
@ -184,6 +185,7 @@
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
@ -205,6 +207,7 @@
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
@ -226,6 +229,7 @@
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
@ -247,6 +251,7 @@
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
@ -268,6 +273,7 @@
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
@ -289,6 +295,7 @@
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
@ -310,6 +317,7 @@
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
@ -331,6 +339,7 @@
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
@ -352,6 +361,7 @@
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
@ -374,7 +384,7 @@
TimerReset
Refresh
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
@ -535,9 +545,9 @@
<Image>
<X> 240 </X>
<Y> 606 </Y>
<Y> 870 </Y>
<State> ShowErrorText </State>
<Filename> "ROOT/taobin_project/image/enter_point/text2.png" </Filename>
<Filename> "ROOT/taobin_project/image/collectiing/text_show_error.png" </Filename>
</Image>