Convertir la trama recibida de ASCii a HEX
Respondiendo a la pregunta de David : "Al leer del puerto serie leo su contenido pero me lo muestra como ASCii, existe alguna forma para visualizar su contenido en HEX o Decimal?"
Function AsciiToHex(TramaRecibida As String, ConvertToHex As Boolean) As String
'
' Conversion de un string a una cadena de Hexadecimales / decimales
For Each c As Char In TramaRecibida
If ConvertToHex Then
AsciiToHex += "0x" + Hex(Asc(c)) + " "
Else
AsciiToHex += Asc(c).ToString + " "
End If
Next
Return AsciiToHex
End Function
Para invocar la funcion :
Dim RespuestaEnHex As String = AsciiToHex("abcABCD_CualquierTextoRecibido", True)
Dim RespuestaEnDEC As String = AsciiToHex("abcABCD_CualquierTextoRecibido", False)
Espero te sea util.
Saludos,
PepLluis,