Mit VB über FTDI Roboter steuern

[Der Einsteiger]

Es wird sich wohl niemand hier hinsetzen und dir eine fertige Software schreiben

Das stimmt!

Ich habe jetzt mal das gefunden: (http://support.microsoft.com/kb/904795)
Da steht das :

Function ReceiveSerialData() As String
' Receive strings from a serial port.
Dim returnStr As String = ""

Using com1 As IO.Ports.SerialPort = _
My.Computer.Ports.OpenSerialPort("COM1")
Do
Dim Incoming As String = com1.ReadLine()
If Incoming Is Nothing Then
Exit Do
Else
returnStr &= Incoming & vbCrLf
End If
Loop
com1.Close()
End Using

Return returnStr
End Function

Doch weiß ich noch nicht ,wie ich die TextBox einbinde und ob dieser Code für mich überhaupt geeignet ist ,da ich ja gar keine IO.Ports habe , sondern einen USB to UART Brückentreiber????
Zu der Frage 1 musst du mir nichts sagen ,damit ich auch mal etwas selbst versuche ,wie du es auch schon gesagt hast. Aber zu der Frage 2 wäre es sehr nett ,da ich diese nicht beantworten kann .

[DanielSan]

Der COM Port ist ein IO.Port. Auch bei dir! Was du an hardware da liegen hast ist egal solange es als COM in Windows erkannt wird.

Was du da gefunden hast ist im Prinzip genau das gleiche wie das was ich dir schon geschrieben habe. Nur das meine Version abgespeckter ist. Das ist einfach nur eine Funktion die alles mitbringt um von der seriellen Schnittstelle zu lesen. Aufrufen musst du sie aber trotzdem noch. Sei es per Button oder alle paar sekunden.

Erstelle doch mal eine zusätzliche Textbox und einen Button. Dann bau dir das so zusammen, das du per Button click was von der seriellen Schnitte lesen kannst. Wenn das klappt, können wir weiter überlegen, wie wir das lesen automatisieren sodass du nicht immer clicken musst.

Also in den Click event von dem neuen Button schreibst du:

Try             

dim getText as String
SerialPort1.PortName = TextBox1.Text             
SerialPort1.BaudRate = TextBox2.Text      

SerialPort1.Open() 
getText = SerialPort1.Readline() 
SerialPort1.Close()

TextBox3.Text = getText 

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

Jetzt schickst du was an die serielle Schnitte und drückst den Button. Achte darauf das du ein "CR LF" sendest. Dein Programm wartet nämlich auf das Zeichen.

Schreib mal hinter jede Zeile in dem Buttonclick Event einen Kommentar mit dem was du denkst was da passiert. Ich will sehen das du auch verstehst was da passiert.

Das ist ungetestet! Wenns nicht gleich läuft poste die Fehlermeldungen.

[Der Einsteiger]

Wie meinst du das mit dem CR LF ???
Soll ich das von meinem MC aus an den PC schicken ??

Also so:
Print "Auto ist toll"
Print "CR LF"

[DanielSan]

Fast richtig! Mit dem MC an den PC was senden genau!

Programmierst du deinen MC mit Bascom?
Falls ja einfach nur:

Print "Auto ist toll"

Bei Bascom wird jedem Printbefehl ein CR&LF angehängt. Dadurch wird der nächste Text in eine neue Zeile geschrieben.

[Der Einsteiger]

Programmierst du deinen MC mit Bascom?

Ja .

Bei Bascom wird jedem Printbefehl ein CR&LF angehängt

Aha, das wusste ich noch nicht. Danke.

Hier ist die kleine Aufgabe von dir .Hoffentlich richtig gelöst??
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Try 'Versuche

Dim getText As String 'Deklariere getText als String
SerialPort1.PortName = TextBox1.Text 'Portname wird TextBox 1 entnommen
SerialPort1.BaudRate = TextBox2.Text 'Baudrate wird Text Box 2 entnommen

SerialPort1.Open() 'öffnet Serial Port
getText = SerialPort1.ReadLine() 'Das ,was empfangen wurde ,wird der Var getText zugeordnet
SerialPort1.Close() 'schließt Serial Port

TextBox3.Text = getText 'Schreibt in die Text Box 3 den empfangenen Wert ????

Catch ex As Exception
MsgBox("Verbindung konnte nicht hergestellt werden") 'Wenn es nicht geht soll das erscheinen
End Try
End Sub



Und hier noch mal der Code komplett:

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        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


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try                                                'Versuche

            Dim getText As String                     'Deklariere getText als String
            SerialPort1.PortName = TextBox1.Text       'Portname wird TextBox 1 entnommen
            SerialPort1.BaudRate = TextBox2.Text        'Baudrate wird Text Box 2 entnommen

            SerialPort1.Open()                           'öffnet Serial Port
            getText = SerialPort1.ReadLine()              'Das ,was empfangen wurde ,wird der Var getText zugeordnet
            SerialPort1.Close()                           'schließt Serial Port

            TextBox3.Text = getText                     'Schreibt in die Text Box 3 den empfangenen Wert ????

        Catch ex As Exception
            MsgBox("Verbindung konnte nicht hergestellt werden")         'Wenn es nicht geht soll das erscheinen
        End Try
    End Sub
End Class

[DanielSan]

Super! Ist richtig.

Ich sehe gerade evtl kannst du auf die getText variable verzichten und direkt "TextBox3.Text = SerialPort1.ReadLine()" schreiben. Das kannst du ja mal ausprobieren.

Funktioniert das denn so?

[Der Einsteiger]

Also ich habe jetzt mal den ganzen Code getestet. Hat nicht funktioniert. Nicht nur das Empfangen ,sondern auch das Senden hat nicht mehr geklappt.Und es ist auch wieder die Fehlermeldung : Es ist eine Ausnahme in ... aufgetreten. Warum ??

[DanielSan]

Fehlermeldung?

[Der Einsteiger]

Ja ,beim Direktfenster.

[DanielSan]

Also die MsgBox?

Dann ist die serielle Schnittstelle evtl. schon offen oder du hast irgendwelche Parameter falsch angegeben.