Материал: Тестовий контроль по темі інтегрування
5. ІНСТРУКЦІЯ ДЛЯ КОРИСТУВАЧА
ПРОГРАМИ
.1 Опис реалізації інтерфейсу
користувача
Для зручного користування програмою для контрольного тестування студентів розроблені головна і додаткові форми. Для запуску програми потрібно запустити форму Form1 з програми Visul Basic. Після цього на екрані з`явиться головна форма з текстовими полями для внесення даних користувача: прізвища та ім’я, та групи, та з кнопками: розпочати тестування та довідка по інтегруванню. Також на всіх формах є стандартні кнопки для роботи з формою: згорнути/розгорнути та закрити вікно.
При натисненні кнопки «Розпочати тестування» відкривається вікно, яке дає можливість розпочати працювати з тестовою програмою.
Тест складається з питання та варіантів відповіді від 3 до 6, для різних питань - різна кількість відповідей. Для переходу від одного питання до наступного треба натиснути кнопку «Перейти до наступного питання», після чого будуть відкриватися вікна з питаннями від 2 до 22, всі вони ідентичні, тільки різняться самим питанням та відповідями на це питання.
При натиснені кнопки «Довідка по інтегралам» відкриється вікно з таблицею інтегралів, де користувач зможе переглянути формули та знайти щось корисне для себе.
В вікні 22 питання при натиснені на кнопку «Перейти до наступного питання» відкривається форма «Результат тестування» , в якому відображаються дані користувача, які були введені при реєстрації, та результат, який відображає кількість правильних відповідей та отриману оцінку за контрольне тестування.
При натисненні кнопки «Вихід» користувач виходить з програми.
Даний інтерфейс представлений в
додатку В.
ВИСНОВОК
У результаті виконання курсового проекту був створений програмний продукт «Контрольне тестування з». При розробці цього проекту були вдосконалені та поглибилені знання стосовно програмування на мові Visual Basic.
Після роботи над курсовим проектом Visual Basic став більш зрозумілий. Це дійсно програма для візуального проектування та програмування. Вона не тільки зручна у використанні, але й дуже проста.
Поставлені задачі були виконані повністю і реалізовані усі задумані наміри. Під час роботи були закріплені всі набуті протягом навчання в коледжі знання на практиці та в теорії. Були отримані навички по розробці власного програмного забезпечення, а також розрахована ефективність від впровадження програмного продукту в навчальний процес коледжу.
На протязі проекту виникали питання та пункти які потребували допомоги чи використання додаткової літератури, але всі ці проблеми були з успіхом вирішені.
Створена програма володіє всім необхідним набором інструментів, що дозволяє повністю вирішувати поставлену задачу при роботі користувача. Даний програмний продукт має зрозумілий інтерфейс, і не повинен викликати ніяких проблем у користувачів.
Сподіваюся користувачі моєї програми
будуть задоволені її функціональністю та роботою.
СПИСОК ВИКОРИСТАНИХ ДЖЕРЕЛ
1. Гультяев А.К. Проектирование и дизайн пользовательского интерфейса./ А.К. Гультяев, В.А. Машин. - СПб.: КОРОНА-принт, 2011. - 258 с: ил.
2. Гусева О.Л. Основы программирования на язьіке Visual Basic: Учеб. пособие для компьютерного практикума/ О.В. Гусєва, Е.В. Баклашова. - М.: НГУ, 2012. - 543 с: ил.
3. Гусева О.Л. Одна задача - два решения/ О.Л. Гусєва, Е.В. Гусев, Н.Н. Миронова. - М.: Информатика и образование, 2010. - 384 с: ил.
4. Истомина Т.Л. Первое знакомство с Visual Basic/ Т.Л. Истомина первое знакомство с Visual Basic. - М.: Дограф, 2011. - 497 с.
. Культин Н.Б. Visual Basic. Освой на примерах/ Н.Б.Культин.- С-П: БХВ- Петербург, 2004. - 214 с: ил.
. Назаров С.В. Программирование на MS Visual Basic: Учеб. пособие/ С.В.Назаров, П.П Мельников; под ред. С.В. Назарова. - М.: Финансьі и статистика, 2011.-487 с.:ил.
7. Симонович С.В. Занимательное программирование: Visual Basic/ С.В. Симонович, Г.А. Евсеев. - М.: АСТ-пресс-книга, 2001. - 394 с.
8. Угринович Н.
Практикум по информатике и информационньїм технологиям/ Н. Угринович, Л.
Босова, Ю. Михайлова. - М.: Лаборатория Базовьіх знаний, АО «Московские
учебники», 2012. - 237 с: ил.
ДОДАТОК
Лістинг програми
Форма 1 - тестування по темі: Основи інтегрального числення
Private Sub Command1_Click()Text1.Text = "" Or Text2.Text = "" Then = MsgBox("Ви забули внести дані", , "Попередження")
Else.Hide.ShowIfSubSub Command2_Click().ShowSub
Форма 2 - Питання 1
Private Sub Command1_Click()Option3 = True Then Me.Tag = 1 Else Me.Tag = 0.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Форма 3 - Питання 2
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form2.Tag + 1 Else Me.Tag = Form2.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Форма 4 - Питання 3
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form3.Tag + 1 Else Me.Tag = Form3.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Private Sub Option5_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option5_LostFocus().BackColor = &H808080Sub
Форма 5 - Питання 4
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form4.Tag + 1 Else Me.Tag = Form4.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Private Sub Option5_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option5_LostFocus().BackColor = &H808080Sub
Private Sub Option6_GotFocus()
Option6.BackColor = &HFFFF80Sub
Private Sub Option6_LostFocus()
Option6.BackColor = &H808080
End Sub
Форма 6 - Питання 5Sub Command1_Click()Option3 = True Then Me.Tag = Form5.Tag + 1 Else Me.Tag = Form5.Tag.Hide.ShowSubSub Command2_Click().ShowSub
Private Sub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Форма 7 - Питання 6
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form6.Tag + 1 Else Me.Tag = Form6.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Форма 8 - Питання 7
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form7.Tag + 1 Else Me.Tag = Form7.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Форма 9 - Питання 8
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form8.Tag + 1 Else Me.Tag = Form8.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Private Sub Option5_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option5_LostFocus().BackColor = &H808080Sub
Форма 10 - Питання 9
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form9.Tag + 1 Else Me.Tag = Form9.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Private Sub Option5_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option5_LostFocus().BackColor = &H808080Sub
Форма 11 - Питання 10
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form10.Tag + 1 Else Me.Tag = Form10.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Форма 12 - Питання 11
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form11.Tag + 1 Else Me.Tag = Form11.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Форма 13 - Питання 12
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form12.Tag + 1 Else Me.Tag = Form12.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Форма 14 - Питання 13
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form13.Tag + 1 Else Me.Tag = Form13.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Форма 15 - Питання 14
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form14.Tag + 1 Else Me.Tag = Form14.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Форма 16 - Питання 15
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form15.Tag + 1 Else Me.Tag = Form15.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Форма 17 - Питання 16
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form16.Tag + 1 Else Me.Tag = Form16.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Форма 18 - Питання 17
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form17.Tag + 1 Else Me.Tag = Form17.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Форма 19 - Питання 18
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form18.Tag + 1 Else Me.Tag = Form18.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Форма 20 - Питання 19
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form19.Tag + 1 Else Me.Tag = Form19.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Форма 21 - Питання 20
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form20.Tag + 1 Else Me.Tag = Form20.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Форма 22 - Питання 21
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form21.Tag + 1 Else Me.Tag = Form21.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option2_LostFocus()
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Private Sub Option5_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option5_LostFocus().BackColor = &H808080Sub
Форма 23 - Питання 22
Private Sub Command1_Click()Option3 = True Then Me.Tag = Form22.Tag + 1 Else Me.Tag = Form22.Tag.Hide.ShowSubSub Command2_Click().ShowSubSub Option1_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option1_LostFocus().BackColor = &H808080Sub
Private Sub Option2_GotFocus().BackColor = &HFFFF80Sub
Option2.BackColor = &H808080Sub
Private Sub Option3_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option3_LostFocus().BackColor = &H808080Sub
Private Sub Option4_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option4_LostFocus().BackColor = &H808080Sub
Private Sub Option5_GotFocus().BackColor = &HFFFF80Sub
Private Sub Option5_LostFocus().BackColor = &H808080Sub
Форма 24 - Результат тестування
Private Sub Command1_Click()Sub
Private Sub Form_Load()
Label1.Caption = " Студент " + Form1.Text1.Text + " група " + Form1.Text2.Text + " Результат: " + Form23.Tag + " правильна(-их, -і) відповідь (-ей, -і)"
Select Case Form23.Tag1: Label3.Caption = "Оцінка ''4''"2: Label3.Caption = "Оцінка ''8''"3: Label3.Caption = "Оцінка ''12''"4: Label3.Caption = "Оцінка ''16''"5: Label3.Caption = "Оцінка ''20''"6: Label3.Caption = "Оцінка ''24''"7: Label3.Caption = "Оцінка ''28''"8: Label3.Caption = "Оцінка ''32''"9: Label3.Caption = "Оцінка ''36''"10: Label3.Caption = "Оцінка ''40''"11: Label3.Caption = "Оцінка ''44''"12: Label3.Caption = "Оцінка ''48''"13: Label3.Caption = "Оцінка ''52''"14: Label3.Caption = "Оцінка ''56''"15: Label3.Caption = "Оцінка ''60''"16: Label3.Caption = "Оцінка ''64''"17: Label3.Caption = "Оцінка ''68''"18: Label3.Caption = "Оцінка ''72''"19: Label3.Caption = "Оцінка ''76''"20: Label3.Caption = "Оцінка ''84''"21: Label3.Caption = "Оцінка ''92''"22: Label3.Caption = "Оцінка ''100''"SelectSub
Схема алгоритму програми
Рисунок
Б.1 -
Блок-схема
алгоритму роботи програми
Роздрук екранних форм програми
Рисунок В.1 - Форма1 - Тестування по
темі: основи інтегрального числення
Рисунок В.2 - Форма25 - Таблиця інтегралів
Рисунок В.3 - Форма2 - Питання 1
Рисунок В.4 - Форма3 - Питання 2
Рисунок В.5 - Форма4 - Питання 3
Рисунок В.6 - Форма5 - Питання 4
Рисунок В.7 - Форма6 - Питання 5
Рисунок В.8 - Форма7 - Питання 6
