Просмотр содержимого документа
«Мастер – класс «Создание интерактивных тестов в Power Point»»
Мастер – класс «Создание
интерактивных тестов
вPower Point»
БАХИТОВА ГЕЛЮСЯ ИЛЬГИЗЯРОВНА
Учитель информатикиМБОУ «Лицей-интернат (школа для одаренных детей) г. Буинска Республики Татарстан»
По назначению тесты могут применяться как:
входное тестирование
контрольное тестирование
промежуточное тестирование
аттестационное тестирование.
Методы контроля
«Проверка за компьютером»
«Проверка за столом»
это использование тестов, что дает возможность оценивать уровень соответствия сформированных знаний, умений и навыков учащихся на уроках
включает различные формы и методы, используемые учителем, а также специфические методы контроля
Для создания интерактивных тестов вMS
Power Pointдолжно быть окно «Разработчик»
на панели (ленте) инструментов
Для появления окна «Разработчик»
(вOffice 2007)на панели инструментов надо:
1. Левой 1 раз на кнопке «Offiсe»
2. Левой 1 раз на кнопке «ПараметрыPower
Point» (кнопка внизу левая)
3. Левой 1 раз на кнопке: Показывать вкладку
«Разработчик» на ленте. Нажать ОК.
Для появления аналогичных команд в
Оffice 2003надо в окне «Сервис» выбрать:
команды
категория
элементы управления, затем в
командах выбрать и «вытащить» на
панель инструментов:
Переключатель
Кнопка
Надпись
ОткрываемMSPowerи создаём слайды
(столько слайдов, сколько вопросов в тесте)
На слайде размещаем:
Надпись ВОПРОС 1
Надпись с текстом вопроса
1 раз левой на окно «Разработчик»
Находим «Элементы управления»
1 раз левой на «переключателе»
и помещаем на слайд (щёлкаем на слайде
левой 1 раз)
На слайде появился переключатель
Щёлкаем правой 1 раз по переключателю
и выбираем СВОЙСТВА
●
В разделе
СВОЙСТВА задаём
вид и текст на
переключателе
Цвет фона
Надпись
Размер, тип шрифта
Цвет шрифта
Переключателей создаём столько, сколько
вариантов ответов содержит вопрос и
производим с ними такие же действия
Создаём кнопку
Берём её с той же панели элементов
Щёлкнув правой по кнопке выбираем
СВОЙСТВА и тоже задаём вид, текст
на кнопке
Точно так же создаём другие слайды
(столько слайдов, сколько вопросов в тесте)
Вопрос 1
Создаём последний слайд, на котором будут
выводиться все результаты
Поместим на
слайде 4
элемента Label
( надпись )
с панели
«Элементы
управления»
Создадим 2 кнопки:
•Посмотреть результат• Выход
7
Итак, слайды созданы, объекты размещены
Приступаем к описанию событий.
Для этого используется встроенный в офисные
программы фирмы Microsoft язык Visual Basic
for Application (VBA)
Начнём с первого слайда. Сделаем двойной
щелчок по кнопке «Далее», открывается
редактор Visual Basic , в котором будем
описывать процедуры нажатия на кнопку используем готовый алгоритм
Видим окно редактора Visual Basic
Запишем код:
Z = 0
L = 0
N = 0
Z – счётчик выполненных заданий, т. е. сколько заданий
в тесте, в начале теста его обнуляем
L – счётчик верно выполненных заданий, ему тоже
присваиваем ноль
N – процентное выполнение заданий теста
Номер правильного
ответа на слайде
(у каждого слайда
свой номер)
If OptionButton1. 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 = 0
L = 0
N = 0
(так как тест идёт и обнулять показания не надо)
Для того, чтобы кнопки работали, необходимо
добавить модуль с описанием переменных величин
Делаем двойной щелчок по кнопке «Далее» на 1 слайде
В меню Visual Basic выбираем INSERT – MODULE,
в редакторе записываем код
Public L, Z, N As Integerсохраняем изменения
Осталось написать код для кнопок «ПОСМОТРЕТЬ
РЕЗУЛЬТАТ» и «ВЫХОД»
Сначала опишем кнопку «ПОСМОТРЕТЬ
РЕЗУЛЬТАТ»
Переходим на последний слайд
Двойным щелчком по кнопке «ПОСМОТРЕТЬ
РЕЗУЛЬТАТ» переходим в Visual Basic
Записываем код:
Private Sub CommandButton1_Clik()
Label1.Caption=Z
Label2.Caption=L
N=(L/Z)*100
Label3.Caption=N
=75 Then Label4.Caption= «Отлично» End If IfN=50Then Label4.Caption= «Хорошо» End If IfN= 25 Then Label4.Caption= «Удовлетворительно» End If IfNLabel4.Caption= «Плохо» End If End Sub" width="640"