Mit VB über FTDI Roboter steuern

[DanielSan]

Nach ca. 1,0328 Sekunden Suche inkl. Suchbegriff in Google eingeben...
http://www.youtube.com/watch?v=1YQM30r8Nuo

[Der Einsteiger]

schön ,genau das Video habe ich unter anderem schon getestet. Bei diesem Programm habe ich diese Fehlermeldung bekommen:





Was das mit "Eine Ausnahme ...." bedeutet weiß ich nicht und auch nicht wie ich es lösen kann

[DanielSan]

Mh die Fehlermeldung sagt mir nicht viel. Zeig mal den Quellcode.

Hast du wirklich den richtigen COM Port ausgewählt? Ist der Port wirklich geschlossen? Sonst kannst du ihn nicht öffnen!
Ich schliesse den immer bevor ich ihn öffne. Das unterbricht dann zwar potentiel bestehende Verbindungen, ist mir aber egal.

[HeXPloreR]

Hallo,

das Tutorial hier http://www.youtube.com/watch?v=1qZO1OtjoJY gehört dazu.

Zeigt das Codefenster hier auch VB-Code an? - dann zeig mal Dein Programm - und zwar beide.

[Der Einsteiger]

Hier der Code (den habe ich einfach vom Video übernommen) :

Public Class Form1

    Private Sub COM1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Try
            SerialPort1.PortName = TextBox1.Text
            SerialPort1.BaudRate = TextBox2.Text
            SerialPort1.Open()
            Button1.Enabled = False
            Button2.Enabled = True
            Button3.Enabled = True

        Catch ex As Exception
            MsgBox("Verbindung konnte nicht hergestellt werden")
        End Try
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If SerialPort1.IsOpen = True Then
            SerialPort1.Close()
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SerialPort1.Write("1" & vbCr)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        SerialPort1.Write("0" & vbCr)
    End Sub
End Class

Zu DanielSan: Wie hast du das mit dem Com Port vorher schließen gemacht???

[HeXPloreR]

Du hast die falsche klasse ausgewählt oder nicht? Du hast _Textchanged .... im Video ist es aber _click auf Button1.

Woher hattest Du diese Programm nochmal...
Ist es bei Dir denn auch Com1?
Wenn Du das so schreibst wie hier im Video müsstest Du doch auch ein Click-Event für einen Button1 verwenden? Was _TextChanged anstellt weiß ich leider auch noch nicht....

Kommt denn die Meldung MsgBox?

[Der Einsteiger]

Du hast die falsche klasse ausgewählt oder nicht? Du hast _Textchanged .... im Video ist es aber _click auf Button1.

Stimmt,Haste Recht.Das habe ich wohl falsch abgeschrieben.
Jetzt funktioniert es schon mal ,aber es wird trotzdem das mit " Eine Ausnahme ist in..... aufgetreten" angezeigt. Was das bedeutet weiß ich nicht???

Woher hattest Du diese Programm nochmal...

Was meinst du ??

Ist es bei Dir denn auch Com1?

Nein, es ist Com 10, aber das stört ja nicht ,da ich es umstellen kann.

Kommt denn die Meldung MsgBox?

Was ??


So also hat denn jetzt mal einer einen Code fürs Senden und Empfangen (von Text). Denn wenn ich den Menschen im Video richtig verstanden habe ist sein Code nur zum schalten von einer LED geeignet???

[DanielSan]

Ich glaube immer wenn du auch nur das geringste in der Textbox änderst, wird das gesendet. Mach es erstmal alles wie im Video.

Das mit dem schliessen sollte so gehen:

Try
SerialPort1.Close()
SerialPort1.PortName = TextBox1.Text
SerialPort1.BaudRate = TextBox2.Text
SerialPort1.Open() 
Button1.Enabled = False
Button2.Enabled = True 
Button3.Enabled = True          
Catch ex As Exception             
MsgBox("Verbindung konnte nicht hergestellt werden")         
End Try

Wenn es COM10 ist musst du das auch einstellen.

Der Code sendet doch Text! Einmal eine 1 und einmal eine 0. Du hast den Gesamtzusammenhang noch nicht ganz verstanden.

[Der Einsteiger]

Der Code sendet doch Text! Einmal eine 1 und einmal eine 0. Du hast den Gesamtzusammenhang noch nicht ganz verstanden.

Da hast du Recht. Jetzt habe ich es aber halbwegs verstanden (das Senden ).
Wie könnte ich jetzt aber Sachen Empfangen und in einer Text Box anzeigen lassen ?? Die Sachen, die ich auf Youtube dazu gefunden habe hatten leider auch nicht funktioniert.

Könnt ihr mir da auch helfen??

[HeXPloreR]

Du hast die Menschen im Video falsch verstanden. Das ist ein einfaches Beispiel.
Übrigens fragte ich Dich auch nach dem Code auf dem AVR. Hier wir nämlich entschieden was passiert wenn eine "1" oder eine "0" oder ein "100" "255" "136" oder "125" rein kommt. Am einfachsten sind Zahlen am besten als Byte bei eine 8N1 Verbindung. Wenn Du mal guckst siehst Du ja das der Button2 nicht "1" heißt sondern "einschalten", das VB-Programm sendet nun eine "1" ab. Der AVR empfängt das ganze mit seinem Programm.
Wäre ja auch etwas unübersichtlich je nach Umfang des Codes wenn man die Buttons einfach nur 1, 2, 3 usw nennen würde.

Wenn man schon weiß das man Com 10 benutzt, sollte man es vielleicht auch in den Code schreiben, damit er auch diesen öffnet. Ansonsten könnte man versuchen den Com zu suchen...aber das ist wieder ein anderes Thema