UserName, Password, Number!
Posted: Mon Dec 19, 2011 5:01 pm
This is my first program in Qbasic, it works fine! However in the input sections i cannot use any thing other that numbers and, yes ive tried with signs like : %, $ and stuff like that! Could someone help me understand how i can make
"IF number = 1 GOTO start2 ELSE GOTO start"
into
"IF number = haha GOTO start2 ELSE GOTO start"
CLS
Color 2
start:
INPUT " Enter Username ", number,
IF number = 1 GOTO start2 ELSE GOTO start
start2:
INPUT " Enter Password ", number,
IF number = 321 GOTO start3 ELSE GOTO start
start3:
CLS
Color 2
PRINT " Velkommen til 2ela "
INPUT " Ka vil du gjera? ", number,
IF number = 1 GOTO start4 ELSE GOTO start3
start4:
CLS
Color 2
PRINT " Klassen 2012 "
PRINT " Kenneth Blokhus 1 "
PRINT " ooystein Nyg?rd 2 "
PRINT " Erling Hovland 3 "
PRINT " Henrik Hovland 4 "
PRINT " Erlend Haugland 5 "
PRINT " Aleksander Kol?y 6 "
PRINT " Andreas Huse 7 "
PRINT " Kristoffer Andreassen 8 "
PRINT " Torstein Landa 9 "
INPUT " Kin vil du veta om? ", number,
IF number = 1 THEN GOTO kenneth
IF number = 2 THEN GOTO ooystein
IF number = 3 THEN GOTO erling
IF number = 4 THEN GOTO henrik
IF number = 5 THEN GOTO erlend
IF number = 6 THEN GOTO aleksander
IF number = 7 THEN GOTO andreas
IF number = 8 THEN GOTO kristoffer
IF number = 9 THEN GOTO torstein ELSE GOTO start3
kenneth:
CLS
Color 2
PRINT " Hei Kenneth "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
ooystein:
CLS
Color 2
PRINT " Hei Ooystein "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
erling:
CLS
Color 2
PRINT " Hei Erling "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
henrik:
CLS
Color 2
PRINT " Hei Henrik "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
erlend:
CLS
Color 2
PRINT " Hei Erlend "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
aleksander:
CLS
Color 2
PRINT " Hei Aleksander "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
andreas:
CLS
Color 2
PRINT " Hei Andreas "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
kristoffer:
CLS
Color 2
PRINT " Hei Kristoffer "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
torstein:
CLS
Color 2
PRINT " Hei Torstein "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
"IF number = 1 GOTO start2 ELSE GOTO start"
into
"IF number = haha GOTO start2 ELSE GOTO start"
CLS
Color 2
start:
INPUT " Enter Username ", number,
IF number = 1 GOTO start2 ELSE GOTO start
start2:
INPUT " Enter Password ", number,
IF number = 321 GOTO start3 ELSE GOTO start
start3:
CLS
Color 2
PRINT " Velkommen til 2ela "
INPUT " Ka vil du gjera? ", number,
IF number = 1 GOTO start4 ELSE GOTO start3
start4:
CLS
Color 2
PRINT " Klassen 2012 "
PRINT " Kenneth Blokhus 1 "
PRINT " ooystein Nyg?rd 2 "
PRINT " Erling Hovland 3 "
PRINT " Henrik Hovland 4 "
PRINT " Erlend Haugland 5 "
PRINT " Aleksander Kol?y 6 "
PRINT " Andreas Huse 7 "
PRINT " Kristoffer Andreassen 8 "
PRINT " Torstein Landa 9 "
INPUT " Kin vil du veta om? ", number,
IF number = 1 THEN GOTO kenneth
IF number = 2 THEN GOTO ooystein
IF number = 3 THEN GOTO erling
IF number = 4 THEN GOTO henrik
IF number = 5 THEN GOTO erlend
IF number = 6 THEN GOTO aleksander
IF number = 7 THEN GOTO andreas
IF number = 8 THEN GOTO kristoffer
IF number = 9 THEN GOTO torstein ELSE GOTO start3
kenneth:
CLS
Color 2
PRINT " Hei Kenneth "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
ooystein:
CLS
Color 2
PRINT " Hei Ooystein "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
erling:
CLS
Color 2
PRINT " Hei Erling "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
henrik:
CLS
Color 2
PRINT " Hei Henrik "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
erlend:
CLS
Color 2
PRINT " Hei Erlend "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
aleksander:
CLS
Color 2
PRINT " Hei Aleksander "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
andreas:
CLS
Color 2
PRINT " Hei Andreas "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
kristoffer:
CLS
Color 2
PRINT " Hei Kristoffer "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End
torstein:
CLS
Color 2
PRINT " Hei Torstein "
INPUT " Tilbake? ", number,
IF number = 1 THEN GOTO start4 ELSE End