Скачать: CL | DM;

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

← →
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

:)

---

← →
Anatoly Podgoretsky ©   (2009-07-09 22:47) [8]

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

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

---

← →
antonn ©   (2009-07-09 23:24) [9]

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

---

← →
MonoLife ©   (2009-07-10 15:47) [10]

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

dec(i); ))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c