С использованием Visual Basic for Application. Выберем предмет, тему, сформулируем вопросы и зададим по 4 варианта ответов (можно и больше), из них выберем. - презентация

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

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

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

4

5

6

7

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

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

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

11

12

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

14

15

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

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

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

19

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

21

22 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

23 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 Это команда перехода к следующему слайду

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

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

26 Public L, Z, N As Integer

= 85 Then Label4. Caption = "Отлично" If N = 60 Then Label4. Caption = "Хорошо" If N = 30 Then Label4. Caption = "Удовлетворительно" If N < 30 Then Label4. Caption = " class="link_thumb"> 27 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 = "Плохо" = 85 Then Label4. Caption = "Отлично" If N = 60 Then Label4. Caption = "Хорошо" If N = 30 Then Label4. Caption = "Удовлетворительно" If N < 30 Then Label4. Caption = ">

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

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

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

31