Mit VB über FTDI Roboter steuern

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