с использованием Visual Basic for Application

Выберем предмет, тему, сформулируем вопросы и зададим по 4 варианта ответов (можно и больше), из них выберем один правильный. (Для примера рассмотрим 3 вопроса из темы по информатике)

Файл - Параметры PowerPoint В разделе Настройка ленты установите галочку напротив Показывать вкладку Разработчик на ленте. 3. Перейдите в раздел Центр управления безопасностью. 4. Измените Параметры макросов в центре управления безопасностью: Включить все макросы, Доверять доступ к объектной модели проектов VBA.

ВОПРОС 1 – надпись с текстом вопроса

Есть на свете сеть сетей. Очень интересно с ней. Людям всем она нужна, Миру очень сеть важна. Что за сеть? Найди ответ. Сеть зовется … Варианты ответа: Монумент Кабинет Интернат Интернет

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

Есть на свете сеть сетей. Очень интересно с ней. Людям всем она нужна, Миру очень сеть важна. Что за сеть? Найди ответ. Сеть зовется … Варианты ответа:

Точно так же создаем слайды 2 и 3, вставляя в них соответствующие вопросы и ответы, переключатели и кнопки

Создадим последний слайд, на котором будут выводиться все результаты а) поместим на слайде 4 элемента Label (надпись)

Итак, слайды созданы, объекты на них размещены Приступим к описанию событий. Для этого и используется встроенный в офисные программы фирмы Microsoft язык Visual Basic for Application (VBA). Начнем с первого слайда: Нам необходимо, чтобы при выборе одного из вариантов ответа и нажатии на кнопку «ДАЛЕЕ» автоматически – считалось число выполненных заданий – проверялся ответ, и, если он верный, то к счетчику верных заданий прибавлялась единица – осуществлялся переход на следующий слайд (вопрос)

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

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 Внимание! Уточните по вашему тесту номер правильного OptionButton

Z – это счетчик выполненных заданий L – счетчик верно выполненных заданий N – это процентное выполнение заданий теста If OptionButton3. Value = True Z = Z + 1 – считается число выполненных заданий OptionButton1. Value = False OptionButton2. Value = False OptionButton3. Value = False OptionButton4. Value = False – здесь снимаются точки со всех переключателей, чтобы при следующем запуске теста не было по умолчанию выбранных ответов SlideShowWindows(1).View.Next Это команда перехода к следующему слайду

Аналогично открываем 2 и 3 слайды и вставляем такой же код для кнопок «ДАЛЕЕ» (можно просто скопировать код из первого слайда), однако в коде этих кнопок убираем строки Z = 0 L = 0 N = 0 (т.к. тест уже идет и обнулять показания не надо)

– делаем двойной щелчок по кнопке «ДАЛЕЕ» на первом слайде – в меню Visual Basic выбираем INSERT – MODULE

Public L, Z, N As Integer

Label1. Caption = Z Label2. Caption = L N = (L / Z) * 100 Label3. Caption = N If N >= 85 Then Label4. Caption = "Отлично" If N = 60 Then Label4. Caption = "Хорошо" If N = 30 Then Label4. Caption = "Удовлетворительно" If N < 30 Then Label4. Caption = "Плохо"

Slide5.Application.Quit ИЛИ Label1. Caption = " " Label2. Caption = " " Label3. Caption = " " Label4. Caption = " " SlideShowWindows(1).Presentation.Close (Последняя команда сбросит результаты тестирования и позволит выйти из презентации)

Сохраните созданный тест, укажите тип файла: Демонстрация PowerPoint с поддержкой макросов (формат файла будет *.ppsm).

Обнулить текстовые поля последнего слайда: На 1 вопросе добавить в код для кнопки Далее: Slide5.Label1. Caption = "" Slide5.Label2. Caption = "" Slide5.Label3. Caption = "" Slide5.Label4. Caption = ""