Hur att programmera Arduino Bluetooth seriell kommunikation i Visual Basic Express 2010 (3 / 6 steg)
Steg 3: programmering
Nu program vi varje komponenter i formuläret. Första formuläret ladda kod. Att göra så Dubbelklicka i någon var i form och ändra koden för att
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) hanterar MyBase.Load
GetSerialPortNames()
End Sub
Lägg sedan till några ytterligare kod ovan Form1_Load koden för att få din comm port och någon funktion att fungera med din programvara
Import System.IO
Import System.IO.Ports
Import System.Threading
Public Class Form1
Dim buffert As String
Delegera Sub myMethodDelegate (ByVal [text] som sträng)
Dim bD1 som ny myMethodDelegate(AddressOf process)
Dim WithEvents SerialPort som nya IO. Ports.SerialPort
Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) hanterar Me.Disposed
Om SerialPort.IsOpen() sedan
SerialPort.Close()
Slut om
End Sub
Och under koden för Form1_Load
Sub GetSerialPortNames()
För varje sp som sträng i My.Computer.Ports.SerialPortNames
lstPorts.Items.Add(sp)
Nästa
End Sub
Sub SendSerialData (ByVal Port som sträng, ByVal data som sträng)
Om (SerialPort.IsOpen) sedan
SerialPort.Write(data)
Annat
MsgBox ("inte ansluten till Port".)
Slut om
End Sub
Sub process (ByVal myString som sträng)
buffert = buffert + myString
Dim str som sträng
Str = buffert
Om InStr (str, "|") Sedan
Dim ord som String() = str. Split (nya Char() {"|"})
buffert = ""
Dim ordet As String
För varje ord i ord
Om (word. Längd > 0) sedan
lstConsole.Items.Add(word)
Slut om
Nästa
Slut om
End Sub
Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) hanterar SerialPort.DataReceived
Dim str som sträng = SerialPort.ReadExisting()
Åberopa (bD1, str)
End Sub
Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) hanterar SerialPort.DataReceived
Dim str som sträng = SerialPort.ReadExisting()
Åberopa (bD1, str)
End Sub