* Hexadecimal to Decimal: [Henri at] firstname.lastname@example.org
Sub Form_Load ()
x = "fffe"
y = CLng("&H" & x)
If y < 0 Then y = y + 65536 ' returns 65534
* Converting a string to an integer: Cal Stover
SomeVariable = CInt(Label2.Caption) + 100
SomeVariable = CSng(Val(Label2.Caption) + 100)
* convert a number in Hexadecimal to Binary -chris
A very fast conversion from hex to binary can be done with a sixteen
element look-up table - a single hex digit converts to four binary
CONST BinTbl ="0000000100100011010001010110011110001001101010111100110111101111"
dim X, Work$
Work$ = ""
For X = 1 to Len(HexValue$)
Work$ = Work$ + Mid$(BinTbl, (Val("&h" + Mid$(HexValue$, X, 1) - 1) * 4 + 1, 4)
Hex2Bin$ = Work$
You could also code BinTbl
as an array which would eliminate one of the
Mid$() calls, but then the array would either have to be built ahead of
time or built every time you called the Hex2Bin function. You could try
all three options and see which is faster.