Kwert-soft.ru

IT Софт для ПК
0 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Как сделать интерактивный тест в powerpoint

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

div align=»center»>

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

Цели тестирования

Преимущества

Недостатки

Microsoft PowerPoint
  • Повторение и систематизация материала.
  • Возможность автоматизированной обработки результатов;
  • Возможности для дизайна (художественного оформления тестов).
  • Трудоемкость создания тестов;
  • Необходимо знать основы VBA

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

1 шаг:

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

Для примера я рассмотрю 3 вопроса:

1 вопрос: Какие программы являются Текстовыми редакторами:

  • WordPad
  • Word
  • Photoshop
  • Excel

2 вопрос: :какие грибы съедобные?

  • Мухомор
  • Белый
  • Подосиновик
  • Поганка

3 вопрос: Какие из этих веществ являются металлами?

  • Углерод
  • Алюминий
  • Цинк
  • Олово

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

CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.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 >= 95 Then
Label4.Caption = «Отлично»
End If

If N = 70 Then
Label4.Caption = «Хорошо
End If

If N = 50 Then
Label4.Caption = «Удовлетворительно»
End If

If N = 95 Then
Label4.Caption = «Отлично» – Если процент выполнения >= 95 – выводится «Отлично»
End If

If N = 70 Then
Label4.Caption = «Хорошо» – Если процент выполнения от 70 до 95 – выводится «Хорошо»‘
End If

If N = 50 Then
Label4.Caption = «Удовлетворительно» – Если процент выполнения от 70 до 50 – выводится «Удовлетв»‘
End If

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

Создание теста в 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

Далее – фрагмент кода для правильного ответа:
Sub Right()
MsgBox («Все верно»)

SlideShowWindows(1).View.Next
End Sub

Фрагменты схожи, только во втором есть переход к следующему слайду.
Для того, чтобы презентация не завершилась выходом на последнем слайде добавим для правильного ответа код:
Sub RightLast()
MsgBox («Congratulations!»)
End Sub
В итоге у нас получается следующая конструкция:

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

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

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

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

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

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

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

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

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

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

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

Шаблон для создания тестов в Power Point
материал по теме

Шаблон для создания тестов в Power Point —

Скачать:

ВложениеРазмер
shabtest.ppt253.5 КБ
instrukciya_k_shablonu_dlya_testov.doc127.5 КБ

Предварительный просмотр:

Подписи к слайдам:

Предварительный просмотр:

Шаблон для тестов в MS PowerPoint

Работает как в MS PowerPoint 2007, так и в более ранних версиях, используя огромные мультимедийные возможности этой среды. Не требует знания программирования.

Позволяет создавать как проверочные тесты, так и обучающе-контролирующие ресурсы.

Количество заданий – не менее одного, верхний предел – неизвестен (но превышает 1000).

Может содержать как слайды с заданиями (с единственным или множественным выбором), так и информационные слайды.

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

Количество вариантов ответов для выбора – от двух до шести и может быть разным на разных слайдах.

Простота и единообразие задания верных ответов и настроек, в том числе выбора требовательности к оценке и учета доли правильных ответов при множественном выборе.

Можно применять шаблоны оформления и цветовые схемы.

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

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

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

До истечения времени тестирования можно вернуться к предыдущим слайдам и исправить ответ.

Предусмотрена возможность вывода подробных итогов тестирования в скрытый текстовый файл, что позволяет проконтролировать результаты тестирования не только на рабочем месте, но и удаленно через локальную сеть, с последующей автоматической их обработкой и обобщением с помощью «Менеджера тестирования» (смотри файл MenTstPP.xls).

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

  1. в MS PowerPoint 2003 и более ранних версиях выберите Сервис – Макрос – Безопасность… – Уровень безопасности – «Низкая»;
  2. в MS PowerPoint 2007 щелкните по кнопке Office, затем по кнопкам «Параметры PowerPoint» – «Центр управления безопасностью» – «Параметры центра управления безопасностью…» и выберите с помощью переключателя «Включить все макросы».

Не пугайтесь грозных предупреждений системы безопасности MS Office, ведь у вас установлена программа антивирусной защиты [1] .

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

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

Если в классе установлен MS Office 2007, то на компьютерах учащихся представляется более целесообразным вариант настройки с надежным расположением. Для его реализации после пункта «Параметры центра управления безопасностью», необходимо выбрать «Надежные расположения» и кнопкой «Добавить новое расположение…» вызвать диалоговое окно, в котором с помощью кнопки «Обзор» указать папку для размещения тестов, а затем отметить флажок «Также доверять всем вложенным папкам».

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

Если максимальное число вариантов ответов в вашем тесте меньше шести, то лишние переключатели (или флажки ), а также заготовки для текстов ответов можно удалить.

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

Для добавления новых слайдов с заданиями слева на панели «Слайды» выделите и скопируйте нужный слайд или группу слайдов, а затем вставьте необходимое количество. Лишние слайды можно удалить.

Порядок следования слайдов можно произвольно менять с помощью сортировщика слайдов, но титульный слайд всегда должен быть первым, а слайд вывода результатов – последним.

Введите или скопируйте в соответствующие надписи задания и варианты ответов вашего теста. Лишние переключатели (флажки) и заготовки для ответов удалите. Для восстановления нечаянно удаленного элемента допускается копирование соответствующего элемента с другого слайда и вставка его из буфера обмена в нужное место.

При необходимости вставьте дополнительные иллюстрации. Распределите и скомпонуйте объекты на слайде, сделайте необходимые настройки.

Чтобы указать правильные ответы, выполните на каждом слайде с заданием двойной щелчок по кнопке «Далее» (на предпоследнем слайде она может называться «Итоги»). Оказавшись в среде Visual Basic, в соответствующей строке подпрограммы обработки нажатия на кнопку «Далее» справа от знака равенства в правильных вариантах ответов исправьте «0» на «1», а в неправильных вариантах оставьте «0». Удалять ничего не надо. Так, например, если правильный вариант ответа третий, то у вас должно получиться: v(3) = 1. В задании с множественным выбором таких исправленных строк у вас будет несколько.

Вернуться в Power Point можно с помощью панели задач, кнопки на стандартной панели Visual Basic или сочетанием клавиш Alt + F11.

Для задания настроек дважды кликните по кнопке «Начать тестирование» на первом слайде. В подпрограмме обработки нажатия на эту кнопку можно задать время тестирования в минутах. Если указать время, равное нулю, то элементы учета времени на слайдах отображаться не будут, и время тестирования в этом случае не ограничено.

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

Все настройки будут применены при запуске презентации на просмотр с первого слайда и нажатии на кнопку «Начать тестирование»:

  1. задания будут перенумерованы;
  2. на информационных слайдах сведения, касающиеся задания, будут скрыты;
  3. если время тестирования не ограничено, то будут скрыты и элементы таймера;
  4. на предпоследнем слайде надпись на кнопке «Далее» будет заменена на «Итоги».

Проверьте корректность работы теста.

Сохраните файл теста в формате демонстрации: в Power Point 2003 с расширением .pps, а в Power Point 2007 с расширением .ppsm (с поддержкой макросов).

Для создания информационного слайда удалите на слайде с заданиями все переключатели (или флажки и надпись «Выберите все правильные ответы!»). Остальные элементы, расположенные над нижней панелью, можете по усмотрению удалить или оставить. Информационные слайды также можно копировать и вставлять.

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

Здесь же вы можете установить настройки для остановки времени на информационных слайдах и вывода результатов тестирования в текстовый файл. Для этого вам потребуется заменить «0» на «1» в строках, снабженных необходимыми комментариями.

Для выравнивания и обеспечения одинаковых интервалов между объектами на слайде рекомендуется их выделить и использовать в PowerPoint 2003 на панели рисования: Рисование – Выровнять/Распределить, а в PowerPoint 2007 на ленте: Главная – Упорядочить – Разместить объекты – Выровнять.

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

Если вас не удовлетворяет расположение элементов, их размеры, цвет, шрифт, фон, переделайте по своему вкусу. При изменении размеров флажков или выборе цвета, отличного от предлагаемого в цветовой схеме, рекомендуется в режиме просмотра презентации выделить один из них так, чтобы метка в центре была видна, и, вернувшись в режим редактирования, удалить остальные. Выполнив операции видоизменения, сочетанием клавиш Alt+F8 вызвать диалоговое окно «Макрос» и, нажав на кнопку «Запуск», выполнить выделенный в верхней строке макрос «Copy_FP». На слайде появится полный комплект обновленных флажков.

Флажок желательно не разгруппировывать, но при необходимости изменения относительных размеров его элементов (например, увеличения длины подложки), эта операция допустима. Порядок компонентов при этом не меняйте. После выполнения необходимых операций флажок следует сгруппировать снова и, прежде чем воспользоваться макросом «Copy_FP», выделить его.

Чтобы обновить переключатели, поступите аналогично.

Для предотвращения доступа к сведениям о правильных ответах можно установить пароль на просмотр макросов. Для этого до сохранения файла теста:

  1. аккордом Alt + F11 перейдите в Visual Basic;
  2. выберите в меню: Tools – VBAProject Properties…;
  3. перейдите в диалоговом окне на вкладку Protection;
  4. в группе Lock Project отметьте флажок Lock Project for viewing;
  5. в группе Password to view project properties в поле Password введите пароль;
  6. повторите пароль в поле Confirm password;
  7. нажмите кнопку «OK».

1. Не удаляйте элементы, к которым в процессе выполнения теста происходит обращение из программного кода шаблона, прежде всего это надписи с числом заданий и временем тестирования на всех слайдах, кроме того:

  1. на слайдах с заданиями и информационных слайдах это надпись «Задание» и кнопка «Далее» (на предпоследнем слайде кнопка «Итоги»);
  1. на первом слайде надписи «Время тестирования» и «мин.», кнопка «Начать тестирование», а также поле для ввода фамилии и имени;
  1. на последнем слайде надписи с числом правильных ответов, процентами, оценкой и перечнем номеров заданий в которых допущены ошибки.

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

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

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

5. При очень большом количестве заданий и числе допущенных ошибок более 300 отчет об ошибках может не умещаться на экране и в строке вывода в текстовый файл.

Комаровский А. Н. kan@bk.ru

Россошанская школа-интернат
Воронежская обл.

Создание теста в Power Point с управляющими элементами

План работы:

  1. Презентация состоит из слайда – титульного листа, слайдов с вопросами и слайда с результатом выполнения теста.
  2. Титульный слайд оформляется произвольно, содержит информацию о названии теста, номер варианта, возможна какая-то инструкция о выполнении теста.
  1. Создание слайда вопроса.
  • включить панель инструментов Элементы управления.
  • с помощью Надписи или другим способом разместить на слайде текст вопроса
  • ниже надо поместить на слайде элемент управления – Переключатель для оформления вариантов ответа
  • Поместить элемент управления Кнопку для перехода на следующий слайд

Настройка Свойств Переключателя.

  • Из контекстного меню Переключателя выбрать Свойства.
  • Свойство Caption — текст первого варианта ответа.
  • BackColor — выберите вариант цвета фона,
  • ForeColor — цвет текста,
  • Font – размер шрифта.
    Создайте несколько копий Переключателя на слайде соответственно числу ответов в вопросе. Не забудьте изменить у каждого свойство Caption в соответствии с вариантом ответа.

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

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

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

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

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

По экрану бабочка летит,
По экрану строчка бежит,
На экране падает снег,
Поток звезд осуществляет свой бег.
Это что, мультипликация?
Нет – это компьютерная

Для чего же этот ящик?
Он в себя бумагу тащит,
И сейчас же буквы, точки,
Запятые – строчка к строчке –
Напечатает картинки
Ловкий мастер –
Шустрый …

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

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

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

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

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

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

– В разделе СВОЙСТВА изменяем вид и текст на переключателе:

в) Создаем еще 3 переключателя и производим с ними такие же действия

г) Создадим кнопку. Для этого берм ее с той же панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ и помещаем ее на слайд

д) Щелкнув правой по кнопке, выбираем СВОЙСТВА и тоже изменяем вид и текст на кнопке

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

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

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

а) поместим на слайде 4 элемента Label (надпись) с панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ

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

– показать результат
– выход

Итак, слайды созданы, объекты на них размещены
Приступим к описанию событий.
Для этого и используется встроенный в офисные программы фирмы 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 ‘Это команда перехода к следующему слайду’

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

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

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

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

Public L, Z, N As Integer

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

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

Для этого
– переходим на последний слайд
– двойным щелчком по кнопке «ПОСМОТРЕТЬ РЕЗУЛЬТАТ» переходим в 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 (1): практика

Читать еще:  Задания по powerpoint
Ссылка на основную публикацию
Adblock
detector