Разработка тестового приложения. - Разработка Windows-приложений в среде Borland Delphi

Цель Работы: Закрепить навыки программирования в Delphi.

Постановка задачи:

Текстовый файл содержит несколько вопросов и 4 варианта ответа, из которых только один ответ верный(помечен символом +). Файл имеет следующую структуру:

Тема теста (дисциплина)

/вопрос 1

- Ответ 1

+ Ответ 2

    - Ответ 3 - Ответ 4

/вопрос 2

+ Вопрос 1

    - Вопрос 2 - Вопрос 3 - Вопрос 4

Создать текстовый файл с тестом из 5 вопросов в соответствии с заданной структурой.

Разработать приложение, которое позволяет выбирать файл с тестовыми заданиями и проводить последовательное тестирование.

Предусмотреть вывод результат тестирования на экран

Порядок выполнения:

    1. Загрузить Delphi; 2. Установить на форму следующие объекты и изменить им свойства (см. таблицу), объявить используемые переменные как глобальные.

Объект

Свойство

Значение

Label

Name

Label1

WordWrap

True

RadioButton

Name

RadioButton1

Button

Name

Button1

Caption

Далее

OpenDialog

Name

OpenFile

3. Для формы выбрать событие Create и ввести код для создания массива радиокнопок и объявить необходимые переменные:

For i:=1 to 4 Do

Begin

Otv[i]:= TRadioButton. Create(RadioButton1) ;

Otv [i].Parent:= Form1;

Otv[i].Left:= RadioButton1.Left;

Otv[i].Top:= RadioButton1.Top+i*40;

Otv [i].Visible:=true;

Otv [i].Width:= RadioButton1.Width ;

Otv [i].Height:= RadioButton1.Height ;

Otv [i].Color:= RadioButton1.Color ;

Otv[i].Checked:=false;

Otv[i].Font:= RadioButton1.font;

End;

RadioButton1.Visible:=false;

    4. Добавить на форму меню из двух пунктов Файл / Открыть и Выход 5. Для пункта Открыть ввести код:

If openfile. Execute Then

Begin

Assignfile(f1,openfile. FileName);

Reset(f1);

Readln(f1,s);

Form1.Caption:=s; {тема теста}

Verno:=0;//кол-во верных ответов

N:=0; //номер текущего вопроса

Button1.Enabled:=true;

Label1.Caption:='';

For i:=1 to 4 do

Begin

Otv[i].Caption:='';

Otv[i].Checked:=false;

End;

End;

6. Для кнопки Далее ввести код:

If n>0 then {проверим ответ на предыдущий вопрос}

For i:=1 to 4 do

If (otv[i].Checked =true) and (otv[i].tag=1) then verno:=verno+1;

If eof(f1) then {если тест закончен}

Begin

Showmessage(' кол-во верных ответов='+inttostr(verno));

Closefile(f1);

Button1.Enabled:=false;

Exit;

End;

N:=n+1;

{ччитаем следующий вопрос}

Readln(f1,s);

Delete(s,1,1);

Label1.Caption:=s;

For i:=1 to 4 do {варианты ответов}

Begin

Readln(f1,s);

Otv[i].Checked:=false;

Otv[i].Tag:=0;

If s[1]='+' then otv[i].Tag:=1;{запомним верный ответ}

Delete(s,1,1);

Otv[i].Caption:=s;

End;;

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

ПРАКТИЧЕСКАЯ РАБОТА № 15

Похожие статьи




Разработка тестового приложения. - Разработка Windows-приложений в среде Borland Delphi

Предыдущая | Следующая