Das deutsche QBasic- und FreeBASIC-Forum

[flexmasterx]

Hallo Leute,

Ich habe in Qbasic 6 Fragen (mit Input) an den User, doch der soll diese Frage innerhalb von 20 Sek. beantworten.
Danke im Vorraus

MfG Felix Vlasak

[Sebastian]

Siehe MonsterFAQ!
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[Xolios]

Hallo.

---
Frage Deutsch
~~~~~~~~~~~~~~
Wie kann ich eine zeitlich begrenzte Tasteneingabe mit INPUT realisieren?


Question English
~~~~~~~~~~~~~~
How to implement keyboard input with time limit?


Antwort 1
~~~~~~~~~
[von Thomas Antoni im QB-Forum, 21.2.02 ]
INPUT ist hierfür nicht geeignet. Du musst Dir eine eigene zeitüberwachte Eingaberoutine "schnitzen", die die einzelnen Tasteneingaben mit INKEY$ abfragt.
Das folgende Programm realiert eine Tasteneingabe, die 5 sec nach der letzten
Tastenbetätigung abgebrochen wird:

'TASTKURZ.BAS
'Zeitlich auf 5 sec begrenzte Tasteneingabe
'von Thomas Antoni, 25.8.02
'============================================
CLS
PRINT "Auf 5 sec je Tastenbetaetigung begrenzte Eingabe"
PRINT "Gib Text ein; Abschluss mit Eingabe-Taste:"
starttime! = TIMER
DO
LOCATE , , 1 'display cursor
x$ = INKEY$
IF x$ = CHR$(13) THEN EXIT DO 'Exit with Enter Key
IF x$ <> "" THEN
y$ = y$ + x$
LOCATE , 1
PRINT y$;
starttime! = TIMER 'restart timer
END IF
LOOP UNTIL TIMER > starttime! + 5
'
PRINT
PRINT "Input finished. Your Input was .... "; y$

Du kannst dies Programm noch beliebig komfortabel machen, z.B. durch Auswerten der Backspace-Taste; siehe den Eintrag "Wie kann ich Tastatureingaben fester Länge programmieren?" .

---
Das was Sebastian erwähnte

Gruß
Ray
_________________
www.ray-earth.de
Anm.: Neue ICQ