44 lines
1.1 KiB
Plaintext
44 lines
1.1 KiB
Plaintext
dim dd$(5) ' drop down box
|
|
for i = 1 to 5
|
|
dd$(i) = "Drop ";i
|
|
next i
|
|
value$ = "1234"
|
|
notes$ = "Rosetta Code
|
|
is good"
|
|
|
|
bf$ = "<SPAN STYLE='font-family:arial; font-weight:700; font-size:12pt'>"
|
|
|
|
[screen]
|
|
cls
|
|
html bf$;"<center><TABLE BORDER=1 CELLPADDING=0 CELLSPACING=0 bgcolor=wheat>"
|
|
html "<TR align=center BGCOLOR=tan><TD colspan=2>Rosetta Code</TD></TR><TR>"
|
|
html "<TD align=right bgcolor=tan>Value:</TD><TD>"
|
|
textbox #val,value$,5
|
|
html "</TD></TR><TR><TD bgcolor=tan align=right>Radio</TD><TD>"
|
|
radiogroup #rdo,"1,2,3,4,5",rdo$
|
|
#rdo horizontal(1)
|
|
html "</TD></TR><TR><TD bgcolor=tan align=right>Drop Down</TD><TD>"
|
|
listbox #dd,dd$(),1
|
|
|
|
html "</TD></TR><TR><TD bgcolor=tan align=right>Notes</TD><TD>"
|
|
textarea #notes,notes$,25,3
|
|
html "</TD></TR><TR bgcolor=tan><TD colspan=2 ALIGN=CENTER>"
|
|
button #inc, "Increment", [incr]
|
|
button #rnd, "Random", [rand]
|
|
button #ex, "Exit", [exit]
|
|
html "</TD></TR></TABLE>"
|
|
wait
|
|
|
|
[incr]
|
|
value = val(#val contents$())
|
|
value$ = str$(value + 1)
|
|
goto [screen]
|
|
|
|
[rand]
|
|
value$ = str$(int(rnd(1) * 10000))
|
|
goto [screen]
|
|
|
|
[exit]
|
|
print "Bye"
|
|
end
|