Мастер – класс для педагогов «Создание тестов с автоматической обработкой результатов при помощи программы MS PowerPoint»

Мастер – класс для педагогов  «Создание тестов с автоматической обработкой результатов при помощи программы MS PowerPoint»

 

          Предлагаю вашему вниманию создание интерактивного теста в среде MS PowerPoint с использованием Visual Basic for Application. Для удобства в использовании теста добавим в него функции учета количества вопросов, количества верно выполненных заданий, процента выполнения заданий и выставления оценки

          Итак, начнем по шагам:

1 шаг:

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

Например 6

1 вопрос:

Какой из перечисленных музеев находится в Москве?

а) Лувр

б) Русский музей

в) Эрмитаж

г) Третьяковская галерея

2  вопрос:

Какие цвета наиболее характерны для произведений гжельских мастеров:

а) Красный и золотой

б) Желтый и черный

в) Белый и синий

г) Оттенки зеленого.

3 вопрос:

В каком жанре создана картина И.Левитана "Золотая осень"

а) анималистический

б) пейзаж

в) батальный

г) портрет 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

Option Buttonl.Value = False OptionButton2.Value = False OptionButton3.Value = False OptionButton4. Value = False SlideShowWindows(l).View.Next

Пояснение:

Z - это счетчик выполненных заданий, т.е сколько заданий в тесте, в начале теста его обнуляем

L - счетчик верно выполненных заданий, ему тоже присваиваем ноль

N - это процентное выполнение заданий теста

If OptionButton3.Value = True Then - Здесь проверяется, если выбран третий ответ (Четверо), то счетчику верно выполненных заданий прибавляется единица, а если выбран неверный ответ, то не прибавляется

Z = Z + 1 - считается число выполненных заданий

OptionButtonl. Value = False OptionButton2. Value = False OptionButton3 .Value = False

OptionButton4.Value = False - здесь снимаются точки со всех переключателей, чтобы при следующем запуске теста не было по умолчанию выбранных ответов

SlideShowWindows(l).View.Next Это команда перехода к следующему слайду

6      шаг:

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

Z = 0

L = О

N = 0 (т.к. тест уже идет и обнулять показания не надо)

7      шаг:

Для того, чтобы кнопки работали, в проект необходимо добавить модуль с описанием переменных величин

Для этого:

-       делаем двойной щелчок по кнопке «ДАЛЕЕ» на первом слайде

-       в меню Visual Basic выбираем INSERT - MODULE,

 

 

Рис.12

- в редакторе записываем код

Public L, Z, N As Integer

 

Рис13

8 шаг:

Осталось написать код для кнопок «РЕЗУЛЬТАТ» И «ВЫХОД»

а) Сначала опишем кнопку «РЕЗУЛЬТАТ»:

 

Для этого

-       переходим на последний слайд

-       двойным щелчком по кнопке «РЕЗУЛЬТАТ» переходим в Visual Basic

-       записываем код:

Private Sub CommandButtonl_Click()

Labell.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

Пояснение к коду:

Labell.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 шаг:

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Скачано с www.znanio.ru