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

Do pageboard

Browse source
This commit is contained in:
kong 2021-07-03 23:19:20 +07:00
parent c4017b6b84
commit 632fe12b4b
7 changed files with 93 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

44
xml/page_board.xml
View file

@ -11,7 +11,7 @@
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/topview_button_back_main.xml"
Var FileNumber = 1
Var taobin_version = "1.47"
Var taobin_version = "1.49"
; On open
Var menu_back_to_main = "ROOT/taobin_project/xml/page_back_to_main.xml"
@ -95,10 +95,12 @@
If TaobinOnline = "true" Then
Var ShowButtonClickFull = "Invisible"
Var CountDownShowButton = 35
Var ShowButtonClickFull = "Invisible"
Var VideoMainPage = "ROOT/taobin_project/video/main_page.mp4"
EndIf
If TermTemOnline = "true" Then
Var CountDownShowButton = 28
Var ShowButtonClickFull = "Enable"
Var VideoMainPage = "ROOT/termtem_project/video/termtem01.mp4"
EndIf
@ -124,7 +126,6 @@
;SAVELOG ShowPrice
Var CountDownShowButton = 35
Var CountDownPauseVideo = 0
Var NextPage = "-"
@ -253,11 +254,34 @@
If TermTemOnline = "true" Then
If CountDownShowButton = 31 Then
Var ShowButtonClickFull = "Enable"
Var ShowButtonClick = "Invisible"
Refresh
EndIf
If CountDownShowButton = 3 Then
Var ShowButtonClickFull = "Enable"
Var ShowButtonClick = "Enable"
Var ShowButtonClickFull = "Invisible"
Refresh
EndIf
If CountDownPauseVideo > 0 Then
; ignore
Var CountDownPauseVideo = CountDownPauseVideo - 1
If CountDownPauseVideo = 0 Then
Var NextPage = "ROOT/taobin_project/xml/page_back_to_main.xml"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/termtem_project/xml/page_tt__catalog_choose_drink1.xml"
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
EndIf
EndIf
EndIf
@ -268,7 +292,7 @@
DEBUGVAR CountUpReloadAll
If CountUpReloadAll > 130 Then
If CountUpReloadAll > 80 Then
Var StartUpExt = "-"
Var CountUpReloadAll = 0
@ -292,7 +316,15 @@
<EventEnd>
;SAVELOG ShowButtonClick
Var CountDownShowButton = 35
If TaobinOnline = "true" Then
Var CountDownShowButton = 35
EndIf
If TermTemOnline = "true" Then
Var CountDownShowButton = 28
EndIf
Var CountDownPauseVideo = 6
If TaobinOnline = "true" Then
TouchTapClose