Timelapse slider med VB (6 / 8 steg)
Steg 6: VB-kod
Kopiera följande kod:
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 = "com3″" ändra com-porten för att matcha din Arduino port viktigt
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) hanterar 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) hanterar 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) hanterar 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) hanterar Button4.Click
SerialPort1.Open()
SerialPort1.Write("4″)
SerialPort1.Close()
End Sub
Slutet klass