Med hjälp av VB till kontroll Arduino (2 / 5 steg)
Steg 2: Att göra programmet VB
I detta instructable, vi kommer att göra ett program för att styra lysdioder, med 4 knappar. Följ följande steg.
- Klicka på nytt projekt
- Välj ny Fönstren ansökan
- Ange ett namn för din ansökan
- Dra och släpp 4 knappar i verktygslådan på Form1
- Dra och släpp en SerialPort också
- Dubbelklicka på formuläret. Du kommer att se området kodning.
- Kopiera och klistra in följande kod där.
Import System.IO
Import System.IO.Ports
Import System.Threading
Public Class Form1
Delade _continue som Boolean
Delade _serialPort som SerialPort
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar MyBase.Load
SerialPort1.Close()
SerialPort1.PortName = InputBox ("Skriv in COM-porten")
SerialPort1.BaudRate = InputBox ("Ange vilket baudvärde")
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) hanterar 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) hanterar Button1.Click
SerialPort1.Open()
SerialPort1.Write("2")
SerialPort1.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Button1.Click
SerialPort1.Open()
SerialPort1.Write("3")
SerialPort1.Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Button1.Click
SerialPort1.Open()
SerialPort1.Write("4")
SerialPort1.Close()
End Sub
Slutet klass