1.2. Блок-схема роботи програми
Опис структурної блок-схеми програми представлена на рисунку 1.1.
Рис. 1.1. Структурна блок-схема програми
1.3. Опис програми
Створена програма складається з окремих юнітів, що мають різні функціональні призначення. Уся програма складається з 10 окремих юнітів, які об’єднанні у смислові блоки.
Таблиця 1.1. Стартовий блок
Стартовий блок ( unit main ) |
|
Призначення |
Вибір типу користувача. |
Вхідні та вихідні дані |
Немає. |
Наступні кроки |
В залежності від обраного типу перехід до блоку «Піддослідний» або «Перевірка паролю». |
Таблиця 1.2. Піддослідний
Блок «Піддослідний» ( unit’s user, que, que2, que3, rezult) |
|
Призначення |
Реалізація процесу тестування та перегляд результату тестування. |
Вхідні та вихідні дані |
Вхідні: інформація про користувача Вихідні: ТІМ користувача. |
Наступні кроки |
Завершення тестування. |
Таблиця 1.3. Перевірка паролю
Блок «Перевірка паролю» ( unit pas ) |
|
Призначення |
Перевірка правомірності доступу. |
Вхідні та вихідні дані |
Пароль. |
Наступні кроки |
Перехід до блоку «Адміністратор» у разі вірного паролю. |
Таблиця 1.4. Адміністратор
Блок «Адміністратор» ( unit admin) |
|
Призначення |
Перегляд бази даних, можливість знищити усі данні, зміна паролю. |
Вхідні та вихідні дані |
Новий пароль. |
Наступні кроки |
Повернення до Стартового блоку. |
Таблиця 1.5. Перегляд бази даних
Блок «Перегляд бази даних» ( unit data) |
|
Призначення |
Відображення таблиці результатів усіх попередніх піддослідних. |
Вхідні та вихідні дані |
Новий пароль |
Наступні кроки |
Повернення до Стартового блоку. |
Таблиця 1.6. Інформація
Блок «Інформація» ( unit help) |
|
Призначення |
Додаткова інформація про програму. |
Вхідні та вихідні дані |
Немає. |
Наступні кроки |
Повернення до поточного вікна. |
1.4. Опис функцій та процедур
В програмі присутні такі процедури та функції:
Таблиця 1.7. Використані процедури та функції
procedure Nameform.showhelp(c,s:string); |
Показує вікно з назвою с, та зі змістом s. Слугує для виведення інформації про програму та допомоги користувачу. |
procedure TStartForm.AdminButtonClick(Sender: TObject); |
При натискання кнопки «Администратор» робить невидимою начальну форму та робить видимою форму pasForm (перевірка паролю). |
procedure TStartForm.UserButtonClick(Sender: TObject); |
При натисканні кнопки «Испытуемый» робить невидимою начальну форму та робить видимою форму UserForm. |
procedure TUserForm.DownButtonClick(Sender: TObject); |
При натисканні кнопки «Дальше» перевіряє правильність заповнення даних ( чи заповнені усі поля та чи вказано прийнятний вік (від 6 до 100)). |
procedure TUserForm.FormClose(Sender: TObject; var Action: TCloseAction);
procedure TQuetionForm.FormClose(Sender: TObject; var Action: TCloseAction);
Tquetion2Form.FormClose(Sender: TObject;var Action: TCloseAction);
procedure TpasForm.FormClose(Sender: TObject; var Action: TCloseAction); |
При закритті форми вимагає підтвердження дії. |
procedure TQuetionForm.FormCreate(Sender: TObject);
procedure Tquetion2Form.FormCreate(Sender: TObject);
procedure Tquetion3Form.FormCreate(Sender: TObject); |
Створює форму та заповнює початковими значеннями. |
procedure TQuetionForm.nextClick(Sender: TObject); |
При натисканні кнопки «Дальше» оброблює обрану відповідь та перевіряє чи це останнє питання, якщо так, то записує отриманий результат до файлу users.txt, робить невидимою цю форму та видимою форму quetion2Form. |
procedure Tquetion2Form.Button1Click(Sender: TObject); |
При натисканні кнопки «Дальше» оброблює обрану відповідь та перевіряє чи це останнє питання, якщо так, то записує отриманий результат до файлу users.txt, робить невидимою цю форму та видимою форму quetion3Form. |
procedure Tquetion3Form.nextClick(Sender: TObject); |
При натисканні кнопки «Дальше» оброблює обрану відповідь та перевіряє чи це останнє питання, якщо так, то записує отриманий результат до файлу users.txt, робить невидимою цю форму та видимою форму rezultForm. |
procedure TrezultForm.FormShow(Sender: TObject); |
Обробляє результати трьох тестів та обирає кінцевий, виводить його. |
procedure TpasForm.Button1Click(Sender: TObject); |
Перевіряє, чи правильно введений пароль, якщо так, то робить видимою форму AdminForm. |
procedure TAdminForm.ClearButtonClick(Sender: TObject); |
При натисканні на кнопку «Очистить базу» видаляє усі данні із файлу users.txt. |
TAdminForm.ChangeButtonClick(Sender: TObject); |
При натисканні на кнопку «Сменить пароль» робить видимою поля для зміни пароля. |