Hur att programmera Arduino Bluetooth seriell kommunikation i Visual Basic Express 2010 (4 / 6 steg)
Steg 4: Intitialize ansluta
För att initiera knappen ersätta "Anslut" knappkoden med
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Button1.Click
Om lstPorts.SelectedIndex <> -1 sedan
Försök
Om SerialPort.IsOpen då
SerialPort.Close()
Button1.text = "Anslut"
Annat
SerialPort.PortName = lstPorts.SelectedItem.ToString
SerialPort.BaudRate = 9600
SerialPort.DataBits = 8
SerialPort.Parity = Parity.None
SerialPort.StopBits = StopBits.One
SerialPort.Handshake = Handshake.None
SerialPort.Encoding = System.Text.Encoding.Default
SerialPort.Open()
Button1.text = "Koppla från"
Slut om
Fånga som undantag
MsgBox (ex. Meddelande)
Slutet försök
Annat
MsgBox ("Vänligen välj en seriell port", vbInformation, "Serieport")
Slut om
End Sub
Klicka på knappen "Bluetooth Test" och ersätta koden. Denna knapp klicka kommer få ett meddelande i consol som "OK" för att bekräfta att bluetooth är ansluten till enheten. Annat "fel" att säga något fel i anslutning.
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar Button8.Click
Om (lstPorts.SelectedIndex <> -1) sedan
SendSerialData (lstPorts.SelectedItem.ToString, "AT")
Slut om
End Sub