Лучшие работы по Модулю 3

Работа № 1:

Работа № 2:

Заключение

Уважаемые коллеги!

Спасибо Вам за участие в этом курсе. Надеюсь, вы не даром потратили время, узнав для себя что-то новое.

Прежде, чем я предложу Вам заполнить итоговую форму, я хочу обратить Ваше внимание на несколько моментов:

• Все три рассмотренных в курсе сервиса успешно интегрируются друг с другом.
• Наличие у учеников на уроке смартфонов с выходом в интернет позволяет использовать описаные в курсе методики на любом уроке в любом кабинете.
• Даже если у Вас совсем нет возможности подключения к интернету на уроке, презентации с возможностями VBA, загруженые на Гугл-диск, позволяют организовать их прохождение учениками дома.
• Я обычно заканчиваю презентацию-квест Гугл-формой, из которой потом и выставляю оценки. Но кнопка <PrtSc> на клавиатуре позволяет сохранить и обработать потом результаты даже тех, кто не имеет выхода в интернет.

Если у Вас есть комментарии по курсу - напишите их, пожалуйста, в разделе "Комментарии" этой страницы.

С уважением, Елена Клейн.

Практическое задание модуля 3

Вот мы и на финише. Остался последний рывок.

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

Задание:

1. Переключение по слайдам - через управляющие кнопки или гиперссылки.

2. Первый слайд - титульный, с названием и указание автора презентации.

3. Второй слайд содержит изображение, переводящее Вас на игру, созданную вами в LearningApps в процессе изучения модуля 1. При прохождении игры выдается кодовое слово (или число). Для перехода на следующий слайд необходимо ввести кодовое слово в текстовое поле и нажать кнопку "Проверить".

4. Третий, четвертый, пятый слайды содержат несколько изображений, при нажатии на "неправильную" часть изображения появляется сообщение об ошибке, при нажатии на правильную часть - переход на следующий слайд. Пример в ВИДЕО в статье "Управляющие кнопки"

5. Шестой слайд содержит или "Переключатели" или "Флажки".

6. Последний слайд содержит статистику прохождения презентации:

• Сколько заданий выполнено
• Из них правильно
• Процент правидьных ответов
• Текстовая реакция на оценку ("Молодец!", "Неплохо." и т.д.)

Несколько советов:

1. Не обязательно давать 1 балл за один ответ. Назначьте себе на слайде с игрой, например, 4 балла при условии введения правильного ответа и 0 при неправильном; прибавляйте по 2 балла при переходе с одной "умной картинки" на другую, и т.д.

2. Сохраните свою готовую презентацию как демонстрацию. Для запуска такого продукта со всеми возможностями все равно придется закачивать её на компьютер, но если Вы предоставите презентацию - можно будет посмотреть каждый слайд и код к нему. А если демонстрацию - только работу Вашего продукта. Охраняем интеллектуальную собственность!

3. Когда ваша презентация сохранена в виде демонстрации с поддержкой макросов, загрузите её на Гугл-диск (он у Вас точно есть, Вы же делали там формы во втором модуле!) и предоставьте доступ тем, у кого есть ссылка.

А теперь - сдаём!

Тест по теории Модуля 3

Что еще можно сделать?

Изучая дополнительные возможности Power Point, мы рассмотрели использование таких инструментов:

Подпись - вывод  компьютером значения на экран (в статье "Посчитаем правильные ответы?")

Текстовое поле - ввод значения пользователем (в статье "Вписал правильный ответ - перешел дальше")

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

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

Переключатель - выбор одного из нескольких вариантов ответов.

Еще есть инструменты, которые мы не использовали:

Флажок - для создания слайда со множественным выбором ответа. Код очень похож на код для переключателя.

Вот этот фрагмент кода говорит, например, что если выбраны флажки номер 2 и 4, а все остальные НЕ выбраны - прибавить 1 балл к правильным ответам.

При этом условие задано так, что:

• Если кроме 2 и 4 выбрано что-то  еще - балла не будет
• Если Не выбран один из флажков 2 или 4 - балла не будет.

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

Элементы, которые не просто использовать при создании обучающего контента:

Давайте посмотрим, какие элементы еще есть. Может быть, именно Вы предложите вариант их использования. Я вот не придумала.

Счетчик - используется, например, вместе с Текстовым полем.  При нажатии на кнопочки "Вправо" - "Влево" будут меняться цифры.

Для этого пишут такой код:

Private Sub SpinButton1_Change()
TextBox1.Text = CStr(SpinButton1.Value)
End Sub

Изображение - в версиях до VBA 6 включительно в растянутом окне можно было рисовать. В более новых версиях можно перетягивать изображения. Например, при создании пазлов. Но пазл можно сделать значительно проще.

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

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

Еще Вы можете видеть инструменты "Поле со списком", "Список", "Выключатель" и отвертку с гаечным ключом, которые позволяют увидеть полный список элементов управления.

Стоит принять во внимание, что панель "Разработчик" не создана непосредственно для Power Point, и, например, "Поле со списком" и "Список", часто применяемые в электронных таблицах и базах данных в редакторе презентаций используются не столь широко.

Посчитаем правильные ответы?

1. Создаем новую презентацию.

2. Настраиваем её таким образом, что выполнялись макросы, которые мы напишем, и нельзя было переключить слайд без введения ответа (см. предыдущие статьи)

3. Создаем первый слайд, с названием, подзаголовком и кнопкой перехода ко второму слайду.

4. Создаем второй слайд.

Пишем в верхней части вопрос.

Открываем вкладку "Разработчик".

Выбираем инструмент "Переключатель"

Растягиваем рамочку для варианта ответа

Нажимаем инструмент "Свойства" и настраиваем шрифты, выравнивание, и другие параметры, аналогично параметрам "Текстового поля" из предыдущей статьи.

Создаем на слайде столько "Переключателей", сколько вариантов ответов вы хотите дать на этот вопрос.

5. Когда все варианты ответа готовы, создаем кнопку "Дальше" с помощью инструмента "Кнопка"

У меня слайд выглядит к этому моменту вот так:

6. Выбираем щелчком мыши нашу кнопку "Далее" и нажимаем "Просмотреть код". Открывается уже знакомое нам по предыдущему уроку окно VBA.

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

Для этого мы нажимаем в верхней части экрана на слово "Insert" и выбираем в выпавшем меню слово "Module"

Теперь в окне для написания программы пишем (или копируем и вставляем) такие слова:

Public Vz, Po, Pro As Integer

Выглядит это примерно так:

Что это за буквы мы написали?

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

• Vz - вопросов задано - здесь будем считать, сколько вопросов мы задали всего. Значение в этой ячейке будет изменяться при каждом переходе с вопроса на вопрос.
• Po - правильных ответов - сколько правильных ответов мы получили за время прохождения теста. Значение в этой ячейке мы будем изменять только в случае получения правильного ответа.
• Pro - процент. Мы на последнем слайде подсчитаем процент правильных ответов от общего количества.

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

As Integer - мы сказали, что все наши переменные - типа "Целые числа". Для тех, кто не знаком с программированием, уточню:

Тип переменной - это размер кастрюли. 

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

Например, тип "Символ" занимает 1 байт места. Но в него влазит только 1 буква. Или знак препинания. Или пробел. Или цифра. Короче, 1 символ.

А вот если вы захотите запомнить фамилию ученика - тут нужен уже тип STRING - строка. Длина такой переменной будет зависить от длины вписанного значения, например, если вы вписали фамилию Клейн - 5 байт. Но не длиннее 255 символов, включая пробелы.

На дробное число нам понадобится 4 байта для каждой из ячеек.

Но сегодня мы работаем с целыми числами. Поэтому, окончательный перевод:

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

Заметьте, на языке программирования - значительно короче.

Закрываем окно VBA крестиком в верхнем правом углу окна. Сохранение произойдет автоматически. Если вы допустили ошибку при переписывании - выскочит окошко с описанием проблемы и предложением исправить. Но - считаем, что все хорошо, и закрываем окно.

8. Выбираем нашу кнопку "Далее" и опять нажимаем "Просмотреть код".

Теперь мы видим слева "Слайд 2", сверху - CommandButton1... и готовые надписи :

Private Sub CommandButton1_Click()

End Sub

Между этими двумя строчками мы вписываем такой код:

Private Sub CommandButton1_Click()

Vz = 0

Po = 0

If OptionButton1.Value = True Then

Po = Po + 1

End If

Vz = Vz + 1

OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

SlideShowWindows(1).View.Next

End Sub

Что означают все эти надписи?

• Для начала проверим, чисты ли наши кастрюли - обнуляем переменные Vz и Po
• У меня в примере правильный ответ соответствует верхнему переключателю. Его номер был 1. Поэтому следующие три строчки:

If OptionButton1.Value = True Then

Po = Po + 1

End If

означают следующее:

Если был выбран ПЕРЕКЛЮЧАТЕЛЬ 1 тогда

Количество правильных ответов увеличить на 1

Закончить блок проверки выбора ответа

Смотрите: если у вас правильный ответ ТРЕТИЙ, тогда вы должны изменить код вот так:

If OptionButton3.Value = True Then

Проверяйте, чтоб у вас стояла правильная цифра...

Обратите внимание: вот эти If... End If  заставляют прибавить 1 к количеству правильных ответов ТОЛЬКО в том случае, если ответ был правильным. 

Все остальные кусочки кола на этом слайде будут выполняться ВСЕГДА при нажатии на кнопочку "Далее".

• Vz = Vz + 1 - прибавили 1 к количеству заданных вопросов
• OptionButton1.Value = False
  OptionButton2.Value = False
  OptionButton3.Value = False
  OptionButton4.Value = False

Все переключатели поставили в положение "не выбрано", чтоб следующий, проходящий Ваш тест, не видел, что ответил предыдущий ученик.

• SlideShowWindows(1).View.Next - перешли на следующий слайд.

У меня следующий слайд выглядит вот так:

От предыдущего слайда создание этого отличается следующим:

• Когда будете создавать переключатели с вариантами ответа, меняйте им в строке Name окна свойств номера, считая номер текущего переключателя как номер по порядку в презентации. 

Например, у меня на предыдущем слайде было 4 переключателя с вариантами ответов. Значит, эти три будут с номерами 5, 6, 7 соответственно.

По умолчанию их номера будут опять 1, и, если не поменять номера, программа работать не будет.

• Еще я поменяла фоновый цвет. Это можно сделать в свойствах, вот здесь:

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

Смена цвета - BackColor - нажать на треугольник, чтоб выпал выпадающий список.

• Вкладка System предложит штук 8 системных цветов, которые нравятся компьютеру.
• Вкладка Palette позволит выбрать из 40 системных цветов.

Создаем кнопку "Далее", проверяем, чтоб её имя содержало следующий по счету для кнопок номер. У меня это - 2. Настраиваем "Свойства" - цвет, размер текста, выравнивание...

Выбрав кнопку, нажимаем "Просмотреть код" и между уже готовыми строками начала и конца кода вставляем следующее:

Private Sub CommandButton2_Click()

If OptionButton5.Value = True Then

Po = Po + 1

End If

Vz = Vz + 1

OptionButton5.Value = False

OptionButton6.Value = False

OptionButton7.Value = False

SlideShowWindows(1).View.Next

End Sub

Смотрите: от предыдущего кода отличается тем, что:

• Мы не обнуляем переменные
• В блоке проверки условия вписан номер переключателя, соответствующего правильному ответу на этом слайде
• В блоке очистки количество и номера очищаемых переключателей соответствует тем, что есть на слайде.

Создадим еще один слайд - ну, чтоб было, на что отвечать. У меня вот такой:

Поскольку на предыдущих слайдах у меня было 7 переключателей и 2 кнопки "Далее", то эти переключатели имеют номера 8 и 9, а кнопка - номер 3.

Программа для этой кнопки точно такая же (за исключением номеров и количества переключателей) как на предыдущем слайде:

Private Sub CommandButton3_Click()

If OptionButton8.Value = True Then

Po = Po + 1

End If

Vz = Vz + 1

OptionButton8.Value = False

OptionButton9.Value = False

SlideShowWindows(1).View.Next

End Sub

А теперь давайте всё-таки посчитаем итоговый результат!

Итоговый слайд будет выглядеть так:

1. Слова в верхней части слайда - это просто текст. "Вставка" - "Надпись" - настроить размер шрифта и жирность.

2. ВНИМАНИЕ! Белые окошки - новый для нас элемент - Label (Подпись)

Необходимое отступление

В предыдущей работе мы использовали соседний инструмент - "Надпись". А теперь используем "Подпись". В чем разница?

В "Надпись" пишет человек. А компьютер оттуда ЧИТАЕТ.

В "Подпись" компьютер ПИШЕТ.

Отступление закончено.

Растянули 4 окошка? Настройте им свойства, чтоб красиво все писалось в запущенной презентации. "Свойства" - шрифты, выравнивание... вы это умеете уже.

Создаем две кнопки:

"Показать результат" - у меня это кнопка 4 в презентации, т.е. её Name - CaptionButton4

"Завершить работу" - это кнопка 5 (у меня, у Вас может быть другой номер, если вы задали не 3 вопроса, а 10)

Давайте напишем программу для кнопки "Показать результат".

При нажатии на эту кнопку будут выполняться следующие действия:

• В окно Label1 будет выведено итоговое количество заданных вопросов - значение переменной Vz.

Label1.Caption = Vz

• В окно Label2 будет выведено итоговое количество правильных ответов - значение переменной Po.

Label2.Caption = Po

• В окно Label3 будет выведен процент правильных ответов. Его надо сначала посчитать:

Pro = Po / Vz * 100 - количество правильных ответов поделить на количество вопросов умножить на 100

А потом полученое число вывести в окно Label3 и прицепить к числу значок процента.

Label3.Caption = Pro & "%"

Теперь надо отреагировать на итог теста.

If Pro > 85 Then

Label4.Caption = "Молодец!"

End If

Если итоговый процент выше 85% - тестируемый молодец. Напишем ему об этом в Label4

If ((Pro > 60) And (Pro < 86)) Then

Label4.Caption = "Неплохо!"

End If

Если итоговый процент выше 60% но меньше 86% (меньше либо равен 85%) - тестируемый неплохо прошел тест. Напишем ему об этом в Label4

И так далее.

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

Необходимо учитывать, что если вы ограничитесь одним условием при проверке, например, напишите только нижнюю границу:

Pro>85...

Pro>60...

Система будет продолжать работать, но срабатывать будет не всегда верно. Смотрите:

У меня - 100%. Сначала мне написали "Молодец!", а потом сработало короткое условие: 100% больше и 60% тоже, поэтому оценку мне снизили. Обидно!

Поэтому пишите условие, начиная со второго, ограничивая каждую реакцию процентами с двух сторон.

В итоге полный код для кнопки "Показать результат" выглядит так:

Private Sub CommandButton4_Click()

Label1.Caption = Vz

Label2.Caption = Po

Pro = Po / Vz * 100

Label3.Caption = Pro & "%"

If Pro > 85 Then

Label4.Caption = "Молодец!"

End If

If ((Pro > 60) And (Pro < 86)) Then

Label4.Caption = "Неплохо!"

End If

If ((Pro > 40) And (Pro < 61)) Then

Label4.Caption = "Так себе..."

End If

If Pro <= 40 Then

Label4.Caption = "Отвратительно!"

End If

End Sub

Пробелы между строками поставлены для Вашего удобства. Они никак не влияют на работу программы.

Что должна сделать кнопка 5 - "Завершить работу"? 

Не только завершить работу, но и убрать за предыдущим клиентом - очистить все окошки. поэтому код будет такой:

Private Sub CommandButton5_Click()

Label1.Caption = ""

Label2.Caption = ""

Label3.Caption = ""

Label4.Caption = ""

SlideShowWindows(1).View.Exit

End Sub

Посмотрите внимательно на предпоследнюю строку.

Если после последней точки стоит слово Next, то компьютер будет пытаться перейти на следующий слайд, которого у нас нет. Как мы знаем, в некоторых системах при такой ошибке опять запускается первый слайд.

Поэтому мы пишем слово Exit и выходим из презентации (или демонстрации, если вы сохранили все правильно).

Что мы можем сделать на данный момент?

На самом деле, если вы разобрались со всеми возможностями, что были описаны в статьях выше, вы можете делать презентацию, содержащую:

• Набор слайдов с вопросами, отправляющими на разные слайды в зависимости от выбранного варианта ответа
• Слайды с вопросами, заданными в графическом виде - необходимо нажать на конкретный элемент. Кстати, никто не говорил, что переводящий на другой слайд элемент должен быть ОДИН. Вы можете, опять же, создать разветвленную презентацию, с переходами на разные слайды в зависимости от нажатого на картинке объекта.
•  Вы можете задавать на слайде вопрос или запрашивать кодовое слово - без права перехода дальше до тех пор, пока правильный ответ не будет найден.

Чего нам не хватает для полного учительского счастья? 

Правильно. Мы не поставили оценку. 

Вариант 1 - на последнем слайде дать ссылку на Гугл-форму с вопросами по теме. Форму создавать и автоматически проверять мы учились в Модуле 2. Тогда оценка будет сохранена в интернете, на вашем гугл-диске.

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

Решить эту проблему можно было бы путем автоматической отправк письма с результатом на адрес учителя. Но это достаточно спорное решение:

• Прочитать 90 писем с оценками... сложно.
• Для отправки письма на компьютере ученика должна быть настроена почтовая учетная запись - что не всегда возможно из-за политики безопасности школы.

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

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