Stap 2: Visual Basic
Invoer System.IO
Invoer System.IO.Ports
Invoer System.Threading
Public Class Form1
Gedeelde _continue As Boolean
Gedeeld _serialPort als SerialPort
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt MyBase.Load
Met SerialPort1
. Close()
. PortName = "COM4"
. BaudRate = 19200
. Pariteit = Parity.None
. DataBits = 8
. StopBits = StopBits.One
. DtrEnable = True
. RtsEnable = True
. ReceivedBytesThreshold = 1
. Open()
Eindigen met
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) behandelt Button1.Click
SerialPort1.Write("A")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt Button2.Click
SerialPort1.Write("B")
End Sub
Einde klasse