INKEY/de

Funktion

Gibt den ASCII-Wert des ersten Zeichens aus dem seriellen Buffer zurück.

 

 

Syntax

var = INKEY()

var = INKEY(#channel)

 

 

Anmerkungen

Var	Byte-, Integer-, Word-, Long- oder String-Variable.
Channel	Konstante Nummer des Software-UART-Kanals.

 

Wenn kein Zeichen ansteht dann wird Null zurückgegeben.

Benutzen Sie IsCharWaiting() um zu prüfen ob ein Zeichen ansteht.

 

Die INKEY-Funktion kann benutzt werden wenn eine serielle Schnittstelle benutzt wird.

Die serielle Schnittstelle kann mit einem Com-Port eines PCs verglichen werden.

 

Eine Null (0) wird zurückgegeben wenn kein Zeichen ansteht. Die Funktion eignet sich daher nur bedingt wenn auch Nullen empfangen werden sollen. Man kann nicht unterscheiden zwischen einer empfangenen Null und dem Fall dass kein Zeichen ansteht.

In so einem Fall kann man IsCharwaiting benutzen um herauszufinden ob ein Zeichen ansteht.

 

 

Siehe auch

WAITKEY , 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