2.6 Опис алгоритму рішення задачі
Програма містить 9 форм :
Form6 – Головна.
Form1 – Авторизація.
Form2 – Вибір теми тестування.
Form3, 4, 5, 7, 8 – Варіанти тестів.
Form9 – Довідка.
На кожній формі знаходяться кнопки, мітки, текстові поля, перемикачі, елемент для створення довідки, елемент бази даних. В програмі
використовуються дві змінні:
K– кількість балів (вихідні дані).
N – кількість питань (вхідні дані).
В програмі використовуються лише стандартні процедури, а саме:
Hide – приховати форму.
Show – показати форму.
Value – опис властивостей.
Recordset – змінити запис.
MoveNext – наступний запис.
EOF – кінець бази даних.
MoveLast – останній запис.
– Visible – видимість об’єкта.
2.7 Виконання програми
Для запуску даної програми запустити файл Test exe. Відкриється екранна
форма з назвою проекта та інформацією про розробника. На цій формі знаходяться дві кнопки: «Увійти» – для переходу на наступну сторінку, кнопка «Вихід з програми» та кнопка «Довідка», яка надає можливість переглянути, про що йде мова у курсовому проекті.
Друга екранна форма – в якій знаходяться текстові поля в які потрібно ввести ім’я та прізвище . Після завершення реєстрації можна розпочати тест.
Третя форма – форма з вибором теми тестів, та самих тестів . На ній розташовані дві кнопки вибору від першого до п’ятого тесту.
ВИСНОВКИ
Microsoft Visual Basic – засіб розробки програмного забезпечення, що розробляється корпорацією Microsoft і включає мову програмування і середовище розробки. Мова Visual Basic успадкував дух, стиль і частково синтаксис свого предка – мови Бейсік, у якого є чимало діалектів. У той же час Visual Basic поєднує в собі процедури та елементи об’єктно–орієнтованих та компонентно–орієнтованих мов програмування. Середовище розробки VB містить інструменті для візуального конструювання користувацького інтерфейсу.
Visual Basic вважається хорошим засобом швидкої розробки прототипів програм, для розробки додатків баз даних і взагалі для компонентного способу створення програм, що працюють під управлінням операційних систем сімейства Microsoft Windows.
ДОДАТОК 1 РОЗДРУК ЛІСТИНГУ ПРОГРАМИ
Форма 6 – Головна
Кнопка «Увійти»
Private Sub Command1_Click()
Form6.Hide
Form1.Show
End Sub
Кнопка «Вихід з програми»
Private Sub Command2_Click()
End
End Sub
Кнопка «Довідка»
Private Sub Command3_Click()
Form9.Show
End Sub
Форма 1 – Реєстрація
Кнопка «До Головної форми»
Private Sub Command5_Click()
Form1.Hide
Form6.Show
End Sub
Форма 2 – Тестова
Кнопка «Test 1»
Private Sub Command1_Click()
Form2.Hide
Form3.Show
End Sub
Кнопка «Test 2»
Private Sub Command2_Click()
Form2.Hide
Form4.Show
End Sub
Кнопка «Test 3»
Private Sub Command3_Click()
Form2.Hide
Form1.Show
End Sub
Кнопка «Test 4»
Private Sub Command4_Click()
Form2.Hide
Form5.Show
End Sub
Кнопка «Test 5»
Private Sub Command5_Click()
Form2.Hide
Form7.Show
End Sub
Кнопка «Повернутися до авторизації»
Private Sub Command6_Click()
Form2.Hide
Form8.Show
End Sub
Форма 3– тест перший
Option Explicit
Dim i As Integer
Dim v As String
Dim a As Integer
Кнопка «
Private Sub Command1_Click()
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
GoTo 1
Else
If Text2.Text = v Then
End If
Form10.Label3(i).Caption = v
Form10.Label2(i).Caption = Text2.Text
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Form10.Show
Form3.Hide
'MsgBox "Wt ,ce buv ostaniy zapis", 0, "Sobsenie"
'Data1.Recordset.MoveLast
End If
End If
Option1.Value = False
Option2.Value = False
Option3.Value = False
i = i + 1
Exit Sub
1
MsgBox “Введіть правильне значення”, 16, "Помилка"
End Sub
Форма «
Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Option3.Value = False
i = 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Option1_Click()
v = "a"
End Sub
Private Sub Option2_Click()
v = "b"
End Sub
Private Sub Option3_Click()
v = "c"
End Sub
Форма 4– тест другий
Option Explicit
Dim i As Integer
Dim v As String
Dim a As Integer
Private Sub Command1_Click()
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
GoTo 1
Else
If Text2.Text = v Then
End If
Form10.Label3(i).Caption = v
Form10.Label2(i).Caption = Text2.Text
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Form10.Show
Form4.Hide
'MsgBox "Wt ,ce buv ostaniy zapis", 0, "Sobsenie"
'Data1.Recordset.MoveLast
End If
End If
Option1.Value = False
Option2.Value = Falsе
Option3.Value = False
i = i + 1
Exit Sub
1
MsgBox " Введіть правильне значення”, 16, "Помилка "
End Sub
Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Option3.Value = False
i = 1
End Sub
Форма «
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Option1_Click()
v = "a"
End Sub
Private Sub Option2_Click()
v = "b"
End Sub
Private Sub Option3_Click()
v = "c"
End Sub
Форма 5– тест третій
Option Explicit
Dim i As Integer
Dim v As String
Dim a As Integer
Private Sub Command1_Click()
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
GoTo 1
Else
If Text2.Text = v Then
End If
Form10.Label3(i).Caption = v
Form10.Label2(i).Caption = Text2.Text
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Form10.Show
Form5.Hide
'MsgBox "Wt ,ce buv ostaniy zapis", 0, "Sobsenie"
'Data1.Recordset.MoveLast
End If
End If
Option1.Value = False
Option2.Value = False
Option3.Value = False
i = i + 1
Exit Sub
1
MsgBox " Введіть правильне значення”, 16, "Помилка "
End Sub
Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Option3.Value = False
i = 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Option1_Click()
v = "a"
End Sub
Private Sub Option2_Click()
v = "b"
End Sub
Private Sub Option3_Click()
v = "c"
End Sub
Форма 7– тест четвертий
Option Explicit
Dim i As Integer
Dim v As String
Dim a As Integer
Private Sub Command1_Click()
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
GoTo 1
Else
If Text2.Text = v Then
End If
Form10.Label3(i).Caption = v
Form10.Label2(i).Caption = Text2.Text
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Form10.Show
Form7.Hide
'MsgBox "Wt ,ce buv ostaniy zapis", 0, "Sobsenie"
'Data1.Recordset.MoveLast
End If
End If
Option1.Value = Falsе
Option2.Value = False
Option3.Value = False
i = i + 1
Exit Sub
1
MsgBox " Введіть правильне значення”, 16, "Помилка "
End Sub
Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Option3.Value = False
i = 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Option1_Click()
v = "a"
End Sub
Private Sub Option2_Click()
v = "b"
End Sub
Private Sub Option3_Click()
v = "c"
End Sub
Форма 8– тест п’ятий
Option Explicit
Dim i As Integer
Dim v As String
Dim a As Integer
Private Sub Command1_Click()
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
GoTo 1
Else
If Text2.Text = v Then
End If
Form10.Label3(i).Caption = v
Form10.Label2(i).Caption = Text2.Text
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Form10.Show
Form8.Hide
'MsgBox "Wt ,ce buv ostaniy zapis", 0, "Sobsenie"
'Data1.Recordset.MoveLast
End If
End If
Option1.Value = False
Option2.Value = False
Option3.Value = False
i = i + 1
Exit Sub
1
MsgBox " Введіть правильне значення”, 16, "Помилка "
End Sub
Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
Option3.Value = False
i = 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Option1_Click()
v = "a"
End Sub
Private Sub Option2_Click()
v = "b"
End Sub
Private Sub Option3_Click()
v = "c"
End Sub
Форма 10 – «Результати»
Option Explicit
Dim i As Integer
Private Sub Command2_Click()
Form2.Show
Form10.Hide
End Sub
Private Sub Form_Activate()
i = 0
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
i = i + 1
If Label2(i).Caption = Label3(i).Caption Then
'Label2(i).BackColor = &HFF00&
Label3(i).BackColor = &HFF00&
End If
If Label2(i).Caption <> Label3(i).Caption Then
'Label2(i).BackColor = &HFF&
Label3(i).BackColor = &HFF&
End If
If i = 6 Then
Timer1.Enabled = False
End If
End Sub
ДОДАТОК 2 СХЕМА АЛГОРИТМУ ПРОГРАМИ