Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

dusha © (2009-07-09 20:15:00)
Доброго времени суток, мастера.
Просветите плиз в следующем вопросе: как организовать обратный отсчет времени (60 секунд) с помощью таймера, подскажите куда копать

MonoLife (2009-07-10 15:47:00) [1]

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

dec(i); ))

antonn (2009-07-09 23:24:00) [2]
забудьте про Double, с unixtime проще :)

Anatoly Podgoretsky (2009-07-09 22:47:00) [3]
> {RASkov} (09.07.2009 22:20:07) [7]

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

{RASkov} (2009-07-09 22:20:00) [4]
> Забудь про вычитание

и следом

> EndTime - Now

:)

Anatoly Podgoretsky (2009-07-09 21:00:00) [5]
Забудь про вычитание, это очень грубо, надо так

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

oldman (2009-07-09 20:30:00) [6]

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

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

dusha (2009-07-09 20:26:00) [7]
спасибо огромное, ответ был прост, а я как всегда пытался изобрести велосипед

liveD (2009-07-09 20:22:00) [8]
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.

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

Varkan (2009-07-09 20:19:00) [9]
отнимай начиная от 60 до 0, с шагом в 1 при срабативании таймера через каждую секунду

oldman (2009-07-09 20:18:00) [10]
ставишь i:=60
ставишь интервал таймера 1 сек
на событие таймера ставишь i:=i-1
все

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »