Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.09.2011, 19:54   #1
maks5
Пользователь
 
Регистрация: 08.03.2011
Сообщений: 61
По умолчанию Отсчёт времяни.

Доброе время суток!
Такая проблема. На выполнение теста отведено 2 минуты. По истечению двух минут тест завершается. Время нужно показывать на форме обратным отсчётом.
Заранее спасибо!
maks5 вне форума Ответить с цитированием
Старый 13.09.2011, 20:13   #2
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,789
По умолчанию

кидаешь на форму таймер и в свойствах делаешь ему интервал 1000 (это 1 секунда).
щёлкаешь по таймеру и в возникшей процедуре пишешь следующее:
Код:
procedure TForm1.Timer1Timer(Sender:TObject);
begin
  cnt:=cnt+1;
  Form1.Caption:='Осталось '+IntToStr(120-cnt)+' сек.';
  if(120<=cnt)then Close;//как только больше 120 секунд (это 2 минуты) -> то выход
end;
а где-нибудь в коде ещё добавь это - начальное значение счётчика секунд
Код:
procedure TForm1.FormCreate(Sender:TObject);
begin
   cnt:=0;//обнуляем сначала счётчик секунд
end;
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 13.09.2011, 20:13   #3
X@OC
Форумчанин
 
Аватар для X@OC
 
Регистрация: 18.06.2010
Сообщений: 273
По умолчанию

вот мое предложение
два Lablel
и две переменные
m - минуты
s - секунды
Код:
var  
  m:integer = 2;
  s:integer = 00;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
if s=0 then
begin
  s:=59;
  m:=m-1;
  if m<0 then close;
  end
  else
  s:=s-1;

label1.Caption:=IntToStr(m);
label2.Caption:=IntToStr(s);
end;

Последний раз редактировалось X@OC; 13.09.2011 в 20:19.
X@OC вне форума Ответить с цитированием
Старый 13.09.2011, 20:31   #4
maks5
Пользователь
 
Регистрация: 08.03.2011
Сообщений: 61
По умолчанию

Спасибо. А на какой вкладке таймер?

всё, нашёл



_____________________________
Форум - не чат!
Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Правка"
и дописывайте в своё сообщение, что Вы хотели добавить!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 13.09.2011 в 20:44.
maks5 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разделение процессорного времяни для ожидания igor74 Общие вопросы Delphi 6 09.06.2011 13:30
Обратный отсчёт времени Che Guevara JavaScript, Ajax 2 05.05.2011 14:03
отсчёт с определённой точки. blackstersl Общие вопросы Delphi 11 16.08.2009 11:02
Отсчёт времени(сколько осталось до...) acmilan JavaScript, Ajax 2 23.07.2009 08:10
Обратный отсчёт mager PHP 3 01.04.2009 17:16