Convert 16 bit number to decimal?

[shadowfiend]

Howdy folks.

Ok I can use 'Dec' function to convert my 8 bit numbers but does'nt seem to work for 16 bit. E.g.

$hex = 4600; 4600 = 70 when converted to decimal
 
 $decoder_string = Dec($hex);convert to decimal
 MsgBox(0,"$decoder_string = ", $decoder_string)

The result should come out as 70 but it comes out as 17920.

The number is in little endian format.

Is there a function to handle this?

Thanks.

Shadowfiend.

Edited March 19, 2008 by shadowfiend

[PsaltyDS]

Howdy folks.

Ok I can use 'Dec' function to convert my 8 bit numbers but does'nt seem to work for 16 bit. E.g.

$hex = 4600; 4600 = 70 when converted to decimal
 
 $decoder_string = Dec($hex);convert to decimal
 MsgBox(0,"$decoder_string = ", $decoder_string)

The result should come out as 70 but it comes out as 17920.

The number is in little endian format.

Is there a function to handle this?

Thanks.

Shadowfiend.

You will have to convert to big-endian before passing it to Dec(), obviously. Should have been: $hex = "0046"

Also, since you set the value by variable assignment "$hex = 4600" without quotes around the number, it was saved as an INT32 variable to begin with, then String() convert was done automatically when you passed it into Dec(). You are mixing up string encoding with hardware bit encoding.

P.S. As for a function to handle it, where did the data come from? In your example you statically assigned a variable. If this is a binary file you are reading, then select the correct mode for FileOpen() to match endianess.

Edited March 19, 2008 by PsaltyDS

[eltorro]

Howdy folks.

Ok I can use 'Dec' function to convert my 8 bit numbers but does'nt seem to work for 16 bit. E.g.

$hex = 4600; 4600 = 70 when converted to decimal
 
 $decoder_string = Dec($hex);convert to decimal
 MsgBox(0,"$decoder_string = ", $decoder_string)

The result should come out as 70 but it comes out as 17920.

The number is in little endian format.

Is there a function to handle this?

Thanks.

Shadowfiend.

BitRotate(Dec($hex),8,"W")

[PsaltyDS]

BitRotate(Dec($hex),8,"W")

Very smooth...

[shadowfiend]

PsaltyDS, thanks I will bear these points in mind.

eltorro, thankyou this seems to be the ticket.

I will give this a try and let you know how I get on.

Cheers,

Shadowfiend.

[shadowfiend]

Hey that worked like a charm!

$hex = "4600";4600 = 70 as a binary word
 
 $hex2 = BitRotate(Dec($hex),8,"W")
 MsgBox(0,"$hex2 = ", $hex2)

This indeed produces the answer of 70.

Thanks very much guys

Shadowfiend.