jfvj
15 de Febrero del 2005

necesito leer los datos que llegan al puerto serial y llevarlos a un archivo Plano, quisiera saber si alguien me puede orientar, tengo esto codigo, pero no me funciona, muchas gracias.

Dim buffer As Variant

Private Sub Command1_Click()
If MSComm1.PortOpen = False Then
Text2.Enabled = False
MSComm1.CommPort = 1
MSComm1.PortOpen = True

Else
Text2.Enabled = True
MSComm1.PortOpen = False
End If
Command1.Enabled = False
End Sub

Private Sub File1_Click()

End Sub

Private Sub Form_Load()
MSComm1.Settings = "1200,N,8,1"
MSComm1.InputLen = 0
End Sub

Private Sub Image1_Click()

End Sub

Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
buffer = MSComm1.Input
Text1.Text = Text1.Text & CStr(buffer)
MsgBox "Text1.Text"

End If
End Sub

krizall
15 de Febrero del 2005

hola, has probado cambiar la configuracion de 1200 a 1900 o alguna otra, tambien tienes que verificar que el dispositivo del cual obtengas la señal este enviando a la velocidad que tu tienes en la configuracion del mscom , de lo contrario no podras ver los datos que te envia