Jose Acosta
05 de Junio del 2010

Hola
Llevo bastante tiempo tratando de leer el puerto serie donde esta conectada una pizarra telefonica y no lo logro, me da como si no hubiesen datos cuando en realidad con el hyperterminal los leo perfectamente
Aqui va el codigo que utilizo para probar.
Espero Ayuda
Gracias


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
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
End With
Dim Datos As String = ""
Datos = com1.ReadExisting
MsgBox(Datos)
End Using
End Sub