serielle schnittstelle Ich versteh nur bahnhof

Thema durchsuchen

Ansicht

Themen-Optionen

serielle schnittstelle Ich versteh nur bahnhof

Ein Thema von snow · begonnen am 21. Aug 2007 · letzter Beitrag vom 22. Aug 2007

Vorheriger Beitrag

Nächster Beitrag

snow

Registriert seit: 28. Jun 2007
277 Beiträge

#25

Re: serielle schnittstelle Ich versteh nur bahnhof

22. Aug 2007, 20:48

Vielen Vielen Dank.

es hat geklappt.

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

zusammenfalten · markieren

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;