Witam. Chciałbym by moj timer nie powtarzał się dokładnie wtedy kiedy chcę, a by działo się to randomowo.
Bardziej chodzi mi o określony czas a + random liczba z czasu b.
W kodzie wygląda to tak:
procedure TForm1.CheckBox5Click(Sender: TObject);
var
i:integer;
begin;
for i := 0 to SpinEdit6.Value do
if Checkbox5.Checked then
begin
Timer7.Interval := (Spinedit5.Value *1000 + (random(i)*1000));
Timer7.Enabled := True;
end
Else
begin
Timer7.Enabled := False;
end;
end;
W timerze jest dajmy na to
memo1.lines.add('Czas: ' + (TimeToStr(Time)));
W pewnym stopniu jest spoko, gdyż gdy np. Spinedit5.Value := 1, a Spinedit6.value := 5 to funkcja się z timera powtarza się co randomowy czas pomiędzy 1, a 6 sekund, z tym że na każde kliknięcie checkboxa jest generowany nowy czas (nowy interval timera). Bardziej mi zależy by czas timera zmieniał się sam.
Teraz wygląda to np. tak:
Czas: 23:13:04
Czas: 23:13:08
Czas: 23:13:12
Czas: 23:13:16
Czas: 23:13:20
Bardziej mi zależy na czymś takim:
Czas: 23:13:04
Czas: 23:13:05
Czas: 23:13:08
Czas: 23:13:12
Czas: 23:13:14
Czas: 23:13:09
Mam nadzieję że połapiecie się w tym co tu napisałem i dacie rade mi pomóc.
Dzięki :D