Sorry your browser is not supported!

`Hex_Colour
`How to convert HEX from string to a Double Integer for use with colour commands
`Big thanks to IanM for the "Hex to Decimal()" function ^___^
`======================
`Hex string is ignored if containing letters
`First, we have the input
Input_String As String = "0xFF004000"
Input_Integer As Integer = 0xFF004000
Test_Integer As Integer
Test_Integer = Hex To Decimal(Input_String)

Sync On
Backdrop On
Color Backdrop Test_Integer

Do
	Set Cursor 0,0
	Print "These commands won't cut it"
	Print "String, looks good, but doesn't work: " ; Input_String
	Print "Integer is fine, but what if source is string?: " ; Input_Integer
	Print "Maybe this? No... " ; Hex$(Val(Input_String))
	Print "Or this? ... Nope! " ; Val(Input_String)
	Print " --- " 	
	Print "But thankfully, this one does work, thanks to IanM"
	Print "Hex To Decimal(Input_String)"
	Test_Integer = Hex To Decimal(Input_String)
	Print "Integer: " ; Test_Integer
	Print "Hex$ Integer: " ; Hex$(Test_Integer)
	Print " --- " 
	Print "Hurray for Hex backdrop colours!"
	Nice Sleep 1
	Sync
Loop

End

function hex2dec(h$)
    h$          = upper$(h$)  ` Just for ease of use
    strlen      = len(h$)
    value       as integer
    offset      = 1
    if strlen > 8 then exitfunction 0  ` That big numbers cannot be represented by a integer
    if strlen >= 2  ` Why doesn't DBP support short circuiting....?
        if mid$(h$, 2) = "X"
            offset = 3
        endif
    endif
    
    for p = strlen to offset step -1
        c = asc(mid$(h$, p))
        ` Is this a valid "hexadecimal digit" letter (A - F)?
        if c >= 65 and c <= 70
            v = c - 55          ` Convert to numerical equivalent; A becomes 10, B 11 etc.
        else
            ` Is this a normal digit (0 - 9)?
            if c >= 48 and c <= 57
                v = c - 48;     ` Convert to numerical equivalent
            else
                ` This is not a valid character
                exitfunction 0
            endif
        endif
        ` If we get here we have a valid value for the current hexadecimal digit; insert it to our return value
        value = value || (v << pos)
        inc pos, 4
    next p
endfunction value

myInt   as integer
myDword as dword
myInt   = 0xffffffff
myDword = myInt

print myInt   ` Should print '-1'
print myDword ` Should print '4 294 967 295'