Estoy tratando de establecer comunicación con un instrumento conectado a un
puerto serie rs232, con vb.net 2005.
Los datos que envío son recibidos , pero mi programa no recibe nada ya que
nunca pasa por SerialPort_DataReceived. El mismo código con otro instrumento
funciona bien, y si cierro mi programa y abro el hyperterminal recibo la
respuesta en el hyperterminal.
Esta es una parte del código:
Private mPuerto As System.IO.Ports.SerialPort
Private Sub SerialPort_DataReceived(ByVal sender As System.Object, ByVal e
As System.IO.Ports.SerialDataReceivedEventArgs)
Dim sp As IO.Ports.SerialPort = CType(sender, IO.Ports.SerialPort)
mPortBuffer.InData(sp.ReadExisting())
End Sub
Private Sub frmPuertoSerie_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Try
mPortBuffer = New SerialPortBuffer
mPuerto = New IO.Ports.SerialPort("COM1", 9600,
IO.Ports.Parity.None, 8, IO.Ports.StopBits.One)
mPuerto.Open()
AddHandler mPuerto.DataReceived, AddressOf SerialPort_DataReceived
Catch ex As Exception
Throw ex
End Try
End Sub
Alguna sugerencia ?
Muchas gracias.
Patriicia Banfi
