Как запустить секундомер?

← →
Maks_ (2008-03-09 09:47) [0]

Очень нужно чтобы при активир. формы запускался секундомер и был виден на эране, а при закрытии формы - остановился .Подскажите пожалуйста как это сделать?

← →
Virgo_Style © (2008-03-09 10:08) [1]

Что такое секундомер? особенно - который нужно останавливать при закрытии формы?

← →
KilkennyCat © (2008-03-09 12:03) [2]

OnActivation, OnClose, Gettickcounts

← →
Maks_ (2008-03-09 12:08) [3]

> Что такое секундомер? особенно - который нужно останавливать
> при закрытии формы?

:) СЕКУНДОМЕР - ЕСТЬ УСТРОИСТВО ИЗМЕРЯЮЩЕЕ ВРЕМЯ . например до какого либо события отсчет равен 00 ч,00 м,00 с, событие наступило - время пошло :) наступило другое событие - секундомер остановился.

← →
Плохиш © (2008-03-09 12:56) [4]

> Maks_ (09.03.08 09:47)
> Очень нужно чтобы при активир. формы запускался секундомер
> и был виден на эране, а при закрытии формы - остановился
> .Подскажите пожалуйста как это сделать?

Надо нанять программиста, можно даже студента...

← →
Maks_ (2008-03-09 12:59) [5]

команда label1.caption:=inttostr(Gettickcount) - выдает огромное число, как его обнулить и привести к минутам и секундам?

← →
Сергей М. © (2008-03-09 13:07) [6]

> СЕКУНДОМЕР - ЕСТЬ УСТРОИСТВО ИЗМЕРЯЮЩЕЕ ВРЕМЯ

Что же тогда такое минутомер, часомер, неделямер, годомер ?)

> команда label1.caption:=

Это не команда, это оператор присвоения.

> выдает огромное число, как его обнулить

Никак.
ну разве что только перезагрузить комп)

> привести к минутам и секундам

gettickcount - это тикомер, а не секундомер, она тики меряет а не время).. Меж прочем, согласно твоему же определению)

← →
KilkennyCat © (2008-03-09 13:07) [7]

если его обнулить, то будет ноль.
если почитать справку, то не будет вопросов.
Я подсказал достаточно.

← →
Kolan © (2008-03-09 13:08) [8]

TTimer юзай

← →
KilkennyCat © (2008-03-09 13:11) [9]

> [8] Kolan © (09.03.08 13:08)

ага. и XML c ADO.Net

← →
KilkennyCat © (2008-03-09 13:14) [10]

> [6] Сергей М. © (09.03.08 13:07)

> gettickcount - это тикомер, а не секундомер, она тики меряет
> а не время)..

вообще-то, время. ибо это миллисекундометр. Вероятно, Getmillisecundscount было лениво писать разраработчикам :)

← →
Kolan © (2008-03-09 13:15) [11]

> ага. и XML c ADO.Net

Ну да, а что  решение.

Автар:
Кидаешь на форму TTimer и TLabel.

И пишешь:

TForm1 = class(TForm) Timer1: TTimer; Label1: TLabel; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } FTime: Integer; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin FTime := 0; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if Sender is TTimer then begin FTime := FTime + 1; Label1.Caption := IntToStr(FTime); end; end;

← →
Anatoly Podgoretsky © (2008-03-09 14:17) [12]

> при активир. формы

Это событие может много кратно возникать, будешь каждый раз запускать новый секундомер?

← →
Johnmen © (2008-03-09 14:23) [13]

> Kolan © (09.03.08 13:15) [11]

А где тут секундомер?

> А где тут секундомер?

Ну секунды же идут?  Значит секундомер. :)

> Ну секунды же идут? — Значит секундомер. :)

Типа логико?

← →
Maks_ (2008-03-10 07:18) [16]

> Kolan © (09.03.08 13:15) [11]
> > ага. и XML c ADO.Net
>
> Ну да, а что — решение.
>
> Автар:
> Кидаешь на форму TTimer и TLabel.

Спасибо за решение !
я немного улучшил - теперь считает и мунуты =

=м= - деклариуем как integer;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
if Sender is TTimer then
begin

FTime := FTime + 1;

if ftime=60 then begin
m:=m+1;
ftime:=0;
end;
Label4.Caption :=inttostr(m)+":"+ IntToStr(FTime);
end;

end;

> [13] Johnmen © (09.03.08 14:23)
>
> А где тут секундомер?

> [16] Maks_ (10.03.08 07:18)
> Спасибо за решение !
> я немного улучшил  теперь считает и мунуты =

Johnmen, а ты говорил&#133 :o)

> Kolan (10.03.2008 08:26:17) [17]

Чего говорил?
Код то безграмотный, практически не рабочий.

--

> практически не рабочий

Это как немножко беременна :)

Как запустить секундомер? Найти похожие ветки