Hola amigos ese es el tema, como hago para ver la trama igual a como llega por ejemplo:
yo envio 01 03 00 00 00 0A C5 CD
pero recibo en la textbox 13000AC5CD
o sea que no me toma los ceros al principio ni los espacios este es el codigo:
Option Explicit
Private Sub Form_Load()
With MSComm1
.RThreshold = 4
.InputLen = 8
.Settings = "9600,N,8,1"
.DTREnable = False
.CommPort = 2
.PortOpen = True
End With
End Sub
Private Sub MSComm1_OnComm()
Dim sData As String
Dim Cadena As String
Dim Todo As String
Dim dato As String
If MSComm1.CommEvent = comEvReceive Then
sData = MSComm1.Input
sData = Pasar2Asc(sData)
Todo = sData & vbCrLf
Texto_Recibido.Text = Todo
End Sub
Private Function Pasar2Asc(Cadena As String) As String
Dim Recorre As Integer
For Recorre = 1 To Len(Cadena)
Pasar2Asc = Pasar2Asc & Hex(Asc(Mid(Cadena, Recorre, 1)))
Next
End Function
Si me pueden ayodar les agradezco. Saludos
