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

Inter update

Browse source
This commit is contained in:
wanlop run 2025-03-03 15:03:09 +07:00
parent a1b75975f9
commit 2224289fc7
47 changed files with 8136 additions and 12690 deletions
Download patch file Download diff file Expand all files Collapse all files

137
xml/test_all_syntax.xml
View file

@ -8,6 +8,12 @@
; On open
Machine AndroidTemperatureUpdateNow
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"
Var Timeout = 0
Var Index = 1
DEBUGVAR TestArrary[0]
@ -17,7 +23,7 @@
; xml-open-0 /mnt/sdcard/coffeevending/taobin_project/xml/test_all_syntax.xml
SAVELOG "TEST IF"
Var idx = 0
If idx = 0 Then
SAVELOG "================ Test I f true OK"
@ -31,56 +37,113 @@
If idx = 0 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
Else
SAVELOG "================ Test el se OK"
SAVELOG "================ Test el se OK"
If idx = 2 Then
SAVELOG "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
Else
SAVELOG "================ Test el se OK recursive"
EndIf
EndIf
SAVELOG "TEST ELSE IF"
SAVELOG "============================== Test elseif ====================================="
Var idx = 0
Var idx2 = 0
If idx = 0 Then
SAVELOG "================ Test elseif whe if true OK"
ElIf idx = 1 Then
SAVELOG "================ Test elseif whe Elif true OK"
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 LOOP"
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"
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
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
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
EndFor
Var idx = 0
For idx < 10 Loop
Var idx = idx + 1
DEBUGVAR TestLoopArray[idx]
EndFor
SAVELOG "=========== END ==========="
</EventOpen>
<Timeout> 120000 </Timeout>
@ -88,7 +151,7 @@
Var Timeout = Timeout + 1
If Timeout > 2 Then
If Timeout > 10 Then
Open "ROOT/taobin_project/xml/page_board.xml"
EndIf