Android Question Hex to Decimal

[Beja]

Hi all,
Is there a function to convert hex to integer value (decimal value)>> there are some but I though maybe some has a better solution with simple and shorter function.

 

[teddybear]

Do you mean converting hex string to int?
Maybe ByteConverter can do this.
HexToBytes (hex As String) As Byte()
IntsFromBytes (bytes() As Byte) As Int()

 

[Beja]

Hi teddybear, Thanks but I thought Byte is Hex
I have a hex value in string (EditTex) and want to convert it to decimal.. (FF >> 256)
inline java is ok.

 

[rbghongade]

Dear Beja,
Please try this:

Sub HexToDecimal(hex As String) As Int
    Try
        Dim decimalValue As Int
        decimalValue = Bit.ParseInt(hex, 16) ' Convert hex to decimal
        Return decimalValue
    Catch
        Log("Error: Invalid Hexadecimal value")
        Return -1
    End Try
End Sub

 

[Beja]

I found this code snippet somewhere and want to reverse the conversion parts so the data is displayed as it comes in (not converted to Hex)

Sub AStream_NewData (Buffer() As Byte)
    Dim hexString As String = BytesToHex(Buffer)
    ParseAndDisplayData(hexString)
End Sub

Sub BytesToHex(bytes() As Byte) As String
    Dim sb As StringBuilder
    sb.Initialize
    For i = 0 To bytes.Length - 1
        Dim intValue As Int = Bit.And(bytes(i), 0xFF) ' Safely convert byte to integer
        Dim hexString As String = Bit.ToHexString(intValue).ToUpperCase ' Convert to uppercase hex
        sb.Append(hexString).Append(" ")
    Next
    Return sb.ToString.Trim
End Sub

Sub ParseAndDisplayData(data As String)
    Dim parsedData As String = data'.Replace("00", "00") ' Remove the "00" termination
    If parsedData.Length > 0 Then
        lblData.Text = parsedData
    End If
End Sub

 

[peacemaker]

hex to int

found, that sometimes it's easyer, to knit it up...:) private Sub intFromHex(b1() As Byte)As Int Dim in As Int 'send( JoinStrings(Array As String("b1 :", bc.StringFromBytes(b1))) ) 'test For i = 0 To b1.Length - 1 Dim m As Double = Power(16,b1.Length-1-i) ' multiplikator If b1(i)>60...

www.b4x.com

Hex string to Int

I can convert int to hex using Dim input As Int = 65535 Dim output As String output = Bit.ToHexString(input) Log(output) Please can someone suggest a way of converting back from Hex to string and explain it in a simplistic way so I can understand. I have tried...

www.b4x.com

 

[Beja]

Thanks to all..
Found this and it worked, I tested it in B4A and B4J.. fast and perfect


result =Bit.ParseInt("FF",16)
xui.MsgboxAsync(result, "B4X")

 

[emexes]

I feel like your next wondering will be why are Byte values are -128 to 127 rather than 0 to 255, and the solution is:

Dim B As Byte = 12 * 14
Log(B)
Log(Bit.And(B, 0xFF))

 

[Beja]

"I feel like your next wondering will be why are Byte values are -128 to 127 rather than 0 to 255, and the solution is:"

In fact I finished this calculation in 1984 AD, 4682 in Chinese calendar and 1404 in Hijri calendar and 5744 in Jewish calendar. You do the arithmatic.

 

[rbghongade]

"I feel like your next wondering will be why are Byte values are -128 to 127 rather than 0 to 255, and the solution is:"

In fact I finished this calculation in 1984 AD, 4682 in Chinese calendar and 1404 in Hijri calendar and 5744 in Jewish calendar. You do the arithmatic.

You forgot Vikram Samvat 2044 according to Hindu Calendar!