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

Siehe auch

INKEY( ) | KEYBOARD | READKEY( )