Seriellen Port auslesen

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Morgy.

    Seriellen Port auslesen

    Guten Tag,
    ich versuche gerade mittels Visual Basic Application einen Microcontroller zu steuern.
    Das senden von Daten funktioniert bereits hervorragend, beim Empfangen treten allerdings einige Probleme auf.
    Habe mich auch schon durch einige Seiten und Beiträge, sogar Beispiellösungen gekämpft, doch bin bisher zu keinem Ergebnis gekommen.
    In einer Konsolenanwendung kriege ich das Empfangen auch zum Laufen, bei einer Application scheitert es dann allerdings leider.
    Stütze mich beim Empfangen auf diesem Beispielcode: Klick mich!
    Ich poste einfach mal direkt dazu meinen Code:

    VB.NET-Quellcode

    1. Imports System.IO.Ports
    3. Public Class main
    5. Dim mySerialPort As New SerialPort("COM3")
    7. Dim inputData As String = ""
    8. Public Event DataReceived As SerialDataReceivedEventHandler
    10. Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. mySerialPort.BaudRate = 9600
    12. mySerialPort.Parity = Parity.None
    13. mySerialPort.StopBits = StopBits.One
    14. mySerialPort.DataBits = 8
    15. mySerialPort.Handshake = Handshake.None
    16. End Sub
    18. Public Sub b_connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_connect.Click
    19. If b_connect.Text = "Verbinden" Then
    20. mySerialPort.Open()
    21. b_send.Enabled = True
    22. b_connect.Text = "Verbindung trennen"
    23. Else
    24. mySerialPort.Close()
    25. b_send.Enabled = False
    26. b_connect.Text = "Verbinden"
    27. End If
    28. End Sub
    30. Private Sub b_send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_send.Click
    31. If tb_input.Text <> "" Then
    32. sendData(tb_input.Text)
    33. End If
    34. End Sub
    36. Public Sub sendData(ByVal data As String)
    37. mySerialPort.Write(data)
    38. End Sub
    40. Private Sub mySerialPort_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)
    41. inputData = mySerialPort.ReadExisting
    42. Me.Invoke(New EventHandler(AddressOf DoUpdate))
    43. End Sub
    45. Public Sub DoUpdate()
    46. tb_output.Text = inputData
    47. l_income.Text = l_income.Text + 1
    48. End Sub
    50. End Class


    Also wie gesagt, senden funktioniert einwandfrei, beim Empfangen von Daten passiert allerdings gar nichts.

    Hoffe jemand weiß Rat.

    Mit freundlichen Grüßen,
    Morgy

    Wird überhaupt etwas gesendet (um empfangen zu werden)?

    Wird das Ereignis DataReceived ausgelöst? (Haltepunkt mal gesetzt?)

    Hast du schon einen SerialPortMonitor dazwischen gehängt,
    um den Datenfluß zu beobachten?

    Was bedeutet?:
    l_income.Text = l_income.Text + 1

    Lightsource schrieb:

    Wird überhaupt etwas gesendet (um empfangen zu werden)?

    Alles das, was gesendet wird, schickt der Microcontroller auch direkt zurück.
    Zudem sende ich jede Sekunde ein 'H', nur als Test. :)
    (Funktioniert unter HTerm ja auch wunderbar)


    Lightsource schrieb:

    Wird das Ereignis DataReceived ausgelöst? (Haltepunkt mal gesetzt?)

    Ich weiß nicht genau wie das mit dem Haltepunkt funktioniert, aber wenn ich in der Funktion ein Ereignis versuche aufzurufen (wie z.B. eine MsgBox), dann sehe ich davon gar nichts.
    Ergo wird auf diese Funktion anscheinend gar nicht zugegriffen.


    Lightsource schrieb:

    Hast du schon einen SerialPortMonitor dazwischen gehängt,
    um den Datenfluß zu beobachten?

    Wenn Du so freundlich wärst und mir das einmal kurz beschreibst oder ich gleich selber einmal danach suche, dann kann ich das auch gerne mal ausprobieren.
    Aber zum Datenfluß .. wenn ich das richtig verstehe .. unter HTerm kommt wirklich alles an, was auch ankommen soll.


    Lightsource schrieb:

    Was bedeutet?:
    l_income.Text = l_income.Text + 1

    Ach, da zähle ich nur eine Zahl hoch, war nur ein Test, um zu gucken, ob diese Funktion überhaupt berührt wird, .. leider nicht.

    *EDIT*
    Okay, also ich habe mein Problem gelöst, YEAH!
    Habe meinen eigens definierten SerialPort durch ein Object in VB geändert und alles angepasst.
    Und siehe da.. es funktioniert. :)
    Trotzdem vielen, vielen Dank an euch beide, für die Hilfe!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Morgy“ () aus folgendem Grund: Weil mein Problem gelöst ist und ich keinen neuen Beitrag erstellen wollte.