serielle schnittstelle Ich versteh nur bahnhof

[shmia]

Delphi-Quellcode:

ser.Connect('COM1');
ser.Config(2400,8,'N',2,false,false);
ser.SendString(Chr(12)+';'+Chr(18)+';');  // Variante 1
ser.SendString(#12';'#18';');  // Variante 2

[christian_u]

Die 2 die du dort hingeschrieben hast, entspricht nicht 2 Stopbits dafür gibts in synapse Konstanten ich hab das nicht aus dudeldei erzählt ;)
Das mit der 2 funktioniert garantiert nicht.

[snow]

Ich hab mal getestet. Das Interface läuft auch mit nur einem Stopbit.(nur unter BASIC)

mit diesem basic-code läuft es problemlos

Zitat:

100 OPEN "COM1:2400,N,8,1," FOR RANDOM AS #1
200 INPUT " Byte1 (Geschw. 0-15) "; GE
210 INPUT " Byte2 (Loknr. 1-80) "; LN
300 PRINT #1, CHR$(GE); CHR$(LN);
close #1

auch shmia's methoden funzen net. :wall:

snow

[christian_u]

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

[snow]

Vielen Vielen Dank.

es hat geklappt. :bounce1: :bounce1: :bounce1: :bounce1: :bounce1: :bounce1: :bounce1: :bounce1: :bounce1: :bounce1:



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