Задание для самостоятельной работы по информатике на 13.04.20 для 2 подгруппы.
Время на выполнение с 12-30 до 16-00, позже работы проверяться не будут, все кто не успеет отправить работу получают оценку «неудовлетворительно».
Уважаемые студенты ваша задача выполнить 2 практические работы в приложении MS PowerPoint, так как я поняла, что приложение АССЕSS многие не смогли установить.
Готовый документ вы отправляете в личное сообщение в контакте или на мой электронный адрес: Olga-zenchenko@mail.ru с указанием ФИО.
Создание интерактивных тестов в MS PowerPoint c использованием Visual Basic for Application
1 шаг:
Выберем предмет, тему, сформулируем вопросы и зададим по 4 варианта ответов (можно и больше), из них выберем один правильный – запишем все это на листке
(Для примера я рассмотрю 3 вопроса из темы по информатике «Кодирование графики»
Вопрос: Если для кодирования одного пикселя использовать 4 бита,
то количество цветов в картинке равно:
1) 16
2) 128
3) 256
4) 512
Вопрос: Какова глубина цвета в битах рисунка с 256 цветами
|
|
1) 2
2) 4
3) 8
4) 16
Вопрос: Графический файл имеет глубину цвета 3 байта. Сколько цветов имеет картинка изображения
1) 65536
2) 8
3) 128
4) 16777216
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 (Z – это счетчик выполненных заданий, т.е сколько заданий в тесте, в начале теста его обнуляем)
L = 0 (L – счетчик верно выполненных заданий, ему тоже присваиваем ноль)
N = 0 (N – это процентное выполнение заданий теста)
If OptionButton1.Value = True Then
L = L + 1
End If
(Здесь проверяется, если выбран ответ первый (16 цветов), то счетчику верно выполненных заданий прибавляется единица, а если выбран неверный ответ, то не прибавляется)
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 >= 75 Then
Label4.Caption = «Отлично» (Если процент выполнения >= 75 – выводится «Отлично»)
End If
If N < 75 And N >= 50 Then
Label4.Caption = «Хорошо» (Если процент выполнения от 50 до 75 – выводится «Хорошо»)
End If
If N < 50 And N >= 25 Then
Label4.Caption = «Удовлетворительно»
End If (Если процент выполнения от 25 до 50 – выводится «Удовлетв»)
If N < 25 Then
|
|
Label4.Caption = «Плохо» (Если процент выполнения ниже 25 – выводится «Плохо»)
End If
End Sub
б) Сейчас опишем кнопку «ВЫХОД»
Private Sub CommandButton2_Click()
Slide4.Application.Quit
End Sub
Выходим и сохраняем все изменения
9 шаг:
На этом создание теста закончено. Запускаем его (открываем презентацию) и проверяем
Если что – то не работает, то посмотрите и измените настройки безопасности в меню СЕРВИС – МАКРОС – БЕЗОПАСНОСТЬ (возможно макросы автоматически отключаются, а наш тест основан на макросах)
10 шаг:
При желании и наличии времени тесты можно сделать значительнее функциональнее, для этого изучайте Visual Basic for Application и пробуйте
И последнее: Данный тест можно взять за основу для разработки своих тестов, добавляя количество вопросов и ответов (просто копируя слайды и меняя их содержание)
Показать результат.
Создание интерактивных кроссвордов в MS Power Point с использованием VBA
ШАГ 1
Составляем кроссворд на бумаге, это не составляет труда: чертим на тетради в клетку слова. Для примера возьмем самый простой кроссворд из 3 слов (этого вполне достаточно для уяснения алгоритма).
Например, такой:
а | |||||
г | е | р | ц | ||
х | |||||
и | |||||
м | |||||
т | е | с | л | а | |
д |
Нарисуем вторую точно такую же таблицу (кроссворд), где буквы заменим цифрами (это будут номера наших TextBox - ов
1 | |||||
2 | 3 | 4 | 5 | ||
6 | |||||
7 | |||||
8 | |||||
9 | 10 | 11 | 12 | 13 | |
14 |
ШАГ 2
Сейчас открываем MS PPT и создаем там такую же таблицу (с номерами)
Берем на панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ элемент Textbox (там он называется ПОЛЕ) и помещаем его на слайд – у нас появился Textbox № 1(дальше будем его звать «бокс»), помещаем, конечно же в то место таблицы, где № 1
(При необходимости, щелкнув правой кнопкой по боксу и выбрав СВОЙСТВА, можно изменить размер и цвет шрифта)
|
|
Дальше нам надо поместить на слайд еще 13 боксов – ведь в нашем кроссворде 14 букв
Удобнее всего ухватившись правой кнопкой за бокс № 1 перетащить его на место бокса № 2 и выбрать копировать – появится бокс № 2 - и так до бокса № 14
Итак, боксы под буквы созданы, и они находятся точно на своих местах согласно таблице.
Сейчас таблицу можно убрать (выделить и вырезать), подобрать цвет фона слайда и оформление
В результате у нас получится примерно так:
ШАГ 3
Сейчас создадим 3 кнопки
- проверить
- очистить
- выход
Их также берем с панели ЭЛЕМЕНТЫ УПРАВЛЕНИЯ и помещаем на слайд
Щелкнув правой по каждой кнопке и выбрав СВОЙСТВА, зададим нужный размер и цвет шрифта
фон кнопки
Имя кнопки
Получается так:
ШАГ 4
Приступаем к написанию кода для кнопки ПРОВЕРИТЬ – это самая длительная часть работы по созданию кроссворда
Начнем со слова «герц»
а | |||||
г | е | р | ц | ||
х | |||||
и | |||||
м | |||||
т | е | с | л | а | |
д |
1 | |||||
2 | 3 | 4 | 5 | ||
6 | |||||
7 | |||||
8 | |||||
9 | 10 | 11 | 12 | 13 | |
14 |
Оно занимает боксы 2, 3, 4, 5 и пересекается со словом «архимед»
Делаем двойной щелчок по кнопке ПРОВЕРИТЬ, и мы оказываемся в редакторе VBA, где видим процедуру обработки события нажатия на кнопку, куда надо вставить необходимый код
Private Sub CommandButton1_Click()
{Сюда надо вставить код}
End Sub
Давайте сначала разберем алгоритм проверки и действий, затем запишем код:
Надо проверить значения боксов 2,3,4,5 и
- если слово внесено верно, то в боксе 2 должна быть буква «г», в 3 – «е», в 4 – «р», в 5 – «ц», тогда боксы покрасим
иначе (слово не угадано) может быть два случая:
если слово «архимед» до этого угадано, то надо очищать боксы 2,3,5, а бокс 4 не трогать – ведь там буква «р» от слова «архимед», а его стирать нельзя – оно ведь угадано
иначе (пересекающее слово «архимед» до этого не угадано), то надо очищать боксы 2,3,4,5
Пишем код для слова «герц»:
'2 по горизонтали «герц»
If (TextBox2.Text = "г") And (TextBox3.Text = "е") And (TextBox4.Text = "р") And (TextBox5.Text = "ц") Then
TextBox2.BackColor = RGB(0, 255, 255)
TextBox3.BackColor = RGB(0, 255, 255)
TextBox4.BackColor = RGB(0, 255, 255)
TextBox5.BackColor = RGB(0, 255, 255)
Else
If (TextBox1.Text = "а") Then
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
Else
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End If
End If
Разъяснение кода:
If (TextBox2.Text = "г") And (TextBox3.Text = "е") And (TextBox4.Text = "р") And (TextBox5.Text = "ц") Then
TextBox2.BackColor = RGB(0, 255, 255)
TextBox3.BackColor = RGB(0, 255, 255)
TextBox4.BackColor = RGB(0, 255, 255)
TextBox5.BackColor = RGB(0, 255, 255)
Это проверка всех боксов:
Если бокс2 содержит текст «г» И бокс3 – «е» И бокс4 – «р» И бокс5 – «ц» (т.е слово угадано), то делаем цвет фона всех боксов голубым (TextBox2.BackColor = RGB(0, 255, 255))...
Else
If (TextBox1.Text = "а") Then
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
Иначе, если слово «герц» не угадано и в боксе1 буква «а» (т.е слово «архимед» до этого угадано), то очищаем боксы 2,3,5, а бокс 4 не трогаем – в нем буква «р» от слова «архимед»
Else
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
Иначе (слово «герц» не угадано и слово «архимед» тоже не угадано), то чистим все боксы 2,3,4,5.
Здесь можно подумать, что это излишнее усложнение, но без рассмотрения всех этих вариантов не будут отрабатываться всевозможные возникающие ситуации и все будет стираться J - испытал при разработке алгоритма