Тестовая программа с таймером

[Alex21]

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

спасибо за помощ. все отлично кроме того что я не догнал где и как время менять (как с таймером работать?)

Кидаем на форму компонент Timer.
Добавим глобальную переменную ttime, будет отвечать за кол-во оставшихся секунд:

var
Form1: TForm1;
ttime:integer; 

В Событии Form1.OnCreate пишем:

 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ttime:=60; {время на ответ в секундах}
  Form1.Timer1.Interval:=1000; {цикл каждые 1 сек или 1000мс}
end;

Запуск таймера и его остановку вызываем так:

 
Timer1.Enabled:=true; {запуск таймера}   
Timer1.Enabled:=false; {остановка таймера}

Далее при старте или при правильном ответе надо сделать следущее:

ttime:=60; {вновь устанавливаем таймер на отсчет 60 секунд}
Form1.Timer1.Enabled:=true; {запуск таймера - вызываем только при начале теста} 
{переход к новому вопросу}

В обработчике самого таймера запишем это:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ttime>0 then  {проверяем не кончилось ли отведенное время}
  begin
    dec(ttime); //аналог ttime:=ttime-1;
    caption:=inttostr(ttime)+' сек.'; {вывод в текстовом виде в заголовок формы}
  end else  {если время истекло, то..}
  begin
    {действия при исходе времени}
    Timer1.Enabled:=false; {остановка таймера}
  end;
end;

[Tayfun]

спасибо за помощ. все отлично кроме того что я не догнал где и как время менять (как с таймером работать?)

Ничего сложного... Вот тут поставишь сколько тебе надо минут для прохождения теста:

 if RadioButton1.Checked=true then begin m:=29; Panel2.Visible:=true; end
else  begin m:=19; Panel3.Visible:=true; end;

Тута m=количество минут. 29(+60 сек=30) для первого курса и соответственно 19(+60 сек=20) для второго...