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

Test forloop

Browse source
This commit is contained in:
wanlop run 2025-07-04 13:12:34 +07:00
parent 5f4525db5b
commit bac1d8531c
14 changed files with 165 additions and 198 deletions
Download patch file Download diff file Expand all files Collapse all files

8
xml/multi_ads/ads_path.ev
View file

@ -321,7 +321,7 @@ Else
;DEBUGVAR a_video_menu[12]
;DEBUGVAR a_video_menu[18]
DEBUGVAR a_video_menu[0]
;DEBUGVAR a_video_menu[0]
SPLIT XMLLiveInfo "/" 1 AdvDisplayMode
SPLIT XMLLiveInfo "/" 2 CurrentTotalCup
@ -329,6 +329,6 @@ EndIf
DEBUGVAR showSingleAds
DEBUGVAR showMultiAds
DEBUGVAR XMLLiveInfo
;DEBUGVAR showSingleAds
;DEBUGVAR showMultiAds
;DEBUGVAR XMLLiveInfo

2
xml/page_board.xml
View file

@ -648,6 +648,7 @@
If default_english = "true" Then
Var show_eng = "true"
SetLanguage "ENG"
EndIf
Var InternationalEnable = 0
@ -724,6 +725,7 @@
;inter-page-board
If CountryName = "Malaysia" Then
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/video/script_video.ev"

54
xml/page_main_blank.xml
View file

@ -2,64 +2,12 @@
<Width> 1080 </Width>
<Height> 1312 </Height>
<EventOpen>
DEBUGVAR PaySuccessWithDaemonTask
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
If PaySuccessWithDaemonTask = 1 Then
DEBUGVAR PaidPaymentFromNextStage
DEBUGVAR LastMakeDrinkResult
; from
If LastMakeDrinkResult = "success" Then
If PaidPaymentFromNextStage = 1 Then
Var DelayForMakeDrink = 0
Var PaidPaymentFromNextStage = 2
EndIf
EndIf
If PaidPaymentFromNextStage = 2 Then
DEBUGVAR HaveCup
DEBUGVAR MaybeHaveCup
DEBUGVAR DoorCupPosition
If HaveCup = "false" Then
If MaybeHaveCup = "false" Then
If DoorCupPosition = "bottom" Then
Topping "Select" NextUserSelectDrinkFromPaid
; Set option toppinng and pack
Topping "Select1-ID" NextUserSelecttopping1Paid
Topping "Select2-ID" NextUserSelecttopping2Paid
Topping "Select3-ID" NextUserSelecttopping3Paid
; Pack
Topping "Pack" ExtendDataCurr
Var DelayForMakeDrink = 2
Var PaidPaymentFromNextStage = 3
DEBUGVAR NextUserSelectDrinkFromPaid
EndIf
EndIf
EndIf
EndIf
DEBUGVAR DelayForMakeDrink
EndIf
If DelayForMakeDrink > 0 Then
DEBUGVAR DelayForMakeDrink
Var DelayForMakeDrink = DelayForMakeDrink - 1
If DelayForMakeDrink = 0 Then
Var MakeContinue = 1
MakeDrinkV1 NextUserSelectDrinkFromPaid SelectSugarID
EndIf
EndIf
; hurr
TimerReset

101
xml/test_all_syntax.xml
View file

@ -10,7 +10,6 @@
OpenInst 3 "ROOT/taobin_project/xml/page_list.xml"
OpenInst 1 "ROOT/taobin_project/xml/page_list.xml"
OpenInst 2 "ROOT/taobin_project/xml/page_list.xml"
@ -48,100 +47,16 @@
SAVELOG "============================== Test elseif ====================================="
Var idx = 0
Var idx2 = 0
If idx = 22 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 11 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 33 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 0 Then
SAVELOG "================ Test 1 elseif true OK"
Else
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
If idx = 0 Then
SAVELOG "================ Test 2 elseif true OK"
ElIf idx = 4 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
If idx = 0 Then
SAVELOG "================ Test 3 elseif true OK"
ElIf idx = 0 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 0 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
SAVELOG "============================== Test step 1 ========================"
Var idx_test = 0
DEBUGVAR idx_test
TRY "ROOT/taobin_project/xml/test_forloop.xml"
If idx = 99 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 0 Then
SAVELOG "================ Test 4 elseif true OK"
ElIf idx = 98 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
If idx = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 12 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 13 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
If idx = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 12 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 14 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
Else
SAVELOG "================ Test 5 elseif true OK"
EndIf
SAVELOG "============================== Test step 1 ========================"
If idx = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
If idx2 = 0 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
ElIf idx = 0 Then
If idx2 = 0 Then
SAVELOG "================ Test 6 elseif true OK"
EndIf
ElIf idx = 10 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
If idx = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
If idx2 = 0 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
ElIf idx = 0 Then
If idx2 = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx2 = 0 Then
SAVELOG "================ Test 5 elseif true OK"
EndIf
ElIf idx = 10 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
SAVELOG "=========== END ==========="

92
xml/test_else_if.xml Normal file
View file

@ -0,0 +1,92 @@
SAVELOG "============================== Test elseif ====================================="
Var idx = 0
Var idx2 = 0
If idx = 22 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 11 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 33 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 0 Then
SAVELOG "================ Test 1 elseif true OK"
Else
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
If idx = 0 Then
SAVELOG "================ Test 2 elseif true OK"
ElIf idx = 4 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
If idx = 0 Then
SAVELOG "================ Test 3 elseif true OK"
ElIf idx = 0 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 0 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
If idx = 99 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 0 Then
SAVELOG "================ Test 4 elseif true OK"
ElIf idx = 98 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
If idx = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 12 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 13 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
If idx = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 12 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx = 14 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
Else
SAVELOG "================ Test 5 elseif true OK"
EndIf
If idx = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
If idx2 = 0 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
ElIf idx = 0 Then
If idx2 = 0 Then
SAVELOG "================ Test 6 elseif true OK"
EndIf
ElIf idx = 10 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
If idx = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
If idx2 = 0 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf
ElIf idx = 0 Then
If idx2 = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
ElIf idx2 = 0 Then
SAVELOG "================ Test 5 elseif true OK"
EndIf
ElIf idx = 10 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
EndIf

35
xml/test_for_loop.xml
View file

@ -1,35 +0,0 @@
For idx < 10 Loop
Var idx = idx + 1
DEBUGVAR idx
If idx = 5 Then
SAVELOG "================ test for loop depth 1 with i f"
Else
SAVELOG "Hurr Hurr Hurr Hurr"
EndIf
Var TestLoopArray[idx] = idx + 10
Var idx2 = 0
For idx2 < 30 Loop
Var idx2 = idx2 + 1
DEBUGVAR idx2
If idx2 < 15 Then
SAVELOG "###### TTTTTT ######"
Else
SAVELOG "++++++ TTTTTT ++++++"
EndIf
EndFor
EndFor
Var idx = 0
For idx < 10 Loop
Var idx = idx + 1
DEBUGVAR TestLoopArray[idx]
EndFor

47
xml/test_forloop.xml Normal file
View file

@ -0,0 +1,47 @@
SAVELOG "================== start test f or l oop ================"
If HaveKok = "" Then
Else
SAVELOG " NO KOK NO COMMIT "
EndIf
For idx_test < 10 Loop
DEBUGVAR idx_test
Var idx_test = idx_test + 1
If idx_test = 5 Then
SAVELOG "================ test fo r lo op depth 1 with i f"
Else
SAVELOG "Hurr Hurr Hurr Hurr"
EndIf
Var TestroopArray[idx_test] = idx_test + 10
Var idx2 = 0
For idx2 < 30 Loop
Var idx2 = idx2 + 1
DEBUGVAR idx2
If idx2 < 15 Then
SAVELOG "###### TTTTTT ######"
Else
SAVELOG "++++++ TTTTTT ++++++"
EndIf
EndFor
EndFor
Var idx = 0
For idx < 10 Loop
Var idx = idx + 1
DEBUGVAR TestroopArray[idx]
EndFor
SAVELOG "================== end test f or l oop ================"

2
xml/topview2.xml
View file

@ -182,7 +182,7 @@
If str_openfile_xml_0 = "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" Then
If str_openfile_xml_2 = "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml" Then
Var CountUpForProjectThisFileStruct = CountUpForProjectThisFileStruct + 1
;DEBUGVAR CountUpForProjectThisFileStruct
DEBUGVAR CountUpForProjectThisFileStruct
EndIf
EndIf