WAITKEY/de - Revision history

Stefanhamburg: /* Remarks */

2013-02-21T21:41:55Z

Remarks

Stefanhamburg: /* Example */

2013-02-21T21:27:11Z

Example

Stefanhamburg: /* See also */

2013-02-21T21:20:12Z

Stefanhamburg: /* Remarks */

2013-02-21T21:19:51Z

Remarks

Stefanhamburg: /* Remarks */

2013-02-21T21:19:23Z

Remarks

Stefanhamburg: /* (COPIED FROM ENGLISH PAGE) = */

2013-02-21T21:12:52Z

(**COPIED FROM ENGLISH PAGE**) =

Admin: 1 revision

2013-02-15T19:16:33Z

1 revision

Admin at 19:06, 12 February 2013

2013-02-12T19:06:22Z

New page

== (**COPIED FROM ENGLISH 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);" |
<nowiki>#</nowiki>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/de]]

@@ Line 17: / Line 17: @@
 <span style="font-family: Arial;">&nbsp;</span>
-= <span class="f_Header">Remarks</span> =
+= <span class="f_Header">Anmerkungen</span> =
 <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;"

@@ Line 50: / Line 50: @@
 <span style="font-family: Arial;">&nbsp;</span>
-= <span class="f_Header">See also</span> =
+= <span class="f_Header">Siehe auch</span> =
 [[INKEY]]&nbsp;,&nbsp;[[ISCHARWAITING]]

@@ Line 29: / Line 29: @@
 <span style="font-family: Arial;">&nbsp;</span>
-KAnn eine numerische Variable oder eine Zeichenketten-Variable sein.
+Kann eine numerische Variable oder eine Zeichenketten-Variable sein.
 |- style="vertical-align: top;"

@@ Line 25: / Line 25: @@
 | valign="top" width="100%" style="width: 417px; border: 1px solid rgb(0, 0, 0);" |
-Variable that receives the ASCII value of the serial buffer.
+Variable für Empfang des ASCII-Zeichens aus dem seriellen Buffer.
 <span style="font-family: Arial;">&nbsp;</span>
-Can be a numeric variable or a string variable.
+KAnn eine numerische Variable oder eine Zeichenketten-Variable sein.
 |- style="vertical-align: top;"
@@ Line 36: / Line 36: @@
 | valign="top" width="100%" style="width: 417px; border: 1px solid rgb(0, 0, 0);" |
-The channel used for the software UART.
+Für Software-UART benutzter Kanal.
 |}
@@ Line 42: / Line 42: @@
 <span style="font-family: Arial;">&nbsp;</span>
-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.
+Inkey() gibt ebenfalls ein Zeichen aus dem seriellen Buffer zurück aber Inkey() wartet nicht wenn kein Zeichen im Buffer ist.
 <span style="font-family: Arial;">&nbsp;</span>

@@ Line 1: / Line 1: @@
-== (**COPIED FROM ENGLISH PAGE**) === <span class="f_Header">Action</span> =
+= <span class="f_Header">Funktion</span> =
-Wait until a character is received.
+Wartet bis ein Zeichen empfangen wird.
 <span style="font-family: Arial;">&nbsp;</span>

@@ Line 58: / Line 58: @@
 <span style="font-family: Arial;">&nbsp;</span>
-= <span class="f_Header">Example</span> =
+= <span class="f_Header">Beispiel</span> =
 <br/><source lang="bascomavr">
@@ Line 71: / Line 71: @@
 $regfile = "m48def.dat" ' specify the used micro
-$crystal = 4000000 ' used crystal frequency
+$crystal = 4000000 ' Taktrate
-$baud = 19200 ' use baud rate
+$baud = 19200 ' Baudrate
 $hwstack = 32 ' default use 32 for the hardware stack
 $swstack = 10 ' default use 10 for the SW stack
@@ Line 79: / Line 79: @@
 Dim A As Byte , S As String * 2
 Do
-  A = Inkey() 'get ascii value from serial port
+  A = Inkey() 'ASCII-Zeichen von serieller Schnittstelle empfangen
 's = Inkey()
-If A > 0 Then 'we got something
+If A > 0 Then 'es wurde etwas empfangen
   Print "ASCII code " ; A ; " from serial"
 End If
-Loop Until A = 27 'until ESC is pressed
+Loop Until A = 27 'bis ESC gedrückt wird
-A = Waitkey() 'wait for a key
+A = Waitkey() 'Auf ein Zeichen warten
 's = waitkey()
 Print Chr(a)
-'wait until ESC is pressed
+'warten bis ESC gedrückt wird
 Do
 Loop Until Inkey() = 27
-'When you need to receive binary data and the bibary value 0 ,
+'Wenn binäre Daten und der binäre Wert 0 empfangen werden sollen
-'you can use the IScharwaiting() function.
+'kann man die  IScharwaiting() Funktion benutzen.
-'This will return 1 when there is a char waiting and 0 if there is no char waiting.
+'IScharwaiting() gibt 1 zurück wenn ein Zeichen empfangen wurde und 0 wenn kein Zeichen empfangen wurde.
-'You can get the char with inkey or waitkey then.
+'Man kann das Zeichen dann mit inkey oder waitkey einlesen.
 End
 </source><br/>{{Languages}}
 [[Category:BASCOM Language Reference/de]]

WAITKEY/de - Revision history

Stefanhamburg: /* Remarks */

Stefanhamburg: /* Example */

Stefanhamburg: /* See also */

Stefanhamburg: /* Remarks */

Stefanhamburg: /* Remarks */

Stefanhamburg: /* (**COPIED FROM ENGLISH PAGE**) = */

Admin: 1 revision

Admin at 19:06, 12 February 2013

Stefanhamburg: /* (COPIED FROM ENGLISH PAGE) = */