обратный отсчет времени

← →
dusha © (2009-07-09 20:15) [0]

Доброго времени суток, мастера.
Просветите плиз в следующем вопросе: как организовать обратный отсчет времени (60 секунд) с помощью таймера, подскажите куда копать

← →
oldman © (2009-07-09 20:18) [1]

ставишь i:=60
ставишь интервал таймера 1 сек
на событие таймера ставишь i:=i-1
все

Господи, помоги нам!

← →
Varkan (2009-07-09 20:19) [2]

отнимай начиная от 60 до 0, с шагом в 1 при срабативании таймера через каждую секунду

← →
liveD © (2009-07-09 20:22) [3]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
sec:word=60;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(sec);
if sec=0 then
begin
sec:=60;
{âàø îáðàáîò÷èê}
end;
end;

end.

Юзайте на здоровье. А мне с моим таймером не поможете? :-)

← →
dusha © (2009-07-09 20:26) [4]

спасибо огромное, ответ был прост, а я как всегда пытался изобрести велосипед

← →
oldman © (2009-07-09 20:30) [5]

> liveD © (09.07.09 20:22) [3]
> А мне с моим таймером не поможете? :

в свою ветку зайди и отпишись

← →
Anatoly Podgoretsky © (2009-07-09 21:00) [6]

Забудь про вычитание, это очень грубо, надо так

EndTime := Now + 60000; procedure TForm1.Timer1Timer(Sender: TObject); begin Label.Caption := TimeToStr(EndTime - Now);
Остальное по вкусу.

← →
{RASkov} © (2009-07-09 22:20) [7]

> Забудь про вычитание

и следом

> EndTime - Now

:)

> {RASkov} (09.07.2009 22:20:07) [7]

Вычитание вычитанию рознь.

забудьте про Double, с unixtime проще :)

> на событие таймера ставишь i:=i-1

dec(i); ))

обратный отсчет времени Найти похожие ветки