Support Forum / Форум поддержки

Code: Select all

prompt$=""
FIELD "z" TEXT prompt$ AT 1,350 SIZE 300, 25
FIELD "z" SELECT
PRINT "What is your name?"
DO 
  UNTIL FIELD_CHANGED("z")
  Answer$=FIELD_TEXT$("z")
  FIELD "z" SELECT
  PRINT Answer$
END

Code: Select all

prompt$=""
FIELD "z" TEXT prompt$ AT 1,35 SIZE 300, 25
field "z" font name "Courier"
FIELD "z" SELECT
PRINT "What is your name?"
DO 
  UNTIL FIELD_CHANGED("z")
  slowdown
  Answer$=FIELD_TEXT$("z")
  'FIELD "z" SELECT
  PRINT!PRINT!PRint "Hello, "&Answer$
pause 1
FIELD "y" TEXT prompt$ AT 1,130 SIZE 300, 25
field "y" font name "Courier"
FIELD "y" SELECT
PRINT "Where do you live?"
DO
  UNTIL FIELD_CHANGED("y")
  slowdown
  Answer$=FIELD_TEXT$("y")
  PRINT!PRINT!Print Answer$&" is a nice place."
pause 1
FIELD "x" TEXT prompt$ AT 1,220 SIZE 300, 25
field "x" font name "Courier"
'Field "y" back alpha 0
FIELD "x" SELECT
PRINT "How long have you been a Forum member?"
DO 
  UNTIL FIELD_CHANGED("x")
  slowdown
  Answer$=FIELD_TEXT$("x")
  PRINT!PRINT!Print Answer$&" is a long time!"
pause 1
FIELD "w" TEXT prompt$ AT 1,310 SIZE 300, 25
field "w" font name "Courier"
FIELD "w" SELECT
PRINT "What is your favorite feature of the Forum?"
DO 
  UNTIL FIELD_CHANGED("w")
  slowdown
  Answer$=FIELD_TEXT$("w")
  PRINT!PRINT!Print "Yes, "&Answer$&" is a nice feature."
pause 1
FIELD "v" TEXT prompt$ AT 1,400 SIZE 300, 25
field "v" font name "Courier"
FIELD "v" SELECT
PRINT "Have you posted any programs?"
DO 
  UNTIL FIELD_CHANGED("v")
  slowdown
  Answer$=FIELD_TEXT$("v")
  PRINT!PRINT!Print "Interesting."
pause 2
end
  
END

Code: Select all

'Inline Input Field
'with safe prompt
'by Dutchman, april 2016
n=1
DO
 Prompt$="Request "&STR$(n,"#")&": "
 Field$="In_"&STR$(n,"#")
 Answer$=Input$(10,75+n*25,400,22,Field$,Prompt$)
 PRINT "Input";n;"=";Answer$
n+=1
until n>3 OR Answer$=""
END



DEF Input$(x,y,w,h,Field$,Prompt$)
FIELD Field$ AT x,y SIZE w,h
FIELD Field$ FONT SIZE h-6
CALL InputPreset(Field$)
FIELD Field$ SELECT
prompt=LEN(Prompt$)
DO
 IF FIELD_CURSOR_POS(Field$)<prompt THEN FIELD Field$ TEXT Prompt$
 SLOWDOWN
UNTIL FIELD_CHANGED(Field$)
Txt$=FIELD_TEXT$(Field$)
T$=RIGHT$(Txt$,LEN(Txt$)-prompt)
RETURN T$
END DEF

DEF InputPreset(name$)
FIELD name$ BACK COLOR 0,1,0
FIELD name$ FONT NAME "Verdana"
FIELD name$ FONT COLOR 0,0,1
END DEF

Code: Select all

prompt$=""
Answer$=""

PRINT "What is your name?"

' FIELD_CURSOR_POS("y")  
FIELD "y" TEXT prompt$ AT 1,128 SIZE 300, 25
FIELD "y" FONT NAME "Courier"
FIELD "y" SELECT
PRINT!PRINT!PRINT!PRINT "Where do you live?"


FIELD "x" TEXT prompt$ AT 1,214 SIZE 300, 25
FIELD "x" FONT NAME "Courier"
'Field "y" back alpha 0
FIELD "x" SELECT
PRINT!PRINT!PRINT!PRINT "How long have you been a Forum member?"


FIELD "w" TEXT prompt$ AT 1,304 SIZE 300, 25
FIELD "w" FONT NAME "Courier"
FIELD "w" SELECT
PRINT!PRINT!PRINT!PRINT "What is your favorite feature of the Forum?"


FIELD "v" TEXT prompt$ AT 1,400 SIZE 300, 25
FIELD "v" FONT NAME "Courier"
FIELD "v" SELECT
PRINT!PRINT!PRINT!PRINT "Have you posted any programs?"


' Display Inut Name Box
FIELD "z" TEXT prompt$ AT 1,35 SIZE 300, 25
FIELD "z" FONT NAME "Courier"
FIELD "z" SELECT


PRINT!PRINT!PRINT!PRINT "Results of input boxes:"

' We need to prevent a fall through, so we wait until last field is entered. 
DO
  SLOWDOWN
UNTIL FIELD_CHANGED("v")   

GOSUB GetAnswers

STOP
  
'Get and print out all the answers
GetAnswers:

' DEBUG PAUSE

Answer$=FIELD_TEXT$("z")
PRINT "What is your name: "&Answer$

Answer$=FIELD_TEXT$("y")
PRINT "Where do you live: "&Answer$

Answer$=FIELD_TEXT$("x")
PRINT "How long have you been a forum member: "&Answer$

Answer$=FIELD_TEXT$("w")
PRINT "Yes, "&Answer$&" is a nice feature."

Answer$=FIELD_TEXT$("v")
PRINT "Interesting: "&Answer$

RETURN