Daten von VB Programm an Raspberry Pi senden und zurück (via USB-Port)

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von ClonkAndre.

    Daten von VB Programm an Raspberry Pi senden und zurück (via USB-Port)

    Hallo Community,

    ich habe vor mit meinem Raspberry Pi ein Elgato Stream Deck zu bauen weil der Raspberry Pi einfach super und günstig ist ;)

    Nun möchte ich es schaffen das ich Daten von einem VB.NET Programm an den Raspberry Pi über USB sende. (Und diese Daten werden dann mit Python weiterverarbeitet)

    Nur habe ich noch nie etwas in dieser Richtung gemacht (Serial Port, USB Entwicklung). Nun wie schaffe ich es das ich Daten von meinem Programm an den RPi sende? Und: Wie finde ich den Port raus an dem der RPi an meinem PC angeschlossen ist um überhaupt eine Verbindung herzustellen?

    Vielleicht auch noch gut zuwissen: Ich benutze einen Raspberry Pi Zero WH
    Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button :thumbup:

    Für VB.NET Entwickler: Option Strict On nicht vergessen!

    @ClonkAndre Der Raspberry ist ein Rechner wie ein Laptop oder so, d.h., wenn Du iwas an ihn senden willst, musst Du dort ein Programm laufen haben, dass Daten empfängt.
    Mir scheint, dass Du USB im Sinne einer Netzwerk-Verbindung verwenden willst, das dürfte so nicht gehen.
    Ich hab mich mal mit nem Raspberry "unterhalten", das ging über TCP.
    Eine RaspiCam machte ein Bild und legte es im Raspberry ab, ich habe es per Netzwerk-Verbindung abgeholt und dann dort gelöscht.
    Was kann oder macht denn dieses STREAM DECK? Ist das so ne Multimedia-Maschine?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany
    In dem Fall habe ich ein Python Script auf dem RPi am laufen. Das Stream Deck ist ein kleines Gerät was unteranderem für Streamer entworfen wurde. Auf dem Stream Deck gibt es 15 Knöpfe die du alle beliebig konfigurieren kannst über einer Desktop-App. Und ich habe es auch schon geschafft Daten vom RPi an meinem Computer zusenden undzwar Shortcuts das funktionierte auch prima (So sah es aus) :) Nun wollte ich aber ein bisschen mehr undzwar das ich die Buttons über ein Programm auch selber einstellen kann. Also Daten vom RPi zum Pc zusenden war sehr einfach da der RPi wie eine Tastertur fungierte. Das Problem ist jedoch: Ich habe es schonmal getestet man kann keine Daten von einem PC an einem RPi senden da der RPi als Tastertur erkannt wurde und das Test-Programm was ich im Internet gefunden habe hat dies nicht erlaubt daten an einer "Tastertur" zusenden.
    Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button :thumbup:

    Für VB.NET Entwickler: Option Strict On nicht vergessen!

    @ClonkAndre Es sieht so aus, als solten sich zwei Server miteinander unterhalten, das geht so nicht.
    Wenn ein Server läuft, muss sich ein Client bei ihm anmelden, um Kontakt aufzunehmen.
    Probierma, ob Du in dieser Richtung was findest.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany
    Nahh, ich würde das ganze gerne "Plug & Play" machen. Der Benutzer steckt den RPi via USB an seinem PC, downloaded sich die Software und kann über der Software die Knöpfe des RPi's konfigurieren. Server wäre da wirklich eine gute Idee doch, geht das nicht auch irgendwie direkt über USB?
    Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button :thumbup:

    Für VB.NET Entwickler: Option Strict On nicht vergessen!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ClonkAndre“ ()

    ClonkAndre schrieb:

    geht das nicht auch irgendwie dirket über USB?
    Nach meinem Kenntnisstand nicht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @wolfi_bayern
    Der PI soll Shortcuts an den PC über USB senden wie STRG + 1 er soll ähnlich wie eine virtuelle Tastertur fungieren, wenn man das so sagen kann.

    @RodFromGermany
    Okay, ich schaue mich dann nochmal um.
    Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button :thumbup:

    Für VB.NET Entwickler: Option Strict On nicht vergessen!

    Hi.

    Habe das RPi Zero mit W ohne H, aber Lötkolben... :D

    Wenn der RaspberryPi per USB am "Empfangsrechner" angeschlossen wird, dann reicht es aus die Serielle ausgabe des Pi abzufangen.

    Dann Mittels-mann/frau/divers Programmieren, der die Seriellen Daten versteht, und dann "verteilt" kann Python, das I-Net oder gar SMS sein.

    Soll das nur per W-Lan geschehen, muss dann ein "Server" im Rapsberry laufen, der halt alles dann auf TCP umwandelt und sendet.
    Dazu braucht es dann auch einen verständigen "Clienten/Empfänger".

    Wie das W-Lan Dingens umgesetzt werden sollte, kann ich nicht Ansatzweise erklären, ist mir zu hoch...

    Daher kann ich nur empfehlen dem RPi beizubringen alles notwendige in der seriellen Ausgabe auszugeben.
    Dann ein eigenes Empfangsprogramm schreiben, was wiederum an die jeweiligen "echten Empfänger", in deinem beispiel Python, weiterleitet.

    Betrachte das als einen Schichtenkuchen.
    Erstmal das IoT-Dingens, dann das IoT-Versteher-Dingens, und dann der "Ich Verstehe nur Tastatureingabe-Dingens".

    IoT-Dingens = RaspberryPi
    IoT-Versteher-Dingens = Programm zum empfangen von serieller Kommunikation und Weiterleitung an andere Programme.

    RPi kann Seriell über USB automatisch, ist eingebaut, musst nur "etwas" Senden.

    Wie genau du die Schnittstelle benutzt und aktivierst, ist ausführlich im Internet zu finden. Zum beispiel YT.

    Wenn die die Arduino eigene Programmier IDE benutzt, dort ist doch das SerialMonitor Fenster genau das was die serielle ausgabe durch den USB Port macht.

    c.u. Joshi aus HaHa

    Geschafft

    Danke an @Joshi du hast mir nochmal die nötige Motivation gegeben an dem Projekt weiter zu arbeiten. Wollte eigentlich schon aufgeben.

    Dieser Guide auf Github hat mir sehr weitergeholfen.

    Auf jeden Fall habe ich es nun geschafft dies ist mein Programm auf Windows (Das Programm empfängt Daten und sendet auch welche):
    (Bitte beachtet das der Code temporär ist! Man kann ihn noch sauberer schreiben.)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.IO.Ports
    4. Public Class Form1
    6. Private sSerialPort As New SerialPort
    8. #Region " Functions "
    10. Private Sub ReloadPorts(Optional ByVal ShowListAfterRefresh As Boolean = True)
    11. Try
    12. AllPorts_cbox.Items.Clear()
    13. Dim myPort As String() = IO.Ports.SerialPort.GetPortNames()
    14. AllPorts_cbox.Items.AddRange(myPort)
    15. AllPorts_cbox.DroppedDown = ShowListAfterRefresh
    16. Catch ex As Exception
    17. MessageBox.Show(ex.Message, "Error while refreshing list")
    18. End Try
    19. End Sub
    21. Private Async Sub sendData(ByVal input As String)
    22. If sSerialPort.IsOpen Then ' Checks if sSerialPort is open
    23. sSerialPort.Write(input) ' Send data
    24. Await Task.Delay(100) ' Wait 100 milliseconds
    25. End If
    26. End Sub
    28. #End Region
    30. #Region " Timer "
    32. Private Sub GetData_tmr_Tick(sender As Object, e As EventArgs) Handles GetData_tmr.Tick
    33. If sSerialPort.IsOpen Then ' Checks if sSerialPort is open
    34. Dim rData As String = sSerialPort.ReadExisting ' Read data in to variable
    35. If Not String.IsNullOrWhiteSpace(rData) Then ' Prevents from adding whitespace into listbox
    36. data_lb.Items.Add(rData)
    37. End If
    38. End If
    39. End Sub
    41. #End Region
    43. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    44. If sSerialPort.IsOpen Then ' Close sSerialPort if it is still open
    45. sSerialPort.Close()
    46. End If
    47. End Sub
    48. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    49. ReloadPorts(False) ' Loads all available ports in list
    50. End Sub
    52. Private Sub ScanForPorts_btn_Click(sender As Object, e As EventArgs) Handles ScanForPorts_btn.Click
    53. ReloadPorts() ' Refresh Port list
    54. End Sub
    56. Private Sub connect_btn_Click(sender As Object, e As EventArgs) Handles connect_btn.Click
    57. Try
    58. sSerialPort.PortName = AllPorts_cbox.SelectedItem.ToString ' Set port from list
    59. sSerialPort.BaudRate = CInt(BaudRate_cbox.SelectedItem.ToString) ' Set baudrate from list
    60. sSerialPort.Open() ' Opens sSerialPort
    62. If sSerialPort.IsOpen Then ' Checks if sSerialPort is open
    63. GetData_tmr.Start() ' Start GetData_tmr
    64. MessageBox.Show("Connected!")
    65. Else
    66. MessageBox.Show("Unknown error while connecting.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    67. End If
    68. Catch ex As Exception
    69. MessageBox.Show(ex.Message, "Error while connecting", MessageBoxButtons.OK, MessageBoxIcon.Error)
    70. End Try
    71. End Sub
    73. Private Sub disconnect_btn_Click(sender As Object, e As EventArgs) Handles disconnect_btn.Click
    74. Try
    75. GetData_tmr.Stop() ' Stop GetData_tmr
    76. data_lb.Items.Clear() ' Clears list
    77. sSerialPort.Close() ' Close sSerialPort
    79. If Not sSerialPort.IsOpen Then ' Checks if sSerialPort is not open
    80. MessageBox.Show("Disconnected!")
    81. Else
    82. MessageBox.Show("Unknown error while disconnecting.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    83. End If
    84. Catch ex As Exception
    85. MessageBox.Show(ex.Message, "Error while disconnecting", MessageBoxButtons.OK, MessageBoxIcon.Error)
    86. End Try
    87. End Sub
    89. Private Sub Send_btn_Click(sender As Object, e As EventArgs) Handles Send_btn.Click
    90. Try
    91. If sSerialPort.IsOpen Then ' Checks if sSerialPort is open
    93. If String.IsNullOrWhiteSpace(input_txtbox.Text) Then
    94. Select Case MessageBox.Show("Do you want to send a whitespace?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    95. Case DialogResult.Yes
    96. sendData(input_txtbox.Text) ' Send data sub
    97. End Select
    98. Else
    99. sendData(input_txtbox.Text) ' Send data sub
    100. End If
    102. Else
    103. MessageBox.Show("You need to be connected with a serial port from the list above.")
    104. End If
    105. Catch ex As Exception
    106. MessageBox.Show(ex.Message, "Error while sending data", MessageBoxButtons.OK, MessageBoxIcon.Error)
    107. End Try
    108. End Sub
    110. Private Sub ClearLog_btn_Click(sender As Object, e As EventArgs) Handles ClearLog_btn.Click
    111. data_lb.Items.Clear() ' Just clears the log listbox
    112. End Sub
    114. End Class



    Temporärer Python 3 read code
    Spoiler anzeigen

    Quellcode

    1. #!/usr/bin/env python
    2. import time
    3. import serial
    5. ser = serial.Serial(
    6. port='/dev/ttyGS0',
    7. baudrate = 115200,
    8. parity=serial.PARITY_NONE,
    9. stopbits=serial.STOPBITS_ONE,
    10. bytesize=serial.EIGHTBITS,
    11. timeout=0.2
    12. )
    14. while 1:
    15. print(ser.readline())



    Vom PI zum PC zurück geht das auch sehr einfach:
    Spoiler anzeigen

    Quellcode

    1. #!/usr/bin/env python
    2. import time
    3. import serial
    5. ser = serial.Serial(
    6. port='/dev/ttyGS0',
    7. baudrate = 115200,
    8. parity=serial.PARITY_NONE,
    9. stopbits=serial.STOPBITS_ONE,
    10. bytesize=serial.EIGHTBITS,
    11. timeout=0.2
    12. )
    14. while 2:
    15. ser.write(str("Hier dein String").encode()) #Dont forget to encode the string when sending



    Das ganze wurde auf einem Raspberry Pi Zero WH getestet, wenn es auf einem Raspberry Pi 1/2/3/4 laufen soll, dann muss der python Code etwas umgeschrieben werden.
    Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button :thumbup:

    Für VB.NET Entwickler: Option Strict On nicht vergessen!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ClonkAndre“ ()

    Es war mir eine Ehre.

    Chapou.

    Alle Elemente der Seriellen-Kommunikation scheinen abgedeckt zu sein.

    Hast wohl ´n händchen für Programmieren, wa?

    Hmmm... müsste eigentlich so heissen: Hast wohl Fingrespitzchen fürs Programmieren. :thumbsup:

    Ach, was weiss ich schon über´s Progammieren oder Anatomie?!

    Ich gehe mal nachher zu gitte mal ein wenig Huben!

    Merke wohl!
    Der Programmierer, ist oft am Verzagen, aber tapfer im Debuggen.
    So wird er mit Laufzeit belohnt, und der Anerkennung ihm oft fremder Benutzer!

    c.u. Joshi

Facebook
Telefonspende