Das deutsche QBasic- und FreeBASIC-Forum

[Sven49]

Hallo,

wie im Titel ersichtlich bin ich neu im FreeBasic.
Ich bin grade im Anfänger-Tutorial Abschnitt 3 Seite 1 und habe das soweit auch verstanden, denke ich.

Ich spielte etwas herum und versuchte folgendes:

dim wahl as string
do
wahl=inkey
print inkey;
loop until wahl = chr(27)

Die Idee ist, dass eine gedrückte Taste auf dem Bildschirm ausgegeben wird und mit ESC beendet.
Aber irgendwie funktioniert das nur selten (in der obrigen Version noch am besten, in der Schleife integrierte sleep x Befehle verschlechterten das Ergebnis), mit Ausnahme der ESC-Taste.
Ich frage mich jetzt, warum das so ist und was ich da falsch gemacht habe?

Gruß!
Sven

[St_W]

Hallo und Willkommen im Forum!


Der Fehler ist, dass du mehrere Male die Inkey() Funktion aufrufst.

Dabei wird jedes Mal das jeweils nächste Zeichen vom Tastaturpuffer zurückgegeben und aus diesem gelöscht.

Um das Problem zu behen, ruft man die Inkey() Funktion nur ein einziges mal auf, und speichert sich die gedrückte Taste.
Das machst du ja im Grunde auch schon (Variable "wahl"). Nur musst du dann auch immer diese Variable verwenden, um auf den gespeicherte Tastendruck zuzugreifen.
Genau das machst du beim Print nicht.
_________________
Aktuelle FreeBasic Builds, Projekte, Code-Snippets unter http://users.freebasic-portal.de/stw/
http://www.mv-lacken.at Musikverein Lacken (MV Lacken)

[Sven49]

Ich bin ein Esel!

Natürlich muss es print wahl; heißen...

Vielen Dank!

[dreael]

Und natürlich noch ein paar wichtige Verbesserungen:

[Sven49]

Danke Dreael!