Хід роботи

1. Завантажте середовище візуального програмування Delphi та раніше збережений у своїй папці проект.

2. Файл тесту скопіюйте в файл проекту.

3. Задайте заголовок (Caption) форми на 'Тестування – тема навчальної програми'.

4. На форму помістіть об'єкт Panel1 із закладки Standart. Задайте властивісті об'єкту Panel1 (Align=alTop, Caption=''). Об'єкт Panel1 будемо використовувати для вводу контрольних запитань по даній темі з файлу тесту (лабораторна робота 4).

5. На форму помістіть об'єкт RadioGroup1 із закладки Standart. Задайте nfrs значення властивостей: Align=alTop, Caption='Виберіть правильний варіант відповіді'. Вставте на форму три перемикачі: RadioButton1, RadioButton2, RadioButton3 із закладки Standart. У об'єктах RadioButton1, RadioButton2, RadioButton3 будемо вводити варіанти відповідей на запитання по даній темі з файлу тесту. Задайте властивості об'єктів RadioButton1, RadioButton2, RadioButton3: Checked= False,Width=500.

6. На форму помістіть панель групи об’єктів – GroupBox1 із закладки Standart. Задайте такі значення властивостей: Align=alLeft, Caption=''.

7. Вставте на панель об'єкти Label1 – Label4. Задайте значення властивості Caption: для Label1 – 'Запитання'; Label2 – 'Правильних відповідей'; Label3 – '';Label4 – '' відповідно. Об'єкт Label3 будемо використовувати для виводу номеру запитання та кількості всіх запитань, а об'єкт Label4 – для виводу кількості правильних відповідей.

8. Розташуйте у правій нижній частині форми швидку кнопку. Для цього використайте об’єкт SpeedButton1 із закладки Additional палітри компонентів Delphi. На кнопці можна розташувати піктограму з спеціального набору піктограм, а саме: графічних файлів формату bmp. Задайте такі значення властивостей для об’єкту SpeedButton1: Caption= '&Наступне запитання'; Enabled=False; Glyph= 'C:\ProgramFiles|Borland|Delphi x.0\Images\Buttons\arrow3D.bmp'.

9. Збережіть форму у своїй папці (File  Save All). Форма матиме такий вигляд:

Можливі варіанти використання інших об'єктів, наприклад, таймера (Timer), індикаторів стану (Gauge та ProgressBar) та інших.

10. Створити таку процедуру для події OnActivate.

var

Form4: TForm4;

TestData: array [1..100,1..5] of string;

QCount,AGood,CurTrue,i: integer;

procedure TForm4.FormActivate(Sender: TObject);

var F: TextFile;

s: string;

begin

s:='ім'я файла тесту';

AssignFile(F,s);

Reset(F);

i:=1;

while (not eof(F)) do

begin

Readln(F, TestData[i,1]);

Readln(F, TestData[i,2]);

Readln(F, TestData[i,3]);

Readln(F, TestData[i,4]);

Readln(F, TestData[i,5]);

i:=i+1;

end;

CloseFile(F);

QCount:=i-1;

AGood:=0;

Label4.Caption:=IntToStr(AGood);

Label3.Caption:='1/'+IntToStr(QCount);

Panel1.Caption:=TestData[1,1];

RadioButton1.Caption:=TestData[1,2];

RadioButton2.Caption:=TestData[1,3];

RadioButton3.Caption:=TestData[1,4];

CurTrue:=StrToInt(TestData[1,5]);

i:=1;

end;

11. Створіть таку процедуру для кнопки SpeedButton1:

procedure TForm4.SpeedButton1Click(Sender: TObject);

var nVidpovid: integer;

begin

if RadioButton1.Checked then nVidpovid:=1

else if RadioButton2.Checked then nVidpovid:=2

else nVidpovid:=3;

if nVidpovid=CurTrue then AGood:=AGood+1;

i:=i+1;

if i<=QCount then

begin

Label4.Caption:=IntToStr(AGood);

Label3.Caption:=IntToStr(i)+'/'+IntToStr(QCount);

Panel1.Caption:=TestData[i,1];

RadioButton1.Caption:=TestData[i,2];

RadioButton2.Caption:=TestData[i,3];

RadioButton3.Caption:=TestData[i,4];

CurTrue:=StrToInt(TestData[i,5]);

RadioButton1.Checked:=FALSE;

RadioButton2.Checked:=FALSE;

RadioButton3.Checked:=FALSE;

SpeedButton1.Enabled:=FALSE;

Panel1.SetFocus

end

else

begin

Label4.Caption:=IntToStr(AGood);

ShowMessage(‘Тестування завершено. Дано правильних відповідей: '+IntToStr(AGood));

Form4.Close;

end;

end;

12. Створіть такі процедури для кнопок RadioButton1, RadioButton2, RadioButton3 відповідно:

procedure TForm4.RadioButton1Click(Sender: TObject);

begin

SpeedButton1.Enabled:=TRUE;

end;

procedure TForm4.RadioButton2Click(Sender: TObject);

begin

SpeedButton1.Enabled:=TRUE;

end;

procedure TForm4.RadioButton3Click(Sender: TObject);

begin

SpeedButton1.Enabled:=TRUE;

end;

13. Збережіть форму у своїй папці (File  Save All).

14. Оформіть звіт.

Після проведення тестування з'являється наступне повідомлення.