Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

timer с нерегулярными событиями   Найти похожие ветки 

 
Юлия   (2003-03-17 16:23) [0]

Как сделать timer с непостоянным интервалом событий?


 
Юрий Зотов ©   (2003-03-17 16:26) [1]

Менять его в обработчике OnTimer.


 
Sheriff   (2003-03-17 16:28) [2]

со случайным срабатыванием что ли?
мда...
а может вовсе без таймера?
вдруг получится...
;)
а так можно попробовать в ОнТимер:
with Timer1 do begin
Enabled:=false;
...
Interval:=Random(10001)+1000;
Enabled:=true;
end;


 
icWasya ©   (2003-03-17 16:30) [3]

procedure TForm1.Timer1OnTimer(Sender:TObject);
begin
Timer1.Interval:=100+10*Random(1000);
DoSomething;
end;




 
Юлия   (2003-03-17 16:35) [4]

Нет. Запустили таймер.
В событии Timer1.OnTimer написано timer1.enabled:=false (чтобы сработал только один раз).
Пока он работал, появилась необходимость поставить его еще раз. То есть чтобы срабатывания было уже два. Интервал тот же. Как сделать?
Можно узнать, сколько времени осталось до срабатывания первого таймера? Много ли времени уйдет на обработку этого события? Не получится ли ошибки в определении времени?


 
Sheriff   (2003-03-17 16:43) [5]

1. свойство Endbled...
2. смотря какой интервал.


 
Юлия   (2003-03-17 16:48) [6]

интервал не важно какой.
До окончания работы первого еще осталось какое-то время, и нужно, чтобы через это время событие произошло. Но надо поставить еще один таймер. Чтобы в итоге произошло 2 события (или больше, смотря сколько понадобится). Т.е. сформировать как бы очередь событий, которая постоянно пополняется.



Страницы: 1 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
1-87933
МитяЙ2
2003-03-17 15:48
2003.03.27
WARNING и в Delphi и как от них избавиться


7-88268
S.P.I.R.I.T
2003-02-03 19:27
2003.03.27
клавиатура и мышка


3-87882
Al11
2003-03-11 13:37
2003.03.27
Как сделать так,CalcFields считались сразу для всех записей Query


8-88088
Ssergy
2002-12-15 00:09
2003.03.27
Вычитание из одной поверхности другой


14-88159
Nick-from
2003-03-10 14:18
2003.03.27
Мать не видит винта