Мастер класс Создание контрольных вопросов используя язык программирования VISUAL BASIC


























































Анонс:
Наиболее перспективным и малоизученным направлением использования является создание проверочных тестов и контрольных опросов в диалоговом режиме между учителем и учеником контролирующего характера с подсчетом баллов.

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



О функциях «Ввода – вывода» без которых нам не обойтись.

Функция InputBox (Oкно Ввода). Функция InputBox позволяет вводить данные с помощью диалоговой панели ввода. В качестве аргументов этой функции выступают три строки, значением функции является также строка. Синтаксис функции следующий:
InputBox (Приглашение$, Заголовок$,
{ПоУмолчанию$})
В процессе выполнения этой функции появляется диалоговая панель с текстовым полем. В строке заголовка панели будет печататься значение второго аргумента (Заголовок$), на самой панели печатается значение аргумента Приглашение$, в текстовом поле печатается значение аргумента По умолчанию? (если это значение отсутствует, содержимое текстового окна также отсутствует). Введенная пользователем в текстовом поле строка становится значением функции.
Функция MsgBox (Панель Сообщений). Функция MsgBox позволяет выводить сообщения не на форме, а на специальной панели сообщений. Кроме того, функция MsgBox возвращает определенное значение, которое может быть присвоено какой-либо переменной. Синтаксис функции следующий:
MsgBox(Сообщение$ [,ЧисКод1+ЧисКод2][Заголовок$])

Строка Сообщение? выводится на панель сообщений, аргумент ЧисКод1+ЧисКод2 определяет внешний вид панели, а строка Заголовок$ печатается в строке заголовка панели. Последние два аргумента не являются обязательными.
Внешний вид панели сообщений можно менять, используя различные значения ЧисКод1 и ЧисКод2. Значение Чис-Код1 определяет вид пиктограммы, которая помещается на панель сообщений, а значение ЧисКод2 определяет набор кнопок, размещаемых на панели (табл. 4.4).











Таблица 4.4. Значения ЧисКод1 и ЧисКод2, определяющие вид панели сообщений
чисКод2
Набор кнопок

0
ОК

1
ОК, Отмена

2
Стоп, Повтор, Пропустить

3
Да, Нет, Отмена

4
Да, Нет

5
Повтор. Отмена


С помощью одного числа, являющегося суммой чисел ЧисКод1 и ЧисКод2, можно одновременно установить определенную пиктограмму и определенную комбинацию кнопок, размещенных на панели сообщений. Например, число 36 можно рассматривать как сумму чисел 32 (код пиктограммы «Вопрос») и 4 (код комбинации кнопок Да, Нет). В этом случае функция MsgBox выводит панель сообщений с текстом, пиктограммой, содержащей знак вопроса, и кнопками Да, Нет. Нажатие на кнопку приводит к вычислению значения функции, которое зависит от нажатой кнопки (табл. 4.5).

Таблица 4.5. Значения функции МsgВох
Нажатая кнопка
Значение функции

ОК
1

Отмена
2

Стоп
3

Повтор
4

Пропустить
5

Да
6

Нот
7


Разработаем проект, который позволит контролировать знания. Алгоритм контроля должен последовательно реализовывать следующие операции:
задать (напечатать) вопрос;
запросить ответ и запомнить введенное с клавиатуры значение;
полученный ответ сравнить с правильным и, в зависимости от выполнения или невыполнения этого условия, реализовать различные действия.
Сначала реализуем регистрацию проверяемого с использованием функций InputBox и MsgBox.

Алгоритм создания проекта с использованием языка программирования Visual Basic для Microsoft Power Point.
( проект состоит из слайдов:
( титульный слайд, оформляется произвольным образом.
( следующий слайд – слайд регистрации. (Попросит Вас Зарегистрироваться, ввести ваши данные.)
( Слайды – вопросы в диалоговом режиме.
(Вывод Оценки и количество баллов.

Титульный слайд оформляет произвольно.
2. Отключите защиту от макросов, выполнив команду Сервис - Параметры - Безопасность - Безопасность макросов..., выберите Низкий уровень.
3. Отключите показ контекстного меню, выполнив команду Сервис - Параметры - Вид -снять галочки со строк «Контекстное меню при щелчке правой кнопкой» и «Показывать кнопку контекстного меню»
4. Включить панель инструментов Элементы управления выполнив Вид - Панели инструментов - Элементы управления

5. Создать первый слайд.














6. Создать кнопку с надписью РЕГИСТРАЦИЯ.
Для этого растяните кнопку на слайде и вызовите его Свойства (нажатием правой кнопки мыши).
7. В свойстве Name – введите Cmd1.
8. В свойстве Caption – введите РЕГИСТРАЦИЯ.
Настройте Font (размер шрифта), ForeColor ( цвет текста).
9. Откройте код для кнопки (Двойным щелчком на кнопку).
И введите:
Dim a As String, b As Byte {String-строка символов}, {Byte-Целые числа от 0 до 255}

Private Sub Cmd1_Click()
a = InputBox("Введите ваше имя и фамилию:", "Регистрация")
b = MsgBox(a + " Вы готовы к проверке знаний?", 32, "конец регистрации")
SlideShowWindows(1).View.Next

End Sub

















10. Создайте новый слайд и введите произвольным образам первый вопрос.

Первый вопрос:
1. Шахматная доска состоит из 64 полей: 8 столбцов на 8 строк. Какое минимальное количество бит потребуется для кодирования координат одного шахматного поля?
Правильный ответ 6.
















11. Создадим кнопку также, как это указано в п.5- п.7
В свойстве Name – введите Cmd2.
В свойстве Caption – введите «НАЖМИ!!!».
Настройте Font (размер шрифта), ForeColor ( цвет текста), Backstyle(стиль кнопки)
12. Для подсчета верных ответов, Мы должны ввести новую переменную S.
Переменные S и A должны быть объявлены как глобальные, чтобы могли быть использованы коде всех слайдов. Для этого в окне VBA надо добавить модуль в среде: Insert - Module и окне кода модуля написать код:
Public S as Integer
Public А as String

13. Откройте код для второй кнопки (Двойным щелчком на кнопку). Введите программу:
Private Sub cmd2_Click()
s = 0
a = InputBox("Введите правильный ответ", "первый вопрос")
If a = "6 бит" Then
MsgBox "Правильно!", 0, "Первый вопрос":
s = s + 1
SlideShowWindows(1).View.Next
Else: MsgBox "Неправильно!!!", 0, "первый вопрос"
SlideShowWindows(1).View.Next
End If
End Sub

14. Создайте новый слайд и введите произвольным образам второй вопрос:
Торой вопрос:
Получено сообщение, информационный объем которого равен 32 битам.
Чему равен этот объем в байтах?
Правильный ответ: 4 байта.

15. Создадим кнопку также, как это указано в п.5- п.7
В свойстве Name – введите Cmd3.
В свойстве Caption – введите «НАЖМИ!!!».
Настройте Font (размер шрифта), ForeColor ( цвет текста), Backstyle(стиль кнопки).
16. Откройте код для кнопки (Двойным щелчком на кнопку). Введите программу:
Private Sub CommandButton1_Click()
a = InputBox("Введите правильный ответ", "второй вопрос")
If a = "4 байта" Then
MsgBox "Правильно!", 0, "второй вопрос":
s = s + 1
SlideShowWindows(1).View.Next
Else: MsgBox "неправильно!", 0, "второй вопрос"
SlideShowWindows(1).View.Next
End If
End Sub

17. Создайте новый слайд и введите произвольным образам третий вопрос:
Третий вопрос:
Вычислите значение суммы 10(2)+10(8)+10(16) в двоичной системе счисления.
Правильный ответ:
11010
18. Создадим кнопку также, как это указано в п.5- п.7
В свойстве Name – введите Cmd4.
В свойстве Caption – введите «НАЖМИ!!!».
Настройте Font (размер шрифта), ForeColor ( цвет текста), Backstyle(стиль кнопки).
Откройте код для кнопки (Двойным щелчком на кнопку). Введите программу:
(пользуйтесь методом копирования)
Private Sub CommandButton1_Click()
a = InputBox("Введите правильный ответ", "третий вопрос")
If a = "11010" Then
MsgBox "Правильно!", 0, "третий вопрос":
s = s + 1
SlideShowWindows(1).View.Next
Else: MsgBox "неправильно!", 0, "третий вопрос"
SlideShowWindows(1).View.Next
End If

End Sub
На последнем слайде выведем количество баллов и оценку.
На последнем слайде следует разместит две кнопки и два текстовых поля.
Первая кнопка будет выводить количество правильных ответов на первом текстовом поле. (имя текстового поля txt1)
Код кнопки «Правильных ответов»:
Private Sub Cmd1_Click()
Txt1.Text = s
End Sub

Вторая кнопка будет выводит Вашу оценку на второе текстовое поле (имя текстового поля txt2)













Код кнопки «Ваша оценка»:
Private Sub Cm2_Click()
If s = 3 Then
Txt2.Text = 5
Else
If s = 2 Then
Txt2.Text = 4
Else
If s = 1 Then
Txt2.Text = 3
Else: Txt2.Text = 2
End If
End If
End If

End Sub
( По числу правильных ответов можно менять Оценку).
Для обнуления числа верных ответов и оценки на экране, в предыдущем слайде к коду кнопки нужно добавить:
Private Sub CommandButton1_Click()
a = InputBox("Введите правильный ответ", "третий вопрос")
If a = "11010" Then
MsgBox "Правильно!", 0, "третий вопрос":
s = s + 1
SlideShowWindows(1).View.Next
Else: MsgBox "неправильно!", 0, "третий вопрос"
SlideShowWindows(1).View.Next
End If
Slide6.Txt1.Text = ""

Slide6.Txt2.Text = ""
End Sub

21. Сохранение теста в виде демонстрации.
а) назначить пароль для редактирования файла, выполнив Сервис - параметры - Безопасность в поле «Пароль для разрешения записи» ввести пароль, нажать ОК и ввести пароль повторно. Это необходимо для того, чтобы ученики не могли открыть презентацию и через код. Определить верные ответы.
б) сохранить тест в виде демонстрации, выполнив Файл - Сохранить как, выбрать тип файла Демонстрация PowerPoint.

Дополнительные вопросы:
1. Как представлено число 25 10 в двоичной системе счисления?
11001(2) (верно)

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


15

Приложенные файлы


Добавить комментарий