ний код:
Form1.Hide.Show.Enabled=False.Image2.Visible=False.Label2.Visible=False2.Timer1.Enabled=True
Блок-схема даної процедури представлена ??на малюнку 13.
Малюнок 13 - Блок-схема спрацьовування кнопок
Стартова форма містить інформацію про правила проходження тестування і пропонує вибір двох варіантів тестування (для учня) і вхід в конструктор тестів (для викладача). Так само передбачена можливість завершити роботу з програмою. При виборі тесту виконується наступний код.
Dim Str As Variant.Option1.Visible=True.Option2.Visible=True.Option3.Visible=True.Option4.Visible=True.Option1.Value=False.Option2.Value=False.Option3.Value=False.Option4.Value=False=FreeFile 1.txt For Input As FhInput #Fh, Str.Label1=StrInput #Fh, Str.Option1.Caption=StrInput #Fh, Str.Option2.Caption=StrInput #Fh, Str.Option3.Caption=StrInput #Fh, Str.Option4.Caption =StrFh.Label2.Caption= 1.txt .Timer1.Enabled=True.Hide5.Show
Блок-схема даної процедури наведена на малюнку 14.
Малюнок 14 - Процедура вибору варіанта тестування
Форма проходження тестів містить чотири перемикача для відображення варіантів відповідей і мітку для виведення завдання, а так само кнопку для переходу на наступне питання. Програмний код форми представлений двома процедурами:
процедура спрацьовування таймера;
процедура переходу на наступне питання.
Призначення таймера - пропустити питання, які вже виведені на форму тестування при її відкритті. Код процедури спрацьовування таймера представлений нижче.
Dim Str As Variant
Fh=FreeFile
Open Form5.Label2.Caption For Input As FhInput #Fh, StrInput #Fh, StrInput #Fh, StrInput #Fh, StrInput #Fh, Str.Enabled=False
Блок-схема процедури зображена на малюнку 15.
Малюнок 15 - Процедура спрацьовування таймера
Процедура переходу на наступне питання здійснює читання чергового питання і його відображення на екранній формі. Так само у цій процедурі здійснюється контроль кількості заданих питань. Якщо заданий останнє питання зі списку, то здійснюється підрахунок і висновок результату. Код процедури переходу на наступне питання наведено нижче:
Private Sub Command1_Click ()
Dim Str As VariantO As String * 20 (Option1.Value=False) And (Option2.Value=False) And (Option3.Value=False) And (Option4.Value=False) Then Виберіть відповідь !!! GGIf=K + 1Input #Fh, Str ((Str= 1 ) And (Option1.Value=True)) Then Balls=Balls + 1 ((Str= 2 ) And ( Option2.Value=True)) Then Balls=Balls + 1 ((Str= 3 ) And (Option3.Value=True)) Then Balls=Balls + 1 ((Str= 4 ) And (Option4. Value=True)) Then Balls=Balls + 1.Value=False.Value=False.Value=False.Value=FalseK=20 Then GoTo HHInput #Fh, Str.Label1=StrInput #Fh, Str.Option1.Caption=StrInput #Fh, Str.Option2.Caption=StrInput #Fh, Str.Option3.Caption=StrInput #Fh, Str.Option4.Caption=StrGG: 1 # * Balls/20 lt; 0.6 Then= Незадовільно 1 # * Balls/20 lt; 0.75 Then= Задовільно
ElseIf 1 # * Balls/20 lt; 0.75 Then
O= Добре
Else= Відмінно If.Visible=True1.Visible=True
Label1.Caption= Ви відповіли на amp; Balls amp; питань з 20. Ваша оцінка amp; O
Command1.Visible=False: Option1.Visible=False: Option2.Visible=False: Option3.Visible=False: Option4.Visible=False: GG: End Sub
Блок-схема процедури відображена на малюнку 16.
Малюнок 16 - процедура переходу на питання
Малюнок 17 - процедуру підрахунку балів
Малюнок 18 - процедура введення даних
Малюнок 19 - процедура виведення оцінок
Малюнок 20 - процедура закінчення тестування
2.6 Методика застосування програмного продукту
Для здійснення комп'ютерного контролю знань учнів використовуються тестові питання, які пишуться в програмі Visual Basic, наведені нижче в роздатковому матеріалі.
Тест «Інформація, наука інформатика, інформаційні процеси»
Варіант _1 __
Executor - система контролю знань для учнів на основі записаних викладачем тестових завдань у системі Creator.
Файл з питаннями: Informa.crt - Інформація. Основні поняття. Одиниці виміру
Оберіть із запропонованих відповідей той, який ...
