Создание тестов в powerpoint с помощью макросов vba
– Здесь мы разберем создание интерактивного теста в среде MS PowerPoint с использованием Visual Basic for Application. Для удобства в использовании теста добавим в него функции учета количества вопросов, количества верно выполненных заданий, процента выполнения заданий и выставления оценки
Итак, начнем по шагам:
1 шаг:
1 вопрос:
Есть на свете сеть сетей.
Очень интересно с ней.
Людям всем она нужна,
Миру очень сеть важна.
Что за сеть? Найди ответ.
Сеть зовется …
2 вопрос:
По экрану бабочка летит,
По экрану строчка бежит,
На экране падает снег,
Поток звезд осуществляет свой бег.
Это что, мультипликация?
Нет – это компьютерная
1) Анимация
2) Публикация
3) Градация
4) Облигация
3 вопрос:
Для чего же этот ящик?
Он в себя бумагу тащит,
И сейчас же буквы, точки,
Запятые – строчка к строчке –
Напечатает картинки
Ловкий мастер –
Шустрый …
1) спринтер
2) принтер
3) свитер
4) компьютер
2 шаг:
Сейчас откроем MS PowerPoint и создадим 3 слайда (на каждый вопрос 1 слайд), подберем оформление слайдов, шрифты
Рассмотрим на примере первого слайда
а) На слайде размещаем
– надпись ВОПРОС 1
– надпись с текстом вопроса
б) заходим в меню ВИД – ПАНЕЛИ ИНСТРУМЕНТОВ – ЭЛЕМЕНТЫ УПРАВЛЕНИЯ,
Берем переключатель (щелкаем на нем) и помещаем на слайд (щелкаем на слайде) – на слайде появляется переключатель
– Щелкаем правой по переключателю и выбираем раздел СВОЙСТВА
– В разделе СВОЙСТВА изменяем вид и текст на переключателе:
в) Создаем еще 3 переключателя и производим с ними такие же действия
г) Создадим кнопку. Для этого берм ее с той же панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ и помещаем ее на слайд
д) Щелкнув правой по кнопке, выбираем СВОЙСТВА и тоже изменяем вид и текст на кнопке
3 шаг:
Итак, у нас создан один слайд.
Точно так же создаем слайды 2 и 3, вставляя в них соответствующие вопросы и ответы, переключатели и кнопки
4 шаг:
Создадим последний слайд, на котором будут выводиться все результаты
а) поместим на слайде 4 элемента Label (надпись) с панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ
б) Создадим 2 кнопки:
– показать результат
– выход
5 шаг:
Итак, слайды созданы, объекты на них размещены
Приступим к описанию событий.
Для этого и используется встроенный в офисные программы фирмы Microsoft язык Visual Basic for Application (VBA).
Начнем с первого слайда:
Нам необходимо, чтобы при выборе одного из вариантов ответа и нажатии на кнопку «ДАЛЕЕ» автоматически
– считалось число выполненных заданий
– проверялся ответ, и, если он верный, то к счетчику верных заданий прибавлялась единица
– осуществлялся переход на следующий слайд (вопрос)
Откроем первый слайд. Сделаем двойной щелчок по кнопке «ДАЛЕЕ», при этом открывается редактор Visual Basic, в котором мы и будем описывать процедуры нажатия на кнопку
Здесь скажу, что у нас нет задачи изучить 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
Пояснение:
Z – это счетчик выполненных заданий, т.е сколько заданий в тесте, в начале теста его обнуляем’
L – счетчик верно выполненных заданий, ему тоже присваиваем ноль
N – это процентное выполнение заданий теста
If OptionButton3.Value = True Then – Здесь проверяется, если выбран третий ответ (Четверо), то счетчику верно выполненных заданий прибавляется единица, а если выбран неверный ответ, то не прибавляется’
Z = Z + 1 – считается число выполненных заданий’
SlideShowWindows(1).View.Next ‘Это команда перехода к следующему слайду’
6 шаг:
Аналогично открываем 2 и 3 слайды и вставляем такой же код для кнопок «ДАЛЕЕ» (можно просто скопировать код из первого слайда), однако в коде этих кнопок убираем строки
Z = 0
L = 0
N = 0 (т.к. тест уже идет и обнулять показания не надо)
7 шаг:
Для того, чтобы кнопки работали, в проект необходимо добавить модуль с описанием переменных величин
– делаем двойной щелчок по кнопке «ДАЛЕЕ» на первом слайде
– в меню Visual Basic выбираем INSERT – MODULE,
– в редакторе записываем код
Public L, Z, N As Integer
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
Пояснение к коду:
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 шаг:
На этом создание теста закончено. Запускаем его (открываем презентацию) и проверяем
Если что – то не работает, то посмотрите и измените настройки безопасности в меню СЕРВИС – МАКРОС – БЕЗОПАСНОСТЬ (возможно макросы автоматически отключаются, а наш тест основан на макросах)
Для примера я рассмотрю 3 вопроса:
- WordPad
- Word
- Photoshop
- Excel
2 шаг:
Сейчас откроем MS PowerPoint и создадим 5 слайдов (1 слайд титульный, на каждый вопрос по 1 слайду и заключительный слайд для итогов), подберем оформление слайдов, шрифты. Рассмотрим на примере первого слайда.
а) На слайде размещаем
– надпись ВОПРОС 1
– надпись с текстом вопроса
б) заходим в меню ВИД – ПАНЕЛИ ИНСТРУМЕНТОВ – ЭЛЕМЕНТЫ УПРАВЛЕНИЯ,
Берем «флажок» (щелкаем на нем) и помещаем на слайд (щелкаем на слайде) – на слайде появляется переключатель
– Щелкаем правой кнопкой мыши по флажку и выбираем раздел СВОЙСТВА
в) Создаем еще 3 флажка и производим с ними такие же действия
г) Создадим кнопку. Для этого берем ее с той же панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ и помещаем ее на слайд
д) Щелкнув правой по кнопке, выбираем СВОЙСТВА и тоже изменяем вид и текст на кнопке
3 шаг:
Итак, у нас создан один слайд. Точно так же создаем слайды 2 и 3, вставляя в них соответствующие вопросы и ответы, переключатели и кнопки
4 шаг:
Создадим по аналогии с тестом «один из..» последний слайд, на котором будут выводиться все результаты
а) поместим на слайде 4 элемента Label (надпись) с панели
б) Создадим 2 кнопки:
– посмотреть результат
– выход
5 шаг:
Итак, слайды созданы, объекты на них размещены. Приступим к описанию событий. Для этого и используется встроенный в офисные программы фирмы Microsoft язык Visual Basic for Application (VBA).
Начнем с первого вопроса. Нам необходимо, чтобы при выборе вариантов ответа и нажатии на кнопку «ДАЛЕЕ» автоматически:
– считалось число выполненных заданий
– проверялся ответ, и, если он верный, то к счетчику верных заданий прибавлялась единица
– осуществлялся переход на следующий слайд (вопрос)
Откроем первый слайд. Сделаем двойной щелчок по кнопке «ДАЛЕЕ», при этом открывается редактор Visual Basic, в котором мы и будем описывать процедуры нажатия на кнопку
Ниже мы видим окно редактора Visual Basic
Запишем следующий код:
Z =
L = 0
N = 0
If (CheckBox1.Value = True) And (CheckBox2.Value = True) And (CheckBox3.Value = False) And (CheckBox4.Value = False) Then
L = L + 1
End If
Z = Z + 1
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
SlideShowWindows(1).View.Next
Пояснение к коду:
Z = 0 – Z – это , как и в предыдущем тесте, счетчик выполненных заданий, т.е сколько заданий в тесте, в начале теста его обнуляем
L = 0 – L – счетчик верно выполненных заданий, ему тоже присваиваем ноль
N = 0 – N – это процентное выполнение заданий теста
If (CheckBox1.Value = True) And (CheckBox2.Value = True) And (CheckBox3.Value = False) And (CheckBox4.Value = False) Then
L = L + 1
End If – ‘ Здесь проверяется, если выбраны правильные ответы первый и второй и не выбраны третий и четвертый, то счетчику верно выполненных заданий прибавляется единица, а если выбран неверный ответ, то не прибавляется. Если не добавить в код ответы, которые не должны быть выбраны, тест будет работать некорректно
Z = Z + 1 ‘считается число выполненных заданий’
SlideShowWindows(1).View.Next – это команда перехода к следующему слайду
6 шаг:
Аналогично открываем 2 и 3 слайды и вставляем такой же код для кнопок «ДАЛЕЕ» (можно просто скопировать код из первого слайда), однако в коде этих кнопок убираем строки
Z = 0
L = 0
N = 0 – т.к. тест уже идет и обнулять показания не надо
7 шаг:
Для того, чтобы кнопки работали, в проект необходимо добавить модуль с описанием переменных величин
– делаем двойной щелчок по кнопке «ДАЛЕЕ» на первом слайде
– в меню Visual Basic выбираем INSERT – MODULE,
– в редакторе записываем код
Public L, Z, N As Integer
– закрываем презентацию и сохраняем изменения
8 шаг:
Осталось написать код для кнопок «ПОСМОТРЕТЬ РЕЗУЛЬТАТ» И «ВЫХОД»
а) Сначала опишем кнопку «ПОСМОТРЕТЬ РЕЗУЛЬТАТ»:
– переходим на последний слайд
– двойным щелчком по кнопке «ПОСМОТРЕТЬ РЕЗУЛЬТАТ» переходим в Visual Basic
– записываем код:
Private Sub CommandButton1_Click()
Label1.Caption = Z
Label2.Caption = L
N = (L / Z) * 100
Label3.Caption = N 'здесь
If N >= 95 Then
Label4.Caption = "Отлично"
End If
If N < 95 And N >= 70 Then
Label4.Caption = "Хорошо
End If
If N < 70 And N >= 50 Then
Label4.Caption = "Удовлетворительно"
End If
If N < 50 Then
Label4.Caption = "Плохо"
End If
Пояснение к коду:
Label1.Caption = Z – здесь выведется число выполненных заданий
Label2.Caption = L – здесь выведется число верно выполненных заданий
N = (L / Z) * 100 – рассчитывается процент выполнения заданий
Label3.Caption = N – 'здесь выводится процент выполнения заданий
If N >= 95 Then
Label4.Caption = "Отлично" – Если процент выполнения >= 95 – выводится "Отлично"
End If
If N < 95 And N >= 70 Then
Label4.Caption = "Хорошо" – Если процент выполнения от 70 до 95 – выводится "Хорошо"'
End If
If N < 70 And N >= 50 Then
Label4.Caption = "Удовлетворительно" – Если процент выполнения от 70 до 50 – выводится "Удовлетв"'
End If
If N < 50 Then
Label4.Caption = "Плохо" – Если процент выполнения ниже 50 – выводится "Плохо"
End If
б) Сейчас опишем кнопку «ВЫХОД»
Private Sub CommandButton1_Click()
Slide5.Application.Quit
End Sub
Выходим и сохраняем все изменения
9 шаг:
На этом создание теста закончено. Запускаем его (открываем презентацию) и проверяем
Если что – то не работает, то посмотрите и измените настройки безопасности в меню СЕРВИС – МАКРОС – БЕЗОПАСНОСТЬ (возможно макросы автоматически отключаются, а наш тест основан на макросах)
С момента своего появления в 1987 году программы PowerPoint положила начало новому подходу к работе с компьютерными презентациями. Была предложена концепция, в которой презентация рассматривается как единое целое, а не просто как набор отдельных слайдов. Каждая следующая версия программы вносила свой вклад в развитие этой идеи, а также в совершенствовании средств работы с презентациями
Microsoft Visual Basic — средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду разработки. Язык Visual Basic унаследовал дух, стиль и отчасти синтаксис своего предка — языка Бейсик, у которого есть немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных икомпонентно-ориентированных языков программирования. Среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса.
Visual Basic считается хорошим средством быстрой разработкипрототипов программы, для разработки приложений баз данных и вообще для компонентного способа создания программ, работающих под управлением операционных систем семейства Microsoft Windows.
Для начала покажу как включить Visual Basic в PowerPoint. В других приложениях офиса VB включается также.
На вкладке “Office” выберите пункт Параметры PowerPoint, чтобы открыть диалоговое окно .
Выберите элемент Основные в левой части диалогового окна.
В разделе Основные параметры работы с PowerPoint, расположенном справа в окне, выберите пункт Показывать вкладку “Разработчик” на ленте.
Когда вкладка Разработчик отобразится в PowerPoint, обратите внимание на то, где на этой вкладке находятся кнопки Visual Basic, Макросы и Безопасность макросов.
Рисунок 1. Вкладка "Разработчик" в PowerPoint 2010
Работа с элементами управления
На вкладке Разработчик выбирем Элементы управления.
На слайде распологаем все необходимые поля и кнопки.
Затем двойным щелчком по кнопке открываем поле для прописывания команд.
Выберите элемент Парметры макросов в левой части диалогового окна.
В разделе Параметры макросов, расположенном справа в окне, отметьте пункт Включить все макросы.
Рисунок 2. Редактор Visual Basic
Создание теста в PowerPoint с помощью VisualBasic
Создаем страницу в которой прописываем название и любую другую сопроводительную информацию.
Данную разработку можно использовать в профессиональной деятельности для преподавателей, учителей начальной школы, дошкольное образование.
Просмотр содержимого документа
«Создание интерактивных тестов в MS PowerPoint с использованием Visual Basic for Application»
Создание интерактивных тестов в MS PowerPoint c использованием Visual Basic for Application
1 шаг: Создайте презентацию и сохраните ее сразу в своей папке с поддержкой макросов
ТЕМА ТЕСТА: Развитие жизни на земле
ВОПРОСЫ К ТЕСТУ (1 вариант ответа):
1.Жизнь на планете зародилась:
1.В океане 2. В горах 3. В лесах 4. На вулканах
2.Первые живые организмы на планете появились:
1. 7 млрд лет назад 3. 500 млн лет назад
2. 3,5 млн лет назад 4. 3,5 млрд лет назад
3.Наука, изучающая ископаемые остатки вымерших организмов, называется:
1. Эволюция 2. Палеонтология 3. Экология 4. Биосфера
4.Период расцвета динозавров в истории Земли:
1.Каменноугольный 3. Юрский 2.Мелово 4. Пермский
5.Слово «динозавр» в переводе с греческого языка означает:
1.Плечистый ящер 3. Ужасный ящер
2.Ящер-разбойник 4. Трехрогий
6.Залежи каменного угля образовались в . период.
1.Каменноугольный 3. Юрский 2.Меловой 4. Пермский
7.Стегоцефал — это вымерший древний представитель:
1.Птиц 3. Млекопитающих 2.Пресмыкающихся 4. Земноводных
8. Длительный процесс исторического развития живых организмов
1. Эволюция 2. Палеонтология 3. Экология 4. Биосфера
ВОПРОСЫ К ТЕСТУ (несколько вариантов ответа):
1.500 млн лет назад в океане водились:
1. Медузы 2. Стегоцефалы 3. Трилобиты 4. Динозавры
2.К вымершим млекопитающим относятся:
1. Трилобит 2. Мамонт 3. Саблезубый тиф 4. Диплодок
3.В лесах каменноугольного периода росли:
1. Папоротники 2. Хвощи 3. Сосны 4. Дубы
4.К вымершим пресмыкающимся относятся:
1. Стегоцефал 2. Трилобит 3. Стегозавр 4. Диплодок
5.Какие вымершие пресмыкающиеся вели водный образ жизни?
1. Ихтиозавр 2. Птерозавр 3, Плезиозавр 4. Тиранозавр
Сейчас откроем MS PowerPoint и создадим первый слайд , подберем оформление слайдов, шрифты
Первый слайд должен содержать информацию о названии теста, ФИО составителя теста, графическое сопровождение(рисунки).
Рассмотрим на примере первого слайда
а) Находим картинки в тематику вопросов (динозавры, листочки, мамонты ) в PNG формате (прозрачный фон) и помещаем их на 1 слайд
б) Создаем произвольные анимации для рисунков
в) Включаем дополнительную вкладку разработчик: Для этого необходимо выполнить:
Файл – параметры – настройка ленты – поставить галочку на элементе разработчик
г) также необходимо включить макросы, для этого:
Файл – параметры – центр управления безопасностью – параметры центра управления безопасностью – включить все макросы.
д) переходим на вкладку разработчик и ознакамливаемся с элементами управления.
е) выбираем кнопку и помещаем ее на слайд. В дальнейшем эта кнопка будет отредактирована.
Создаем новый слайд, подбираем картинки для оформления 1 вопроса
Записываем вопрос, используя WordArt
Ниже добавляем элемент управления переключатель
- В разделе СВОЙСТВА изменяем вид и и текст на переключателе:
Цвет фона переключателя
Надпись на переключателе раздел CAPTION
Размер и тип шрифта
в) Создаем еще 3 переключателя и производим с ними такие же действия
г) Создадим кнопку. Для этого берем ее с той же панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ и помещаем ее на слайд
д) Вызываем контекстное меню - СВОЙСТВА и тоже изменяем вид и текст на кнопке
е) так же переходим обратно на 1 слайд и меняем кнопку на «НАЧАТЬ ТЕСТ» применяем стиль
АНАЛОГИЧНЫМ ОБРАЗОМ ОФОРМЛЯЕМ ВСЕ ВОПРОСЫ с одиночным выбором ответа
Вопросы с множественным выбором ответа оформляем с помощью элемента управления флажок.
Создадим последний слайд, на котором будут выводиться все результаты
а) поместим на слайде 4 элемента Label (надпись) с панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ
б) Создадим 2 кнопки- посмотреть результат - выход
Слайды созданы, объекты на них размещены
Приступим к описанию событий.
Для этого и используется встроенный в офисные программы фирмы Microsoft язык Visual Basic for Application (VBA).
Начнем с первого слайда:
Нам необходимо, чтобы при выборе одного из вариантов ответа и нажатии на кнопку «ДАЛЕЕ» автоматически
- считалось число выполненных заданий
- проверялся ответ, и, если он верный, то к счетчику верных заданий прибавлялась единица
- осуществлялся переход на следующий слайд (вопрос)
Откроем первый слайд. Сделаем двойной щелчок по кнопке «НАЧАТЬ ТЕСТ», при этом откроется редактор Visual Basic, в котором мы и будем описывать процедуры нажатия на кнопку.
Запишите следующий код , перехода на следующий слайд.
У вас должно получиться следующее:
Откроем второй слайд. Сделаем двойной щелчок по кнопке «ДАЛЕЕ»
Здесь скажу, что у нас нет задачи изучить VBA – это требует долгой и кропотливой работы, остановимся только на алгоритме наших действий и объяснении строк используемого кода
Ниже мы видим окно редактора Visual Basic
Запишем следующий код:
Z = 0 ( Z – это счетчик выполненных заданий, т.е сколько заданий в тесте, в начале теста его обнуляем)
L = 0 ( L – счетчик верно выполненных заданий, ему тоже присваиваем ноль)
N = 0 ( N – это процентное выполнение заданий теста)
If OptionButton1.Value = True Then (Здесь необходимо указать номер верного переключателя, номер можно посмотреть в свойствах name OptionButton1)
( Здесь проверяется, если выбран ответ первый (16 цветов), то счетчику верно выполненных заданий прибавляется единица, а если выбран неверный ответ, то не прибавляется)
Z = Z + 1 (считается число выполненных заданий)
SlideShowWindows(1).View.Next (Это команда перехода к следующему слайду)
Аналогично открываем оставшиеся слайды и вставляем такой же код для кнопок «ДАЛЕЕ» (можно просто скопировать код из первого слайда), однако в коде этих кнопок убираем строки
N = 0 (т.к. тест уже идет и обнулять показания не надо)
Так же не забывайте указывать верный вариант ответа
6 шаг:
Для вопросов с множественным вариантом ответа вставляем следующий код, учитывая то, что:
CheckBox1.Value = True – верный вариант
CheckBox2.Value = False- неверный вариант
Private Sub CommandButton1_Click()
If CheckBox1.Value = True And CheckBox2.Value = False And CheckBox4.Value = False And CheckBox3.Value = True Then L = L + 1
7 шаг:
Для того, чтобы кнопки работали, в проект необходимо добавить модуль с описанием переменных величин
- делаем двойной щелчок по кнопке «ДАЛЕЕ» на первом слайде
- в меню Visual Basic выбираем INSERT – MODULE,
- в редакторе записываем код
Public L, Z, N As Integer
Сохраните презентацию с поддержкой макросов.
Осталось написать код для кнопок «ПОСМОТРЕТЬ РЕЗУЛЬТАТ» И «ВЫХОД»
а) Сначала опишем кнопку «ПОСМОТРЕТЬ РЕЗУЛЬТАТ»:
- переходим на последний слайд
- двойным щелчком по кнопке «ПОСМОТРЕТЬ РЕЗУЛЬТАТ» переходим в Visual Basic
- записываем код:
Private Sub CommandButton1_Click()
Label4.Caption = «Отлично» ( Если процент выполнения = 75 – выводится «Отлично»)
Label4.Caption = «Хорошо» ( Если процент выполнения от 50 до 75 – выводится «Хорошо»)
End If ( Если процент выполнения от 25 до 50 – выводится «Удовлетв»)
Label4.Caption = «Плохо» ( Если процент выполнения ниже 25 – выводится «Плохо»)
б) Сейчас опишем кнопку «ВЫХОД»
Private Sub CommandButton2_Click()
Выходим и сохраняем все изменения
(Сохранить в формате
На этом создание теста закончено. Запускаем его (открываем презентацию) и проверяем
Если что – то не работает, то посмотрите и измените настройки безопасности в меню СЕРВИС – МАКРОС – БЕЗОПАСНОСТЬ (возможно макросы автоматически отключаются, а наш тест основан на макросах)
10 шаг:
При желании и наличии времени тесты можно сделать значительнее функциональнее, для этого изучайте Visual Basic for Application и пробуйте
ЗАДАНИЕ ДЛЯ САМОСТОЯТЕЛЬНОГО ВЫПОЛНЕНИЯ.
Подобрать картинки для вашего теста (на выбор любая тематика: Например: Биология – мир животных; Русский язык – предложения и др.)
Данную разработку можно использовать в профессиональной деятельности для преподавателей, учителей начальной школы, дошкольное образование.
Просмотр содержимого документа
«Создание интерактивных тестов в MS PowerPoint с использованием Visual Basic for Application»
Создание интерактивных тестов в MS PowerPoint c использованием Visual Basic for Application
1 шаг: Создайте презентацию и сохраните ее сразу в своей папке с поддержкой макросов
ТЕМА ТЕСТА: Развитие жизни на земле
ВОПРОСЫ К ТЕСТУ (1 вариант ответа):
1.Жизнь на планете зародилась:
1.В океане 2. В горах 3. В лесах 4. На вулканах
2.Первые живые организмы на планете появились:
1. 7 млрд лет назад 3. 500 млн лет назад
2. 3,5 млн лет назад 4. 3,5 млрд лет назад
3.Наука, изучающая ископаемые остатки вымерших организмов, называется:
1. Эволюция 2. Палеонтология 3. Экология 4. Биосфера
4.Период расцвета динозавров в истории Земли:
1.Каменноугольный 3. Юрский 2.Мелово 4. Пермский
5.Слово «динозавр» в переводе с греческого языка означает:
1.Плечистый ящер 3. Ужасный ящер
2.Ящер-разбойник 4. Трехрогий
6.Залежи каменного угля образовались в . период.
1.Каменноугольный 3. Юрский 2.Меловой 4. Пермский
7.Стегоцефал — это вымерший древний представитель:
1.Птиц 3. Млекопитающих 2.Пресмыкающихся 4. Земноводных
8. Длительный процесс исторического развития живых организмов
1. Эволюция 2. Палеонтология 3. Экология 4. Биосфера
ВОПРОСЫ К ТЕСТУ (несколько вариантов ответа):
1.500 млн лет назад в океане водились:
1. Медузы 2. Стегоцефалы 3. Трилобиты 4. Динозавры
2.К вымершим млекопитающим относятся:
1. Трилобит 2. Мамонт 3. Саблезубый тиф 4. Диплодок
3.В лесах каменноугольного периода росли:
1. Папоротники 2. Хвощи 3. Сосны 4. Дубы
4.К вымершим пресмыкающимся относятся:
1. Стегоцефал 2. Трилобит 3. Стегозавр 4. Диплодок
5.Какие вымершие пресмыкающиеся вели водный образ жизни?
1. Ихтиозавр 2. Птерозавр 3, Плезиозавр 4. Тиранозавр
Сейчас откроем MS PowerPoint и создадим первый слайд , подберем оформление слайдов, шрифты
Первый слайд должен содержать информацию о названии теста, ФИО составителя теста, графическое сопровождение(рисунки).
Рассмотрим на примере первого слайда
а) Находим картинки в тематику вопросов (динозавры, листочки, мамонты ) в PNG формате (прозрачный фон) и помещаем их на 1 слайд
б) Создаем произвольные анимации для рисунков
в) Включаем дополнительную вкладку разработчик: Для этого необходимо выполнить:
Файл – параметры – настройка ленты – поставить галочку на элементе разработчик
г) также необходимо включить макросы, для этого:
Файл – параметры – центр управления безопасностью – параметры центра управления безопасностью – включить все макросы.
д) переходим на вкладку разработчик и ознакамливаемся с элементами управления.
е) выбираем кнопку и помещаем ее на слайд. В дальнейшем эта кнопка будет отредактирована.
Создаем новый слайд, подбираем картинки для оформления 1 вопроса
Записываем вопрос, используя WordArt
Ниже добавляем элемент управления переключатель
- В разделе СВОЙСТВА изменяем вид и и текст на переключателе:
Цвет фона переключателя
Надпись на переключателе раздел CAPTION
Размер и тип шрифта
в) Создаем еще 3 переключателя и производим с ними такие же действия
г) Создадим кнопку. Для этого берем ее с той же панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ и помещаем ее на слайд
д) Вызываем контекстное меню - СВОЙСТВА и тоже изменяем вид и текст на кнопке
е) так же переходим обратно на 1 слайд и меняем кнопку на «НАЧАТЬ ТЕСТ» применяем стиль
АНАЛОГИЧНЫМ ОБРАЗОМ ОФОРМЛЯЕМ ВСЕ ВОПРОСЫ с одиночным выбором ответа
Вопросы с множественным выбором ответа оформляем с помощью элемента управления флажок.
Создадим последний слайд, на котором будут выводиться все результаты
а) поместим на слайде 4 элемента Label (надпись) с панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ
б) Создадим 2 кнопки- посмотреть результат - выход
Слайды созданы, объекты на них размещены
Приступим к описанию событий.
Для этого и используется встроенный в офисные программы фирмы Microsoft язык Visual Basic for Application (VBA).
Начнем с первого слайда:
Нам необходимо, чтобы при выборе одного из вариантов ответа и нажатии на кнопку «ДАЛЕЕ» автоматически
- считалось число выполненных заданий
- проверялся ответ, и, если он верный, то к счетчику верных заданий прибавлялась единица
- осуществлялся переход на следующий слайд (вопрос)
Откроем первый слайд. Сделаем двойной щелчок по кнопке «НАЧАТЬ ТЕСТ», при этом откроется редактор Visual Basic, в котором мы и будем описывать процедуры нажатия на кнопку.
Запишите следующий код , перехода на следующий слайд.
У вас должно получиться следующее:
Откроем второй слайд. Сделаем двойной щелчок по кнопке «ДАЛЕЕ»
Здесь скажу, что у нас нет задачи изучить VBA – это требует долгой и кропотливой работы, остановимся только на алгоритме наших действий и объяснении строк используемого кода
Ниже мы видим окно редактора Visual Basic
Запишем следующий код:
Z = 0 ( Z – это счетчик выполненных заданий, т.е сколько заданий в тесте, в начале теста его обнуляем)
L = 0 ( L – счетчик верно выполненных заданий, ему тоже присваиваем ноль)
N = 0 ( N – это процентное выполнение заданий теста)
If OptionButton1.Value = True Then (Здесь необходимо указать номер верного переключателя, номер можно посмотреть в свойствах name OptionButton1)
( Здесь проверяется, если выбран ответ первый (16 цветов), то счетчику верно выполненных заданий прибавляется единица, а если выбран неверный ответ, то не прибавляется)
Z = Z + 1 (считается число выполненных заданий)
SlideShowWindows(1).View.Next (Это команда перехода к следующему слайду)
Аналогично открываем оставшиеся слайды и вставляем такой же код для кнопок «ДАЛЕЕ» (можно просто скопировать код из первого слайда), однако в коде этих кнопок убираем строки
N = 0 (т.к. тест уже идет и обнулять показания не надо)
Так же не забывайте указывать верный вариант ответа
6 шаг:
Для вопросов с множественным вариантом ответа вставляем следующий код, учитывая то, что:
CheckBox1.Value = True – верный вариант
CheckBox2.Value = False- неверный вариант
Private Sub CommandButton1_Click()
If CheckBox1.Value = True And CheckBox2.Value = False And CheckBox4.Value = False And CheckBox3.Value = True Then L = L + 1
7 шаг:
Для того, чтобы кнопки работали, в проект необходимо добавить модуль с описанием переменных величин
- делаем двойной щелчок по кнопке «ДАЛЕЕ» на первом слайде
- в меню Visual Basic выбираем INSERT – MODULE,
- в редакторе записываем код
Public L, Z, N As Integer
Сохраните презентацию с поддержкой макросов.
Осталось написать код для кнопок «ПОСМОТРЕТЬ РЕЗУЛЬТАТ» И «ВЫХОД»
а) Сначала опишем кнопку «ПОСМОТРЕТЬ РЕЗУЛЬТАТ»:
- переходим на последний слайд
- двойным щелчком по кнопке «ПОСМОТРЕТЬ РЕЗУЛЬТАТ» переходим в Visual Basic
- записываем код:
Private Sub CommandButton1_Click()
Label4.Caption = «Отлично» ( Если процент выполнения = 75 – выводится «Отлично»)
Label4.Caption = «Хорошо» ( Если процент выполнения от 50 до 75 – выводится «Хорошо»)
End If ( Если процент выполнения от 25 до 50 – выводится «Удовлетв»)
Label4.Caption = «Плохо» ( Если процент выполнения ниже 25 – выводится «Плохо»)
б) Сейчас опишем кнопку «ВЫХОД»
Private Sub CommandButton2_Click()
Выходим и сохраняем все изменения
(Сохранить в формате
На этом создание теста закончено. Запускаем его (открываем презентацию) и проверяем
Если что – то не работает, то посмотрите и измените настройки безопасности в меню СЕРВИС – МАКРОС – БЕЗОПАСНОСТЬ (возможно макросы автоматически отключаются, а наш тест основан на макросах)
10 шаг:
При желании и наличии времени тесты можно сделать значительнее функциональнее, для этого изучайте Visual Basic for Application и пробуйте
ЗАДАНИЕ ДЛЯ САМОСТОЯТЕЛЬНОГО ВЫПОЛНЕНИЯ.
Подобрать картинки для вашего теста (на выбор любая тематика: Например: Биология – мир животных; Русский язык – предложения и др.)
Читайте также: