CHRSAW( ) (Función)

  • Artículo

Determina si un carácter está presente o no en el búfer de teclado.

CHRSAW([nSeconds])

Valores devueltos

Logical

Parámetros

  • nSeconds
    Especifica el tiempo, en segundos, que CHRSAW( ) espera antes de comprobar el búfer de teclado. Si omite nSeconds, el búfer de teclado se comprobará inmediatamente.

    La inclusión de nSeconds permite utilizar CHRSAW( ) en diversas actividades cronometradas. Por ejemplo, el programa puede cerrar una aplicación si no se ha presionado ninguna tecla después de transcurrir un cierto número de segundos.

Observaciones

CHRSAW( ) devuelve Verdadero (.T.) si hay un carácter en el búfer de teclado y devuelve Falso (.F.) si no lo hay. CHRSAW( ) no afecta al contenido del búfer de teclado.

Ejemplo

En el ejemplo siguiente, el sistema muestra una ventana que contiene campos de entrada creados con comandos @ ... GET y espera 5 segundos a la entrada de teclado. Si no se presiona ninguna tecla durante este tiempo, CHRSAW( ) devolverá falso (.F.) y el programa terminará.

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

Vea también

INKEY( ) | KEYBOARD | READKEY( )