serielle schnittstelle Ich versteh nur bahnhof

[snow]

Vielen Vielen Dank.

es hat geklappt.



Lok 18 fährt jetzt mit geschwindigkeit 12 im kreis.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

 var
ser : TBlockSerial;
Loknr : byte;
Geschw : byte;
begin
Loknr := 18;
geschw := 12;
ser := TBlockSerial.Create;
ser.Connect('COM1');
ser.Config(2400,8,'N',SB2,false,false);
ser.SendString(Chr(Geschw)+Chr(Loknr));
ser.Free;
end;

so dann schnell mal abspeichern und sicherheitskopie anfertigen

und dann sofort weiterprogrammiern