Створення тесту - один з ... - в ms powerpoint з використанням visual basic for application

  • Можливість автоматизованої обробки результатів;
  • Можливості для дизайну (художнього оформлення тестів).
  • Трудомісткість створення тестів;
  • Необхідно знати основи VBA

- Тут ми розберемо створення інтерактивного тесту в середовищі MS PowerPoint з використанням Visual Basic for Application. Для зручності у використанні тесту додамо в нього функції обліку кількості питань, кількості вірно виконаних завдань, відсотки виконання завдань і виставлення оцінки

Отже, почнемо по кроках:

Виберемо предмет, тему, сформулюємо питання і поставимо по 4 варіанти відповідей (можна і більше), з них виберемо один правильний.
(Для прикладу я розгляну 3 питання з теми з інформатики

Є на світі мережу мереж.
Дуже цікаво з нею.
Людям всім вона потрібна,
Миру дуже мережу важлива.
Що за мережу? Знайди відповідь.
Мережа зветься ...

По екрану метелик летить,
По екрану рядок біжить,
На екрані падає сніг,
Потік зірок здійснює свій біг.
Це що, мультиплікація?
Ні - це комп'ютерна

1) Анімація
2) Публікація
3) Градація
4) Облігація

Для чого ж цей ящик?
Він в себе папір тягне,
І зараз же літери, точки,
Коми - рядок до рядку -
надрукує картинки
Спритний майстер -
Спритний ...

1) спринтер
2) принтер
3) светр
4) комп'ютер

Зараз відкриємо MS PowerPoint і створимо 3 слайда (на кожне питання 1 слайд), підберемо оформлення слайдів, шрифти
Розглянемо на прикладі першого слайда

а) На слайді розміщуємо

- напис ПИТАННЯ 1
- напис з текстом питання

б) заходимо в меню ВИД - ПАНЕЛІ ІНСТРУМЕНТІВ - ЕЛЕМЕНТИ УПРАВЛІННЯ,

Створення тесту - один з ... - в ms powerpoint з використанням visual basic for application

Створення тесту - один з ... - в ms powerpoint з використанням visual basic for application

Беремо перемикач (клацаємо на ньому) і поміщаємо на слайд (клацаємо на слайді) - на слайді з'являється перемикач

- Клацаємо правою по перемикачу і вибираємо розділ властивості

Створення тесту - один з ... - в ms powerpoint з використанням visual basic for application

- У розділі властивості змінюємо вигляд і текст на перемикачі:

Створення тесту - один з ... - в ms powerpoint з використанням visual basic for application

в) Створюємо ще 3 перемикача і виробляємо з ними такі ж дії

Створення тесту - один з ... - в ms powerpoint з використанням visual basic for application

г) Створимо кнопку. Для цього берм її з тієї ж панелі ЕЛЕМЕНТИ УПРАВЛІННЯ і поміщаємо її на слайд

д) Клацнувши правою по кнопці, вибираємо властивості і теж змінюємо вигляд і текст на кнопці

Створення тесту - один з ... - в ms powerpoint з використанням visual basic for application

Отже, у нас створено один слайд.

Створення тесту - один з ... - в ms powerpoint з використанням visual basic for application

Точно так же створюємо слайди 2 і 3, вставляючи в них відповідні питання і відповіді, перемикачі та кнопки

Створимо останній слайд, на якому будуть виводитися всі результати

а) помістимо на слайді 4 елементи Label (напис) з панелі ЕЛЕМЕНТИ УПРАВЛІННЯ

б) Створимо 2 кнопки:

- показати результат
- вихід

Створення тесту - один з ... - в ms powerpoint з використанням visual basic for application

Отже, слайди створені, об'єкти на них розміщені
Приступимо до опису подій.
Для цього і використовується вбудований в офісні програми фірми Microsoft мову Visual Basic for Application (VBA).

Почнемо з першого слайда:

Нам необхідно, щоб при виборі одного з варіантів відповіді і натисканні на кнопку «ДАЛІ» автоматично
- вважалося число виконаних завдань
- перевірявся відповідь, і, якщо він вірний, то до лічильника вірних завдань додавалася одиниця
- здійснювався перехід на наступний слайд (питання)

Створення тесту - один з ... - в ms powerpoint з використанням visual basic for application

Запишемо наступний код:

пояснення:
Z - це лічильник виконаних завдань, тобто скільки завдань у тесті, на початку тесту його Обнуляємо '
L - лічильник вірно виконаних завдань, йому теж присвоюємо нуль
N - це відсоткове виконання завдань тесту

If OptionButton3.Value = True Then - Тут перевіряється, якщо обраний третій відповідь (Четверо), то лічильнику вірно виконаних завдань додається одиниця, а якщо обраний невірний відповідь, то не додається '

Z = Z + 1 - вважається число виконаних завдань '

OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False - тут знімаються точки з усіх перемикачів, щоб при наступному запуску тесту не було за замовчуванням обраних відповідей '

SlideShowWindows (1) .View.Next 'Це команда переходу до наступного слайду'

Аналогічно відкриваємо 2 і 3 слайди і вставляємо такий же код для кнопок «ДАЛІ» (можна просто скопіювати код з першого слайда), проте в коді цих кнопок прибираємо рядки
Z = 0
L = 0
N = 0 (тому що тест вже йде і обнуляти свідчення не треба)

Для того, щоб кнопки працювали, в проект необхідно додати модуль з описом змінних величин

- робимо подвійне клацання по кнопці «ДАЛІ» на першому слайді
- в меню Visual Basic вибираємо INSERT - MODULE,

Створення тесту - один з ... - в ms powerpoint з використанням visual basic for application

Public L, Z, N As Integer

Залишилося написати код для кнопок «ПОДИВИТИСЯ РЕЗУЛЬТАТ» І «ВИХІД»

а) Спочатку опишемо кнопку «ПОДИВИТИСЯ РЕЗУЛЬТАТ»:

Для цього
- переходимо на останній слайд
- подвійним клацанням по кнопці «ПОДИВИТИСЯ РЕЗУЛЬТАТ» переходимо в Visual Basic
- записуємо код:

Створення тесту - один з ... - в ms powerpoint з використанням visual basic for application

Пояснення до коду:

Label1.Caption = Z - тут виведеться число виконаних завдань
Label2.Caption = L - тут виведеться число вірно виконаних завдань
N = (L / Z) * ​​100 - розраховується відсоток виконання завдань
Label3.Caption = N - тут виводиться відсоток виконання завдань
If N> = 85 Then
Label4.Caption = «Відмінно» - Якщо відсоток виконання більше або дорівнює 85 - виводиться «Відмінно»
End If
If N <85 And N>= 60 Then
Label4.Caption = «Добре» - Якщо відсоток виконання від 60 до 85 - виводиться «Добре»
End If
If N <60 And N>= 30 Then
Label4.Caption = «Задовільно» - Якщо відсоток виконання від 30 до 60 - виводиться «Удовлетв»
End If
If N <30 Then
Label4.Caption = «Погано» Якщо відсоток виконання нижче 30 - виводиться «Погано»
End If
End Sub

б) Зараз опишемо кнопку «ВИХІД»

Виходимо і зберігаємо всі зміни

На цьому створення тесту закінчено. Запускаємо його (відкриваємо презентацію) і перевіряємо
Якщо що - то не працює, то подивіться і поміняйте налаштування безпеки в меню СЕРВІС - МАКРОС - БЕЗПЕКА (можливо макроси автоматично відключаються, а наш тест заснований на макросах)