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

[Barrr]

народ помогите создать прогу на делфи. Тест какой нить с таймером чтоб время на ответ было ограничено

[Alex21]

Что сами сделали? Что объяснить?

[Tayfun]

http://www.programmersforum.ru/attac...1&d=1191425173
Посмотри, может поможет!

[Barrr]

Я не понял как вопросы создавать и как указывать правильные ответы

[mihali4]

Делаем поиск по форуму со словом "тест" и находим аж две готовые программы. Надеюсь, вас это не сильно затруднит?

[Barrr]

я их скачал запустил а где задовать вопросы и выбирать правильные ответы в самой программе я не понял

[Tayfun]

Если ты про мою прогу то в файлах
quest.bse и quest2.bse. Для первого и второго курса соответственно
А ответы смотри в самой проге

 
procedure TForm1.Button2Click(Sender: TObject);
begin
if RadioButton1.Checked=true then begin
case qs[t] of
1:if RadioButton5.Checked=true then p:=p+1;
2:if RadioButton4.Checked=true then p:=p+1;
3:if RadioButton4.Checked=true then p:=p+1;
4:if RadioButton3.Checked=true then p:=p+1;
5:if RadioButton3.Checked=true then p:=p+1;
6:if RadioButton5.Checked=true then p:=p+1;
7:if RadioButton5.Checked=true then p:=p+1;
8:if RadioButton4.Checked=true then p:=p+1;
9:if RadioButton3.Checked=true then p:=p+1;
10:if RadioButton5.Checked=true then p:=p+1;
11:if RadioButton4.Checked=true then p:=p+1;
12:if RadioButton5.Checked=true then p:=p+1;
13:if RadioButton3.Checked=true then p:=p+1;
14:if RadioButton3.Checked=true then p:=p+1;
15:if RadioButton4.Checked=true then p:=p+1;
16:if RadioButton5.Checked=true then p:=p+1;
17:if RadioButton3.Checked=true then p:=p+1;
18:if RadioButton5.Checked=true then p:=p+1;
19:if RadioButton3.Checked=true then p:=p+1;
20:if RadioButton3.Checked=true then p:=p+1;
end; end
 else
 case qs[t] of
1:if RadioButton4.Checked=true then p:=p+1;
2:if RadioButton3.Checked=true then p:=p+1;
3:if RadioButton4.Checked=true then p:=p+1;
4:if RadioButton4.Checked=true then p:=p+1;
5:if RadioButton3.Checked=true then p:=p+1;
6:if RadioButton4.Checked=true then p:=p+1;
7:if RadioButton3.Checked=true then p:=p+1;
8:if RadioButton4.Checked=true then p:=p+1;
9:if RadioButton5.Checked=true then p:=p+1;
10:if RadioButton3.Checked=true then p:=p+1;
11:if RadioButton3.Checked=true then p:=p+1;
12:if RadioButton5.Checked=true then p:=p+1;
13:if RadioButton4.Checked=true then p:=p+1;
14:if RadioButton3.Checked=true then p:=p+1;
15:if RadioButton4.Checked=true then p:=p+1;
16:if RadioButton4.Checked=true then p:=p+1;
17:if RadioButton3.Checked=true then p:=p+1;
18:if RadioButton5.Checked=true then p:=p+1;
19:if RadioButton4.Checked=true then p:=p+1;
20:if RadioButton5.Checked=true then p:=p+1;
end;

Тут типо зашифровано
номеру каждого вопроса соответствует ответ RadioButton3 - типо ответ А
Для Radiobutton4-Б
Radiobutton5-В

[Barrr]

Понял. а количество вопросов и их собержание тоже в этих файлох делаеться?????? если не сложно укороти ее до 5 вопросов (вопрос 1, ответ а,б,с) в таком духе чтоб я сравнил и осознал правильность моих действий

[Tayfun]

Думаю изменять смысла нет. Мыслишь правильно!
Первая строка: содержит вопрос
Вторая строка: первый вариант ответа
Третья строка: второй вариант ответа
Четвертая строка: третьий вариант ответа
................................... .............
i -ая строка:вопрос
i+1 -ая строка: первый вариант ответа
i+2 -ая строка: второй вариант ответа
i+3 -ая строка: третьий вариант ответа

Файлы формируються исключительно по вышеуказанному принципу!

где i-количество вопросов( Программа автоматически определяет)
Потом сколько у тебя вопросов в файлах quest.bse и quest2.bse.
Соответственно добовляй или удаляй тут(Тут к примеру как будто в фалах содержиться по 5 вопросов):

 
if RadioButton1.Checked=true then begin
case qs[t] of
1:if RadioButton5.Checked=true then p:=p+1;
2:if RadioButton4.Checked=true then p:=p+1;
3:if RadioButton4.Checked=true then p:=p+1;
4:if RadioButton3.Checked=true then p:=p+1;
5:if RadioButton3.Checked=true then p:=p+1;
end; end
else
case qs[t] of
1:if RadioButton4.Checked=true then p:=p+1;
2:if RadioButton3.Checked=true then p:=p+1;
3:if RadioButton4.Checked=true then p:=p+1;
4:if RadioButton4.Checked=true then p:=p+1;
5:if RadioButton3.Checked=true then p:=p+1;
end;

[Barrr]

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