Таймер

← →
Ivolg © (2004-04-08 12:48) [0]

Приветствую мастера! Как можно здделать счётчик чтобы считал туда и обратно чтоб там отображались: часы, Минуты, Секунды! Спасибо!

← →
Фикус © (2004-04-08 12:52) [1]

Я TTimer и TimeToStr(Now) использовал для этого.

← →
Ivolg © (2004-04-08 12:57) [2]

напиши плиз пример

← →
Фикус © (2004-04-08 13:02) [3]

Простейший пример:

procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:=TimeToStr(Now); end;

Интервал таймера - 1000. Обратный отсчет не должен вызвать трудностей.

← →
Ivolg © (2004-04-08 13:08) [4]

Обратный отсчет должен вызвать трудность

← →
Алхимик © (2004-04-08 13:29) [5]

Обратный отсчёт:
procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:=TimeToStr(SomeDate - Now); end;
:)

← →
Фикус © (2004-04-08 13:30) [6]

[4] Ivolg © (08.04.04 13:08)

Примерно так:
var Start, TN: TDateTime; ... procedure TForm1.FormActivate(Sender: TObject); begin Start:=Now(); end; procedure TForm1.Timer1Timer(Sender: TObject); begin TN:=Now(); Label1.Caption:=TimeToStr(Start-(TN-Start)); end; end.

← →
Ivolg © (2004-04-08 14:02) [7]

Фикус

а как в AVV Timer там часовай механзм есть! Заводишь на определённое время и он тебе назад считает! Как мне зделать такое!
Вот чтобы не сестемное время использовало а от нулей начинало считать! И от 59:59:59 обратнй отсчёт был! Как сделать можно!

← →
Рамиль © (2004-04-08 15:10) [8]

Обратный отсчет, при условии, что интервал таймера 1000:

procedure TForm1.Timer1Timer(Sender: TObject); begin Start := Start - 1/(3600*24); Label1.Caption:=TimeToStr(Start)); end;

А как можно здлать стоп таймера чтоб он сначало считал! Я пробовал но он падло не сначало считает

Ivolg © (10.04.04 08:25) [9]
А как можно здлать стоп таймера чтоб он сначало считал! Я пробовал но он падло не сначало считает

Я так понимаю, у тебя есть переменные Старт и ТекущееВремя. При сбросе ТекущееВремя:= Старт, вот таймер и перейдёт в начальное состояние.

::кстати о глобальных переменных::
забудьте как страшный сон! а то руки по отшибаю! =)

>TButton © (10.04.04 08:52)
>::кстати о глобальных переменных::
>забудьте как страшный сон! а то руки по отшибаю! =)

Чем они тебе не нравятся? Иногда даже очень удобно, если конечно не злоупотреблять ими...

Таймер Найти похожие ветки