Stap 6: VB-code
Kopieer de volgende code:
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
SerialPort1.Close()
SerialPort1.PortName = "com3″" com-poort aan de poort van de Arduino belangrijk wijzigen
SerialPort1.BaudRate = 9600
SerialPort1.DataBits = 8
SerialPort1.Parity = Parity.None
SerialPort1.StopBits = StopBits.One
SerialPort1.Handshake = Handshake.None
SerialPort1.Encoding = System.Text.Encoding.Default
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) behandelt Button1.Click, Button1.Click
SerialPort1.Open()
SerialPort1.Write("1″)
SerialPort1.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt Button2.Click
SerialPort1.Open()
SerialPort1.Write("0″)
SerialPort1.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt Button3.Click
SerialPort1.Open()
SerialPort1.Write("3″)
SerialPort1.Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) verwerkt Button4.Click
SerialPort1.Open()
SerialPort1.Write("4″)
SerialPort1.Close()
End Sub
Einde klasse