How to create function Hex to Dec ?

[Rachata.rath]

How to convert hex to dec ?
Example 0xA1 convert to decimal ?
I read from user manual no have this function
Thank you

[Mr. Kibernetik]

No, currently there is no built-in function to convert HEX to DEC.

[Rachata.rath]

Do you have example code ?

[Mr. Kibernetik]

Do you have example code ?

Which example code?

[Rachata.rath]

Hex to dec?
Hex is 0xA1 I want to convert to dec

Dec = HexTODec$(0xA1)
Print Dec

Def HexTODec$()
...
....
End def

[Mr. Kibernetik]

You can make such function yourself. There is no such function in smart BASIC.

[Dutchman]

The following program contains a HexToDec-function.
There is no errordetection incorporated!!

Code: Select all

'Hex-Dec calculator
'by Dutchman, march 2015

Hex$="A1"
PRINT "Hexadecimal number '";Hex$;"' = Decimal ";HexToDec(Hex$)
END

DEF HexToDec(IN$)
Base=OPTION_BASE()' save option base
OPTION BASE 0
HEX$="0123456789ABCDEF"
Dec=0
size=LEN(In$)
FOR pos=0 TO Size-1'pos=backward position
  n=size-pos-1'n=forward position
  c$=MID$(In$,n,1)
  val=INSTR(Hex$,CAPSTR$(c$))
  Dec+=16^(pos)*val
NEXT pos
OPTION BASE Base
HexToDec=Dec
END DEF

[Mr. Kibernetik]

Version 4.9 will introduce HEX <=> DEC conversion functions.