Создадим тест в powerpoint  с помощью VB. Для этого откроем новую презентацию или любую созданную, котую хотим дополнить тестом.

Я для образца создаю новую. Создаем страницу в которой прописываем название и любую другую сопроводительную информацию.  С помощью VB можно создать различные типы вопросов: с выбором одного ответа, с вводом ответа, с множественным выбором ответов. Выбор ответа можно сделать ввиде нажатия кнопки, или через радио-кнопку. Можно на кнопке поместить изображение, то есть сделать тест красочным. Начнем по порядку.  

 1 способ: выбор ответа нажатием кнопки.

В обычном режиме презентации набираем заголовок, вопрос. Затем размещаем кнопки. Для этого выбираем вкладку разработчик. (Как включить вкладку разработчик, можно посмотреть здесь.) На вкладке выбираем кнопку (ActiveX). Затем ее размещаем на слайде. Для редактирования кнопки и прописывания программы делаем двойной щелчок по кнопке. Открывается окно microsoft Visual basic. Галочками отмечены следующие функции: Caption — название кнопки. Справа стираем CommandButton и прописываем название какое нам надо. Например «Земля». В режиме Font устанавливается стиль и размер текста на кнопке. Можно еще сказать о функции Picture — можно разместить картинку на кнопке. В обведенном овалом должны прописывать программу для кнопки. Аналогично прописываем все кнопки. Внешне все выглядит так! Должно получиться. что то такое. Объяснение программы: n — это переменная которая «считает» количество вопросов, k — переменная которая считает количество правильных ответов. так как это первый вопрос, то на первом слайде сначала приписываем, что они равны нулю. k увеливается на кнопке, где правильный ответ. n увеличивается на каждой кнопке. MsgBox это команда вывода на экран в дополнительном окошке фразы, которая находится в кавычках. По содержанию программы видно, где ответ правильный. Команда SlideShowWindows(1).View.Next переведет Ваш тест на новый слайд.

Вопрос с выбором ответа

  Прописывае номер вопроса по желанию. Прописываете в обычном режиме вопрос. Добавляем «переключатели» с помощью которых будут выбирать правильные ответы. Как и в примере с кнопками, прописываем переключатели. Добавим еще кнопку, с помощью которой примем ответ, его обработаем и переходим на новый слайд.

Делаем двойной щелчок по кнопке сбора ответа и в появившемся окне прописываем программу. IF(если) выбран именно тот переключатель то k(которая отвечает за количество правльных ответов) увеличивается на 1. Else (иначе) выходит дополнительное окно с надписью «Неверно». Optionbutton1=False

значение переключателей обнуляется, чтобы слайд был чист при возврате. Чтобы посчитать отвеченные вопросы увеличиваем n на единицу. Переходим на новый слайд.

Вопрос с вводом ответа.   Прописывае номер вопроса по желанию. Прописываете в обычном режиме вопрос. Добавляем «Поле» для ввода ответа. Добавим еще кнопку, с помощью которой примем ответ, его обработаем и переходим на новый слайд.

Двойным щелчком по кнопке ввода ответа открываем форму VB. Прописываем обработку введенного ответа:

вводим переменную А, которой присваивается значения поля, в который был введен ответ. Далее ставим условие: IF(если) А=правильный ответ то счетчик к увеливается на единицу, иначе выходит сообщение о направильном ответе.

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

Создаем слайд вопроса с множественным выбора ответов. Ответы проставляем с панели разработчик, ставим флажки, и как спредыдущими случаями прописываем варианты ответа. Добавляем кнопку сбора ответов.

Двойным щелчком по кнопке сбора ответов открываем панель VB. Прописываем условия правлиного ответа.

If CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value = True And CheckBox4.Value = False Then k = k + 1 Else MsgBox «неверно»

Создаем форму обработки результатов теста. Текс прописываем в обычном режиме. Добавляем поля из панели Разработчика, в которых мы хотим видеть значения. Добавляем кнопку для вывода результатов. Двойным щелчком по кнопке сбора ответов открываем панель VB. Прописываем, что хотим увидеть в каждом поле.   Так как у нас есть две величины, которые встречаются на всех слайдах и значение должно изменяться. то мы должны ввести эти величины для презентации в глобальном масштабе. Для этого открываем панель VB(двойным щелчком по любой кнопке). Далее Insert — Module. Прописываем величины.Образец можно скачать здесь.  

 А теперь разберем процесс создания подобного теста. Он будет разбит на три этапа: 

• Создание макросов для автоматизации;
• Подготовка исходных слайдов;
• Настройка работы слайдшоу

Создание макросов для автоматизации

Для начала нам нужно включить вкладку «Разработчик». Можно обойтись и без нее, но раз уж мы работаем с макросами, то будем действовать по канонам. Переходи в «Файл» — «Параметры» — «Настройка ленты» и ставим галочку напротив «Разработчик«.  

 Теперь перейдем на появившуюся на ленте вкладку и откроем окно редактора Visual Basic (можно сделать это сочетанием клавиш Alt+F11). В редакторе нам нужно будет добавить к нашей презентации новый модуль. Для этого кликните правой кнопкой мыши по нужной презентации в окне слева, выберите «Insert» — «Module«. В правой части появится белое окно модуля. Сюда мы и будем вводить весь наш код.  

 На этом этапе можно сохранить презентацию (хоть она пока и пустая). Главное, что нужно сделать — указать при сохранении формат Презентация PowerPoint с поддержкой макросов. В ином случае, введенный впоследствии код просто не будет сохранен. Итак, в нашей презентации будут: 

• титульный лист с кнопкой старта теста;
• слайды с вопросам и вариантами ответов;
• слайд, сообщающий о завершении и предлагающий узнать результат;
• слайд с результатом тестирования и кнопкой завершения теста.

Нам понадобится возможность подсчитывать правильные и неправильные ответы. Для этого создадим переменные CorrAns и WrongAns. Также нам на одном из этапов понадобится перебирать объекты на слайде (переменная shp). Ну и в зависимости от результатов, мы будем выводить итоговое сообщение (переменная Message). Здесь и далее мы будем давать код в виде скриншотов для экономии места. Скопировать код Вы сможете непосредственно из готовой презентации, ссылку на которую найдете в конце статьи.

Для объявления этих переменных введите в модуль код: 

Кстати, весь зеленый текст (ему всегда предшествует апостроф) вводить не обязательно. Это просто комментарии для понимания работы кода.

Для автоматизации будут использованы следующие макросы:

1) Start. Этот макрос будет запускать начало тестирования и обнулять счетчики ответов. Его код: 

 2) ExitTest. Этот макрос будет завершать тестирование и выходить из режима слайд-шоу. 

 3) ShowAnswer. Этот макрос будет подсвечивать зеленым цветом правильные, а красным — неправильные варианты. Обратите внимание на имена Corr, Wrong1, Wrong2, Wrong3. Это имена прямоугольников с вариантами ответов. Один правильный и 3 ошибочных. Имена, указанные в коде мы потом присвоим элементам на слайде. Можно делать и в обратном порядке, но в нашем случае быстрее будет сначала создать код, а потом рисовать слайды.   

 4) HideAnswer. Этот макрос возвращает вариантам ответов стандартную заливку. В отличие от предыдущего макроса, в котором мы обращались к каждому конкретному объекту и делали ему заливку, здесь мы в цикле перебираем все объекты слайда и если имя объекта похоже на нужное, осуществляем его перекрашивание.  

 5) Corr. Этот макрос будет запускаться, если пользователь выбрал правильный вариант. Сначала он спросит, уверен ли тестируемый в своем выборе (чтобы исключить случайные нажатия) и если да, то увеличит число правильных ответов на 1, вызовет макрос подсветки правильного ответа, выведет сообщение о том, что ответ верный, а затем вернет стандартны цвет ответам и перейдет на следующий вопрос.  

 6) Wrong. Макрос, аналогичный предыдущему, но только для неверных ответов. 

 7) Result. Наконец, последний макрос сформирует итоговые результаты. Он покажет, сколько ответов было дано верно, сколько неверно, процент успешности и, если правильных ответов больше 80%, напишет фразу «Поздравляем! Тест пройден!», а если нет, то фразу «Это фиаско, братан!».  

 Ну вот и всё. Самое сложное позади. Введен весь нужный код, теперь можно приступить к созданию самих слайдов.

Подготовка исходных слайдов

Как мы уже говорили, наш тест будет состоять из стартового слайда с кнопкой запуска, слайдов с вопросами, слайда с сообщение об окончании теста и итогового слайда с результатами тестирования. 

Титульный слайд

Выберите подходящий на Ваш взгляд макет («Файл» — «Создать«) и приступайте к созданию. На титульном слайде разместите заголовок с названием теста и кнопку для запуска тестирования. Это может быть любая фигура с текстом, картинка или просто надпись. Всё на ваше усмотрение. В нашем примере кнопка состоит из 3 частей:

• Прямоугольник (сама кнопка);
• Надпись «Начать тестирование»;
• Логотип Excel.

Теперь кликните на прямоугольник кнопки и выберите «Вставка» — «Действие«. На вкладке «Щелчок мышью» выберите «Запуск макроса» и укажите из списка макрос Start. Теперь в режиме слайдшоу при клике на прямоугольник будет запускаться макрос Start, а это, как мы помним, макрос начала тестирования.  

 Чтобы прямоугольник, надпись и картинка стали единым объектом (и удобнее перемещались, изменялись в размерах и т.д.), нужно сгруппировать элементы. Выделите мышкой все объекты, а затем кликните на выделенных объектах правой кнопкой мыши и выберите «Группировать» — «Группировать«. 

Слайды с вопросами

Теперь нужно создать слайды с вопросами. Сначала полностью подготовим один такой слайд, чтобы потом продублировать его и на остальных уже просто поменять вопросы и варианты ответов (вот зачем мы сначала создали макросы — чтобы не назначать их на каждом слайде вручную, когда всё будет готово). 

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

 Теперь нужно включить отображение области выделения объектов. На вкладке «Главная» выберите «Выделить» — «Область выделения«.  

 В результате в правой части окна программы появится панель, на которой будет отображен список всех объектов на слайде.  

 Когда Вы кликаете на какую-то фигуру на слайде, в области выделения подсвечивается ее название. Выделите прямоугольник с правильным ответом, чтобы его название выделилось на панели справа. Кликните на нем еще раз в области выделения, чтобы перейти в режим переименования, и введите имя Corr. Для неверных ответов задайте имена Wrong1, Wrong2 и Wrong3 (если помните, это именно те имена, что мы указывали в коде).  

Теперь нужно к слайду с правильным ответом подключить макрос Corr, а ко всем остальным — макрос Wrong, как мы делали это выше с макросом Start. Запомните, в каком именно прямоугольнике введен верный ответ (в нашем случае — в левом нижнем). 

Когда слайд готов, его нужно продублировать столько раз, сколько у вас будет вопросов. Чтобы сделать копию слайда, кликните на нем в левой части окна в списке слайдов и нажмите Ctrl+D нужное количество раз. 

На каждой новой копии слайда введите нужный вопрос и нужные варианты ответов. Правильные ответы вводите в тот прямоугольник, в который вводили в первый раз (так как у него уже задано верное имя в области выделения и назначен макрос правильного ответа). После ввода ответов, можете перемешать прямоугольники в любом порядке, чтобы правильный ответ не был на каждом слайде в одном и том же месте.

Слайд с сообщение об окончании тестирования

О том, что вопросы кончились, будет оповещать вот такой слайд.  

 Как Вы догадались, на прямоугольник с надписью «Посмотреть результат» назначен макрос Result. 

Слайд с результатами

Слайд результатов мы оформили вот так: 

Вы можете оформить так, как считаете нужным, но чтобы слайд был обновляемым, нужно обязательно сделать следующее:

• Зеленому прямоугольнику с количеством верных ответов присвоено имя «CorrA» (оно, как и все другие имена, встречается в коде)
• Красному прямоугольнику с количеством неверных ответов присвоено имя «WrongA«
• Голубому прямоугольнику с процентами присвоено имя «Res«
• Коричневому прямоугольнику с надписью «Поздравляем…» присвоено имя «Msg«
• Прямоугольнику с надписью «Завершить и выйти» назначен макрос ExitTest

При оформлении слайда заранее задайте настройки размера шрифта во всех фигурах, так как в дальнейшем макрос будет просто записывать туда новые значения, а форматирование останется прежним. Если у вас 15 вопросов, то сделайте шрифт таким, чтобы число 15 влезало в фигуру и т.д. 

Настройка работы слайдшоу

Осталось немного. Теперь нужно настроить слайд-шоу так, чтобы тестируемый не мог переключаться на предыдущие слайды, менять ответы и т.д. Для этого кликаем на любой слайд и идём на вкладку «Переходы«. Там ставим вот такие настройки и нажимаем «Применить ко всем«.  

 Затем идем на вкладку «Слайд-шоу» и выбираем «Настройка слайд-шоу«. 

 Выбираем вариант показа «Автоматический (полный экран)» 

 Теперь у пользователя нет возможности перейти между слайдами, кроме как ответив на заданный вопрос. Выйти из презентации он также может только нажав клавишу Esc. Если хотите лишить его и этой возможности — отберите клавиатуру. Всё равно для теста нужна только мышь 😉

Запускается тест при старте демонстрации (клавиша F5). Файл-пример из этого урока качайте по ссылке. После открытия файла не забудьте разрешить запуск макросов.  

Вот так на практическом примере мы разобрали сразу несколько полезных приемов работы в Power Point и VBA. Надеемся, Вы нашли для себя что-то полезное.

Поддержать наш проект и его дальнейшее развитие можно вот здесь.

Ваши вопросы по статье можете задавать через нашего бота обратной связи в Telegram: @KillOfBot

С уважением, команда tDots.ru 

Аннотация:

Данный материал был подготовлен и разрешён к публикации на Учительском портале учителем физики и информатики в Краснополянской школе Домниным Константином Михайловичем.Ресурс показывает, как с помощью программы MS PowerPoint можно быстро создавать интерактивные автоматизированнные тесты для проверки знаний учащихся.
Полезен всем учителям (не только информатики), которые используют тестирование как форму контроля знаний.
Содержит пример, на основе которого можно быстро освоить и создать свои тесты, которые освободят массу Вашего времени на подсчет результатов, выставят оценку — ведь создавая тест вы уже его проверяете

Продолжение следует.

Автор: Домнин Константин Махайлович
Место работы: Кировская область, Краснополянская школа
Добавил: KarMaN

Уважаемые коллеги! Автор ждёт Ваши отзывы! Оставьте своё мнение о разработке!

Всего комментариев:

Sortiere nach

• Revalenz
• Kürzlich
• Aufrufe
• Bewertung

Как сделать кнопки в Microsoft PowerPointSerBer 50000

Vor 4 years

Видеоролик по созданию игры с помощью Power PointТатьяна Шваб

Vor 2 years

Сомов Дима, 4В класс, школа № 98, г.Кемерово Сейчас я расскажу, как создать игру с помощью программы PowerPoint….

Как сделать слайд с вопросами и ответамиМарина Богачева

Vor 3 years

Все уроки здесь www.pozdravlenie-sozdat-prosto.ru/ По просьбе читателей моего блога сделала видеоролик . Здесь показа…

Как сделать интерактивную презентациюKetty Shelly

Vor 2 years

интерактивная презентация, действия в презентации, кнопки в презентации, аудиофайл в презентации.

Как сделать кнопки в программе Microsoft PowerPoint.SerBer 50000

Vor 3 years

47. Управляющие кнопкиTeachProTube

Vor 5 years

Смотрите полную версию курса PowerPoint 2010 здесь: teachpro.ru/Course/PowerPoint2010?utm_source=youtube&utm_campaign=PowerPoint2010 …

Как сделать навигацию на слайдах в Microsoft PowerPointesprezo.

Vor 3 years

В этом выпуске программы «Заводной Powerpoint» мы расскажем о том, как вставлять и создавать навигацию на слайда…

Интерактивные кнопки для мероприятий игрового форматаЕвгений Данилов

Vor 7 Monate

Power Point. Основы. Проверка совместимостиtDots

Vor 6 Monate

Каждая новая версия и даже практически каждое обновление PowerPoint привносит в программу всё новые и новые…

Кнопки для брейн-ринга.Игорь Кочет

Vor 10 Monate

Сделано в мастерской Стрим-квеста. www.sq.dp.ua.

МК 1. Урок 5. Технологические приемы «шторка» и «трафарет»Салтанат Салиш

Vor 3 years

Интерактивная игра Сундучок знанийАлла Госсман

Vor 3 years

Интерактивная игра «Сундучок знаний» в программе PowerPoint. надеюсь, что кому-нибудь пригодится, если что-то…

Интерактивные устройства — «Система бреин ринг»QUEST-CUSTOMS

Vor 8 Monate

Комплект для игры «Брейн Ринг» на 4 команды. Количество кнопок и архитектура системы может меняться в зависи…

Видеоурок «Технологический прием «Волшебная труба» Е.А. ЧулихинойЕкатерина Пашкова

Vor 2 years

Автор инструкции: Татьяна Шамарина, автор приема: Е.А. Чулихина Материал сайта pedsovet.su/

Создание интерактивной презентации в Power Point — автор Иванова Татьянататьяна иванова

Vor 4 years

Создание интерактивной презентации в Power Point — автор Иванова Татьяна.

Использование триггеров в Power PointЛидия Шитикова

Vor 2 years

Как сделать тест в Power Point.

3. Кнопки в Adobe CaptivateeLearning и другие неприятности ИКТ

Vor 2 years

Как в PowerPoint сделать таблицу с вопросами и ответами.Марина Богачева

Vor 2 years

Как в PowerPoint сделать таблицу с вопросами и ответами — на этот вопрос я отвечаю в этом видеоуроке. Нажмите…

20. Prezi: Как вставить слайды Power Point в презентацию Preziopen-prezi.ru

Vor 4 years

Prezi.com — Открой для себя мир захватывающих презентаций Prezi open-prezi.ru/ Бесплатный обучающий курс «Prezi. Быстры…

Триггеры PowerPoint: создание викторинАлександра Пуляевская

Vor 8 Monate

Пример использования триггеров (переключателей) для создания интерактивных заданий.

Создание тестов в среде MS Power PointКот Бегемот

Vor 5 years

Режимы просмотра презентации. Обучение PowerPoint 2013/2016. Урок 2Skill.im — качественные видеокурсы

Vor 2 years

Пройдите БЕСПЛАТНО весь Базовый видео курс по MS PowerPoint 2013/2016 для новичков —45 уроков у нас на сайте: ▻www.skil…

Демонстрация. Переключение шести слайдов.Artigrafica mirrors

Vor 4 years

Мультимедийное зеркало с шестью слайдами. Режимы переключения.

Создание интерактивных изображений в сервисе ThinglinkAlifbo Media

Vor year

Сервис Thinglink.com позволяет создавать интерактивные изображения — на обычные фотографии можно добавить интер…

Использование триггера Power Pointsvetlana4798

Vor 5 years

Создание триггераІрина Тіунова

Vor 4 years

Создание гиперссылок в PowerPoint 2003Екатерина Пашкова

Vor 4 years

Видеоурок сайта Вектор-успеха.рф, Pedsovet.su.

Триггеры в презентации Применение Создание слайда с триггерамиАндрей Иванов

Vor year

Как сделать игру в PowerPoint сколько будетМарина Богачева

Vor year

Сделать игру «Сколько?» в PowerPoint довольно просто. Необходимо поместить на слайде вопрос и несколько вариан…

Игра в PowerPointGame — creator

Vor 3 years

6. Конвертация курса из PowerPoint в Adobe Captivate 7Продвигайся с умом!

Vor 3 years

Курс «Знакомство с Adobe Captivate 7», в котором можно не только посмотреть видеоуроки, но и выполнить упражнения…

OpenOffice Impress. Используем триггеры.Юрий Винницкий

Vor 4 years

Рассмотрены основные приемы работы с триггерами (переключателями) в презентациях OpenOffice. Использование…

Как сделать пазлы в PowerPoint.Марина Богачева

Vor year

Для создания пазлов используется всего несколько видов фигур. Сделать пазлы в PowerPoint не сложно — любую карти…

Создание интерактивного кроссвордаГалина Битюкова

Vor 2 years

33 Создание движущихся изображений в Power PointИнна Михайленко

Vor 5 years

Создание интерактивной HTML презентации. Навигация.Ч2ProFun

Vor year

Приветствую! Продолжаю делать интерактивную HTML презентацию средствами Blender3D и Blend4Web. В этой части подготавл…

Панель Быстрого Доступа Word (Увеличение Эффективности) Ворд 2013/2016 для НачинающихSkill.im — качественные видеокурсы

Vor year

Данный видео урок посвящен настройке панели быстрого доступа. С ее помощью вы сможете быстрее и эффективне…

создание интерактивной игрыЕлена Ступина

Vor year

Cоздание интерактивной игры в программе Power Point.

Картинка вместо кнопкиladakz

Vor 3 Monate

www.lada.kz/ Подпишись на новости на страничках в социальных сетях: Твиттер: twitter.com/AktauLada Вконтакте:v…

Дизайн. Как создать PDF портфолио?WOL — World of Lifehacks

Vor 5 years

Сайт автора: freevideouroki.ru/creativshik6 ▻ Автор: Борис Поташник Если Вам понравился данный видео урок, ознакомьт…

Как сделать игру в Microsoft Power PointMax Taylor

Vor 3 years

OnlinEnglish: Вебинар №2 «Создаем интерактивные презентации»OnlinEnglish

Vor 6 years

На этом вебинаре Вы познакомитесь с особенностями создания интерактивных презентаций, которые позволят…

Как Правильно Открывать документ в Ворде. Word 2013/2016 для НачинающихSkill.im — качественные видеокурсы

Vor year

В данном видео мы разберем основные способы открытия документа в ворде. Некоторые пользователи программы…

Как сделать секундную стрелку на PowerPointОлег Тарасов

Vor 5 years

Лекция 12: Пример — Flash — тестыНОУ ИНТУИТ

Vor 4 years

Создание документов для электронного обучения. Шаблоны. Лекция и тесты в НОУ ИНТУИТ www.intuit.ru/studies/courses/656/51…

Вывод текста после нажатия кнопки — JavascriptНиколай Черней

Vor year

Вывод текста после нажатия кнопки — Javascript js.

Эффекты и анимация в Adobe IndesignSpecialistTV

Vor 2 years

Бесплатный вебинар Центра Специалист адресован прежде всего дизайнерам и верстальщикам и посвящен создан…

Урок_применение триггеровВера КВН

Vor 2 years

Этот небольшой урок создан для моих коллег. Он поможет при создании интерактивных презентаций для работы…

Sutori — интерактивный таймлайн для Образования 2.0 (как создать онлайн и бесплатно)eLearning и другие неприятности ИКТ

Vor year

создаем таймлайн с помощью www.sutori.com/ пример из видео www.sutori.com/story/istoriia-tiestirovaniia Таймлайн Sutori позволяе…

Интерактивная презентация по физике 2 | Создано в Adobe Flash CS3Dmitriy Rtishchev

Vor year

Интерактивная презентация по физике на тему «Определение показателя преломления стекла с помощью плоскопа…