Занятие 4. Создание интерактивных тестов в среде Power Point

Элементы объектно-ориентированного программирования в MS Office

Постановка задачи, знакомство с панелью инструментов Visual Basic и активными элементами

Visual Basic for Application (VBA) – это сочетание одного из самых простых языков программирования и всех мультимедийных возможностей приложений MS Office. VBA относится к языкам объектно-ориентированного программирования. Объект позволяет рассматривать данные вместе с кодом, предназначенным для их обработки. Каждый объект имеет ряд свойств, которые можно изменять как непосредственно на экране, так и в специальном окне свойств, т.е. применять технологию визуального программирования. Событие представляет собой действие, распознаваемое объектом (например, щелчок мышью или нажатие клавиши), для которого можно запрограммировать отклик. Суть программирования VBA как раз и заключается в этих двух понятиях: событие и отклик на него. Если пользователь производит какое-то воздействие на систему, например, нажимает кнопку, тогда в качестве отклика выполняется код созданной пользователем процедуры. Если такой отклик не создан, т.е. не написана соответствующая процедура, то система никак не реагирует на данное событие. Таким образом, действия, происходящие в системе, являются событиями, а отклики на них – процедурами.

Задание: создать презентацию, с тестовой формой контроля знаний. Презентация должна содержать вопросы с выбором только одного правильного ответа. Пример возможного теста представлен на рисунке. Количество вопросов в презентации — 5. Алгоритм работы 1. Для создания слайда вопроса надо — с помощью инструмента Надписьразместить на слайде текст вопроса. — включить панель инструментов Visual Basic командой Вид – Панели инструментов - Visual Basic.Панель элементов показана на рисунке. - — поместить на слайде элемент управления – Переключатель для оформления вариантов ответа. - 2. Настроить Свойства Переключателя. Для этого: — щелкнуть по переключателю правой кнопкой мыши и из контекстного меню Переключателя выбрать Свойства. — Свойство Caption - текст первого варианта ответа (в данном случае — острый). — BackColor - вариант цвета фона, — ForeColor - цвет текста, — Font – размер шрифта. 3. Создать несколько копий Переключателя на слайде соответственно числу ответов в вопросе. Не забудьте изменить у каждого свойство Caption в соответствии с вариантом ответа. 4. Поместить элемент управления Кнопку для перехода на следующий слайд. 5. Настроить Свойства Кнопки. Для этого: Измените Свойства Кнопки: Свойство Caption – текст Дальше. С помощью свойств ForeColor и Font настройте цвет и размер шрифта. 6. Создать код для кнопки. Для этого двойным щелчком по кнопке переходим в окно написания кода. Редактор Visual Basic запускается двойным щелчком по объекту (кнопке) или нажатием соответствующей криптограммы на панели инструментов. Двойной щелчок предпочтительнее, т.к. редактор кода обладает некоторыми интеллектуальными возможностями, что значительно облегчает написание программ. Двойной щелчок на выбранном элементе открывает окно кода уже с именем процедуры в виде: Private Sub CommandButton1_Click()   End Sub где CommandButton1 – имя процедуры, Click – действие, откликом на которое является эта процедура (нажатие кнопки мыши). (Внимание! Текст в скобках писать не надо. Это просто пояснения кода).   Private Sub CommandButton1_Click() K=0 If OptionButton2.Value = True Then {если пользователь выбрал 2 ответ} K = K + 1 {наращиваем счетчик правильных ответов} End If OptionButton1.Value = False {всем кнопкам, что есть на слайде свойство Состояние делаем False, чтобы при возврате на слайд из ответа исчезла точечка} OptionButton2.Value = False OptionButton3.Value = False SlideShowWindows(1).View.Next {переходим на следующий слайд} End Sub 7. Переменная К должна быть объявлена как глобальная, чтобы могла быть использована в коде всех слайдов. Для этого надо - открыть окно VBA: Сервис, Макрос, Редактор Visual Basic; - в окне VBA надо добавить модуль в среде: Insert – Module; -в окне кода модуля написать код: Public K as Integer   8. Для ускорения процесса создания новых слайдов, можно использовать операцию копирования с последующим исправлением текстов вопроса, ответов и кода кнопки. Код K=0 надо писать только на первом слайде. Не забудьте исправить номер переключателя в условии оператора If , чтобы он соответствовал правильному ответу. В данном примере кода правильный ответ 2.   9.Создать слайд с результатами теста. На последнем слайде следует разместить два компонента VBA: Надпись и кнопку. В Надписи будет записано число правильных ответов. Кнопка будет вызывать запись числа правильных ответов в поле Надпись. — Поместите элемент управления Кнопка . Настроите Свойства Кнопки. Для этого: Свойство Caption – Проверить. С помощью свойств ForeColor и Font настройте цвет и размер шрифта. —Создайте код для кнопки. Для этого двойным щелчком по кнопке перейдите в окно написания кода. Код для кнопки: Private Sub CommandButton1_Click() Label1.Caption = K End Sub — Для создания надписи используйте элемент .

Не нашли, что искали? Воспользуйтесь поиском по сайту: