Convert number to Hex value and back?

Author

Message

Hubdule

21

Years of Service

User Offline

Joined: 3rd Sep 2002

Location: Gundelsheim

Posted: 27th Oct 2011 14:11

Link

Hi

I've a question about how to convert a hex string back to integer in AppGameKit?

I use HEX(number) to get a hex string from a given number. But how do I convert it back? Is there a command for that? Or do I've to recalculate it the long way back?

Back to top

Profile PM Email Website

Hubdule

21

Years of Service

User Offline

Joined: 3rd Sep 2002

Location: Gundelsheim

Posted: 27th Oct 2011 14:25

Link

Here's what I use at the moment. What do you think, is it correct?

Function HexToInt(hexdata$)

If Len(hexdata$) > 0

Result = 0
        tmpVal = 0

For i = 1 To Len(hexdata$)

tmpCurValVal = 0

tmpCurVal$ = Upper(Mid(hexdata$,i,1))
            Select tmpCurVal$
                Case "0"
                    tmpCurValVal = 0
                EndCase
                Case "1"
                    tmpCurValVal = 1
                EndCase
                Case "2"
                    tmpCurValVal = 2
                EndCase
                Case "3"
                    tmpCurValVal = 3
                EndCase
                Case "4"
                    tmpCurValVal = 4
                EndCase
                Case "5"
                    tmpCurValVal = 5
                EndCase
                Case "6"
                    tmpCurValVal = 6
                EndCase
                Case "7"
                    tmpCurValVal = 7
                EndCase
                Case "8"
                    tmpCurValVal = 8
                EndCase
                Case "9"
                    tmpCurValVal = 9
                EndCase
                Case "A"
                    tmpCurValVal = 10
                EndCase
                Case "B"
                    tmpCurValVal = 11
                EndCase
                Case "C"
                    tmpCurValVal = 12
                EndCase
                Case "D"
                    tmpCurValVal = 13
                EndCase
                Case "E"
                    tmpCurValVal = 14
                EndCase
                Case "F"
                    tmpCurValVal = 15
                EndCase
            EndSelect

tmpVal = tmpCurValVal + (tmpVal * 16)

Result = tmpVal

Next i

Else
        Result = 0
    EndIf

EndFunction Result

+ Code Snippet

Function HexToInt(hexdata$)

    If Len(hexdata$) > 0

        Result = 0
        tmpVal = 0

        For i = 1 To Len(hexdata$)

            tmpCurValVal = 0

            tmpCurVal$ = Upper(Mid(hexdata$,i,1))
            Select tmpCurVal$
                Case "0"
                    tmpCurValVal = 0
                EndCase
                Case "1"
                    tmpCurValVal = 1
                EndCase
                Case "2"
                    tmpCurValVal = 2
                EndCase
                Case "3"
                    tmpCurValVal = 3
                EndCase
                Case "4"
                    tmpCurValVal = 4
                EndCase
                Case "5"
                    tmpCurValVal = 5
                EndCase
                Case "6"
                    tmpCurValVal = 6
                EndCase
                Case "7"
                    tmpCurValVal = 7
                EndCase
                Case "8"
                    tmpCurValVal = 8
                EndCase
                Case "9"
                    tmpCurValVal = 9
                EndCase
                Case "A"
                    tmpCurValVal = 10
                EndCase
                Case "B"
                    tmpCurValVal = 11
                EndCase
                Case "C"
                    tmpCurValVal = 12
                EndCase
                Case "D"
                    tmpCurValVal = 13
                EndCase
                Case "E"
                    tmpCurValVal = 14
                EndCase
                Case "F"
                    tmpCurValVal = 15
                EndCase
            EndSelect

            tmpVal = tmpCurValVal + (tmpVal * 16)

            Result = tmpVal

        Next i

    Else
        Result = 0
    EndIf

EndFunction Result

Back to top

Profile PM Email Website

JavierTF

14

Years of Service

User Offline

Joined: 15th Feb 2010

Location: Going out, to the right

Posted: 27th Oct 2011 17:38 Edited at: 27th Oct 2011 17:53

Link

Hi

Take x numbers:

example1: AF1

then

AF1 = (A * 16^2) + (F*16^1) + 1 = 2801 (dec)

example2: AAF1

then

AAF1 = (A * 16^3) + (A * 16^2) + (F*16^1) + 1 = 2801 (dec)

- Get the place of the digit. May be a For?

- (If) it's a letter, (then) translate it to it's corresponding value (else) calculate the number.

- Apply the formula.

See you.

Back to top

Profile PM

Kevin Picone

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: Australia

Posted: 28th Oct 2011 04:56

Link

All you need to do is grab the character and convert it ASCII.. Which gets rid of the string thrashing from the original loop.

(PB code.. but the principal is the same, will need re-ordering for the most optimal loop)

+ Code Snippet

print HexToDec("8")
print HexToDec("A")
print HexToDec("ff")
print HexToDec("ff00")
print hex$(HexToDec("12345678"))

sync
waitkey



Function HexToDec(HexString$)
	
	if Len(HexString$)
		HexString$=Upper$(HexString$)	

		For lp=1 to len(HexString$)
			Result=Result*16
			ThisChr=asc(Mid$(HexString$,lp,1))
		
			if ThisChr=>asc("0") and ThisChr<=asc("9")
				Result=REsult+(ThisChr-asc("0"))
				Continue		
			endif 

			if ThisChr=>asc("A") and ThisChr<=asc("F")
				Result=REsult+ThisChr-(asc("A")-10)		
			endif 

	   next
	endif	
EndFunction REsult

Hmm, I wonder what's coming in 2011?

Back to top

Profile PM Website

Hubdule

21

Years of Service

User Offline

Joined: 3rd Sep 2002

Location: Gundelsheim

Posted: 28th Oct 2011 09:38

Link

Hi Kevin, thanks, that loop looks quite optimized. So I'll use this one now. Thanks again!

Back to top

Profile PM Email Website

Rich Dersheimer

AGK Developer

14

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 28th Oct 2011 18:10 Edited at: 28th Oct 2011 18:31

Link

This from the help on Val(), implying that you can just do the conversion with one command.

BIG EDIT - this command works just as expected. In fact, it is not limited to hex, binary, octal or decimal. Try it in base 5, or whatever. Neat.

+ Code Snippet


a$ ="20"

do
    print(val(a$, 8))
    print(val(a$, 10))
    print(val(a$, 16))
    print(val(a$, 5))
    Sync()
loop

Quote: "
Val
Description
Converts a string into an integer value. For example Val("10") would return the value 10.

Definition
integer Val( str )

int agk::Val( const char* str )

integer Val( str, base )

int agk::Val( const char* str, int base )

Parameters
•str - The string to convert to an integer.
•base - The base that the string number is in.

"

Back to top

Profile PM Email

Hubdule

21

Years of Service

User Offline

Joined: 3rd Sep 2002

Location: Gundelsheim

Posted: 28th Oct 2011 19:08

Link

Nice!

Thank you. I saw the "base" in the VAL description but couldn't understand what the base is for

Should be included in the manual.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Convert number to Hex value and back?