Étape 2: Visual Basic
Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Form1
Partagé _continue As Boolean
Static _serialPort SerialPort
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Avec SerialPort1
. Close()
. PortName = « COM4 »
. BaudRate = 19200
. Parity = Parity.None
. DataBits = 8
. StopBits = StopBits::One
. DtrEnable = True
. RtsEnable = True
. ReceivedBytesThreshold = 1
. Open()
Se termine par
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort1.Write("A")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SerialPort1.Write("B")
End Sub
End Class