Fernando, contestando a tu pregunta de cómo capturar los cambios en las señales de control de puerto serie, te dejo este ejemplo básico esperando te sea de utilidad.
Dim MiSerialPort As New IO.Ports.SerialPort
Sub Inicializando()
MiSerialPort.Open()
AddHandler MiSerialPort.PinChanged, AddressOf MiSerialPort_PinChanged
End Sub
Private Sub MiSerialPort_PinChanged(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialPinChangedEventArgs)
Select Case e.EventType
Case IO.Ports.SerialPinChange.CtsChanged
‘Clear To Send
If MiSerialPort.CtsHolding Then
‘CTS esta en ON
Else
‘CTS esta en OFF
End If
Case IO.Ports.SerialPinChange.DsrChanged
‘Data Set Ready
If MiSerialPort.DsrHolding Then
‘DSR esta en ON
Else
‘DSR esta en OFF
End If
Case IO.Ports.SerialPinChange.Ring
‘Ring
Case IO.Ports.SerialPinChange.Break
‘Break
Case IO.Ports.SerialPinChange.CDChanged
‘Carrier Detect
If MiSerialPort.CDHolding Then
‘…
Else
‘….
End If
End Select
End Sub
:-))
Pep Lluis,
Hola que tal Pep Luis no se si recuerdas que te envie un post para que me ayudaras acerca de un codigo que involucra el puerto serial bueno pues repase tus ejemplos pero aun no logro enviar ni recibir datos te pongo donde supuestamente yo manipulo esa información:
Mira yo mando un comando hacia el modulo y este me responde con un packet de información y la idea es que siempre este mandando este packet y tambien tomar el dato mas reciente como te mencionaba ya esta hecho en visual basic 6 solo me falta pasarlo a vb .NET para actualizarme jeje :)…..
Espero y puedas ayudarme de antemano mil gracias por tus aportes
Te Agradecere si puedes plantear tu pregunta en los foros «Comunicacion con dispositivos» o contactame directamente para iniciar una conversacion.
Saludos,
Pep Lluis,