Использование VBA для тестового контроля знаний
Компьютерное тестирование является одним из средств автоматизации контроля результатов обучения. Для его осуществления можно использовать сервисные средства педагогической ориентации, разработанные специально для тестовой формы контроля. Однако готовые программные оболочки позволяют вводить только запраграммированные задания, чаще одной и той же формы, и не всегда отвечают требованиям преподавателя.
В данной статье представленна технология создания компьютерного теста в программе презентационной графики Microsoft PowerPoint с использованием Visual Basic for Applications (VBA). Создание тестовых заданий самим преподавателем - гибкий и эффективный инструмент, который дает возможность выявить результаты усвоения разных компонентов содержания образования, эффективно и оперативно контролировать уровень овладения различными видами учебной деятельности по теме, разделу, курсу.
Итак, рассмотрим последовательность действий, необходимых для создания теста. Для примера возьмем вопросы по информатике.
1. Запустите программу PowerPoint.
2. Если в панелях инструментов отсутствует панель Элементы управления, то ее следует поместить на экран коммандой Вид -> Панели инструментов -> Элементы упраления (рис. 1)
Рис. 1. Показать панель Элементы управления
3. Выберите низкий уровень безопасности макросов командой Сервис -> Параметры -> Безопасность -> Безопасность макросов -> низкий уровень.
4. При создании любого нового слайда выберайте команду Макеты содержимого -> Пустой слайд (рис. 1).
5. На слайде 1 (рис. 2) создайте титульный лист (укажите тему теста, курс и т.д.).
Рис. 2 Слайд 1
Оформление титульного листа производится стандартными приемами PowerPoint. Можно использовать панель Рисование, инструмент Надпись (рис. 4).
Рис. 3. Панель Рисование
6. На слайде 2 разместите вопросы теста и варианты ответа (рис. 4).
Рис. 4. Слайд 2
6.1. Выберите инструмент Надпись На панели Рисование и введите вопрос, например: "Укажи устройства ввода".
6.2. Для того чтобы ввести ответы, воспользуйтесь панелью Элементы управления. Для выбора нескольких верных ответов используйте элемент Флажок, для выбора одного верного ответа используйте элемент Переключатель (рис. 5).
Рис. 5. Элементы управления
По нашему сценарию на первый вопрос теста предполагается два верных ответа - "клавиатура" и "Микрофон".
Выберите элемент Флажок (CheckBox). Удерживая нажатой левую кнопку мыши, растяните рамку на слайде. На слайд будет помещен элемент CheckBox1 (рис. 6).
Рис. 6. Элемент CheckBox1 на слайде
Задайте свойства объекта CheckBox1 в панели Свойства (Properties), которая появляется автоматически (если ее нет, щелкните на элементе Свойства панели Элементы управления (рис. 5)).
Выберите Свойство Caption и впишите слово "Процессор", удалив слово CheckBox1 (рис. 7).
Рис. 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.
8.2.1. k = 0
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. Последняя команда осуществит переход к следующему слайду:
SlideShowWindows(1).View.Next
9. Слайд 3 (рис. 11).
Рис. 11. Слайд 3
Поместите на слайд вопрос "Выбери устройства вывода". Среди ответов предлагается только один верный - "Принтер". В данном случае можно использовать элемент упраления Переключатель (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.
Рис. 13. Слайд 4
12. На слайде 5 будут выводится результаты тестирования (Рис. 14).
Рис. 14. Слайд 5
12.1. Установите командную кнопку Результат (CommandButton1).
12.2. Инструментом Надпись панели Рисование введите текст "Верных ответов" и "Оценка".
12.3. Поместите на слайд два элемента управления Надпись (Label) (рис. 15).
Рис. 15. Элемент управления Надпись
Не путайте элемент управления Надпись с инструментом Надпись панели Рисование! Поместите элемент Label1 напротив надписи "верных ответов" и Label2 напротив надписи "Оценка" (рис. 14).
12.4. Двойным щелчком на кнопке "Результат" Перейдите в окно написания кода (рис. 16).
Label1.Caption = k
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. Введите командный код для кнопки "Дальше":
Label1.Caption = " "
Label2.Caption = " "
12.7. Задайте команду перехода к следующему слайду:
SlideShowWindows(1).View.Next
Рис. 16. программный код слайда 5
13. На слайде 6 осуществите выход из презентации стандартным образом.
13.1. Разместите на слайде любую информацию, например слово "Выход" (рис. 17).
Рис. 17. Слайд 6
13.2. Щелкните правой кнопкой мыши на слове "Выход". В появившемся контекстном меню выбирите команду Настройка действия, на вкладке По щелчку мыши - пункт Перейти по гиперссылке и в списке - Завершить показ (рис. 18).
Рис. 18. Окно Настройка действия
14. Показ слайдов можно запустить клавишей F5. Получаем результат (рис. 19).
Рис. 19. Слайд 5 в режиме показа
Возможности PowerPoint позволяют создавать эффекты анимации, размещать на слайдах графические объекты, видеоролики и т.д., что делает работу с тестом интересной, увлекательной, в процессе тестирования обучаемой продолжает учиться.
Источник новости:
Исправлено! Спасибо за подсказку!
0 ответить