Создание интерактивных тестов в MS PowerPoint c использованием VBA

Создание интерактивных тестов в MS PowerPoint c использованием VBA

1 шаг:

 Создайте тест по теме «Основы социальной информатики», состоящий из 10 вопросов, 4 вариантов ответа, из них правильный только один, первый вопрос уже составлен, смотри образец ниже. Запомните правильный ответ.

1 вопрос: Общество, в котором большинство работающих занято производством, хранением, переработкой, продажей и обменом информацией называется

1)     информационным

2)     индустриальным

3)     аграрным

4)     постиндустриальным

2 шаг:

Открыть MS PowerPoint, выбрать дизайн презентации, шрифты, размер шрифтов.

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

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

 - надпись ВОПРОС 1

 - надпись с текстом вопроса

 б) Настраиваем панель – ЭЛЕМЕНТЫ УПРАВЛЕНИЯ

(Открываем  Панель быстрого доступа – Другие команды – Все команды – Элементы управления – Добавить - ОК. )

Создание вариантов ответа

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

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

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

Цвет фона переключателя (BackColor)

Надпись на переключателе (Caption) – здесь указывается вариант ответа

Размер и тип  шрифта (Font)

Цвет шрифта (ForeColor)

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

Создание кнопки перехода

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

б) Вызываем контекстное меню -  СВОЙСТВА и тоже изменяем вид и текст на кнопке. Текст на кнопке Далее

3 шаг:

Копируем созданный слайд.

Исправляем номер вопроса, сам вопрос, надписи на переключателях через СВОЙСТВА (см выше)

4 шаг:

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

а) Разместить на слайде надписи: РЕЗУЛЬТАТ, ВСЕГО ЗАДАНИЙ ВЫПОЛНЕНО, ВЫПОЛНЕНО ВЕРНО, ПРОЦЕНТ ВЫПОЛНЕНИЯ, ОЦЕНКА.

б) Разместить на слайде 4 элемента Label (надпись) с панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ (на образце это пустые прямоугольники).

в) Создать 2 кнопки: Посмотреть результат, Выход

г) В разделе СВОЙСТВА  изменяем  вид и текст подписи, кнопок:

Цвет фона (BackColor)

Надпись на подписи (Caption) – здесь должно быть пусто

Размер и тип  шрифта (Font)

Цвет шрифта (ForeColor)

5 шаг:

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

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

Нам необходимо, чтобы при выборе одного из вариантов ответа и нажатии на кнопку «ДАЛЕЕ» автоматически

 - считалось число выполненных заданий

 - проверялся ответ, и, если он верный, то к счетчику верных заданий прибавлялась единица

 - осуществлялся переход на следующий слайд (вопрос)

Сделаем двойной щелчок по кнопке «ДАЛЕЕ», при этом открывается редактор Visual Basic, в котором мы и будем описывать процедуры нажатия на кнопку

У нас нет задачи изучить VBA – это требует долгой и кропотливой работы, остановимся только на алгоритме наших действий и объяснении строк используемого кода

Ниже мы видим окно редактора Visual Basic

Запишем следующий код (см образец):

Z = 0 ( Z – это счетчик выполненных заданий, т.е сколько заданий в тесте, в начале теста его обнуляем)

L = 0 ( L – счетчик верно выполненных заданий, ему тоже присваиваем ноль)

N = 0 ( N – это процентное выполнение заданий теста)

If OptionButton1.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  (Это команда перехода к следующему слайду)

6 шаг:

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

Z = 0

L = 0

N = 0  (т.к. тест уже идет и обнулять показания не надо)

И в строке If OptionButton1.Value = True Then нужно будет изменить цифру в зависимости от номера правильного ответа (1-4).

7 шаг:

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

Для этого:

- делаем двойной щелчок по кнопке «ДАЛЕЕ» на первом слайде

-  в меню Visual Basic выбираем INSERT – MODULE,

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

Public L, Z, N As Integer

- закрываем презентацию – ФАЙЛ - СОХРАНИТЬ КАК-Презентация с поддержкой макросов

8 шаг:

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

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

Для этого

 - переходим на последний слайд

 - двойным щелчком по кнопке «ПОСМОТРЕТЬ РЕЗУЛЬТАТ» переходим в Visual Basic

 - записываем код, текст в фигурных скобках дан для комментария, записывать его не нужно:

Private Sub CommandButton1_Click()

Label1.Caption = Z  {здесь выведется число выполненных заданий}

Label2.Caption = L   {здесь выведется число верно выполненных заданий}

N = (L / Z) * 100    {рассчитывается процент выполнения заданий}

Label3.Caption = N {здесь выводится процент выполнения заданий}

If N >= 75 Then

Label4.Caption = «Отлично» ( Если процент выполнения >= 75 – выводится «Отлично»)

End If

If N < 75 And N >= 50 Then

Label4.Caption = «Хорошо»  ( Если процент выполнения от 50 до 75 – выводится «Хорошо»)

End If

If N < 50 And N >= 25 Then

Label4.Caption = «Удовлетворительно»

End If  ( Если процент выполнения от 25 до 50 – выводится «Удовлетв»)

If N < 25 Then

Label4.Caption = «Плохо»  ( Если процент выполнения ниже 25 – выводится «Плохо»)

End If

End Sub

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

Private Sub CommandButton2_Click()

Slide11.Application.Quit {цифра означает номер слайда, на котором нужно осуществить выход, ее нужно будет в дальнейшем исправить)

End Sub

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

Запустите и проверьте работоспособность данного теста

9 шаг:

 Создайте 5 вопросов с множественным выбором. Запомните правильные ответы.

При создании теста, в котором на один вопрос существует несколько правильных ответов, применяется инструмент «Флажок» (Checkbox). Все остальное оформление выполняется как для Кнопки. Создайте кнопку перехода.

На кнопке перехода запишите код

Private Sub CommandButton1_Click()

If CheckBox1.Value = True Then – здесь цифра  - верный вариант ответа

L = L + 1

End If

If CheckBox2.Value = True Then

L = L + 1

End If

В данном коде два верных варианта ответа, первый и второй, поэтому проверка осуществляется два раза.

Z = Z + 1

CheckBox1.Value = False

CheckBox2.Value = False

CheckBox3.Value = False

SlideShowWindows(1).View.Next

End Sub

Сохраните полученные изменения.

10 шаг:

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

При создании теста, в котором правильные ответы надо вводить с клавиатуры, применяется объект «Поле».

В свойствах пункт Value очистить.

При проверке правильности введенных ответов надо предусмотреть все возможные варианты введенного текста (регистры, язык, орфографию и т д).  В коде показано на примере ответа «теплота»

Запишите код

Private Sub CommandButton1_Click()

If TextBox1.Text = «теплота» Or _

TextBox1.Text = «Теплота» Or _

TextBox1.Text = «ТЕПЛОТА» Then

L = L + 1

End If

Z = Z + 1

TextBox1.Text = " "

SlideShowWindows(1).View.Next

End Sub

На этом создание теста закончено. Сохранить. Запускаем его (открываем презентацию) и проверяем

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