Mit VB über FTDI Roboter steuern

[DanielSan]

Ich kann dir nur mit was ungetestetem aushelfen.

Verusch mal das in einen neuen Button mit Click event einzubauen:

dim getText as String

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

Damit sollte er alles was am COM Port ankommt bis er ein "\n" bzw. "CR LF" empfängt in die variable getText schreiben. Wie man den Text aus getText in eine Textbox schreibt erklär ich aber nicht. Das kannst du auch selbst googlen. Oder du schaffst die Transferleistung aus deinem Code, wo du die Textbox ausliest bis zum Textbox schreiben.

Gruß Daniel

[Der Einsteiger]

Danke für den Code ,doch habe ich es immer noch nicht hinbekommen. (Diese Softwaresachen versteh ich einfach nicht so gut)
Ich möchte ja auch nicht erst immer auf eine Taste drücken ,damit mir eine Information angezeigt wird. Ich möchte ja eine Art Terminal Programm haben.
Vielleicht weiß einer wie das geht und kann mir einen Code geben???

[DanielSan]

Etwas Eigeninitiative musst du schon mitbringen. Es wird sich wohl niemand hier hinsetzen und dir eine fertige Software schreiben. Außer du bezahlst ihn angemessen.

Dann mach es nicht mit nem Button click sondern starte einen Timer der z.b. 4 mal pro sek die serielle Schnitte abruft. Oder lass eine schleife laufen mit wait bzw. pause befehlen drin. Sonst ist dein pc vollständig ausgelastet.

Diese Softwaresachen versteh ich einfach nicht so gut

Das ist doch die Gelegenheit das zu ändern! Bei konkreten Fragen helfe ich gerne weiter.

[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.