Создание теста "Один из…" в MS PowerPoint с использованием Visual Basic for Application

– Здесь мы разберем  создание интерактивного теста в среде MS PowerPoint  с использованием  Visual Basic for Application. Для удобства в использовании теста добавим в него функции учета количества вопросов, количества верно выполненных заданий, процента выполнения заданий и выставления оценки

Итак, начнем по шагам:

1 шаг:

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

1 вопрос:

Есть на свете сеть сетей.
Очень интересно с ней.
Людям всем она нужна,
Миру очень сеть важна.
Что за сеть? Найди ответ.
Сеть зовется …

1. Монумент
2. Кабинет
3. Интернат
4. Интернет

2 вопрос:

По экрану бабочка летит,
По экрану строчка бежит,
На экране падает снег,
Поток звезд осуществляет свой бег.
Это что, мультипликация?
Нет – это компьютерная

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

3 вопрос:

Для чего же этот ящик?
Он в себя бумагу тащит,
И сейчас же буквы, точки,
Запятые – строчка к строчке –
Напечатает картинки
Ловкий мастер –
Шустрый …

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

2 шаг:

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

а) На  слайде размещаем 

– надпись ВОПРОС 1
– надпись с текстом вопроса

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

Рис. 1

Рис. 2

Берем переключатель (щелкаем на нем) и помещаем на слайд (щелкаем на слайде) – на слайде появляется переключатель

– Щелкаем правой по переключателю и выбираем раздел СВОЙСТВА

Рис. 3

– В разделе СВОЙСТВА  изменяем  вид и текст на переключателе:

Рис. 4

в) Создаем еще 3 переключателя и производим с ними такие же действия

Рис. 5

г) Создадим кнопку. Для этого берм ее с той же панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ и помещаем ее на слайд

Рис. 6

д) Щелкнув правой по кнопке, выбираем СВОЙСТВА и тоже изменяем вид и текст на кнопке

Рис. 7

3 шаг:

Итак, у нас создан один слайд.

Рис. 8

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

4 шаг:

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

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

Рис. 9

б) Создадим 2 кнопки:

– показать результат
– выход

Рис. 10

5 шаг:

Итак, слайды созданы, объекты на них размещены
Приступим к описанию событий.
Для этого и используется  встроенный в офисные программы фирмы Microsoft язык Visual Basic for Application (VBA).

Начнем с первого слайда:

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

Откроем первый слайд. Сделаем двойной щелчок по кнопке «ДАЛЕЕ», при этом открывается редактор Visual Basic, в котором мы и будем описывать процедуры нажатия на кнопку
Здесь скажу, что у нас нет задачи изучить VBA – это требует долгой и кропотливой работы, остановимся только на алгоритме наших действий и объяснении строк используемого кода
Ниже мы видим окно редактора Visual Basic

Рис. 11

Запишем следующий код:

Z = 0
L = 0
N = 0
If OptionButton3.Value = True Then
L = L + 1
End If
Z = Z + 1
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
SlideShowWindows(1).View.Next

Пояснение:
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  ‘Это команда перехода к следующему слайду’

6 шаг:

Аналогично открываем 2 и 3 слайды и вставляем такой же код для кнопок «ДАЛЕЕ» (можно просто скопировать код из первого слайда), однако в коде этих кнопок убираем строки
Z = 0
L = 0
N = 0  (т.к. тест уже идет и обнулять показания не надо)

7 шаг:

Для того, чтобы кнопки работали, в проект необходимо добавить модуль с описанием переменных величин

Для этого:

– делаем двойной щелчок по кнопке «ДАЛЕЕ» на первом слайде
– в меню Visual Basic выбираем INSERT – MODULE,

Рис. 12

–  в редакторе записываем код

Public L, Z, N As Integer

Рис. 13

8 шаг:

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

а) Сначала опишем кнопку «ПОСМОТРЕТЬ РЕЗУЛЬТАТ»:

Для этого
– переходим на последний слайд
– двойным щелчком по кнопке «ПОСМОТРЕТЬ РЕЗУЛЬТАТ» переходим в Visual Basic
– записываем код:

Private Sub CommandButton1_Click()
Label1.Caption = Z 
Label2.Caption = L  
N = (L / Z) * 100   
Label3.Caption = N ‘
If N >= 85 Then
Label4.Caption = «Отлично»  
End If
If N < 85 And N >= 60 Then
Label4.Caption = «Хорошо» 
End If
If N < 60 And N >= 30 Then
Label4.Caption = «Удовлетворительно»
End If 
If N < 30 Then
Label4.Caption = «Плохо» 
End If
End Sub

Рис. 14

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

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

б) Сейчас опишем кнопку «ВЫХОД»

Private Sub CommandButton2_Click()
Slide5.Application.Quit
End Sub

Выходим и сохраняем все изменения

9 шаг:

На этом создание теста закончено. Запускаем его (открываем презентацию) и проверяем
Если что – то не работает, то посмотрите  и измените настройки безопасности в меню СЕРВИС – МАКРОС – БЕЗОПАСНОСТЬ (возможно макросы автоматически отключаются, а наш тест основан на макросах)