Бесплатные презентации, шаблоны презентаций и все об их создании и использовании.

Создание теста в презентации с использованием VBA Создание теста в powerpoint
Очень эффектно при использовании PowerPoint, особенно в образовательном процессе, использование тестов. Например, задан вопрос с несколькими вариантами ответов. При правильном ответе есть возможность перейти к следующему слайду. При неверном ответе получить сообщение «Неверно, попробуйте еще раз!».
Такие тесты можно создавать в PowerPoint с помощью Visual Basic. И это не очень сложно, как могут подумать многие. Даже если есть полное непонимание принципов программирования код можно, в конце концов, найти в интернет.
Шаг 1: Создание слайдов с вопросом и несколькими вариантами ответов
Первый шаг заключается в создании нескольких слайдов с вопросами. В заголовке слайда введите вопрос. Введите первый вопрос в заголовке заполнителя. Перейдите в автофигуры и в разделе «Управляющие кнопки» выберите «Управляющая кнопка: настраиваемая»:

Создание слайда с вопросами

Щелкните по слайду. Появится диалоговое окно «Настройка действия» и кнопка. Окно закройте щелкнув «Отмена» а кнопку разместите в нужное место, задав ей размер с учетом того, что туда будет вставлен текст. Щелкните по кнопке правой кнопкой мыши для вызова контекстного и выберите «Изменить текст».

вставка текста на кнопку действия

Появится курсор ввода текста. Введите туда правильный вариант ответа. Продублируйте кнопку два раза и измените текст на неправильные варианты ответа. Таким образом сделайте еще два слайда. Должно получится несколько слайдов примерно такого вида:

Внешний вид слайда с вопросами

Шаг 2: Создание макросов
Когда слайды с вопросами и ответами готовы, можно переходить к созданию макросов. Для этого непосредственно в PowerPoint будем использовать редактор Visual Basic.
В PowerPoint 2007 году и и более поздних версиях для перехода в редактор необходимо сначала открыть еще один пункт меню – «Разработчик» (по умолчанию, он не отображается.) Для этого проделаем следующие шаги.
1. Откроем меню «Настройка панели быстрого доступа» - «Другие команды»:

Настройка панели быстрого доступа

2. В диалоговом окне «Параметры PowerPoint» выбираем пункт «Основные» и ставим галочку «Показывать вкладку «Разработчик» на ленте»:

вкладка разработчик

3. Переходим во вкладку «Разработчик» и выбираем «Visual Basic»:

открыть visual basic в powerpoint

Редактор откроется в новом окне. Мы создадим три макроса.
Щелкаем «Insert» - «Module»:

вставка модуля в VA

И вставляем код для неправильного ответа:
Sub Wrong()
MsgBox ("Ответ неверный. Попробуйте еще раз")
End Sub

код неправильного ответа в VBA

Далее – фрагмент кода для правильного ответа:
Sub Right()
MsgBox ("Все верно")

SlideShowWindows(1).View.Next
End Sub

код правильного ответа в VBA

Фрагменты схожи, только во втором есть переход к следующему слайду.
Для того, чтобы презентация не завершилась выходом на последнем слайде добавим для правильного ответа код:
Sub RightLast()
MsgBox ("Congratulations!")
End Sub
В итоге у нас получается следующая конструкция:

итоговый код макроса

Шаг 3: Подключение макросов для кнопок
Прейдем из редактора VBA в PowerPoint. Для щелкаем по значку «View Microsoft PowerPoint»:

переход из VBA в PowerPoint

Редактор Visual Basic отставим открытым в фоновом режиме. В PowerPoint сохраним презентацию, это коснется и макросов. Сохраняем как презентацию с поддержкой макросов:

Сохранение презентации с поддержкой макросов

Переходим к кнопке с правильным ответом. Щелкните правой кнопкой мыши на кнопку и выберите «Гиперссылка» из контекстного меню:

Подключение макроса для кнопки

Появится диалоговое окно «Настройка действия». Выберите «Запуск макроса» - «Right». Таким образом, мы подключили фрагмент кода для правильного ответа к кнопке.

Выбор макроса для кнопки

Такую же процедуру проделаем для всех кнопок «Неправильный ответ», только подключаем макрос «Wrong».
Прежде чем перейти к оставшимся слайдам и назначить соответствующие макросы на кнопках этих слайдов, проверьте работоспособность кнопок на первом слайде. Для этого запустите презентацию в режим просмотра и нажмите на неправильный ответ. Должно появиться сообщение «Ответ неверный. Попробуйте еще раз». Нажмите OK, чтобы закрыть окно:

проверка макроса для неправильного ответа

Проверьте другие неправильные ответы на слайде, чтобы убедиться, что они также работают. Наконец, выберите правильный ответ. На этот раз, текстовое поле сообщение должно означать, что вы выбрали правильный ответ. Нажмите кнопку ОК и слайд-шоу автоматически перейдет к следующему слайду:

Проверка макроса для правильного ответа

Если первый слайд работает нормально то проверьте остальные. На последнем слайде, назначьте для правильного ответа макрос «RightLast», чтобы по завершении слайда остаться на последнем слайде. Для правильного ответа на последнем слайде мы должны получить сообщение «Поздравляем!» и остаться на этом слайде после нажатия кнопки «Ок»:

Проверка макроса для правильного ответа на последнем слайде

Шаг 4: Финальные настройки
Для предотвращения пропуска в тесте вопросов без ответов выберите «Показ слайдов» - «Настройка демонстрации». В диалоговом окне «Настройка демонстрации» выберете «автоматический (полный экран)». Нажмите кнопку ОК. Эта установка дает возможность выйти из презентации только по клавише «ESC».

настройка запуска презентации в режиме киоск (полный экран)

Теперь перейдите в режиме слайд-шоу и проверьте тест. Убедитесь, что все работает правильно. Обратите внимание! При запуске файла с макросом, Вы можете получить предупредительное сообщение о том, что файл содержит макросы. Это сделано в целях безопасности. Для того, чтобы макросы работали, необходимо выбрать "Включить это содержимое".

Вложения:
Скачать этот файл (test_v_powerpoint.zip)Пример файла с тестом в PowerPoint[скачать файл]50 kB635 Скачивания

Похожие материалы

Медицинские справки формы 086, профосмотры
ambulatoriy.ru
Наверх