TODOPIC

Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: Mendoza en 27 de Enero de 2008, 02:18:18

Título: Como veo una trama MODBUS exactamente como llega?
Publicado por: Mendoza en 27 de Enero de 2008, 02:18:18

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

Título: Re: Como veo una trama MODBUS exactamente como llega?
Publicado por: migsantiago en 27 de Enero de 2008, 13:50:40

Hola

Puedes ver si este tema te sirve...

http://www.todopic.com.ar/foros/index.php?topic=19637.0

Ahí Bruno detalla porque se modifican los bytes recibidos, creo que tu problema es el mismo.