Hola
Tengo problemas con la programacion del puerto serie.
Hace tiempo estoy tratando de leer las llamadas de una pizarra telefonica Panasonic por Puerto serie y no lo logro
Este es el codigo que utilizo de prueba. Con el Hyperterminal lo leo perfectamente.
Tengo dudas si hay que enviar algun dato al puerto para poder recibir informacion
Ya he escrito a varios foros y no he resuelto o no me han contestado.
Me parece que nunca voy a resolver esto
Saludos a todos
Using com1 As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM1")
With com1
.BaudRate = 9600
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
. Dim Datos As String = ""
MsgBox(com1.BytesToRead) 'Aqui me da 0
Datos = com1.ReadExisting
MsgBox(Datos) 'Aqui me da un mensage en Blanco
End With
:End Using
