1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| Public Class Communication
Dim Texte As String
Private Sub Communication_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btnOpenComPort.Visible = False
GroupBoxTestCOM.Visible = False
End Sub
Private Sub CheckportCOM3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckportCOM3.CheckedChanged
If CheckportCOM3.Checked = True Then
SerialPort1.PortName = "COM3"
CheckportCOM5.Checked = False
btnOpenComPort.Visible = True
End If
End Sub
Private Sub CheckportCOM5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckportCOM5.CheckedChanged
If CheckportCOM5.Checked = True Then
SerialPort1.PortName = "COM5"
CheckportCOM3.Checked = False
btnOpenComPort.Visible = True
End If
End Sub
Private Sub btnOpenComPort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenComPort.Click
SerialPort1.Open()
If SerialPort1.IsOpen Then
GroupBoxTestCOM.Visible = True
End If
End Sub
Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
Texte = SerialPort1.ReadLine
TextTest.Text = Texte
End Sub
'Méthode appelée quand la fenetre est fermée et qu'on quitte l'application
Private Sub Communication_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
'Si le port série est toujours ouvert
If SerialPort1.IsOpen Then
'Alors on le ferme
SerialPort1.Close()
End If
'On détruit l'instance du port série
SerialPort1.Dispose()
End Sub
End Class |
Partager