Интерактивные викторины и тесты в PowerPoint — отличный инструмент учителей в борьбе за внимание учеников и проверку их знаний. Участники азартно тыкают на варианты ответов и мгновенно узнают результат. Но давайте честно: одних только галочек и крестиков маловато, чтобы держать интерес на высоте. Когда в игру вступает счётчик баллов, то он как тот самый секретный ингредиент превращает скучную проверку знаний в захватывающую гонку за очками, где каждый стремится обогнать самого себя или соперников.
Подсчет баллов по всей презентации несложно сделать с использованием макросов на языке Visual Basic for Applications (VBA). Это может показаться сложным для педагогов без опыта программирования, но базовый функционал подсчета баллов реализуется довольно простым кодом.
В этой статье мы разберем, как организовать подсчет баллов в PowerPoint с минимальными техническими знаниями, и на практическом примере викторины покажем пошаговую реализацию счетчика. Аналогичный материл дан в книге в разделе 9.6 для другого примера.
Вид презентации с викториной или тестом
Презентация-викторина должна содержать:
- Титульный слайд с любым значком для перехода на следующий слайд.
- Слайды с вопросом и несколькими вариантами ответов.
- Финальный слайд с пустой надписью, в которую будет выведено общее количество баллов.
Следует запретить смену слайдов по щелчку. Для этого на вкладке Переходы надо снять птичку в поле По щелчку и применить это действие ко всем слайдам.
Слайды с вопросами и ответами можно оформлять самым разным образом – отдельными надписями, или рисунками, или общим рисунком с «волшебным квадратом», о котором я много пишу в книге. Пусть для наглядности слайды имеют структуру такую, как показано на рисунке. Есть один правильный ответ с анимацией галочкой и три неправильных ответа с анимацией крестиком. Анимация срабатывает при щелчке по надписи или рисунку. Сделайте сначала только три слайда: титульный, один вопрос и финальный.
Создание макросов
Теперь надо сохранить презентацию как Презентация PowerPoint с поддержкой макросов (Файл/ Сохранить как…/ выбрать Тип файла). Далее надо открыть редактор макросов. Для этого включите кнопку Разработчик (Файл/ Параметры/ Настроить ленту/ поставить птичку для отображения вкладки Разработчик). После этого на ленте на вкладке Разработчик нажмите кнопку Visual Basic. Откроется пустой редактор.
Создадим модуль для будущего макроса. В меню выполните Insert/Module. Будет создан Module1 и появится пустое окно.
В пустом окне надо написать или скопировать следующий код:
Dim intScore As Integer
Dim N As Integer
Sub Start()
intScore = 0
N = ActivePresentation.Slides.Count
ActivePresentation.Slides(N).Shapes(«FinalScore»).TextFrame.TextRange.Text = intScore
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub AddPoints()
intScore = intScore + 1
ActivePresentation.Slides(N).Shapes(«FinalScore»).TextFrame.TextRange.Text = intScore
ActivePresentation.SlideShowWindow.View.Next
End Sub
Нажмите кнопку сохранить.
Процедура Start(), выполняется в начале презентации, а вторая, AddPoints(), – на каждом слайде, где надо добавлять балл.
Подключение макроса Start к презентации
На последнем слайде надо переименовать текстовое поле для вывода баллов в FinalScore. Переименование объектов производится в окне Область выделения.
На первом слайде должен быть объект: текст, рисунок или фигура для перехода на следующий слайд к первому вопросу. Выделите этот объект и выполните Вставка/Действие-Запуск макроса, из списка выберите макрос с именем Start, нажмите OK. Уже на этом этапе можно перейти к просмотру презентации. На первом слайде нажмите значок перехода на следующий слайд, убедитесь, что произошла смена слайда, перейдите на последний слайд, в текстовом поле должно быть число 0.
Подключение макроса AddPoints к презентации
В процедуре AddPoints при вызове макроса переменная intScore увеличивается на 1, на финальном слайде обновляется итоговый счет и идет переход на следующий слайд.
В самом простом случае можно подключить макрос AddPoints к правильным ответам. Для этого выделите правильный ответ (целиком как объект) и выполните Вставка/Действие-Запуск макроса, из списка выберите макрос с именем AddPoints, нажмите OK. Сделайте это только на одном слайде с вопросом и убедитесь, что анимация не сработала, а произошел переход далее. Перейдите на финальный слайд, там в текстовом поле должна отобразиться единичка.
Если просто подключить макрос к объекту с анимацией, то сработает макрос, а анимация не сработает. Макросы имеют приоритет перед анимационными эффектами. Конечно, необходимо одновременно показывать анимацию и начислять баллы только за первую попытку. Важно, чтобы балл засчитывался именно при выборе правильного ответа с первого раза, а не после перебора вариантов.
Удалите макрос с первого правильно ответа через Вставка/Действие-Нет и приготовьтесь внести дополнения в слайды. На слайде с вопросом добавьте прозрачный прямоугольник поверх кнопки перехода на следующий слайд. На этот прямоугольник добавьте эффекты Выход-Исчезновение при щелчках по неправильным ответам, начало эффекта установите С предыдущим.
А теперь на прозрачный прямоугольник добавьте макрос AddPoints. Поскольку прямоугольник невидим, визуально все будет выглядеть так, что игрок после выбора ответа нажимает значок Далее, а на самом деле срабатывает макрос. Не забывайте, что листать слайды надо по значку перехода, а не клавиатурой.
Презентация с викториной-примером
Презентация-пример доступна для скачивания в архиве zip. Чтобы скачать и запустить ее с макросами, необходимо дать разрешения на использование скачанных файлов на запуск макроса. Как это делается написано в конце статьи Собираем пазлы в PowerPoint макросом MoveHim+MoveTo. Следует указать, что в представленной презентации игрок может получить баллы, вообще не отвечая на вопросы, а только нажимая кнопку Далее. Можно добавить анимацию появления этой кнопки при щелчке по ответам, тогда изначально ее не будет видно, придется отвечать. Можно вообще перестроить игру по типу квеста, как это описано в разделе 9.4 книги.
Программирование макросов позволяет решать самые разные задачи. В этой статье я описала базовый вариант, более сложные вещи можно найти в книге или заказать у меня.