Вопросик по нестандартному использованию таймера

← →
Прямой (2003-07-05 04:57) [0]

Проблема такова. Задаётся интервал таймера (например 100 сек.),
Дальше Timer.Enable:=true; Надо видеть сколько осталось до запуска таймера, что-то вроде обратного отсчета.

← →
default © (2003-07-05 05:31) [1]

применить ещё один таймер?!

← →
Прямой (2003-07-05 05:37) [2]

default Поведай как, но чтобы не слишком заморочено!
Конечно влоб можно решить! А как чтобы красиво?

← →
default © (2003-07-05 05:41) [3]

в обработчике первого таймера:
St := GetTickCount div 1000; (St глобальная переменная)
St_Inc := St; (St_Inc тоже глобальная)
в обработчике второго таймера
(он пусть тикает, например, каждую секунду):
Inc(St_Inc);
и значение ((St + your_interval_in_seconds) - St_Inc)
будет числом секунд через которое "тикнет" первый таймер
это примерный код(тут есть некоторые "подводные камни")

← →
default © (2003-07-05 05:44) [4]

your_interval_in_seconds - интервал в секундах через который "тикает" первый таймер

← →
Прямой (2003-07-05 05:50) [5]

Это конечно да. Но хотелось бы сам отсчет получать именно от первого таймера.

← →
Кен © (2003-07-05 07:59) [6]

Вопрос ну глобольнейший. Ну, ваще !

> Прямой (05.07.03 05:50)
> Это конечно да. Но хотелось бы сам отсчет получать именно
> от первого таймера.

Слушай Меня - Великого Учителя. Берёшь значит таймеры и переименовываешь ...

← →
ЮЮ © (2003-07-05 09:43) [7]

>Это конечно да. Но хотелось бы сам отсчет получать именно от первого таймера.
Интервал задаешь, как обычно, небольшой, например 1 сек, и ему же задаешь ВремяАктивизацииЧегоТо. Таймер крутится, показывает сколько времени прошло и , достигнув ВремяАктивизацииЧегоТо, запускает это ЧегоТо и самодеактивируется

← →
Palladin © (2003-07-05 09:48) [8]

timer1.tag:=100;
timer1.interval:=1000;

procedure TForm1.Timer1OnTimer;
begin
timer1.tag:=timer1.tag-1;
if timer1.tag=0 then
begin
делай что тебе надо на событии
timer1.tag:=100;
end;
caption:="Таймер "+inttostr(timer1.tag);
end;

> Кен © (05.07.03 07:59)
Слушай Меня - Великого Учителя. Берёшь значит таймеры и переименовываешь ...

АЙ МАЛАЦЦАААААААААААА!!!!!!!!!!!
;))))))))))))))))))))))))))))))))))))))))))!!!!!!!!!!

Установи время таймера = 1 сек и заведи переменную DownCount: integer= 100. По каждому тику таймера делай Dec(DownCount). Когда получишь 0 - твое событие наступило.

гы, яко кульно Sha придумал

Palladin © (07.07.03 11:10)
Мы в ответе за тех, кого приручили :)
Твой пост при прокрутке потерялся. Слов нет, у тебя намного кульнее :)))))))))))

Вопросик по нестандартному использованию таймера Найти похожие ветки