Hur att programmera Arduino Bluetooth seriell kommunikation i Visual Basic Express 2010 (5 / 6 steg)
Steg 5: Kod för kontroll nycklar
Nu ersätta koden för varje knapp som uppföljning till kontroll rörelserna
Framåt:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Button3.Click
Om (lstPorts.SelectedIndex <> -1) sedan
SendSerialData (lstPorts.SelectedItem.ToString, "w")
Slut om
End Sub
Bakåt:
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Button4.Click
Om (lstPorts.SelectedIndex <> -1) sedan
SendSerialData (lstPorts.SelectedItem.ToString, "s")
Slut om
End Sub
Vänster:
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Button5.Click
Om (lstPorts.SelectedIndex <> -1) sedan
SendSerialData (lstPorts.SelectedItem.ToString, "en")
Slut om
End Sub
Höger:
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Button6.Click
Om (lstPorts.SelectedIndex <> -1) sedan
SendSerialData (lstPorts.SelectedItem.ToString, "d")
Slut om
End Sub
Stanna:
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Button7.Click
Om (lstPorts.SelectedIndex <> -1) sedan
SendSerialData (lstPorts.SelectedItem.ToString, "c")
Slut om
End Sub
Om du vill stänga programmet måste vi programmera knappen Avsluta som följer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Button2.Click
Application.Exit()
Om SerialPort.IsOpen då
SerialPort.Close()
Slut om
End Sub