Das deutsche QBasic- und FreeBASIC-Forum

[Sternchen1]

Hallo,

ich habe eine Ampelschaltung mit Q-Basic geschrieben.Mein Problem ist nur ich wollte eigentlich das Ganze so machen, dass das Programm automatisch beendet wird, sobald man eine beliebige Taste drückt, aber das klappt nicht. Ich muss jedesmal zum beenden "strg"+"alt"+"entf" drücken und dann hängt sich mein Computer auf. Und ich müsste es morgen in der Schule vorführen und da ist es ja nicht gerade sehr professionnel,wenn ich das so mache.
Kann mir jemand sagen, was ich da eingeben muss, damit es automatisch beendet wird? Wär total nett!!
Danke schon mal im Vorraus für alle Antworten!!

[Sternchen1]

Also ich hab hier jetzt mal das Programm reinkopiert:

SCREEN 12
CLS
LINE (250, 10)-(300, 180), , B
LINE (450, 10)-(500, 180), , B
LINE (301, 5)-(305, 400), 7, BF
LINE (501, 5)-(505, 400), 7, BF
LOCATE 25, 2
PRINT "Taste drücken beendet die Ampel."
DO
LINE (250, 400)-(350, 405), 7, BF
LINE (450, 400)-(550, 405), 7, BF
FOR i% = 1 TO 12
LINE (251, 11)-(299, 179), 0, BF
LINE (451, 11)-(500, 179), 0, BF
CIRCLE (275, 50), 20, 4
IF i% = 5 OR i% = 6 OR i% = 7 OR i% = 8 OR i% = 9 OR i% = 10 OR i% = 11 OR
CIRCLE (475, 50), 20, 4
IF i% = 1 OR i% = 2 OR i% = 3 OR i% = 4 OR i% = 5 OR i% = 6 OR i% = 11 OR i
CIRCLE (275, 100), 20, 14
IF i% = 4 OR i% = 12 THEN PAINT (275, 90), 14 'Ampel 1 gelb
CIRCLE (475, 100), 20, 14
IF i% = 6 OR i% = 10 THEN PAINT (475, 100), 14 'Ampel 2 gelb
CIRCLE (275, 145), 20, 2
IF i% = 1 OR i% = 2 OR i% = 3 THEN PAINT (275, 145), 2 'Ampel 1 grün
CIRCLE (475, 145), 20, 2
IF i% = 7 OR i% = 8 OR i% = 9 THEN PAINT (475, 145), 2 'Ampel 2 grün
IF i% = 1 OR i% = 2 OR i = 3 THEN OUT 888, 12
IF i% = 4 THEN OUT 888, 10
IF i% = 5 OR i% = 11 THEN OUT 888, 9
IF i% = 6 THEN OUT 888, 25
IF i% = 7 OR i% = 8 OR i% = 9 THEN OUT 888, 33
IF i% = 10 THEN OUT 888, 17
IF i% = 12 THEN OUT 888, 11
SLEEP 3

NEXT i%

LOOP


Tja,und jetzt stellt sich eben noch die Frage, wie man diese Schleife beendet!
Danke fürs Lesen und für alle Antworten!

[Lutz Ifer]

Benutze in Zukunft bitte "[ code]" und "[ /code]".

[jb]

Generell würde ich eher empfehlen, INKEY$ in einer Variablen zu speichern, da
es bei mehrfacher Abfrage von INKEY$ *ohne Variable* zu Problemen kommen kann.

[Thomas Antoni]

Evtl. hilft Folgendes weiter:

www.qbasic.de -> QB-MonsterFAQ -> "Tastatureingabe -> Wie kann ich mein Programm jederzeit mit Esc abbrechbar machen?"

Viel Erfolg :)
_________________
+++ Die beliebte QBasic CD-ROM von QBasic.de - 670 MB QBasic-Stuff mit komfortabler HTML-Oberfläche. Für nur 5 EUR bestellbar auf www.antonis.de/qbcdueb.htm +++