Сделать таймер из Label и Timer

[fezilk25]

Необходимо из Label1 сделать что-то вроде обратного отсчёта.
На форме есть Timer1, в котором случайно задаётся интервал.
Необходимо, чтобы в Label1 показывался обратный отсчёт этого интервала.

Т.е., если в Timer1 интервал равено 120000 (это 2 минуты), в Label1 должно отсчитываться: 1:59, через секунду 1:58 и т.д.

Понимаю, что нужен еще и Timer2 с интервалом в 1000 (1 сек). Но как перевести милисекунды в формат mm:ss не знаю, да и как потом это "анимировать" плохо понимаю.

PS. пытался сделать, получается в формате ssss только...

[mihali4]

Глупость какая...
Берем таймер с секундным интервалом, глобальную переменную с начальным значением 120 и еще одну, с начальным значением 1.
Запускаем таймер (и выводим на Label начальное значение первой = 120), по событию OnTimer которого выводим на Label разницу между первой и второй глобальными переменными, инкрементируем вторую, проверяем, не стала ли она больше, чем первая. Если стала - выключаем таймер...

[fezilk25]

Не совсем понял, что вы написали
Нужен обратный отсчет (например, от 128000мсек), обновляемый в режиме реального времени. Разобрался с переводом милисек в формат mm:ss :

var
n,sec:integer;
...
n:=128000;
sec := n div 1000; // переводим в секунды
label7.Caption := format('%.2d:%.2d',[sec div 60, sec mod 60]); // выведется 02:08

но как всё это в обратный отсчет превратить?

[BOBAH13]

но как всё это в обратный отсчет превратить?

Уменьшать n?

[fezilk25]

именно. но код толковый написать не могу, программа либо виснет, либо выдается 00:00, помогите с кодом, пожалуйста.

procedure TForm3.Timer1Timer(Sender: TObject);
var m, N, sec : integer;
begin
  N:=Form1.Timer1.Interval;
   while n>0 do
   begin
     n:=n-1;
     sec := N div 1000;
     label7.Caption := format('%.2d:%.2d',[sec div 60, sec mod 60]);
     if n=1 then
     n:=Form1.Timer1.Interval;
   end;
end;

вот так пытался, и еще по-всякому )

вам раз плюнуть, а мне приятно )

[mihali4]

Сообщение от mihali4

Глупость какая...
Берем таймер с секундным интервалом, глобальную переменную с начальным значением 120 и еще одну, с начальным значением 1.
Запускаем таймер (и выводим на Label начальное значение первой = 120), по событию OnTimer которого выводим на Label разницу между первой и второй глобальными переменными, инкрементируем вторую, проверяем, не стала ли она больше, чем первая. Если стала - выключаем таймер...

И что ? Непонятно, что это и будет уменьшающаяся исходная величина ???

[fezilk25]

procedure TForm3.Timer1Timer(Sender: TObject);
var N, sec : integer;
begin
  N:=128000;
   while n>0 do
   begin
     sec := n div 1000;
     label7.Caption := format('%.2d:%.2d',[sec div 60, sec mod 60]);
     n:=n-1;
   end;
end;

не понимаю, почему выдает 00:00

[Serge_Bliznykov]

потому что Вы не понимаете.
в процедуре обработки, которая висит на таймере
НЕ ДОЛЖНО БЫТЬ ЦИКЛОВ!!!!

т.е. объявите переменную N где-нибудь глобально
и на FormCreate сделайте N:=128000;

в в процедуре обработки таймера (интервал 1000 мс == 1 сек)
напишите:

procedure TForm3.Timer1Timer(Sender: TObject);
var sec : integer;
begin
   Dec(N);
   if n>=0 then 
   begin
     sec := n div 1000;
     label7.Caption := format('%.2d:%.2d',[sec div 60, sec mod 60]);
   end
   else Timer1.Enable := false; {выключаем таймер, если N стало меньше нуля...}
end;

и всё.

[mihali4]

procedure TForm1.Button2Click(Sender: TObject);
var int: string;
begin
int:=InputBox('Интервал времени','Введите интервал в секундах','1');
inti:=StrToInt(int);
sec:=1;
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:= format('%.2d:%.2d',[(inti-sec) div 60, (inti-sec) mod 60]);
Application.ProcessMessages;
Inc(sec);
if sec>inti then
Timer1.Enabled:=False;
end;

Красные - глобальные.

[fezilk25]

Serge_Bliznykov, ваш способ не работает..
mihali4, работает, огромное спасибо!

теперь бы синхронизировать два таймера..