Spanish convertir de hexadecimal a string

jluisruelas

Member
Licensed User
Longtime User
amigos, aqui de nuevo, tengo un problema y es que quiero poder convertir un numero hexadecimal que recibo por bluetooth en su equivalente en ascii o string ejemplo yo recibo por el bluetooth el 0x31 y quiero que me muestre el 1 que seria el equivalente, veo el ejemplo de byteconverter pero no entiendo nada jejej
saludos
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola

Puedes emplear esto

B4X:
Dim i As Int
i = Bit.ParseInt("31", 16)

Log("ASCII " &   chr(i) )

Saludos
 
Last edited:

jluisruelas

Member
Licensed User
Longtime User
Hola

Puedes emplear esto

B4X:
Dim i As Int
i = Bit.ParseInt("31", 16)

Log("ASCII " &   chr(i) )
Saludos
intente lo que dices y este es el codigo
B4X:
Sub AStreams_NewData (Buffer() As Byte)
Dim TXTO As String
    Dbls = Array As Double(1,234, 5.678)
    Ints = Array As Int(10, -2, 3, -4)
'TXTO = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
For i=0 To Buffer.Length-1
TXTO=Bit.ParseInt(Buffer(i),16)
txtLog.Text=TXTO & txtLog.Text
Next

End Sub
el problema es que me muestra solamente numeros
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola

el problema es que me muestra solamente numeros

Si te fijas en el ejemplo mio en el LOG veras la solución, si lo que quieres es que te lo convierta a ASCII cambia tu linea por esta:

B4X:
  txtLog.Text=chr(TXTO) & txtLog.Text


Saludos
 
Top