Admin at 19:06, 12 February 2013

2013-02-12T19:06:22Z

Admin: Created page with "= Action = Wait until a character is received. ..."

2013-02-12T19:05:26Z

Created page with "= Action = Wait until a character is received. ..."

New page

= Action =

Wait until a character is received.

 

 

= Syntax =

var = WAITKEY()

var = WAITKEY(#channel)

 

 

= Remarks =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="548" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 122px; border: 1px solid rgb(0, 0, 0);" |
var

| valign="top" width="100%" style="width: 417px; border: 1px solid rgb(0, 0, 0);" |
Variable that receives the ASCII value of the serial buffer.

 

Can be a numeric variable or a string variable.

|- style="vertical-align: top;"
| valign="top" width="23%" style="width: 122px; border: 1px solid rgb(0, 0, 0);" |
#channel

| valign="top" width="100%" style="width: 417px; border: 1px solid rgb(0, 0, 0);" |
The channel used for the software UART.

|}
</div>
 

While Inkey() returns a character from the serial buffer too, INKEY() continues when there is no character. Waitkey() waits until there is a character received. This blocks your program.

 

 

= See also =

[[INKEY]] , [[ISCHARWAITING]]

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'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 ' used crystal frequency
$baud = 19200 ' use baud rate
$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() 'get ascii value from serial port
's = Inkey()
If A > 0 Then 'we got something
Print "ASCII code " ; A ; " from serial"
End If
Loop Until A = 27 'until ESC is pressed

A = Waitkey() 'wait for a key
's = waitkey()
Print Chr(a)

'wait until ESC is pressed
Do
Loop Until Inkey() = 27

'When you need to receive binary data and the bibary value 0 ,
'you can use the IScharwaiting() function.
'This will return 1 when there is a char waiting and 0 if there is no char waiting.
'You can get the char with inkey or waitkey then.
End
</source> {{Languages}}

[[Category:BASCOM Language Reference]]

@@ Line 33: / Line 33: @@
 |- style="vertical-align: top;"
 | valign="top" width="23%" style="width: 122px; border: 1px solid rgb(0, 0, 0);" |
-#channel
+<nowiki>#</nowiki>channel
 | valign="top" width="100%" style="width: 417px; border: 1px solid rgb(0, 0, 0);" |

WAITKEY - Revision history

Admin at 19:06, 12 February 2013

Admin: Created page with "= Action = Wait until a character is received. ..."