Vb Net Bluetooth HC-05 Arduino

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von SoEinVBler.

    Vb Net Bluetooth HC-05 Arduino

    Hallo zusammen,
    Porgrammiere gerade eine App um mir Daten mittels Bluetooth HC-05 vom Arduino zu VB Net zusenden.
    Das verbinden Klappt aber bei den Daten die Ich über arduino an Vb Net sendene kommen nicht richtig an .
    beim ersten Bluetooth Hc-05 Baudrate 115200 kommen die Daten abwecslend mal kommt nur eine zahl dann wehcselt es auf vier Ziffern dann wieder mal auf drei.
    Dann habe ich ein weiters ausprobiert bei diesem habe ich baudrate auf 9600 da fehlt mir die erste ziffer?
    Vieleicht kann mir jemand Helfen

    Mein code:

    Quellcode

    1. Imports System
    2. Imports System.Threading
    3. Imports System.IO.Ports
    4. Imports System.ComponentModel
    5. Imports System.Windows.Forms.VisualStyles.VisualStyleElement.ProgressBar
    6. Imports System.Timers
    9. Public Class Form1
    10. Dim Temp As String
    11. Dim myPort As Array
    12. Delegate Sub SetTextCallBack(ByVal [text] As String)
    13. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    14. myPort = IO.Ports.SerialPort.GetPortNames()
    15. portComboBox.Items.AddRange(myPort)
    16. Button2.Enabled = False
    17. Button1.Enabled = True
    18. Timer1.Enabled = False
    19. End Sub
    22. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    23. SerialPort1.PortName = portComboBox.Text
    24. SerialPort1.BaudRate = CInt(baudComboBox.Text)
    25. SerialPort1.DataBits = 8
    26. Me.RichTextBox1.Text = "Verbindung zu AIO wird aufgebaut" + Environment.NewLine
    27. SerialPort1.Open()
    29. SerialPort1.Write("BluetoothVerbinden")
    30. If SerialPort1.IsOpen Then
    32. Me.RichTextBox1.Text = "AIO Verbunden" + Environment.NewLine
    34. End If
    36. ProgressBar1.Value = 100
    37. Button2.Enabled = True
    38. Button1.Enabled = False
    39. Timer1.Enabled = True
    40. End Sub
    42. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    43. If SerialPort1.IsOpen Then
    44. SerialPort1.Close()
    45. ProgressBar1.Value = 0
    46. Me.RichTextBox1.Text = "AIO Verbindung getrennt" + Environment.NewLine
    48. End If
    49. Button1.Enabled = True
    50. Button
    51. End Sub
    53. Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    54. ReceivedText(SerialPort1.ReadExisting())
    56. End Sub
    58. Private Sub ReceivedText(ByVal [Text] As String)
    60. If Me.RichTextBox1.InvokeRequired Then
    61. Dim x As New SetTextCallBack(AddressOf ReceivedText)
    62. Me.Invoke(x, New Object() {(Text)})
    63. Else
    65. Me.RichTextBox1.Text = [Text]
    67. End If
    69. End Sub
    71. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    73. Temp = RichTextBox1.Text.ToString()
    75. Label7.Text = Temp
    76. End Sub
    78. Private Sub RichTextBox3_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox3.TextChanged
    80. End Sub
    82. Private Sub Label7_Click(sender As Object, e As EventArgs) Handles Label7.Click
    84. End Sub
    85. End Class

    Hallo,

    erst mal die Frage, wie sendst du im Arduino die Daten, also mit welchem Befehl?

    Ich verwende immer Serial.println(), so werden immer Paket gesendet die mit einem "Zeilenumbruch" und "NewLine" abgeschlossen werden. (siehe Doku beim Arduino).
    Wenn man es mit einer Text-Datei vergleicht wird also immer ein Zeile nach der anderen gesendet.

    Beim Einlesen in VB.NET lese ich dann immer Zeilenweise ein.
    Das Problem ist, dass beim Senden oder eher Empfangen Verzögerungen auftreten können.
    Es wird z.B. schon gemeldet, dass Daten angekommen sind und auch wie viele.
    Diese kann man auch schon einlesen, aber es ist vielleicht noch nicht die ganze Zeile angekommen, es fehlen also noch Daten die beim nächsten mal dann erst ankommen.

    Meine Empfangsroutine sieht so aus, im String indata ist dann immer eine Zeile, also der Inhalt von einem Serial.println()

    VB.NET-Quellcode

    1. Public Sub DataReceivedHandler(sender As Object, e As SerialDataReceivedEventArgs)
    2. Dim sp As SerialPort = CType(sender, SerialPort)
    3. Dim indata As String
    5. Try
    6. While (sp.BytesToRead)
    7. indata = sp.ReadLine()
    8. ShowText(indata & vbCrLf)
    10. End While
    12. Catch ex As TimeoutException
    13. sp.DiscardInBuffer()
    14. indata = sp.ReadExisting
    15. ShowText("Timeout: Vermutlich kein "" newLine""" & vbCrLf)
    17. End Try
    19. End Sub