CHR/de

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)

 

 

Anmerkungen

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

ASC

 

 

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