HEXVAL/de

Funktion

Wandelt die Zeichenkettendarstellung einer Hexadezimalzahl in eine numerische Zahl um.

 

 

Syntax

var = HEXVAL( x )

 

 

Anmerkungen

var	Numerische Variable der die Zahl zugewiesen wird.
x	Hexadezimale Zeichenkette die umgewandelt werden soll.

 

In VB kann man die VAL()-Funktion für das Umwandeln hexadezimaler Zeichenketten benutzen.

Da das aber die Prüfung auf das führende &H erfordern würde welches in VB erforderlich ist wurde eine speielle Funktion geschrieben.

 

Die Zeichenkette darf nur hexadezimale Zeichen enthalten: 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,a,b,c,d,e,f. Andere Zeichen führen zu einem Konvertierungsfehler. Falls Sie eine Filterung auf Leerzeichen benötigen dann können Sie die Library mit dem Namen hexval.lbx benutzen.

Diese wird mit $LIB "hexval.lbx" in Ihr Programm eingebunden und es werden dann die Konvertierungsroutinen aus dieser Library verwendet statt der Routinen der mcs.lbx. Die alternative Library setzt auch das ERR Flag wenn ungültige Zeichen gefunden werden.

 

 

Siehe auch

HEX , VAL , STR , BIN , BINVAL

 

 

Beispiel

$regfile = "m48def.dat" ' Mikrocontroller
$crystal = 8000000 ' 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 L As Long
 
Dim S As String * 8
Do
Input "Hex value " , S
L = Hexval(s)
Print L ; Spc(3) ; Hex(l)
Loop

Languages	English • Deutsch