digitale Uhr mit 5-sekunden-beep

[turboPASCAL]

Sowas liegt am timer der vor- oder nachläuft. Es geht auch so z.B.:

Delphi-Quellcode:

procedure TDigitaluhr.TimerTimer(Sender: TObject);
begin
  ...
  ...

  if StrToInt(lsekunden.caption) mod 5 = 0 then
  begin
    ...
  end;
end;