Um mal das Problem zu wechseln und ein bischen Abwechlung hier rein zu bringen: Warum zum Geier funktionert das hier schon wieder nicht:

Bascom-Code:
Code:
$regfile = "m32def.dat"
$baud = 9600
$crystal = 8000000

Dim Serial_in As Word

Mainloop:
Do
   Input Serial_in
   Waitms 100
   Print Serial_in;
   Waitms 100
Loop
Goto Mainloop


End
Delphi-Code:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
     send_str : String;
begin
     send_str := Edit1.text;
     ComPort.WriteStr(send_str);
end;
Was ich nach dem Write-Befehl über das Terminal emfange sind immer nur die ersten paar Stellen von dem was ich gesendet hab. Ist vielleicht der Typ Word nicht groß genug? Gibts was größeres? Und nachdem er die ersten paar Stellen über print rausgeschickt hat, geht garnix mehr. Ich muss das Programm im Controller neu starten, damit ich wieder einen String schicken kann. Is doch seltsam oder? Stimmt vielleicht mit dem Board was nicht?

mfg
jagdfalke