User input/Graphical: Difference between revisions

Content added Content deleted
Line 2,881: Line 2,881:
end while number.to_i != 75000
end while number.to_i != 75000
para %Q{you entered the string "#{string}" and the number #{number}}
para %Q{you entered the string "#{string}" and the number #{number}}
end</lang>

=={{header|Run BASIC}}==
<lang runbasic>html "<TABLE BORDER=1 BGCOLOR=silver>
<TR><TD colspan=2>Please input a string and a number</TD></TR>

<TR><TD align=right>String</TD><TD><input type=text name=str size=18></TD></TR>
<TR><TD align=right>Number</TD><TD><input type=number name=num size=18 value=75000></TD></TR>

<TR><TD colspan=2 align=center>"

button #go, "Accept", [go]
button #ex, "Exit", [ex]

html "</TD></TR></TABLE>"
Wait

[go]
print #request get$("str")
print val(#request get$("num"))
wait

[ex]
end</lang>
end</lang>