Add files via upload
This commit is contained in:
parent
64c6352265
commit
35131ba393
90 changed files with 1738 additions and 0 deletions
12
Examples/Dialogues/alert.bas
Normal file
12
Examples/Dialogues/alert.bas
Normal 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
14
Examples/Dialogues/select.bas
Normal 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
37
Examples/Dialogues/selectmulti.bas
Normal 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
24
Examples/Dialogues/selectone.bas
Normal 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
|
Loading…
Add table
Add a link
Reference in a new issue