1080
1312
SoundVolume
"0x2c2928"
; On open
Machine AndroidTemperatureUpdateNow
Var info_startX = 11
Var info_1Y = 250
Var info_2Y = 320
Var info_3Y = 390
Var info_4Y = 460
Var info_5Y = 530
Var info_6Y = 600
Var info_7Y = 670
Var info_8Y = 740
Var info_9Y = 810
Var info_10Y = 880
Var info_11Y = 950
Var info_12Y = 1020
Var info_13Y = 1090
Var info_14Y = 1160
Var info_cancel_y = info_14Y + 50
Var info_text_startX = info_startX + 22
Var info_text_1Y = info_1Y + 18
Var info_text_2Y = info_2Y + 18
Var info_text_3Y = info_3Y + 18
Var info_text_4Y = info_4Y + 18
Var info_text_5Y = info_5Y + 18
Var info_text_6Y = info_6Y + 18
Var info_text_7Y = info_7Y + 18
Var info_text_8Y = info_8Y + 18
Var info_text_9Y = info_9Y + 18
Var info_text_10Y = info_10Y + 18
Var info_text_11Y = info_11Y + 18
Var info_text_12Y = info_12Y + 18
Var info_text_13Y = info_13Y + 18
Var info_text_14Y = info_14Y + 18
Var info2_startX = 550
Var info2_text_startX = info2_startX + 22
Var temphot = "น้ำร้อน องศา "
Var temphot = temphot + BrewTemp
Var temphot = temphot + " C"
Var tempice = "น้าแข็ง องศา "
Var tempice = tempice + IceTemp
Var tempice = tempice + " C "
If IceFull = 0 Then
Var tempice = tempice + " ไม่เต็ม "
Else
Var tempice = tempice + " เต็มถัง "
EndIf
Var configfile = "CFG = " + ConfigNumer
Var ice_version_text = " ICE version " + IceVersion
Var brew_version_text = "Server status " + NetworkStatus
Var show_version = brew_version_text
Var show_boxid = "[ " + BoxID
Var show_boxid = show_boxid + " ]"
Var ShowVersionAll = BrewMachineFirmwareVersion + " | "
Var ShowVersionAll = ShowVersionAll + XMLPageVersion
Var ShowVersionAll = ShowVersionAll + " | "
Var ShowVersionAll = ShowVersionAll + JXMLVersion
Var IDCardState = "Invisible"
Var Timeout = 0
Var IDFullNameEng = "เสียบบัตร แล้วกดอ่าน "
Var Text1_6 = "Door/Lid/Straw : " + Service_LidStraw
Var Text2_6 = "ฝา : " + Lid1Status
var Text1_7 = "CellSite :" + CellSite
var Text2_7 = "ระดับสัญญาณ :" + SignalStrengthStr
var Text2_7 = Text2_7 + " ["
var Text2_7 = Text2_7 + SignalStrengthLevel
var Text2_7 = Text2_7 + "]"
Cart "DeleteMenuID" "ALL"
Var Text1_8 = "IP " + MobileIPNetwork
Var Text1_10 = "Spiral=" + SpiralStatus1
Var Text1_10 = Text1_10 + " Err="
Var Text1_10 = Text1_10 + SpiralErrcause1
Var Text2_10 = "Spiral=" + SpiralStatus2
Var Text2_10 = Text2_10 + " Err="
Var Text2_10 = Text2_10 + SpiralErrcause2
Var GoToCamera = 0
DEBUGVAR AndroidBoardTemp10
Var android_text3_1 = "CPUL: "
Var android_text3_1 = android_text3_1 + AndroidBoardTemp11
Var android_text3_2 = "GPU: "
Var android_text3_2 = android_text3_2 + AndroidBoardTemp18
Var AndroidBoardTempMax = AndroidBoardTemp13
If AndroidBoardTempMax > AndroidBoardTemp14 Then
Var AndroidBoardTempMax = AndroidBoardTemp13
Else
Var AndroidBoardTempMax = AndroidBoardTemp14
EndIf
If AndroidBoardTempMax > AndroidBoardTemp15 Then
Var AndroidBoardTempMax = AndroidBoardTemp14
Else
Var AndroidBoardTempMax = AndroidBoardTemp15
EndIf
If AndroidBoardTempMax > AndroidBoardTemp16 Then
Var AndroidBoardTempMax = AndroidBoardTemp15
Else
Var AndroidBoardTempMax = AndroidBoardTemp16
EndIf
Var Text2_9 = "CPUH: "
Var Text2_9 = Text2_9 + AndroidBoardTempMax
Var Text2_9 = Text2_9 + ","
Var Text2_9 = Text2_9 + android_text3_1
Var Text2_9 = Text2_9 + ","
Var Text2_9 = Text2_9 + android_text3_2
Var strCountryName = " " + CountryName
DEBUGVAR AndroidTouchScreenHeartBeat
Var CanResetTouch = 0
Var CountDownReset = 0
Var strTouchScreen = " Reset Touch : disable."
Var MainMenuBlockCount = 2
Var PassPhrase = ""
Var HiddenPassPhrase = ""
Var showStatusText = ""
Var alphaPasswordPrompt = "Invisible"
Var alphaPasswordPromptWithKeyboard = "Invisible"
Var ClickOn = ""
Var PermissionLevel = ""
Var tmpPassPhrase = ""
Var WaitPasswordCheck = 0
Var WaitPopup = "Invisible"
Var WhileRetryCounter = 0
Var FailPopup = "Invisible"
; define-case
Var FailCasePic = ""
Var FailCaseDir = "ROOT/taobin_project/image/new_vending_info/"
Var FailCaseIncorrect = "popup_incorrect.png"
Var FailCaseTimeout = "popup_timeout.png"
Var sleepmodeEnable = "false"
1000
DEBUGVAR Timeout
DEBUGVAR WhileRetryCounter
If alphaPasswordPromptWithKeyboard = "Enable" Then
Var Timeout = 0
Else
Var Timeout = Timeout + 1
EndIf
If Timeout > 30 Then
Var sleepmodeEnable = "true"
Open "ROOT/taobin_project/xml/page_board.xml"
EndIf
DEBUGVAR PasswordOK
DEBUGVAR WaitPasswordCheck
If PasswordOK = 1 Then
Var Timeout = 20
Var PasswordOK = 0
Var WaitPopup = "Invisible"
Var FailPopup = "Invisible"
Var alphaPasswordPromptWithKeyboard = "Invisible"
Var alphaPasswordPrompt = "Invisible"
Var tmpPassPhrase = PassPhrase
DEBUGVAR tmpPassPhrase
Var PassPhrase = ""
Var HiddenPassPhrase = ""
If ClickOn = "GetAccess" Then
;MainMenu2
Open "ROOT/taobin_project/xml/vending_tasks_pre_main.xml"
EndIf
If ClickOn = "QuickTest" Then
;open
EndIf
EndIf
If WaitPasswordCheck = 1 Then
If PasswordOK = 1 Then
Var Timeout = 20
Var PasswordOK = 0
Var WaitPopup = "Invisible"
Var FailPopup = "Invisible"
Var alphaPasswordPromptWithKeyboard = "Invisible"
Var alphaPasswordPrompt = "Invisible"
Var tmpPassPhrase = PassPhrase
DEBUGVAR tmpPassPhrase
Var PassPhrase = ""
Var HiddenPassPhrase = ""
If ClickOn = "GetAccess" Then
;MainMenu2
Open "ROOT/taobin_project/xml/vending_tasks_pre_main.xml"
EndIf
If ClickOn = "QuickTest" Then
;open
EndIf
Else
If WhileRetryCounter < 10 Then
DEBUGVAR "WaitPasswordCheck"
__CMD "check-password-wait" "-" "-" "-"
Var Timeout = 0
Var WaitPopup = "Enable"
Var FailPopup = "Invisible"
Var WhileRetryCounter = WhileRetryCounter + 1
Else
DEBUGVAR "WaitPasswordCheck.MaxTimeout"
Var WhileRetryCounter = 0
Var WaitPopup = "Invisible"
Var FailPopup = "Enable"
Var alphaPasswordPromptWithKeyboard = "Invisible"
Var FailCasePic = FailCaseDir + FailCaseIncorrect
; auto-turnoff
DEBUGVAR "auto-turnoff"
Var WaitPasswordCheck = 0
EndIf
EndIf
Else
If PasswordOK = 0 Then
If WaitPopup = "Enable" Then
Var WhileRetryCounter = WhileRetryCounter + 1
EndIf
EndIf
EndIf
; case-unable-to-fetch-pw
If WhileRetryCounter > 10 Then
If WaitPopup = "Enable" Then
Var WaitPopup = "Invisible"
Var alphaPasswordPromptWithKeyboard = "Invisible"
Var WhileRetryCounter = 0
Var FailPopup = "Enable"
Var FailCasePic = FailCaseDir + FailCaseTimeout
EndIf
EndIf
If GoToCamera = 1 Then
Var NextPage = "-"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_camera.xml"
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
EndIf
If GoToCamera > 0 Then
Var GoToCamera = GoToCamera - 1
EndIf
DEBUGVAR AdvertiseProfile
Var Text1_8 = "IP " + MobileIPNetwork
Var Text2_8 = "Camera " + CameraCount
Var Text1_9 = SystemTime
Var Text1_9 = Text1_9 + " "
Var Text1_9 = Text1_9 + SystemDate
Var skr = "curr"
DEBUGVAR skr.NOBONUS
Var skr = "next"
DEBUGVAR skr.NOBONUS
DEBUGVAR Not#CameraSettingStatus
If CountDownCheckCamera = 0 Then
Var CountDownCheckCamera = 5
If Not#CameraSettingStatus = "" Then
If CameraCount = 1 Then
CameraSetting "usbfront" "default" "Rotate=90,Resolution=1280x720,scaleX=1.0,scaleY=0.65"
EndIf
EndIf
Else
Var CountDownCheckCamera = CountDownCheckCamera - 1
EndIf
Var android_text3_1 = "CPUL: "
Var android_text3_1 = android_text3_1 + AndroidBoardTemp11
Var android_text3_2 = "GPU: "
Var android_text3_2 = android_text3_2 + AndroidBoardTemp18
Var AndroidBoardTempMax = AndroidBoardTemp13
If AndroidBoardTempMax > AndroidBoardTemp14 Then
Var AndroidBoardTempMax = AndroidBoardTemp13
Else
Var AndroidBoardTempMax = AndroidBoardTemp14
EndIf
If AndroidBoardTempMax > AndroidBoardTemp15 Then
Var AndroidBoardTempMax = AndroidBoardTemp14
Else
Var AndroidBoardTempMax = AndroidBoardTemp15
EndIf
If AndroidBoardTempMax > AndroidBoardTemp16 Then
Var AndroidBoardTempMax = AndroidBoardTemp15
Else
Var AndroidBoardTempMax = AndroidBoardTemp16
EndIf
Var Text2_9 = "CPUH: "
Var Text2_9 = Text2_9 + AndroidBoardTempMax
Var Text2_9 = Text2_9 + ","
Var Text2_9 = Text2_9 + android_text3_1
Var Text2_9 = Text2_9 + ","
Var Text2_9 = Text2_9 + android_text3_2
If AndroidTouchScreenHeartBeat = "-" Then
Var strTouchScreen = " Reset Touch : Disable."
Else
DEBUGVAR CountDownReset
If CountDownReset = 0 Then
Var strTouchScreen = " Reset Touch : " + AndroidTouchScreenHeartBeat
Var CanResetTouch = 1
Else
Var Timeout = 0
Var strTouchScreen = " Reset Touch : " + CountDownReset
Var CanResetTouch = 1
EndIf
EndIf
Refresh
TimerReset
; table
300
18
575
480
SoundVolume
"ROOT/taobin_project/image/new_vending_info/info_table_template.png"
; machine-id
540
150
19
fontType1
0xe2e2e2
BoxID
; Date
540
195
19
fontType1
0xe2e2e2
Text1_9
; country
540
230
19
fontType1
0xe2e2e2
strCountryName
; IP
540
270
19
fontType1
0xe2e2e2
MobileIPNetwork
; cfg
540
315
19
fontType1
0xe2e2e2
ConfigNumer
; software-ver
540
355
19
fontType1
0xe2e2e2
ShowVersionAll
;cell-site
540
395
19
fontType1
0xe2e2e2
CellSite
;signal
540
420
19
fontType1
0xe2e2e2
SignalStrengthLevel
Var IDCardState = "Enable"
DEBUGVAR IDCardStatus
DEBUGVAR IDCardReady
DEBUGVAR IDCardData
DEBUGVAR IDBirthdate
DEBUGVAR IDFullNameEng
SAVELOG IDFullNameEng
; /mnt/sdcard/coffeevending/taobin_project/sound_thai/sublang/
; show-pop
; keyboard
0
500
800
End
24
alphaPasswordPromptWithKeyboard
RobotoBlack
0xE2E2E2
"Enable"
HiddenPassPhrase
; waitPopup-with-alpha
0
0
eval(
If WaitPopup = "Enable" Then
Var return = "Enable"
Else
If FailPopup = "Enable" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
EndIf
)
"ROOT/taobin_project/image/new_vending_info/alpha.png"
240
300
WaitPopup
"ROOT/taobin_project/image/new_vending_info/popup_wait.png"
240
300
FailPopup
FailCasePic