CHRSAW( )-Funktion
Ermittelt, ob im Tastaturpuffer ein Zeichen vorliegt.
CHRSAW([nSeconds])
Rückgabewerte
Logisch
Parameter
nSeconds
Gibt die Zeitdauer (in Sekunden) an, die CHRSAW( ) vor der Überprüfung des Tastaturpuffers wartet. Wenn Sie nSeconds weglassen, wird der Tastaturpuffer sofort überprüft.Mittels nSeconds können Sie CHRSAW( ) für eine Vielzahl zeitgesteuerter Aktivitäten verwenden. So können Sie z. B. programmgesteuert eine Anwendung schließen, wenn für einen bestimmten Zeitraum keine Taste gedrückt wurde.
Hinweise
CHRSAW( ) gibt Wahr (.T.) zurück, wenn im Tastaturpuffer ein Zeichen vorliegt; andernfalls wird Falsch (.F.) zurückgegeben. Der Inhalt des Tastaturpuffers wird durch CHRSAW( ) nicht beeinflusst.
Beispiel
Im folgenden Beispiel wird ein Fenster angezeigt, dessen Eingabefelder mittels @ ... GET-Befehlen erstellt wurden, und dann 5 Sekunden lang auf eine Tastatureingabe gewartet. Wird in dieser Zeit keine Taste gedrückt, gibt CHRSAW( ) Falsch (.F.) zurück, und das Programm wird beendet.
SET TALK OFF
DEFINE WINDOW wEnter FROM 7,10 to 13,70 PANEL
ACTIVATE WINDOW wEnter
@ 1,3 SAY 'Customer: ' GET gcCustomer DEFAULT SPACE(40)
@ 3,3 SAY 'Address: ' GET gcAddress DEFAULT SPACE(40)
WAIT WINDOW 'Waiting for input' NOWAIT
IF NOT CHRSAW(5)
DEACTIVATE WINDOW wEnter
CLEAR GETS
ELSE
READ
DEACTIVATE WINDOW wEnter
ENDIF
RELEASE WINDOW wEnter
WAIT
CLEAR