Hallo Leute,

folgendes:

Ich brauch ein programm, das den RS232 abhöhrt und impulse an der RS232 zählt. Die Impulse bekomme ich über CTS Signal.

Als Verbindung zwischen RS232 und Programm hib ich CPortLib.

Die Haken ist aber, dass wenn ich einen Impuls bekomme, dann soll der halt die Variable auf 1 setzen und über timer 1 Sekunde warten. Wenn aber innerhalb der Sekunde wieder ein Impuls kommt, dann soll der Timer abgebrochen werden und die Variable auf 2 gesetzt werden und Timer wieder 1 Sekunde ablaufen. Wenn die Sekunde vorbei ist, dann soll Quelltext ablaufen.

Wie könnt ich denn das machen?

LG Maggo

zusammenfalten · markieren

Delphi-Quellcode:

Procedure TMyIrgendWas.OnCTSChanged(Sender : TObject; CTSEnabled : Boolean);
Begin
  if CTSEnabled then begin
    if not Timer.Active then
      variable :=1
    else if Now - LastSignal < OneSecond then
      variable := 2;
      
    Timer.Active := Not Timer.Active;
    LastSignal := Now;
  end
end;

Procedure TTimer.TimerTimer(Sender : TObject);
Begin
  QuelltextAblaufen();
End;

Ok, super danke aber bin ein eher ungeübter delpianer.

Mit CTSEnabled meinst du OnCTSChange oder?
Das versteh ich auch nicht ganz 'if Now - LastSignal < OneSecond then'

Danke