DarkCat09/mobilebasic
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add files via upload

Browse source
This commit is contained in:
Андрей 2021-03-29 20:43:07 +04:00 • committed by GitHub
parent 64c6352265
commit 35131ba393
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
90 changed files with 1738 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Examples/Dialogues/alert.bas Normal file
View file

@ -0,0 +1,12 @@
SUB MAIN
DIM R AS INTEGER
R = ALERT("OK Dialog", "OK Dialog Message which cannot be cancelled", "OK", "", "", FALSE)
PRINT R
R = ALERT("OK Dialog", "OK Dialog Message which can be cancelled", "OK", "", "", TRUE)
PRINT R
R = ALERT("Yes/No Dialog", "Yes/No Dialog Message", "Yes", "", "No", FALSE)
PRINT R
R = ALERT("Yes/Maybe/No Dialog", "Yes/Maybe/No Dialog Message", "Yes", "Maybe", "No", FALSE)
PRINT R
PRINT "*** Finished ***"
END SUB

14
Examples/Dialogues/select.bas Normal file
View file

@ -0,0 +1,14 @@
SUB MAIN
DIM ITEM(5) AS STRING
DIM R AS INTEGER
ITEM(1)="A"
ITEM(2)="B"
ITEM(3)="C"
ITEM(4)="D"
ITEM(5)="E"
R = SELECT("Select One - Not Cancellable", ITEM, FALSE)
PRINT R
R = SELECT("Select One - Cancellable", ITEM, TRUE)
PRINT R
PRINT "*** Finished ***"
END SUB

37
Examples/Dialogues/selectmulti.bas Normal file
View file

@ -0,0 +1,37 @@
SUB MAIN
DIM ITEM(5) AS STRING
DIM FLAG(5) AS BOOLEAN
DIM I AS INTEGER
ITEM(1)="A"
ITEM(2)="B"
ITEM(3)="C"
ITEM(4)="D"
ITEM(5)="E"
FLAG(1)=FALSE
FLAG(2)=FALSE
FLAG(3)=FALSE
FLAG(4)=FALSE
FLAG(5)=FALSE
DIM R AS INTEGER
R = SELECTMULTI("OK Dialog", ITEM, FLAG, "OK", "", "", FALSE)
PRINT "R=" + STR$(R)
FOR I=1 TO 5
PRINT FLAG(I)
END FOR
R = SELECTMULTI("OK Dialog", ITEM, FLAG, "OK", "", "", TRUE)
PRINT "R=" + STR$(R)
FOR I=1 TO 5
PRINT FLAG(I)
END FOR
R = SELECTMULTI("Yes/No Dialog", ITEM, FLAG, "Yes", "", "No", FALSE)
PRINT "R=" + STR$(R)
FOR I=1 TO 5
PRINT FLAG(I)
END FOR
R = SELECTMULTI("Yes/Maybe/No Dialog", ITEM, FLAG, "Yes", "Maybe", "No", FALSE)
PRINT "R=" + STR$(R)
FOR I=1 TO 5
PRINT FLAG(I)
END FOR
PRINT "*** Finished ***"
END SUB

24
Examples/Dialogues/selectone.bas Normal file
View file

@ -0,0 +1,24 @@
SUB MAIN
DIM ITEM(5) AS STRING
DIM SELECTED AS INTEGER
DIM R AS INTEGER
ITEM(1)="A"
ITEM(2)="B"
ITEM(3)="C"
ITEM(4)="D"
ITEM(5)="E"
SELECTED=-1
R = SELECTONE("OK Dialog", ITEM, SELECTED, "OK", "", "", FALSE)
PRINT R
PRINT SELECTED
R = SELECTONE("OK Dialog", ITEM, SELECTED, "OK", "", "", TRUE)
PRINT R
PRINT SELECTED
R = SELECTONE("Yes/No Dialog", ITEM, SELECTED, "Yes", "", "No", FALSE)
PRINT R
PRINT SELECTED
R = SELECTONE("Yes/Maybe/No Dialog", ITEM, SELECTED, "Yes", "Maybe", "No", FALSE)
PRINT R
PRINT SELECTED
PRINT "*** Finished ***"
END SUB