Help

[Dorftrottel]

hi
ich wollt ma fragen ob jemand von euch QBasic kann.
denn ich hab da n' kleines problem.
Wenn ja, dann schaut euch das mal an und sagt mir warum es nich gans so läuft wie es soll.

CLS
INPUT "Btte Benutzername angeben ", user$
CLS
PRINT "Bitte ENTER drÂcken"
DIM a AS STRING
DIM b AS STRING
DIM c AS STRING
DIM d AS STRING
DIM e AS STRING
DIM f AS STRING
DIM g AS STRING
DIM h AS STRING
DIM i AS STRING


RANDOMIZE TIMER
z = (INT(RND * 53) + 9) / 10
DO: Taste$ = INKEY$: LOOP WHILE Taste$ = ""
IF Taste$ = CHR$(27) THEN END

RANDOMIZE TIMER
y = (INT(RND * 53) + 9) / 10
PRINT y;
k = 1
SELECT CASE k
         CASE IS = 1
                 PRINT " + "
         CASE IS = 2
                 PRINT " - "
         CASE IS = 3
                 PRINT " * "
         CASE IS = 4
                 PRINT " / "
END SELECT
PRINT z;
PRINT "="
LINE INPUT usereingabe$
PRINT "Zeit: "; TMER
delay = 2
finish = TIMER + delay
DO
LOOP UNTIL TIMER >= delay
delay = whatever
t! = INT(TIMER)
DO
IF t! <> INT(TIMER) THEN
t! = INT(TIMER)
count = count + 1
PRINT count
END IF
LOOP UNTIL count = delay
PRINT "Deine Punktzahl lautet:"
PRINT score
score = 0
DO: Taste$ = INKEY$: LOOP WHILE Taste$ = ""


 IF usereingabe$ = ergebnis$ THEN score = score + 10

IF user$ = a THEN OPEN "a.txt" FOR OUTPUT AS #1
PRINT #1, "User: ", user$; " Punkte ", score
CLOSE #1

IF user$ = b THEN OPEN "b.txt" FOR OUTPUT AS #1
PRINT #1, "User: ", user$; " Punkte ", score
CLOSE #1

IF user$ = c THEN OPEN "c.txt" FOR OUTPUT AS #1
PRINT #1, "User: ", user$; " Punkte ", score
CLOSE #1

IF user$ = d THEN OPEN "d.txt" FOR OUTPUT AS #1
PRINT #1, "User: ", user$; " Punkte ", score
CLOSE #1

IF user$ = e THEN OPEN "e.txt" FOR OUTPUT AS #1
PRINT #1, "User: ", user$; " Punkte ", score
CLOSE #1

IF user$ = f THEN OPEN "f.txt" FOR OUTPUT AS #1
PRINT #1, "User: ", user$; " Punkte ", score
CLOSE #1

IF user$ = g THEN OPEN "g.txt" FOR OUTPUT AS #1
PRINT #1, "User: ", user$; " Punkte ", score
CLOSE #1

IF user$ = h THEN OPEN "h.txt" FOR OUTPUT AS #1
PRINT #1, "User: ", user$; " Punkte ", score
CLOSE #1

IF user$ = i THEN OPEN "i.txt" FOR OUTPUT AS #1
PRINT #1, "User: ", user$; " Punkte ", score
CLOSE #1

HELP

 

[ingoS]

Vielleicht könntest du noch schreiben, was das eigentlich bewirken soll und wo das Problem auftritt?

 

[Dorftrottel]

Achso ja

Das Programm soll eigentlich ein simples Rechenprogramm werden.
Man bekommt Random Plus,Minus,Mal,Geteilt Aufgaben gestellt.
Am Anfang gibt man seinen Benutzernamen an. Ab
dann bekommt man die Aufgaben gestellt und die Uhr läuft.
Am Schluss (nach 150 sekunden) werden die Punkte die man pro richtiger Aufgabe erhält in einer !!!PRSÖNLICHEN!!! Highscore gespeichert.

Die Fehler:
Countdown geht nich.
Beim abspeichern der Punkte kommt ein ERROR.

 

[Bastian Born]

ich kann n bisl Qbasiic aber nur n bisl!