Как сделать тест в powerpoint с помощью visual basic?

Создание теста «Один из…» в MS PowerPoint с использованием Visual Basic for Application

Инструмент для составления тестов

  • Возможность автоматизированной обработки результатов;
  • Возможности для дизайна (художественного оформления тестов).

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

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

1 шаг:

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

1 вопрос:

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

  1. Монумент
  2. Кабинет
  3. Интернат
  4. Интернет

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 – считается число выполненных заданий’

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

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 = 60 Then
Label4.Caption = «Хорошо»
End If
If N = 30 Then
Label4.Caption = «Удовлетворительно»
End If
If N = 85 Then
Label4.Caption = «Отлично» – Если процент выполнения больше или равен 85 – выводится «Отлично»
End If
If N = 60 Then
Label4.Caption = «Хорошо» – Если процент выполнения от 60 до 85 – выводится «Хорошо»
End If
If N = 30 Then
Label4.Caption = «Удовлетворительно» – Если процент выполнения от 30 до 60 – выводится «Удовлетв»
End If
If N 25.03.2010

Создание интерактивных тестов в MS PowerPoint c использованием Visual Basic for Application

Устанавливая рекомендуемое программное обеспечение вы соглашаетесь
с лицензионным соглашением Яндекс.Браузера и настольного ПО Яндекса .

Курс повышения квалификации за 340 рублей!

Эмоциональное выгорание педагогов. Профилактика и способы преодоления

Выбранный для просмотра документ ПРИМЕР.ppt

Международные дистанционные олимпиады «Эрудит III»

Доступно для всех учеников
1-11 классов и дошкольников

Рекордно низкий оргвзнос

по разным предметам школьной программы (отдельные задания для дошкольников)

Идёт приём заявок

Описание презентации по отдельным слайдам:

@ Краснополянская школа № 1 Домнин Константин Михайлович 2006 год ТЕСТ по теме «КОДИРОВАНИЕ ГРАФИКИ» 1 вариант

Читать еще:  Как сделать точку перед текстом в powerpoint?

Если для кодирования одного пикселя использовать 4 бита, то количество цветов в картинке равно ВОПРОС 1

Какова глубина цвета в битах рисунка с 256 цветами ВОПРОС 2

Графический файл имеет глубину цвета 3 байта. Сколько цветов имеет картинка изображения ВОПРОС 3

РЕЗУЛЬТАТ Всего заданий выполнено…….. Выполнено верно……………….. Процент выполнения…………… Оценка………………………………

Выбранный для просмотра документ Создание тестов в MS PowerPoint с использованием VBA.doc

Создание интерактивных тестов в MS PowerPoint c использованием Visual Basic for Application

Эта статья для всех учителей (не только учителей информатики), которые хотят быстро и просто создавать свои тесты и использовать их для проверки знаний своих учеников

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

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

то количество цветов в картинке равно:

Рассмотрим на примере первого слайда

а) На слайде размещаем

— надпись с текстом вопроса

б) заходим в меню ВИД – ПАНЕЛИ ИНСТРУМЕНТОВ – ЭЛЕМЕНТЫ УПРАВЛЕНИЯ,

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

— Щелкаем правой по переключателю и выбираем раздел СВОЙСТВА

— В разделе СВОЙСТВА изменяем

вид и вид и текст на переключателе:

Цвет фона переключателя

Надпись на переключателе

Размер и тип шрифта

Цвет шрифта

в) Создаем еще 3 переключателя

и производим с ними такие же

г)Создадим кнопку. Для этого берм

ее с той же панели ЭЛЕМЕНТЫ

УПРАВЛЕНИЯ и помещаем ее на

д) Щелкнув правой по кнопке,

выбираем СВОЙСТВА и тоже

изменяем вид и текст на кнопке

Итак, у нас создан один слайд.

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

а) поместим на слайде 4 элемента Label (надпись) с панели

б) Создадим 2 кнопки:

Итак, слайды созданы, объекты на них размещены

Приступим к описанию событий.

Для этого и используется встроенный в офисные программы фирмы Microsoft язык Visual Basic for Application ( VBA ).

Начнем с первого слайда:

Нам необходимо, чтобы при выборе одного из вариантов ответа и нажатии на кнопку «ДАЛЕЕ» автоматически

— считалось число выполненных заданий

— проверялся ответ, и, если он верный, то к счетчику верных заданий прибавлялась единица

— осуществлялся переход на следующий слайд (вопрос)

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

Здесь скажу, что у нас нет задачи изучить VBA – это требует долгой и кропотливой работы, остановимся только на алгоритме наших действий и объяснении строк используемого кода

Ниже мы видим окно редактора Visual Basic

Запишем следующий код :

If OptionButton1.Value = True Then

( Здесь проверяется, если выбран ответ первый (16 цветов), то счетчику верно выполненных заданий прибавляется единица, а если выбран неверный ответ, то не прибавляется)

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

( Здесь снимаются точки со всех переключателей, чтобы при следующем запуске теста не было по умолчанию выбранных ответов)

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

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

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

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

Public L, Z, N As Integer

— закрываем презентацию и сохраняем изменения

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

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

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

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

Private Sub CommandButton1_Click()

Label 1. Caption = Z

Label 2. Caption = L

Label 3. Caption = N

б) Сейчас опишем кнопку «ВЫХОД»

Private Sub CommandButton2_Click()

Выходим и сохраняем все изменения

На этом создание теста закончено. Запускаем его (открываем презентацию) и проверяем

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

При желании и наличии времени тесты можно сделать значительнее функциональнее, для этого изучайте Visual Basic for Application и пробуйте

И последнее : Данный тест можно взять за основу для разработки своих тестов, добавляя количество вопросов и ответов (просто копируя слайды и меняя их содержание)

К статье приложен пример той презентации, которую мы здесь разбирали (файл ПРИМЕР. ppt ) – чтобы посмотреть коды кнопок

— надпись ВОПРОС 1

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

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

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

N = 0 ( N – это процентное выполнение заданий теста)

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

(Для примера я рассмотрю 3 вопроса из темы по информатике «Кодирование графики»

Сейчас откроем MS PowerPoint и создадим 3 слайда (на каждый вопрос 1 слайд), подберем оформление слайдов, шрифты

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

1 вопрос: Если для кодирования одного пикселя использовать 4 бита,

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

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

3 вопрос: Графический файл имеет глубину цвета 3 байта. Сколько цветов имеет картинка изображения

Label 4. Caption = «Отлично» ( Если процент выполнения >= 75 – выводится «Отлично»)

End If ( Если процент выполнения от 25 до 50 – выводится «Удовлетв»)

Label 4. Caption = «Хорошо» ( Если процент выполнения от 50 до 75 – выводится «Хорошо»)

2 вопрос: Какова глубина цвета в битах рисунка с 256 цветами

Устанавливая рекомендуемое программное обеспечение вы соглашаетесь
с лицензионным соглашением Яндекс.Браузера и настольного ПО Яндекса .

Добавляйте авторские материалы и получите призы от Инфоурок

Еженедельный призовой фонд 100 000 Р

  • Шигина Юлия Сергеевна
  • Написать
  • 1646
  • 07.04.2017

Номер материала: ДБ-333167

Международные дистанционные олимпиады «Эрудит III»

Доступно для всех учеников
1-11 классов и дошкольников

Рекордно низкий оргвзнос

по разным предметам школьной программы (отдельные задания для дошкольников)

Читать еще:  Как сделать смену картинок на одном слайде в powerpoint?

Идёт приём заявок

Устанавливая рекомендуемое программное обеспечение вы соглашаетесь
с лицензионным соглашением Яндекс.Браузера и настольного ПО Яндекса .

  • 07.04.2017
  • 557
  • 07.04.2017
  • 972
  • 07.04.2017
  • 1287
  • 07.04.2017
  • 457
  • 07.04.2017
  • 326
  • 07.04.2017
  • 554
  • 07.04.2017
  • 325

Не нашли то что искали?

Вам будут интересны эти курсы:

Все материалы, размещенные на сайте, созданы авторами сайта либо размещены пользователями сайта и представлены на сайте исключительно для ознакомления. Авторские права на материалы принадлежат их законным авторам. Частичное или полное копирование материалов сайта без письменного разрешения администрации сайта запрещено! Мнение редакции может не совпадать с точкой зрения авторов.

Ответственность за разрешение любых спорных моментов, касающихся самих материалов и их содержания, берут на себя пользователи, разместившие материал на сайте. Однако редакция сайта готова оказать всяческую поддержку в решении любых вопросов связанных с работой и содержанием сайта. Если Вы заметили, что на данном сайте незаконно используются материалы, сообщите об этом администрации сайта через форму обратной связи.

Как создать тест в PowerPoint?

Создание теста в powerpoint

Такие тесты можно создавать в PowerPoint с помощью Visual Basic . И это не очень сложно, как могут подумать многие. Даже если есть полное непонимание принципов программирования код можно, в конце концов, просто взять и вставим.

Об этом пойдет речь в уроке. В конце статьи — демонстрационный файл с готовым тестом.

Шаг 1: Создание слайдов с вопросом и несколькими вариантами ответов

Первый шаг заключается в создании нескольких слайдов с вопросами. В заголовке слайда введите вопрос. Введите первый вопрос в заголовке заполнителя. Перейдите в автофигуры и в разделе « Управляющие кнопки » выберите « Управляющая кнопка: настраиваемая »:

Щелкните по слайду. Появится диалоговое окно « Настройка действия » и кнопка. Окно закройте щелкнув « Отмена » а кнопку разместите в нужное место, задав ей размер с учетом того, что туда будет вставлен текст. Щелкните по кнопке правой кнопкой мыши для вызова контекстного и выберите « Изменить текст ».

Появится курсор ввода текста. Введите туда правильный вариант ответа. Продублируйте кнопку два раза и измените текст на неправильные варианты ответа. Таким образом сделайте еще два слайда. Должно получится несколько слайдов примерно такого вида:

Шаг 2: Создание макросов

Когда слайды с вопросами и ответами готовы, можно переходить к созданию макросов. Для этого непосредственно в PowerPoint будем использовать редактор Visual Basic .

В PowerPoint 2007 и и более поздних версиях для перехода в редактор необходимо сначала открыть еще один пункт меню – « Разработчик » (по умолчанию, он не отображается.) Для этого проделаем следующие шаги.
1. Откроем меню « Настройка панели быстрого доступа » — « Другие команды »:

2. В диалоговом окне «Параметры PowerPoint» выбираем пункт « Основные » и ставим галочку « Показывать вкладку «Разработчик» на ленте »:

3. Переходим во вкладку « Разработчик » и выбираем « Visual Basic »:

Редактор откроется в новом окне. Мы создадим три макроса.
Щелкаем « Insert » — « Module »:

И вставляем код для неправильного ответа:

Sub Wrong()
MsgBox («Ответ неверный. Попробуйте еще раз»)
End Sub

Далее – фрагмент кода для правильного ответа:

Фрагменты схожи, только во втором есть переход к следующему слайду.

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

В итоге у нас получается следующая конструкция:

Шаг 3: Подключение макросов для кнопок

Перейдем из редактора VBA в PowerPoint. Для щелкаем по значку « View Microsoft PowerPoint »:

Редактор Visual Basic отставим открытым в фоновом режиме. В PowerPoint сохраним презентацию, это коснется и макросов. Сохраняем как презентацию с поддержкой макросов:

Переходим к кнопке с правильным ответом. Щелкните правой кнопкой мыши на кнопку и выберите « Гиперссылка » из контекстного меню:

Появится диалоговое окно « Настройка действия ». Выберите « Запуск макроса » — « Right ». Таким образом, мы подключили фрагмент кода для правильного ответа к кнопке.

Такую же процедуру проделаем для всех кнопок « Неправильный ответ », только подключаем макрос « Wrong ».

Прежде чем перейти к оставшимся слайдам и назначить соответствующие макросы на кнопках этих слайдов, проверьте работоспособность кнопок на первом слайде. Для этого запустите презентацию в режим просмотра и нажмите на неправильный ответ. Должно появиться сообщение « Ответ неверный. Попробуйте еще раз ». Нажмите OK, чтобы закрыть окно:

Проверьте другие неправильные ответы на слайде, чтобы убедиться, что они также работают. Наконец, выберите правильный ответ. На этот раз, текстовое поле сообщение должно означать, что вы выбрали правильный ответ. Нажмите кнопку ОК и слайд-шоу автоматически перейдет к следующему слайду:

Если первый слайд работает нормально то проверьте остальные. На последнем слайде, назначьте для правильного ответа макрос « RightLast », чтобы по завершении слайда остаться на последнем слайде.

Для правильного ответа на последнем слайде мы должны получить сообщение «Поздравляем!» и остаться на этом слайде после нажатия кнопки «Ок»:

Шаг 4: Финальные настройки

Для предотвращения пропуска в тесте вопросов без ответов выберите « Показ слайдов » — « Настройка демонстрации ». В диалоговом окне « Настройка демонстрации» выберете «автоматический (полный экран) ». Нажмите кнопку ОК. Эта установка дает возможность выйти из презентации только по клавише «ESC».

Теперь перейдите в режиме слайд-шоу и проверьте тест. Убедитесь, что все работает правильно. Обратите внимание! При запуске файла с макросом, Вы можете получить предупредительное сообщение о том, что файл содержит макросы. Это сделано в целях безопасности. Для того, чтобы макросы работали, необходимо выбрать » Включить это содержимое «.

Практическое производственное обучение / лабы / 1_PowerPoint / Учебные материалы PowerPoint / Лаб_11_VBA_PowerPoint_для создания теста

Разработчик: Болгарина Е.В.

Лабораторная работа 11

Использование VBA и PowerPoint для создания теста

Компьютерное тестирование является одним из средств автоматизации контроля результатов обучения. В данной работе представлена технология создания компьютерного теста в программе презентационной графики Microsoft PowerPoint с

использованием Visual Basic for Applications (VBA).

Создание тестовых заданий самим преподавателем — гибкий и эффективный инструмент, который дает возможность выявить результаты усвоения разных компонентов содержания образования, эффективно и оперативно контролировать уровень овладения различными видами учебной деятельности по теме, разделу, курсу.

Создание слайдов для теста

Для примера создадим тест по информатике.

1. Запустите программу PowerPoint.

2. Если в панелях инструментов отсутствует панель Элементы управления , то ее следует активизировать в настройках вкладку Разработчик (Файл – Параметры – Вкладки) .

Читать еще:  Как сделать озвученную презентацию с помощью программы powerpoint?

Рис. 1. Показать панель Элементы управления

3. Выберите низкий уровень безопасности макросов командой Файл -> Параметры ->

Центр управления безопасностью -> Параметры центра управления безопасностью -> Включить макросы .

4. При создании любого нового слайда выбирайте команду Макеты содержимого ->

Пустой слайд (рис. 1).

5. На слайде 1 (рис. 2) создайте титульный лист (укажите тему теста, курс и т.д.).

Разработчик: Болгарина Е.В.

Оформление титульного листа производится стандартными приемами PowerPoint. Можно использовать панель Рисование , инструмент Надпись (рис. 4).

Рис. 3. Панель Рисование

6. На слайде 2 разместите вопросы теста и варианты ответа (рис. 4).

6.1. Выберите инструмент Надпись На панели Рисование и введите вопрос, например: «Укажи устройства ввода».

Разработчик: Болгарина Е.В.

6.2. Для того чтобы ввести ответы, воспользуйтесь панелью Элементы управления . Для выбора нескольких верных ответов используйте элемент Флажок , для выбора одного верного ответа используйте элемент Переключатель (рис. 5).

Рис. 5. Элементы управления

По нашему сценарию на первый вопрос теста предполагается два верных ответа — «клавиатура» и «Микрофон».

Выберите элемент Флажок (CheckBox) . Удерживая нажатой левую кнопку мыши, растяните рамку на слайде. На слайд будет помещен элемент CheckBox1 (рис. 6).

Рис. 6. Элемент CheckBox1 на слайде

Задайте свойства объекта CheckBox1 в панели Свойства (Properties) , которая появляется автоматически (если ее нет, щелкните на элементе Свойства панели

Элементы управления (рис. 5)).

Выберите Свойство Caption и впишите слово «Процессор», удалив слово CheckBox1

Разработчик: Болгарина Е.В.

Рис. 7. Свойства элемента CheckBox1

Слово «Процессор» появится на слайде. Измените свойство Name , вписав произвольное имя, например V1 (менять имя необязательно) (рис. 7).

Аналогично поместите на слайд еще два элемента Флажек (CheckBox) — CheckBox2 и CheckBox3 — и задайте для них в строке Caption ответы «Клавиатура» и «Микрофон». При желании можно изменить свойство Font (шрифт), задав размер шрифта 14, жирный. 7. Поместите на слайд элемент управления Кнопка (CommandButton) и подпишите его «Дальше» (рис. 8).

Рис. 8. Элемент CommandButton1 (кнопка «Дальше»)

Кнопка понадобится для перехода к следующему слайду.

7.1. Щелкните на элементе Кнопка (CommandButton) на панели Элементы управления

Разработчик: Болгарина Е.В.

(рис. 5), растяните на слайде прямоугольник, изображающий кнопку.

7.2. Выберите в панели Properties свойство Caption для элемента CommandButton1 и

введите слово «Дальше» (рис. 8).

8. Для командной кнопки «Дальше» следует ввести программный код. Он необходим для подсчета количества верных ответов и перехода к следующему слайду.

8.1. Двойным щелчком на кнопке «Дальше» передите в окно написания программного кода (рис. 9).

Рис. 9. Программный код для кнопки «Дальше» ( CommandButton1 )

8.2. Введите команды в заготовку процедуры между строками Private Sub и End Sub .

k — переменная, которая будет увеличиваться на 1 при каждом верном ответе. Переменная k должна быть объявлена как глобальная, чтобы она могла быть использована в кодах всех слайдов. В окне VBA добавьте модуль: выбирете команду Insert , Module и в появившемся окне кода модуля введите команду (рис. 10):

Public k As Integer

Р ис. 10. Окно кода модуля

8.2.2. Вернитесь в окно написания кода для слайда 2 (рис. 9). (Переходы из окон кода на слайды презентации и наоборот можно осуществить через панель задач.)

8.2.3. Введите команду, которая проверяет правильность установки флажков тестируем:

If V1.Value = False And V2.Value = True And V3.Value = True Then k = k + 1 (рис. 9).

Команда должна быть записана в одну строку.

Если значению V2 («Клавиатура») и V3 («Микрофон») соответствует True (истина), т.е. отвечающий галочкой отметил эти элементы, а V1 («Процессор») имеет значение False

Разработчик: Болгарина Е.В.

(ложь), т.е. «не нажат», — галочка отсутствует, — то к переменной k прибавляется 1, тестируемый дал верный ответ. Иначе ничего не происходит.

8.2.4. Далее подготовим флажки к новому (повторному) запуску теста, «очистим» от введенных значений:

V1.Value = False V2.Value = False V3.Value = False

8.2.5. Последняя команда осуществит переход к следующему слайду:

9. Слайд 3 (рис. 11).

Поместите на слайд вопрос «Выбери устройства вывода». Среди ответов предлагается только один верный — «Принтер». В данном случае можно использовать элемент упраления Переключатель (OptionButton) (рис. 5). Помещаем на слайд три варианта ответа. Аналогично тому, как это было сделанно для слайда 2 (см. п. 6), растягиваем рамки OptionButton1 , OptionButton2 , OptionButton3 и вводим слова-ответы

«Процессор», «Принтер», «Клавиатура» в свойстве Caption панели Properties . Свойство Name не изменяем, экономия время.

10. Поместите на слайд 3 элемент управления Кнопка (CommandButton) и дайте ему имя «Дальше» (аналогично п. 7). Двойным щелчком на кнопке перейдите в окно написания программного кода процедуры (рис. 12).

If OptionButton2.Value=True Then k = k + 1 OptionButton1.Value=False OptionButton2.Value=False OptionButton3.Value=False SlideShowWindows(1).View.Next

Разработчик: Болгарина Е.В.

Рис. 12. Программный код для кнопки «Дальше» слайда 3

11. Слайд 4 (рис. 13) создайте аналогично слайду 2.

12. На слайде 5 будут выводится результаты тестирования (Рис. 14).

Разработчик: Болгарина Е.В.

12.1. Установите командную кнопку Результат (CommandButton1).

12.2. Инструментом Надпись панели Рисование введите текст «Верных ответов» и «Оценка».

12.3. Поместите на слайд два элемента управления Надпись (Label) (рис. 15).

Рис. 15. Элемент управления Надпись

Не путайте элемент управления Надпись с инструментом Надпись панели Рисование! Поместите элемент Label1 напротив надписи «верных ответов» и Label2 напротив надписи «Оценка» (рис. 14).

12.4. Двойным щелчком на кнопке «Результат» Перейдите в окно написания кода (рис.

If k = 3 Then Label2.Caption = 5 If k = 2 Then Label2.Caption = 4 If k = 1 Then Label2.Caption = 3 If k = 0 Then Label2.Caption = 2

12.5. Поместите на слайд кнопку «Дальше» (CommandButton2) .

12.6. Введите командный код для кнопки «Дальше»:

12.7. Задайте команду перехода к следующему слайду:

Разработчик: Болгарина Е.В.

Рис. 16. программный код слайда 5

13. На слайде 6 осуществите выход из презентации стандартным образом.

13.1. Разместите на слайде любую информацию, например слово «Выход» (рис. 17).

13.2. Щелкните правой кнопкой мыши на слове «Выход». В появившемся контекстном меню выберите команду Настройка действия , на вкладке По щелчку мыши — пункт

Перейти по гиперссылке и в списке — Завершить показ (рис. 18).

Разработчик: Болгарина Е.В.

Рис. 18. Окно Настройка действия

14. Показ слайдов можно запустить клавишей F5. Получаем результат (рис. 19).

Рис. 19. Слайд 5 в режиме показа

Возможности PowerPoint позволяют создавать эффекты анимации, размещать на слайдах графические объекты, видеоролики и т.д., что делает работу с тестом интересной, увлекательной, в процессе тестирования обучаемой продолжает учиться.

Самостоятельно:

Доработайте тест по информатике до полноценной версии, добавив на него графику, включив элементы

Ссылка на основную публикацию
Adblock
detector