Mit VB über FTDI Roboter steuern

[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

[DanielSan]

Das lesen geht fast wie das Schreiben. Such mal nach:

SerialPort1.Read()

in einer SUchmaschine.

Das solltest du jetzt alleine lösen können.

[Der Einsteiger]

Also zu HeXPloreR : hier der Code :

$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 32
$swstack = 32
$framesize = 32

Config Portd.7 = Output             ' Summer für das Einschalten und für Fehlermeldungen
Config Portc.5 = Output             ' Led die von vb gesteuert wird

Dim Wort As Word

Wait 1
Sound Portd.7 , 400 , 450         'Summer
Sound Portd.7 , 400 , 250          'Summer
Sound Portd.7 , 400 , 450              'Summer
Wait 2

Main:
  Waitms 500
  Input "?" , Wort

  Select Case Wort

      Case 1
      Waitms 10
      Portc.5 = 0
      Waitms 500


      Case 0
      Waitms 10
      Portc.5 = 1
      Waitms 500

      Case Else
      Waitms 10
      Sound Portd.7 , 400 , 450
      Sound Portd.7 , 400 , 250
      Sound Portd.7 , 400 , 450
      Waitms 10

  End Select
Goto Main

Ich habe es auch schon mit dem Terminal Emulator und mit vb getestet. Hat funktioniert. Doch hatte ich ein Problem mit dem Summer. Als ich es erst in Bascom ausprobiert habe ,hatte er noch gesummt. Als ich es danach aber bei vb ausprobiert habe hat er nicht mehr gesummt. Dann habe ich es noch mal in Bascom versucht ,aber da wollte er dann auch nicht mehr summen. Nach einem Neubespielen des MC hat es genau so ausgesehen wie davor .Erst hat es in Bascom funktioniert ,sobald ich es aber einmal in vb testete hat es nicht mehr funktioniert. Warum ???????

[HeXPloreR]

Naja, weil das VB Program einen String über Com sendet... und Dein Bascom Programm ein Word erwartet.
Ausserdem scheint es als wenn Du input direkt den wert "?" zuweist. Was denkst Du macht das Programm wenn es keine 1 oder 0 auswerten kann?
Ausserdem werden die waits innerhalb select case 1 und 0 nicht benötigt. Beim Else kann man das lassen wenn man das möchte

Wie testest Du diese Programm in VB?

Ich würde den ganzen Codeteil mit dem Summer raus nehmen, denn sonst sollte es ja ständig summen - mal kurz unterbrochen wenn du die richtigen Daten sendest. Aber dazu hast Du ja die LED reingeschrieben.

Das von mir gelinkte Video bei 2:18 mal angucken.

[Der Einsteiger]

Also ich bin es noch mal .
Auch wenn ihr jetzt vielleicht lacht aber ich bekomme das selbst mit dem Empfangen nicht hin .Könnt ihr mir nicht nen kleinen Code schicken ??
Um alle anderen Fragen und so kümmer ich mich Morgen ,denn ich habe jetzt tierisch Kopfschmerzen (sitze seit heute Morgen um 9 Uhr am Rechner und prokel daran rum).

Also bis Morgen....

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