VPF::Секундомер - Форум программистов

proger

Дата 22.10.2004, 18:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 400
Регистрация: 10.10.2004

Репутация: 1
Всего: 1

Как в дельфи сделать сикундомер, который выводит в формате Часы:Мин:Сек т.е. 00:00:48 :sample

p0s0l

Дата 22.10.2004, 18:59 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Самое простое - с помощью таймера.
Ставишь на форму таймер:
Interval = 1000
Enabled = False
Вытаскиваешь Label куда-нибудь, на этом лабеле будет выводиться время...

На собитие таймера OnTimer пишешь:

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Timer1.Tag > 0 then
  begin
    Timer1.Tag := Timer1.Tag - 1;
    Label1.Caption := TimeToStr(Timer1.Tag / SecsPerDay);
  end;

// Если отсчёт окончен...
  if Timer1.Tag = 0 then
  begin
    Timer1.Enabled := False;
    PlaySound(PChar(SND_ALIAS_SYSTEMASTERISK), 0, SND_ASYNC or SND_ALIAS_ID);
    ShowMessage ('Отсчёт окончен!');
  end;
end;

При нажатии на какую-нибудь кнопку пишешь запуск секундомера:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Tag := 190; // количество отсчитываемых секунд, в данном случае, 3  минуты 10 сек
  Timer1.Enabled := True;
end;

Добавлено @ 19:02
Тьфу!

Я вдруг подумал, что надо без обратного отсчёта...
Тогда событие таймера перепиши так:

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag := Timer1.Tag + 1;
  Label1.Caption := TimeToStr(Timer1.Tag / SecsPerDay);
end;

--------------------

С уважением, г-н Посол.

proger

Дата 23.10.2004, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 400
Регистрация: 10.10.2004

Репутация: 1
Всего: 1

p0s0l Спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »