Таймер

[Sergeo_89]

Ребят, подскажите, пожалуйста, как поставить ограничение по времени на тест, равный 20 минутам?

[Greek9000]

Время от начала теста узнаём так:

var
  MyTimeVar : TDateTime; // Объявить переменную 
   //для хранения времени окончания теста
...
// Прибавить ко времени начала теста 20 минут
MyTimeVar := IncMinute(Now, 20); 
...

Теперь запускаем специально для этого созданный таймер, по которому переодически (раз в одну-две секунды) проверяем условие:

if Now() > MyTimeVar then begin //Текущее время больше заданного
// Здесь выполняем код остановки теста
end;

[mihali4]

Считаем количество секунд в 20-ти минутах, умножаем на тысячу и полученную величину подставляем в свойство таймера Interval.
Запускаем таймер в нужный момент.
А в его событии пусть он покажет сообщение вроде "Вы не уложились в 20 минут. Приходите завтра"

[Sergeo_89]

Ого Пасиба Большое, сейчас попробуем

19:47

Greek9000, То есть Код Будильника должен выглядеть Так?)

procedure TForm1.Timer1Timer(Sender: TObject);
var MyTimeVar: TDateTime;
begin
MyTimeVar := IncMinute(Now, 20);
if Now() > MyTimeVar then begin
form1.Close;

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

20:41

оОо Все, дошло, спасибо=)

А как вывести будильник на Экран?) и вообще это возможно?)

[Greek9000]

Что бы вывести оставшееся время на экран в том же таймере пишем:

Label1.Caption := FormatDateTime('nn:ss', MyTimeVar - Now());

Функция FormatDateTime преобразует TDateTime в строку.
Первый параметр - формат даты. Полностью дату можно отобразить так:
FormatDateTime('yyyy-mm-dd hh:nn:ss.zzz', Now);
То есть год-месяц-день час:мин:сек.мс

[Sergeo_89]

Greek9000 на этот код ругается Что не так?

procedure TForm1.Timer1Timer(Sender: TObject);
var
  MyTimeVar : TDateTime;
begin
MyTimeVar:=Incminute(Now, 30);
if Now() > MyTimeVar then begin
Label1.Caption := FormatDateTime('nn:ss', MyTimeVar - Now());
end;

[Greek9000]

Сообщение от Sergeo_89

...
оОо Все, дошло, спасибо=)

А как вывести будильник на Экран?) и вообще это возможно?)

Я это прочитал и решил, что Вы разобрались, что к чему.
Но раз вопрос возник - поясню:
Переменную MyTimeVar надо объявить в секции private Вашей формы, что бы её было видно не только внутри обработчика OnTimer.
Предположим, что тест начинается по нажатию кнопки Button1, тогда в её обработчике должен присутствовать код

MyTimeVar := Now;

Ну и в обработчике таймера пишем код проверки на завершение теста.
А компилятор ругается, потому что не хватает закрывающего end; для условия if Now() ...

procedure TForm1.Timer1Timer(Sender: TObject);
var
  MyTimeVar : TDateTime;// Для правильной работы эту переменную надо объявить в private-секции
begin
   // Если каждый раз по таймеру это делать - рискуете никогда не дождаться окончания теста
   // Это присвоение делается перед началом теста
   MyTimeVar:=Incminute(Now, 30);
   //- - - - - - - - -- - - - - - - - - - -

   // Отобразить оставшееся время
   Label1.Caption := FormatDateTime('nn:ss', MyTimeVar - Now());

   if Now() > MyTimeVar then begin
     // А вот тут выполняем код завершения теста
   end;// Этого оператора не хватало
end;

[Sergeo_89]

MyTimeVar:=Incminute (Now, 30);

Вот здесь все равно ругается, говорит, что переменная не задана, попробовал

var
Incminute: integer;
  MyTimeVar : TDateTime;

не помогло

а пробую так
Код:

MyTimeVar:=Incminute(Now, 30);

Зпускает таймер, но работает он бесконечно в обратном отсчете от часа к нулю и по новой.

01:10

а пробую так

MyTimeVar:=Incminute(Now, 30);

Зпускает таймер, но работает он бесконечно в обратном отсчете от часа к нулю и по новой.

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[mihali4]

procedure TForm1.Timer1Timer(Sender: TObject);
var
MyTimeVar : TDateTime;// Для правильной работы эту переменную надо объявить в private-секции

Зачем ???
Просто как глобальную, вот и все. Зачем усложнять то, что не стоит выеденного яйца ?
И зачем ее вторично объявлять как локальную ???
Сегодня что - вспышка на солнце ? И так пагубно влияет на мозги ?

[Sergeo_89]

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

MyTimeVar:=Incminute(Now, 30);

не понимает!