ает питання на формуprocedure TForm2. Button1ClickПроцедурапереходаповопросамісчетчікабаллов, вслучаеесліответнавопросневибран товиводітсообщеніеобетом.procedure TForm2. Button2ClickЗагружает питання на формуprocedure TForm2. FormShowПрі відкритті форми запускає таймерprocedure TForm2. Timer1TimerСчітает час з початку проходження тестаprocedure TForm1. BitBtn1Click procedure TForm1.J1Click procedure TForm2. BitBtn1Click procedure TForm5. BitBtn1ClickПроцедури відкриття іншої форми і закриття предидущейprocedure TForm3. FormCreateПрісваівает значення 0 ідентифікаторам min, sec.procedure TForm1. BitBtn3Click procedure TForm5. BitBtn2ClickПроцедури виходу з пріложеніяprocedure TForm4. SpeedButton1ClickЗакривает формуprocedure TForm5. FormShowПрі відкритті форми привласнює lable.caption інформацію про проходження тестування
2.3 Етапи розробки програмного продукту
У даній програмі була створена початкова форма, на якій розташовувалися кнопки для початку тестування, для виклику довідки і для виходу з програми. На ній було розміщені компонент «MainMenu» і кнопки «Почати», «Про програму», «Вихід». Зображення форми, що вийшла зображено на Малюнку 2.3.1.
Далі була створена наступна форма «Form2», а на формі «Form1» на кнопці «Почати» був прописаний код відкриття другої форми, і рядок приховує перший форму.
begin.show; .visible:=False ;;
Малюнок 2.3.1 - Головна форма
На другій формі були розміщені 2 компонента «Edit», «GroupBox», 5 компонентів «RadioButton», 2 компонента «Label» і кнопка «BitBtn». Друга форма зображено на малюнку 2.3.2.
Малюнок 2.3.2 - Друга форма
На кнопку «Почати тестування» був прописаний код переходу до «Form3».
begin.show ;. Button2Click (Sender) ;. Visible:=False ;;
Далі була створена «Form3». На третій формі були розміщені компоненти «MainMenu», «DBText», «Timer», 6 компонентів «Label» і «Button1», на компонент «GroupBox» були поміщені 5 «RadioButton» і «Button2». Третя форма зображена на малюнку 2.3.3.
На компоненті «Button1» був прописаний код для переходу до наступного питання з відповіддю, лічильник балів і рядок виведення повідомлення про не вибір відповіді на питання.
У обробнику збуту «OnTimer» був прописаний код лічильника часу. А в процедурі «FormShow» був прописаний код запуску таймера.
begin
Sec:=Sec + 1;
IfSec=60 Then:=Min + 1;:=0 ;; Sec lt; 10 Then. Label5. Caption:= 0 + IntToStr (Sec). Label5. Caption:=IntToStr (Sec); Min lt; 10 Then. Label4. Caption:= 0 + IntToStr (Min). Label4. Caption:=IntToStr (Min) ;;
Рісунок2.3.3 - Макет форми
Далі була створена «Form4», в якій був описаний довідковий матеріал про програму та про автора. На «Form1» на кнопці «Про програму» був прописаний код переходу з «Form1» на «Form4». Четверта форма зображено на малюнку 2.3.4.
begin
Form4.show;
Form1. Hide ;;
Малюнок 2.3.4 - Довідка
Далі була створена база даних в програмі Access, в ній було створено 2 таблиці, ці таблиці були заповнені питаннями і відповідями. Зображення бази даних можна подивитися на малюнку 2.3.5.
Малюнок 2.3.5 - База даних Access
Далі був створений «DataModule». Створюється він таким чином: File-New-DataModule. На ньому були розміщені компоненти «ADOConnection», «ADOTable», «DataSource». Далі компоненти були з'єднані з осередками таблиць в інспекторі об'єктів. Зображення «DataModule» можна подивитися на малюнку 2.3.6.
Малюнок 2.3.6 - DataModule програми
Далі була створена процедура «Vopros» яка виводила відповіді на форму з Бази даних Access.
Після чого на третій формі, в обробнику подій кнопки «Button2» був прописаний код про виведення питання на форму у випадковому порядку.
Далі була створена «Form5», на якій були розташовані 4 компонента «label» та 2 компонента «Button». Була створена процедура «FormShow» в якій був прописаний код виводу результатів на компоненти «label», на кнопках «Почати заново» і «Закінчити тестування» був прописаний код відкриття першої форми і закриття програми відповідно. П'ята форма зображена на малюнку 2.3.7.
Малюнок 2.3.7 - Результат <...
