1080
1312
SoundVolume
"ROOT/image/BG1SLOT_TAB.bmp"
; 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."
1000
Var Timeout = Timeout + 1
If Timeout > 15 Then
Open "ROOT/taobin_project/xml/page_board.xml"
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
info_startX
info_1Y
"ROOT/taobin_project/image/tab_1.png"
Machine DoorOpen
info_startX
info_2Y
"ROOT/taobin_project/image/tab_1.png"
Machine Lid
info_startX
info_3Y
"ROOT/taobin_project/image/tab_1.png"
Machine Straw
info_startX
info_4Y
"ROOT/taobin_project/image/tab_1.png"
If CountTouchButton = "" Then
Var CountTouchButton = 0
EndIf
Var CountTouchButton = CountTouchButton + 1
info_startX
info_5Y
"ROOT/taobin_project/image/tab_1.png"
MainMenu
info2_startX
info_1Y
"ROOT/taobin_project/image/tab_1.png"
READ_FILE "/mnt/sdcard/coffeevending/sim_on" str_sim_on
DEBUGVAR str_sim_on
If str_sim_on = "1" Then
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.xml"
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
EndIf
READ_FILE "/mnt/sdcard/coffeevending/.test_menu" str_test_menu
DEBUGVAR str_test_menu
If str_test_menu = "1" Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.xml"
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
EndIf
If CountTouchButton = 7 Then
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.xml"
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
EndIf
info2_startX
info_2Y
"ROOT/taobin_project/image/tab_1.png"
Var StartUpExt = "-"
ReloadAll
; FINISH
info2_startX
info_3Y
"ROOT/taobin_project/image/tab_1.png"
FINISH
info2_startX
info_4Y
"ROOT/taobin_project/image/tab_1.png"
READCARDID
info2_startX
info_5Y
"ROOT/taobin_project/image/tab_1.png"
;Var ShowPrice = "Invisible"
Open "ROOT/xml/test_coin.xml"
;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"
info1_startX
info_6Y
"ROOT/taobin_project/image/tab_1.png"
Machine Straw
LED LedDoorLid Blink 255 255 255 255
info2_startX
info_6Y
"ROOT/taobin_project/image/tab_1.png"
Machine Lid
LED LedDoorLid Blink 255 255 255 255
info2_text_startX
info_text_5Y
30
fontType1
0x000000
"Test coin and bill"
info2_text_startX
info_text_1Y
30
fontType1
0x000000
ShowVersionAll
info2_text_startX
info_text_2Y
30
fontType1
0x000000
MainBoardStatus
info2_text_startX
info_text_3Y
30
fontType1
0x000000
IceBoardStatus
info_text_startX
info_text_1Y
30
fontType1
0x000000
temphot
info_text_startX
info_text_2Y
30
fontType1
0x000000
tempice
info_text_startX
info_text_3Y
30
fontType1
0x000000
configfile
info_text_startX
info_text_4Y
30
fontType1
0x000000
show_version
info_text_startX
info_text_5Y
30
fontType1
0x000000
show_boxid
info2_text_startX
info_text_4Y
30
fontType1
0x000000
IDFullNameEng
info_text_startX
info_text_6Y
30
fontType1
0x000000
Text1_6
info2_text_startX
info_text_6Y
30
fontType1
0x000000
Text2_6
info1_startX
info_7Y
"ROOT/taobin_project/image/tab_1.png"
info2_startX
info_7Y
"ROOT/taobin_project/image/tab_1.png"
info_text_startX
info_text_7Y
30
fontType1
0x000000
Text1_7
info2_text_startX
info_text_7Y
30
fontType1
0x000000
Text2_7
info1_startX
info_8Y
"ROOT/taobin_project/image/tab_1.png"
CameraService "filter-remove-all"
CameraService "add-filter=mClass=9,mSubclass=4"
CameraService "add-filter=USB Camera"
CameraService "Start"
info2_startX
info_8Y
"ROOT/taobin_project/image/tab_1.png"
If CameraCount = 1 Then
CameraSetting "usbfront" "default" "Rotate=90,Resolution=1280x720,scaleX=1.0,scaleY=1.0"
EndIf
Var GoToCamera = 3
info_text_startX
info_text_8Y
30
fontType1
0x000000
Text1_8
info2_text_startX
info_text_8Y
30
fontType1
0x000000
Text2_8
info1_startX
info_9Y
"ROOT/taobin_project/image/tab_1.png"
info2_startX
info_9Y
"ROOT/taobin_project/image/tab_1.png"
info_text_startX
info_text_9Y
30
fontType1
0x000000
Text1_9
info2_text_startX
info_text_9Y
30
fontType1
0x000000
Text2_9
info1_startX
info_10Y
"ROOT/taobin_project/image/tab_1.png"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml"
OpenInst 2 "ROOT/taobin_project/xml/page_identity_verification.xml"
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
info_text_startX
info_text_10Y
30
fontType1
0x000000
Text1_10
info2_startX
info_10Y
"ROOT/taobin_project/image/tab_1.png"
;Open "ROOT/taobin_project/xml/test_qr.xml"
info2_startX
info_11Y
"ROOT/taobin_project/image/tab_1.png"
; reset
If CountTouchButton > 4 Then
Var CountTouchButton = 0
Var TelephoneNumber = "0859586589"
WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" ""
;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.233:30487/taobingame"\r\n"
If CountryName = "Australia" Then
APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://nlb-taobingame-service-40430a2f6317ba2f.elb.ap-southeast-1.amazonaws.com:26969"\r\n"
Else
APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: "http://10.0.16.231:30460"\r\n"
EndIf
Var ACCString !assigned SprintFmt("ACC: "%s"\r\n", TelephoneNumber)
DEBUGVAR ACCString
If show_eng = "true" Then
Var LangString = "LANG: "EN"\r\n"
Else
Var LangString = "LANG: "TH"\r\n"
EndIf
If CountryName = "Australia" Then
Var LangString = "LANG: "EN"\r\n"
EndIf
Var BoxIDString !assigned SprintFmt("BOX_ID: "%s"\r\n", BoxID)
; reset
WRITE_FILE "/mnt/sdcard/taobingame_acc.yaml" ""
APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" ACCString
APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" LangString
APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" BoxIDString
DEBUGVAR LangString
Var GameInstalled = "-"
CheckApp "com.NDF.taobin" GameInstalled
DEBUGVAR GameInstalled
If GameInstalled = "true" Then
RunApp "com.NDF.taobin"
EndIf
EndIf
info2_text_startX
info_text_11Y
30
fontType1
0x000000
"NDF Taobin 1.2.1"
info1_startX
info_11Y
"ROOT/taobin_project/image/tab_1.png"
info1_text_startX
info_text_11Y
30
fontType1
0x000000
strCountryName
info1_startX
info_12Y
"ROOT/taobin_project/image/tab_1.png"
If CanResetTouch = 1 Then
ResetTouch
EndIf
info1_text_startX
info_text_12Y
30
fontType1
0x000000
strTouchScreen
info2_startX
info_12Y
"ROOT/taobin_project/image/tab_1.png"
eval(
If CountryName = "Malaysia" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
)
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_enable_credit_card.xml"
info2_text_startX
info_text_12Y
30
fontType1
0x000000
eval(
If CountryName = "Malaysia" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
)
"Enable CreditCard"
;
; 930
; info_cancel_y
; 150
; "0xEFEDEA"
; "0xE61A5F"
; 150
; "Enable"
; "Herr"
;
Var IDCardState = "Enable"
DEBUGVAR IDCardStatus
DEBUGVAR IDCardReady
DEBUGVAR IDCardData
DEBUGVAR IDBirthdate
DEBUGVAR IDFullNameEng
SAVELOG IDFullNameEng
; /mnt/sdcard/coffeevending/taobin_project/sound_thai/sublang/