Как составить тест презентацию

Как Вы знаете, лучший способ учиться чему-либо – это практика. Можно бесконечно изучать инструменты и возможности каких-то программ, но без реализации практических кейсов вряд ли получится что-то запомнить и усвоить действительно хорошо. Сегодня мы разберем процесс создания интерактивного теста в PowerPoint, используя работу с фигурами, запуск действий по клику мыши, режим автоматической демонстрации слайдов и некоторое количество VBA кода.

Чтобы заинтересовать Вас, сразу покажем, что получится в итоге:

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

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

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

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

Теперь перейдем на появившуюся на ленте вкладку и откроем окно редактора 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

Плох тот матрос, кто не мечтает стать адмиралом. Не будем сравнивать профессии, но вариант для роста учителя — это разработчик учебных программ, методист. Эти профессии требуют дополнительных компетенций, например, разработка интерактивных заданий в соответствии с рекомендациями педагогического дизайна. Для создания тестовых заданий существует множество платформ, в их числе “Moodle”, “iSpring Suite”, “TestPad”. Использование “PowerPoint” расширяет возможности дизайна, также тест становится полностью автономным от интернета. 

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

Шаг 1

Создаем 4 основных слайда: 

• первый слайд с кнопкой “Начать тест”;
• слайд с вопросом и вариантами ответов;
• слайд для завершения тестирования;
• итоговый слайд с ответами.

Шаг 2

Включаем макросы в разделе Файл — Центр управления безопасностью.— Параметры макросов. Также настраиваем ленту так, чтобы там отражался “Разработчик”.

При воспроизведении презентации с других компьютеров давайте разрешение программе на включение макросов.

Шаг 3

Добавление кода макросов. Зайдите в раздел Разработчик — Visual Basic — Insert — Module и добавьте весь этот код, тщательно скопировав его из документа.

Шаг 4

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

Шаг 5 

Сгруппируйте элементы на кнопках, чтобы они выступали как единое целое. Для этого выделяем их левой кнопкой и выбирае пункт “Группировать”.

Шаг 6

Добавляем макросы к кнопкам презентации. Для этого кликаем на нее, выбираем “Действие” — запуск макроса.

Соответственно,

•  на кнопку Start — макрос Start
• Learn the results — Result
• правильный ответ — Corr
• каждому неверному ответу выбираем макрос Wrong
• стрелка для выхода — ExitTest

Шаг 7 

В разделе Главная — Выделить — Область выделения меняем названия некоторых фигур на слайдах:

Верному ответу присваиваем название “Corr”, ошибочным: “Wrong1”, “Wrong2”, “Wrong3”. Данный код предполагает только 4 варианта ответов, при желании можно разобраться и добавить ответов.

Прямоугольник с количеством верных ответов называем — «CorrA» (оно, как и все другие имена, встречается в коде)

Прямоугольник с количеством неверных ответов — «WrongA«

Прямоугольник с процентами — «Res«

Шаг 8 

В разделе Переходы уберите переход по щелчку.

В разделе “Показ слайдов” выберите автоматический режим.

Еще раз нажмите “Сохранить”, запустите презентацию для проверки. 

После внесения ответов для обновления презентации нажмите стрелку отмены (Ctrl+Z) до выхода из программы!

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

Удачи в освоении новых функций PowerPoint!

                           МОУ «СОШ с. Липовка»

Мастер – класс

«Создание тестов по информатике

в  Microsoft PowerPoint»

Подготовил

учитель информатики

МОУ «СОШ с. Липовка»

А.Ю. Федулов

2010-2011

1.                 
Открыть программу Microsoft Power Point.

2.                 
На 1 слайде в окне заголовок пишем название «Тестовая
программа по информатике». В подзаголовке пишем «начать выполнение».

3.      Создаем второй слайд. Для этого нажмем кнопку «создать слайд».

 

4.      На созданном слайде оформляет задание для нашего теста:

5.      Повторяем это еще раз. Нажимаем кнопку создать
слайд. На созданном слайде оформляет задание №2 для нашего
теста:

6.      Повторяем это столько раз, сколько вопросов хотите вы дать в этом
тесте.  Особенность  такой презентации состоит в том, что каждый
вариант ответа оформляется на слайде в виде гиперссылки, в зависимости от того,
правильный или ошибочный вариант ответа выбрал ученик. Правильный ответ – осуществляется
переход на один слайд, неправильный ответ – на другой слайд. Поэтому необходимо
продублировать его один раз и различить дублируемые слайды подсчетом баллов за
выполненное задание.

7.     
Для этого наводим стрелку мыши на слайд 3, делаем
клик правой кнопкой мыши, в появившемся меню выбираем «дублировать слайд».

 

Получим

8.      Создаем 5 слайд с заданием №3 и дублируем его 3 раза. Вы заметили, что
при создании слайдов с заданиями нам приходится увеличивать число копий
(дублеров) слайдов на 1, соответственно число баллов на слайдах будет 0,1,2 и
т.д.

Допустим мы сделали 5 заданий, число слайдов должно получиться 15 и 4
слайда создаем с оценкой нашего теста: «0» или «1» балл – оценка 2, «2» балла –
оценка 3, «3» балла – оценка 4, «4» балла – оценка

9.      Настраиваем работу теста с помощью гиперссылок. Для этого открываем 2
слайд с заданием №1, выделяем правильный ответ, выбираем «вставка» , нажимаем «гиперссылка»,
выбираем слайд с количеством баллов 1.(слайд 4) Нажимаем ОК.

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

10.  Переходим
к слайду с заданием № 2 с количеством баллов 0.  Выделяем правильный ответ,
выбираем «вставка», нажимаем «гиперссылка», выбираем слайд с заданием №3 с
количеством баллов 1. Нажимаем ОК.  Выделяем неправильные ответы и создаем для
них гиперссылки на слайд  с заданием №3 с количеством баллов 0.

11.  Переходим
к слайду с заданием № 2 с количеством баллов 1.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с заданием №3 с
количеством баллов 2. Нажимаем ОК.  Выделяем неправильные ответы и создаем для
них гиперссылки на слайд  с заданием №3 с количеством баллов 1.

12.  Переходим
к слайду с заданием № 3 с количеством баллов 0.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с заданием №4 с
количеством баллов 1. Нажимаем ОК.  Выделяем неправильные ответы и создаем для
них гиперссылки на слайд  с заданием №4 с количеством баллов 0.

13.  Переходим
к слайду с заданием № 3 с количеством баллов 1.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с заданием №4 с
количеством баллов 2. Нажимаем ОК.  Выделяем неправильные ответы и создаем для
них гиперссылки на слайд  с заданием №4 с количеством баллов 1.

14.  Переходим
к слайду с заданием № 3 с количеством баллов 2.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с заданием №4 с
количеством баллов 3. Нажимаем ОК.  Выделяем неправильные ответы и создаем для
них гиперссылки на слайд  с заданием № 4 с количеством баллов 2.

15.  Переходим
к слайду с заданием № 4 с количеством баллов 0.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с заданием №5 с
количеством баллов 1. Нажимаем ОК.  Выделяем неправильные ответы и создаем для
них гиперссылки на слайд  с заданием №5 с количеством баллов 0.

16.  Переходим
к слайду с заданием № 4 с количеством баллов 1.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с заданием №5 с
количеством баллов 2. Нажимаем ОК.  Выделяем неправильные ответы и создаем для
них гиперссылки на слайд  с заданием №5 с количеством баллов 1.

17.  Переходим
к слайду с заданием № 4 с количеством баллов 2.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с заданием №5 с количеством
баллов 3. Нажимаем ОК.  Выделяем неправильные ответы и создаем для них
гиперссылки на слайд  с заданием № 5 с количеством баллов 2.

18.  Переходим
к слайду с заданием № 4 с количеством баллов 3.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с заданием №5 с
количеством баллов 4. Нажимаем ОК.  Выделяем неправильные ответы и создаем для
них гиперссылки на слайд  с заданием № 5 с количеством баллов 3.

19.  Переходим
к слайду с заданием № 5 с количеством баллов 0.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с оценкой 2. Нажимаем
ОК.  Выделяем неправильные ответы и выбираем «вставка» , нажимаем гиперссылка,
выбираем слайд с оценкой 2

20.  Переходим
к слайду с заданием № 5 с количеством баллов 1.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с оценкой 2. Нажимаем
ОК.  Выделяем неправильные ответы и выбираем «вставка» , нажимаем гиперссылка,
выбираем слайд с оценкой 2

21.  Переходим
к слайду с заданием № 5 с количеством баллов 2.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с оценкой 3. Нажимаем
ОК.  Выделяем неправильные ответы и выбираем «вставка» , нажимаем гиперссылка,
выбираем слайд с оценкой 2

22.  Переходим
к слайду с заданием № 5 с количеством баллов 3.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с оценкой 4. Нажимаем
ОК.  Выделяем неправильные ответы и создаем для них гиперссылки на слайд  с
оценкой 3.

23.  Переходим
к слайду с заданием № 5 с количеством баллов 4.  Выделяем правильный ответ,
выбираем «вставка» , нажимаем гиперссылка, выбираем слайд с оценкой 5. Нажимаем
ОК.  Выделяем неправильные ответы и создаем для них гиперссылки на слайд  с
оценкой 4.

1. Особенности презентации:

1)
Смена слайдов должна производиться только путем выбора мышью того или иного
варианта ответа. (Смена слайда – убрать флажки у надписей “по щелчку” и
“автоматически’’ после – Применить ко всем.) Учащиеся во время пользования
презентацией не должны пользоваться клавиатурой.

2)
Созданную презентацию целесообразно сохранить в виде “демонстрации слайдов”,
чтобы начать тестирование без входа в программу Power Point.

3)
Включить в презентацию титульный слайд, на котором привести название темы, по
которой будет проходить тестирование, надпись- гиперссылку “Начать тест”.

4)
Нецелесообразно использовать в данной презентации анимационные эффекты и
звуковое оформление.

План работы:

1. Презентация состоит из слайда – титульного листа, слайдов с вопросами и
   слайда с результатом выполнения теста.
2. Титульный слайд оформляется произвольно, содержит информацию о названии
   теста, номер варианта, возможна какая-то инструкция о выполнении теста.

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

• включить панель инструментов Элементы управления.
• с помощью Надписи или другим способом
  разместить на слайде текст вопроса
• ниже надо поместить на слайде элемент управления –
  Переключатель
  для оформления вариантов ответа
• Поместить элемент управления Кнопку 
  для перехода на следующий слайд

Настройка Свойств Переключателя.

• Из контекстного меню Переключателя выбрать Свойства.
• Свойство  Caption  – текст первого варианта ответа.
• BackColor –  выберите вариант цвета фона,
• ForeColor  – цвет текста,
• Font – размер шрифта.
  Создайте  несколько копий Переключателя на
  слайде соответственно числу ответов в вопросе. Не забудьте изменить у
  каждого свойство  Caption в соответствии с вариантом ответа.

– Здесь мы разберем  создание
интерактивного теста в среде 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 шаг:

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