Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SerialPort1.PortName = "COM1"
SerialPort1.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If SerialPort1.DsrHolding Then
Label1.Text = "ON"
Else
Label1.Text = "OFF"
End If
If SerialPort1.CtsHolding Then
Label2.Text = "ON"
Else
Label2.Text = "OFF"
End If
If SerialPort1.CDHolding Then
Label3.Text = "ON"
Else
Label3.Text = "OFF"
End If
End Sub
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SerialPort1.PortName = "COM1"
SerialPort1.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If SerialPort1.DsrHolding Then
Label1.Text = "ON"
Else
Label1.Text = "OFF"
End If
If SerialPort1.CtsHolding Then
Label2.Text = "ON"
Else
Label2.Text = "OFF"
End If
If SerialPort1.CDHolding Then
Label3.Text = "ON"
Else
Label3.Text = "OFF"
End If
End Sub
End Class