justify"> Бази даних В«ТестВ»
ІмяТіп ответЧісловой
Після того, як ми створили БД, обов'язково треба перетворити її в базу даних форматом Access97 (рис. 4).
В
2.3 Алгоритм функціонування системи і його опис
). Схема електронного підручника
В
2). Алгоритм функціонування
У тестованої частини створювався тест, який розроблявся середовищі Visual Basic. Для наочної схеми роботи даного тесту всередині програми можна побачити з алгоритмічної блок схеми, де змінні: - кількість питань
з-кількість правильних відповідей-допоміжна змінна-результат (оцінка)
В В
.4 Опис програми для даного алгоритму
Для того, щоб створити тест в середовищі Visual Basic потрібно створити три форми:
Перша форма - тест.
Друга форма - реєстрація, де учень зареєструється, перш ніж приступить до проходження тесту.
Третя форма - оцінка (результат пройденого тесту).
Створення першої форми
В
Запускаємо Visual Basic, вибираємо новий проект і на першій формі створюємо чотири поля імені Label, кнопку Command і Data.
. Для початку пов'язуємо Data з базою даних (мал. 5):
у вікні властивостей вибирає Database Name, де ми вказуємо шлях до нашої перетвореної базі даних.
у властивості RecorSourse вказуємо нашу таблицю - тест.
- у властивості EOFAction - 2-AddNew і BOFAction - 0-MoveFirsr.
2. Пов'язуємо мітки Label з базою даних:
у властивості RecorSourse вказуємо - Data1.
у властивості Datafirst вказуємо для кожної мітки те, що буде відображатися під час проходження тесту (наприклад, в Label1 ми вибираємо з таблиці питання, а для Label2 вибираємо відповідь1).
Також в даній формі вказується поле Image для розміщення на ній додаткових картинок (фону). Картинка вибиралася у вікні властивостей у полі Picture. p align="justify"> Для того, щоб наша форма працювала в ній треба прописати код:
Dim i, v, c As Integerres As Integern, f, g As Stringd As DateSub Command1_Click () Option1.Value = True Then i = 1Option2.Value = True Then i = 2Option3.Value = True Then i = 3 ( i = Val (Label5.Caption)) Then c = c + 1v> = 9 Then Command1.Visible = False: Command2.Visible = True: Option1.Visible = False: Option2.Visible = False: Option3.Visible = False. Value = False.Value = False.Value = False = v + 1.Recordset.MoveNextSubSub Command2_Click () c> = 10 Then res = 5c> = 8 And c <= 9 Then res = 4c = 7 Then res = 3c <7 Then res = 2 = Now.Show: Form1.Hide = Fo...
