WAITKEY/de

Funktion

Wartet bis ein Zeichen empfangen wird.

 

 

Syntax

var = WAITKEY()

var = WAITKEY(#channel)

 

 

Anmerkungen

var	Variable für Empfang des ASCII-Zeichens aus dem seriellen Buffer.   Kann eine numerische Variable oder eine Zeichenketten-Variable sein.
#channel	Für Software-UART benutzter Kanal.

 

Inkey() gibt ebenfalls ein Zeichen aus dem seriellen Buffer zurück aber Inkey() wartet nicht wenn kein Zeichen im Buffer ist.

Waitkey() wartet bis ein Zeichen empfangen wird und blockiert dadurch den Programmablauf.

 

 

Siehe auch

INKEY , ISCHARWAITING

 

 

Beispiel

'-----------------------------------------------------------------------------------------
'name : inkey.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo: INKEY , WAITKEY
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------
 
$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' Taktrate
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
 
Dim A As Byte , S As String * 2
Do
 A = Inkey() 'ASCII-Zeichen von serieller Schnittstelle empfangen
's = Inkey()
If A > 0 Then 'es wurde etwas empfangen
 Print "ASCII code " ; A ; " from serial"
End If
Loop Until A = 27 'bis ESC gedrückt wird
 
A = Waitkey() 'Auf ein Zeichen warten
's = waitkey()
Print Chr(a)
 
'warten bis ESC gedrückt wird
Do
Loop Until Inkey() = 27
 
'Wenn binäre Daten und der binäre Wert 0 empfangen werden sollen
'kann man die  IScharwaiting() Funktion benutzen.
'IScharwaiting() gibt 1 zurück wenn ein Zeichen empfangen wurde und 0 wenn kein Zeichen empfangen wurde.
'Man kann das Zeichen dann mit inkey oder waitkey einlesen.
End

Languages	English • Deutsch