4 Об’єктно-орієнтоване проектування
4.1 Інтерфейс програми
Для створення зручного програмного інтерфейсу в Delphi 7 було використано додатковий компонент Alpha Controls. Alpha Controls – це набір стандартних та деяких унікальних компонентів які підтримують скіни (AlphaSkins),а також мають деякі додаткові можливості.
Рисунок 4.1 – Головна форма.
На рисунку 4.1 відображена головна форма ні якій містяться тести та головне меню.
На рисунку 4.2 відображена форма «О программе» на якій відображена інформація о программі та як проходити тести.
Рисунок 4.2 – О программе.
На рисунку 4.3 відображена форма з авторизацією (входом для адміністратора), при введені правильного паролю з'являється форма 4 з правильними відповідями (див. рисунок 4.4).
Рисунок 4.3 – Авторизація.
Рисунок 4.4 – Ответы на вопросы.
4.2 Алгоритм рішення задачі
Програма складається з 4 форм які в свою чергу виконують різні функції.
Головна форма містить тести по заданій в темі дисципліні та головне меню з можливістю переходу на інші форми.
procedure TForm1.N1Click(Sender: TObject);
begin
Form2.ShowModal;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form3.show;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
close;
end;
end.
Основні функції програми розташовані в головному меню програми.
Рисунок 4.4 – Головне меню.
Код входу адміністратора:
procedure TForm3.Button1Click(Sender: TObject);
var pass:string;
begin
pass:='100';
if (Edit1.Text = pass) then
form4.Show
else
Showmessage('Вы ввели неправильный пароль!');
end;
Процедура початку тесту:
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('file:///' +
ExtractFilePath(Application.ExeName) + 'Variant1.htm');
Процедура відкриття вікна авторизації:
procedure TForm1.N4Click(Sender: TObject);
begin
form3.show;
end;
5 Програмування та тестування
5.1 Розробка програми
Для створення данної програми були використані стандартні компоненти Delphi 7, до яких відносяться такі компоненти як:
Button;
WebBrowser;
MainMenu.
На другій формі були використані лише два компоненти:
RadioButton;
Label.
На третій формі розташовані компнонети Button та Edit.
На четвертій формі (форма з правильними відповідями) розташовано декілька компонентів Label.
Для опрацювання даних тестів був використан код, який забезпечує завантаження тестів та опрацювання кількості правильних відповідей.
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('file:///' +
ExtractFilePath(Application.ExeName) + 'Variant1.htm');
end;
5.2 Етапи відладки
Для відладки програми було застосовано інструменти відладки
Delphi. Зокрема трасування. Виконується в меню Run-Trace Into, при
натисканні клавіші F7. Цей метод використовується для відладки
коду в певному місці коду. Таким чином досить легко впевнитись в
правильності або знайти помилку в коді.
Метод покрокового виконання запускається через меню Run->Step
Over, при натисканні на клавішу F8. Дозволяє відстежити де саме і за
яких умов сталась помилка або незбіжність. Досить ефективний з
використанням Break point, точками зупину.