Señales de control del puerto serie a través del ‘PinChanged’

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.ObjectByVal 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,

2 Replies to “Señales de control del puerto serie a través del ‘PinChanged’”

  1. 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

  2. Te Agradecere si puedes plantear tu pregunta en los foros “Comunicacion con dispositivos” o contactame directamente para iniciar una conversacion.

    Saludos,
    Pep Lluis,

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.