CHR/de
(→See also) |
(→Example) |
||
| Line 65: | Line 65: | ||
<span style="font-family: Arial;"> </span> | <span style="font-family: Arial;"> </span> | ||
| − | = <span class="f_Header"> | + | = <span class="f_Header">Beispiel</span> = |
<br/><source lang="bascomavr"> | <br/><source lang="bascomavr"> | ||
| Line 79: | Line 79: | ||
$regfile = "m48def.dat" ' specify the used micro | $regfile = "m48def.dat" ' specify the used micro | ||
| − | $crystal = 4000000 ' | + | $crystal = 4000000 ' Taktfrequenz |
| − | $baud = 19200 ' | + | $baud = 19200 ' Baudrate |
$hwstack = 32 ' default use 32 for the hardware stack | $hwstack = 32 ' default use 32 for the hardware stack | ||
$swstack = 10 ' default use 10 for the SW stack | $swstack = 10 ' default use 10 for the SW stack | ||
Revision as of 22:47, 3 March 2013
Contents |
Funktion
Wandelt eine numerische Variable oder eine Konstante in eine Zeichenkette mit der Länge eines Zeichens um. Das Zeichen entspricht dem ASCII-Wert des numerischen Wertes.
Syntax
PRINT CHR(var)
s = CHR(var)
Remarks
|
var |
Numerische Variable oder numerische Konstante. |
|
s |
Zeichenkettenvariable. |
Wenn man ein Zeichen auf einem Bildschirm bzw. einem LC-Display ausgeben möchte dann muss man es mit der CHR() Funktion umwandeln.
Wenn man PRINT numvar benutzt dann wird der Wert ausgegeben.
Wenn man PRINT CHR(numvar) schreibt dann wird das ASCII-Zeichen ausgegeben.
Die CHR() Funktion ist praktisch bei der Verwendung benutzterdefinierter Zeichen für LCD wo man die Zeichen 0 bis 7 der ASCII-Tabelle neu definieren kann.
Da eine Zeichenkette immer mit einem Null-Nyte beendet werden welches dasselbe ist wie CHR(0) kann man nicht CHR(0) innerhalb einer Zeichenkette darstellen.
Um das benutzerdefinierte Zeichen 0 mit Chr(0) auf einem LC-Display darzustellen muss man LCD "Text" ; chr(0) ; "mehr Text" schreiben.
Siehe auch
Beispiel
'----------------------------------------------------------------------------------------- 'name : chr.bas 'copyright : (c) 1995-2005, MCS Electronics 'purpose : shows how to use the CHR() and BCD() function and ' HEX() function in combination with a PRINT statement 'micro : Mega48 'suited for demo : yes 'commercial addon needed : no '----------------------------------------------------------------------------------------- $regfile = "m48def.dat" ' specify the used micro $crystal = 4000000 ' Taktfrequenz $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 Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 Dim K As Byte K = 65 Print K ; Chr(k) ; K ; Chr(66) ; Bcd(k) ; Hex(k) End
| Languages | English • Deutsch |
|---|