1.
Після виведення інформації про тесті значення властивості Tag кнопки Button1 дорівнює нулю. Тому в результаті першого натискання кнопки Button1 виконується та частина програми, яка забезпечує:
В· висновок першого питання;
В· заміну тексту, що знаходиться на командній кнопці (властивість caption з Почати на Далі;
В· установку невидимого службового перемикача RadioButton5 в обраний стан.
Крім того, привласненням значення False властивості Enabled кнопка Button1 робиться недоступною, тим самим блокується перехід до наступного питання до тих пір, поки не буде обраний один з відповідей. Значенням властивості
Button1.Tag присвоюється одиниця, тим самим виконується підготовка до обробки наступного натискання кнопки Button1. p> Після вибору відповіді і натиснення кнопки Далі (Button1) (в цьому випадку значення властивості Button1.Tag одно одиниці) до набраної суми балів додається кількість балів за обраний відповідь. Потім, якщо кінець файлу не досягнуть, викликається процедура виведення чергового питання. Якщо кінець файлу досягнутий, то спочатку закривається файл тесту, текст на кнопці Button1 змінюється на Вихід, а значення Button1.Tag встановлюється на 2. Потім за допомогою процедури itog виводяться результати тестування.
Якщо значення Button1.Tag дорівнює двом, то застосуванням методу close до форми Form1 закривається вікно програми, в результаті чого програма завершує роботу.
Висновок питання і альтернативних відповідей виконує процедура voprosToScr. Спочатку процедура збільшує лічильник питань vopros та присвоєнням значення властивості форми Caption виводить номер поточного питання в заголовок вікна. Потім процедура читає рядки з файлу тесту до тих пір, поки першим символом черговий прочитаної рядку не буде крапка або "зворотна похила риса".
Після тексту питання робиться перевірка, який символ використовується в якості ознаки кінця питання. Якщо зворотна похила риса, що свідчить про те, що до питання є ілюстрація, то властивості Form1.image1.Tag присвоюється одиниця і з прочитаного рядка виділяється ім'я файлу ілюстрації.
Завантаження ілюстрації здійснюється застосуванням методу LoadFromFile до властивості image1.Picture. Однак після завантаження ілюстрація на екрані не відображається, тому що значення властивості image1.visible одно False.
Після зчитування ілюстрації процедура зчитує питання. Після обробки останнього питання, форма переходить до розділу оцінок. Так само на формі є компонент Gauge1, який призначений для візуального виведення інформації про кількість правильних відповідей. Використовуючи процедуру Form1.gauge1.progress: = integer ми можемо задати необхідне візуальне відображення числа балів за відповіді. Для цього нам треба оголосити змінну, яка б при підрахунку балів автоматично відображалася на цій компоненті. Цієї змінної буде summa. Отже, просто пропишемо значення суми (кількості балів) і дії для відображення б...
