digitale Uhr mit 5-sekunden-beep

[tankm26]

Was haltet ihr denn von einer solchen Formel, damit die Anzahl der beeps mit der Zeit übereinstimmt:


if (StrToInt(lstunden.Caption))>0 then begin
anzahl_beeps.Caption:=(IntToStr((StrToInt(lstunden .Caption))*612)) end;