Arduino Leonardo antwortet nicht auf VB-Serial Script

[Mathias P. (aio)]

Hallo liebe Forengemeinde,

aus meinem Titel kann man schon erkennen, dass ich ein Problem mit der 
Seriellen Datenübertragung zwischen Arduino und PC habe.

Ich habe mit Visual Studio 2015 einen kleinen Code geschrieben, der die 
am Computer angeschlossenen Geräte erkennt, ich dann in einer ComboBox 
meinen Arduino auswähle, in einer anderen Box die Baudrate einstelle und 
schlussendlich Daten an den Arduno sende.
So weit funktioniert das ganze auch mal, denn der Arduino zeigt mit der 
RX LED an, dass er etwas erhalten hat. Laut Arduino-Code, sollte der 
dann etwas zurückschreiben, tut er aber nicht. Komisch ist aber der 
umstand, dass der Arduino auf den eigenen Serial Monitor reagiert und 
Daten zurücksendet.

Ich würde mich freuen, über etwaige Lösungsvorschläge

Danke im Voraus

MP


Hier der VB Code:

Imports System
Imports System.Threading
Imports System.IO.Ports
Imports System.ComponentModel
Public Class Form1

    Dim myPort As Array
    Delegate Sub SetTextCallBack(ByVal [text] As String)
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        write.Enabled = False
        close.Enabled = False

    End Sub

    Private Sub init_Click(sender As Object, e As EventArgs) Handles init.Click

        If portlist.Text = "" Then
            Exit Sub
        ElseIf baudlist.text = "" Then
            Exit Sub
        End If

        SerialPort1.PortName = portlist.Text
        SerialPort1.BaudRate = baudlist.Text
        SerialPort1.ReadTimeout = 10000
        SerialPort1.Open()

        write.Enabled = True
        close.Enabled = True
        init.Enabled = False

    End Sub

    Private Sub write_Click(sender As Object, e As EventArgs) Handles write.Click

        SerialPort1.Write(input.Text)


    End Sub

    Private Sub close_Click(sender As Object, e As EventArgs) Handles close.Click

        SerialPort1.Close()

        write.Enabled = False
        close.Enabled = False
        init.Enabled = True

    End Sub

    Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        Me.Invoke(Sub() RecievedText())


    End Sub

    Private Sub RecievedText()
        Dim ToRead As Integer = SerialPort1.BytesToRead
        If ToRead > 0 Then
            Dim Buffer(ToRead - 1) As Byte
            SerialPort1.Read(Buffer, 0, ToRead)
            output.Text &= System.Text.Encoding.Default.GetString(Buffer)
        End If
    End Sub

    Private Sub scan_Click(sender As Object, e As EventArgs) Handles scan.Click
        portlist.Items.Clear()
        myPort = IO.Ports.SerialPort.GetPortNames()
        portlist.Items.AddRange(myPort)

    End Sub
End Class

Und hier der vom Arduino:

char inChar;


void setup() {
  // put your setup code here, to run once:
  Serial.begin(9600); //beginn der Seriellen Komunikation
  while (!Serial){}   //Warten auf öffnen des SerialPorts

}

void loop() {
  
  if (Serial.available() > 0) //wenn Daten vorhanden sind...
  {
    inChar=Serial.read();     //...lies die Daten aus
    if (inChar == 'A' );      //wenn ein A kommt,
    {
      Serial.println("Test");//Schreibe "Test" zurück
    }
   
  }

}

[Danny (Gast)]

Quittiere einfach mal jedes Zeichen!

[Mathias P. (aio)]

Hallo Danny,

vielen Dank für den Tipp, aber ich denke es liegt nicht am erkennen des 
Zeischens, sondern viel eher daran, dass der Arduino, so blöd wie es 
auch klingt, nicht auf das vb script antworten will.
Ich habe nämlich den Arduino-Code ein klein wenig geändert, und jetzt 
sollte er jede sec. schreiben, dass er das Eingangszeichen nicht 
erhalten hat, oder im falle des erhaltens des Zeichens dies bestätigt. 
Im Serial Monitor der Arduino IDE funktioniert alles bestens, aber 
sobald ich das mit dem vb Script versuche, erhält der Arduino zwar 
Daten, schreibt aber nicht zurück (TX LED blinkt nicht).

Kann es vl. sein, dass meinem Atmega 32U4 für die Seriell auf USB 
umsetzung ein Firmwareupdate benötigt?

Danke,

MP

Arduino-Code:

char inChar;


void setup() {
  // put your setup code here, to run once:
  Serial.begin(9600); //beginn der Seriellen Komunikation
  while (!Serial){}   //Warten auf öffnen des SerialPorts

}

void loop() {
  
  if (Serial.available() > 0) //wenn Daten vorhanden sind...
  {
    inChar=Serial.read();     //...lies die Daten aus   
  }

  if (inChar=='$')             //wenn das Zeichen ein $ ist...
  {
    Serial.println("$ recieved");
  }
  else                        //Wenn nicht...
  {
    Serial.println("no $ recieved");
  }
  
  inChar = 0;                 // lösche den Inhalt des chars
  delay (1000);               //warte eine sec.
}

[Tek (Gast)]

Ich würde mal mit einem Terminal Programm prüfen ob am µC alles läuft 
und erst dann das VB Programm testen. So hast Du nich zwei Unbekannte wo 
Fehler sein können.

Was passiert wenn mehr als ein Zeichen vom µC empfangen wird, welches 
steht dann in inChar? Möglicherweise hängt dein VB Programm noch nen CR 
dran.

[Mathias P. (aio)]

Halo Tek,

danke für den Tipp, habs gleich mit HTerm ausprobiert, aber der Arduino 
sendet immer noch nichts an andere Programme als die eigene IDE...

Danke,

MP

[Mathias P. (aio)]

Hallo an alle,

ich habe in der Zwischenzeit die Lösung herausgefunden.
Der Arduinotreiber der instaliert werden muss, um den Arduino mit der 
eigenen IDE zu programmieren ist nicht kompatibel mit vb.
Ich hab jetzt einfach einen USB zu Serial communication Board genommen 
und hat mit meinen Programmen super funktioniert.
Ich konnte leider keinen win Treiber für den Arduino Installieren, 
brauche aber zur zeit keine bessere Lösung.

Danke,

MP

[Sebastian S. (amateur)]

Bist Du sicher, dass Du in das richtige Ende der Röhre schaust?

Viele Arduinos haben zwar etwas, das sich serielle Schnittstelle nennt 
aber kein RS232 Anschluss ist. Auf der PC-Seite wird praktisch nie so 
eine Pseudoschnittstelle zu finden sein, sondern eine "echte" (alt), 
oder eine USB-Seriell-Krücke. Ist ein Pegelproblem.