Cтворення інтерактивних форм
(для дидактичних матеріалів, кросвордів, тестів)
в MS Power Point
з використанням елементів ActiveX та
Visual Basic for Application
(для дидактичних матеріалів, кросвордів, тестів)
в MS Power Point
з використанням елементів ActiveX та
Visual Basic for Application
(частина І – дидактичний матеріал)
Даний ресурс допоможе навчитися створювати і втілювати в презентаціях інтерактивні дидактичні матеріали, тести,кросворди та інші, в яких учень активно взаємодіє з навчальним чи перевіряючим матеріалом. Може виправити свою помилку (якщо це дидактичний матеріал чи кросворд) або отримати оцінку за тест.
Наприклад, в дидактичних матеріалахпісля введення учнем слова в спеціальне поле та натискання кнопки «ПЕРЕВІРИТИ» слово повинне залишитися і виділятися кольором, якщо відповідь правильна, в іншому разі - зникне і знову можна повторювати до безкінечності введення слова (або інший символу).
Для мови програмування така процедура проста: під кожну букву слова відводиться окремий Textbox і після натискання «ПЕРЕВІРИТИ» описується процедура обробки цього Textboxа - або стирати або залити кольором.
Для мови програмування така процедура проста: під кожну букву слова відводиться окремий Textbox і після натискання «ПЕРЕВІРИТИ» описується процедура обробки цього Textboxа - або стирати або залити кольором.
Однак у кросворді є ускладнення із-за перетину слів - відповідно буде більше різних комбінацій для перевірки - загалом, кодів обробки боксів збільшиться.
В середовищі MS Power Point, напевне,вміють працювати всі вчителі.
В Power Point є елементи керуванняActiveX та вбудований редактор VisualBasic (VBA), який нам і потрібен для обробки подій і за алгоритмом, описаним в цій статті, дидактичні інтерактивні матеріали нескладно буде зробити будь-якому вчителю.
Спілкування учня з нетбуком буде активним, діяльнісні форми взаймодіїі все ж набагато краще, ніж споглядально-пасивні.
Що таке макрос, модуль?
Макрос - це набір команд і інструкцій, що згрупованіразом у вигляді єдиної команди для автоматичного виконання завдання.
Макрос служить для автоматизації типових завдань.Деякі макроси є просто записами для натисненьклавіш або клацання мишею. Більш складні VBA-макроси - це написані програми, що дозволяють виконувати найрізноманітнішікоманди на комп'ютері.
Модулі являють собою контейнери для зберігання макросів, що створюються за допомогою засобів VBA.
Макрос: фрагмент коду, що виконує певну дію і має унікальне ім'я.
VBA: Visual Basic для додатків - мова програмування макросів.
Модуль: контейнер для зберігання макросів, закріплений за презентацією.
VBA: Visual Basic для додатків - мова програмування макросів.
Модуль: контейнер для зберігання макросів, закріплений за презентацією.
КРОК 1.
В центрі управління безпекою змінити параметри безпеки макросів
та елементів ActiveX.
Параметри безпеки макросів доступні в центрі управління безпекою (центруправления безопасностью).
1. Натисніть кнопку Microsoft Office
та елементів ActiveX.
Параметри безпеки макросів доступні в центрі управління безпекою (центруправления безопасностью).
1. Натисніть кнопку Microsoft Office
, а потім кнопку Параметри PowerPoint.
2. Виберіть Центр управління безпеки, потім - Параметри центру управління безпекою.
3. В меню Параметри макросів виберіть потрібні параметри - поставити галочку біля параметру
- Увімкнути всі макроси (не рекомендовано, можливий запуск небезпечної програми) Цей параметр дозволить виконання всіх макросів, які ми далі створимо. та
- Довіряти доступ до об'єктної моделі проектів VBA.
4. В меню Параметри ActiveX
КРОК 2.
Відобразити вкладку Розробник на стрічці
1. Клацніть значок, а потім виберіть пункт Параметри PowerPoint.
2. Виберіть пункт Особиста настройка (Личная настройка).
3. У групі Основні параметри роботи з PowerPoint установіть прапорецьВідображати вкладку "Розробник" на стрічці.
1. Клацніть значок, а потім виберіть пункт Параметри PowerPoint.
2. Виберіть пункт Особиста настройка (Личная настройка).
3. У групі Основні параметри роботи з PowerPoint установіть прапорецьВідображати вкладку "Розробник" на стрічці.
КРОК 3.
Створюємо слайд для закріплення знань, в якомуучневі необхідно буде ввести слова з клавіатури.
Завдання «Встав пропущені слова»
КРОК 4.
На панелі Елементи керування у вкладці Розробник, яку ми додали на стрічку обираємо елементTextbox, що зветься Поле і розміщуємо його на слайд - у нас з'явився TextBox1 (далібудемо його звати «бокс»), поміщаємо, звичайно ж, в темісце на слайді, де повинна бути буква під № 1.
(При необхідності, клацнувши правою кнопкою по боксу і обравши ВЛАСТИВОСТІ, можна змінити розмір і колір шрифту)
Далі нам потрsбно помістити на слайд ще кілька боксів (в залежності від того скільки літер в в завданні) в нашому їх 10, отже потрібно створити ще 9 копій боксу.
Наші поля для введення літер тепер мають назви TextBox1
TextBox2
TextBox3
TextBox4
TextBox5
TextBox6
TextBox7
TextBox8
TextBox9
КРОК 5.
Створимо 3 кнопки
- Перевірити
- Очистити
- Вихід
Їх також беремо з панелі Елементикерування і поміщаємо на слайд
За бажанням можно змінити вигляд кнопки (її фон, колір шрифту та розмір).
- Перевірити
- Очистити
- Вихід
Їх також беремо з панелі Елементикерування і поміщаємо на слайд
За бажанням можно змінити вигляд кнопки (її фон, колір шрифту та розмір).
Натиснувши правою клавішею миші по кожній кнопці і вибравши Властивості, задамокожній потрібний розмір PicturePosition,
колір шрифту ForeColor і
фон кнопки BackColor (викликавши випадаюче меню обравши потрібний колір)
Змінимо написи на кнопках на потрібні: Правою - Об'єкт CommandButton - Edit
Змінимо написи на кнопках на потрібні: Правою - Об'єкт CommandButton - Edit
Якщо ми створили 3 кнопки, то в кожної є тепер ім`я - CommandButton1
CommandButton2
CommandButton2
Тепер наш слайд має такий вигляд:
КРОК 6.
Приступаємо до написання коду для кнопки Перевірити - це найтриваліша частину роботи по створенню дидактичного матеріалу.
Почнемо з першого слова ВОДИ
Воно займає бокси 1, 2, 3, 4 (TextBox1, TextBox2, TextBox3, TextBox4)
Робимо подвійне клацання по кнопці Перевірити і ми потрапляємо в редакторVBA, де бачимо процедуру обробки події натискання на кнопку, куди потрібно вставити необхідний нам код
Private Sub CommandButton1_Click ()
(Сюди треба вставити код)
End Sub
Давайте спочатку розберемо алгоритм дій учня і перевірки їх, потім запишемо код:
Треба перевірити значення боксів 1, 2, 3, 4
Треба перевірити значення боксів 1, 2, 3, 4
Якщо слово учень ввів правильно, то в боксі 1 повинна бути буква «в», в 2 - «о», в 4 - «д», в 5 - «и», то бокси змінять свій колір
інакше (слово введено неправильно) треба очищати бокси 1, 2, 3, 4
Ось код до слова ВОДА:
If (TextBox1.Text = "в") And (TextBox2.Text = "о") And (TextBox3.Text = "д") And (TextBox4.Text = "и") Then
TextBox1.BackColor = RGB(0, 255, 255)
TextBox2.BackColor = RGB(0, 255, 255)
TextBox3.BackColor = RGB(0, 255, 255)
TextBox4.BackColor = RGB(0, 255, 255)
Else
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End If
Це перевірка всіх боксів першого слова:
Якщо бокс2 містить текст «в» і бокс2 - «о» і бокс3 - «д» і бокс4 - «и» (тобто слово вгадано), то робимо колір фону всіх боксів блакитним (TextBox2.BackColor =RGB (0, 255 , 255)) ...
Якщо бокс2 містить текст «в» і бокс2 - «о» і бокс3 - «д» і бокс4 - «и» (тобто слово вгадано), то робимо колір фону всіх боксів блакитним (TextBox2.BackColor =RGB (0, 255 , 255)) ...
Інакше (слово «води» не введено) то очищаємо всі бокси 1, 2, 3, 4.
Не забувайте періодично зберігати свою роботу.
КРОК 7.
Далі додаємо до існуючого коду шляхом копіювання код перевірки ще й другого слова КИСЕНЬ.
Ось що утвориться:
If (TextBox1.Text = "в") And (TextBox2.Text = "о") And (TextBox3.Text = "д") And (TextBox4.Text = "и") And (TextBox5.Text = "к") And (TextBox6.Text = "и") And (TextBox7.Text = "с") And (TextBox8.Text = "е") And (TextBox9.Text = "н") And (TextBox10.Text = "ь") Then
TextBox1.BackColor = RGB(0, 255, 255)
TextBox2.BackColor = RGB(0, 255, 255)
TextBox3.BackColor = RGB(0, 255, 255)
TextBox4.BackColor = RGB(0, 255, 255)
TextBox5.BackColor = RGB(0, 255, 255)
TextBox6.BackColor = RGB(0, 255, 255)
TextBox7.BackColor = RGB(0, 255, 255)
TextBox8.BackColor = RGB(0, 255, 255)
TextBox9.BackColor = RGB(0, 255, 255)
TextBox10.BackColor = RGB(0, 255, 255)
Else
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
End If
КРОК 8.
Опис коду для кнопки Очистити
Він дуже простий:
При натисканні на цю кнопку всі бокси повинні перефарбуватися у вихідний колір (білий RGB (255,255,255) та вміст боксів очиститися (TextBox1.Text = "")
Робимо подвійне клацання по кнопці Очистити і пишемо код:
TextBox1.BackColor = RGB (255, 255, 255)
TextBox1.Text = ""
TextBox2.BackColor = RGB (255, 255, 255)
TextBox2.Text = ""
TextBox3.BackColor = RGB (255, 255, 255)
TextBox3.Text = ""
TextBox4.BackColor = RGB (255, 255, 255)
TextBox4.Text = ""
TextBox5.BackColor = RGB (255, 255, 255)
TextBox5.Text = ""
TextBox6.BackColor = RGB (255, 255, 255)
TextBox6.Text = ""
TextBox7.BackColor = RGB (255, 255, 255)
TextBox7.Text = ""
TextBox8.BackColor = RGB (255, 255, 255)
TextBox8.Text = ""
TextBox9.BackColor = RGB (255, 255, 255)
TextBox9.Text = ""
TextBox10.BackColor = RGB (255, 255, 255)
TextBox10.Text = ""
Він дуже простий:
При натисканні на цю кнопку всі бокси повинні перефарбуватися у вихідний колір (білий RGB (255,255,255) та вміст боксів очиститися (TextBox1.Text = "")
Робимо подвійне клацання по кнопці Очистити і пишемо код:
TextBox1.BackColor = RGB (255, 255, 255)
TextBox1.Text = ""
TextBox2.BackColor = RGB (255, 255, 255)
TextBox2.Text = ""
TextBox3.BackColor = RGB (255, 255, 255)
TextBox3.Text = ""
TextBox4.BackColor = RGB (255, 255, 255)
TextBox4.Text = ""
TextBox5.BackColor = RGB (255, 255, 255)
TextBox5.Text = ""
TextBox6.BackColor = RGB (255, 255, 255)
TextBox6.Text = ""
TextBox7.BackColor = RGB (255, 255, 255)
TextBox7.Text = ""
TextBox8.BackColor = RGB (255, 255, 255)
TextBox8.Text = ""
TextBox9.BackColor = RGB (255, 255, 255)
TextBox9.Text = ""
TextBox10.BackColor = RGB (255, 255, 255)
TextBox10.Text = ""
КРОК 9.
Нарешті напишемо код для кнопки Вихід:
Application.Quit
Ця команда закриває програму.
Краще, якщо сюди додати код кнопки Очистити, щоб якщо забули очистити і натиснули ВИХІД, то все очиститься і тільки потім буде команда виходу з програми
При наступному запуску слайд буде чистий і готовий для роботи іншим учнем.
Якщо записати обидві команди – очищення і вихід, то це матиме такий вигляд:
TextBox1.BackColor = RGB (255, 255, 255)
TextBox1.Text = ""
TextBox2.BackColor = RGB (255, 255, 255)
TextBox2.Text = ""
TextBox3.BackColor = RGB (255, 255, 255)
TextBox3.Text = ""
TextBox4.BackColor = RGB (255, 255, 255)
TextBox4.Text = ""
TextBox5.BackColor = RGB (255, 255, 255)
TextBox5.Text = ""
TextBox6.BackColor = RGB (255, 255, 255)
TextBox6.Text = ""
TextBox7.BackColor = RGB (255, 255, 255)
TextBox7.Text = ""
TextBox8.BackColor = RGB (255, 255, 255)
TextBox8.Text = ""
TextBox9.BackColor = RGB (255, 255, 255)
TextBox9.Text = ""
TextBox10.BackColor = RGB (255, 255, 255)
TextBox10.Text = ""
TextBox1.Text = ""
TextBox2.BackColor = RGB (255, 255, 255)
TextBox2.Text = ""
TextBox3.BackColor = RGB (255, 255, 255)
TextBox3.Text = ""
TextBox4.BackColor = RGB (255, 255, 255)
TextBox4.Text = ""
TextBox5.BackColor = RGB (255, 255, 255)
TextBox5.Text = ""
TextBox6.BackColor = RGB (255, 255, 255)
TextBox6.Text = ""
TextBox7.BackColor = RGB (255, 255, 255)
TextBox7.Text = ""
TextBox8.BackColor = RGB (255, 255, 255)
TextBox8.Text = ""
TextBox9.BackColor = RGB (255, 255, 255)
TextBox9.Text = ""
TextBox10.BackColor = RGB (255, 255, 255)
TextBox10.Text = ""
Application.Quit
КРОК 10
Тепер чарівна мить перевірки. Запускаємо режим демонстрації слайдів й перевіримодію нашого інтерактивного «живого» дидактичного матеріалу - все повинно працювати.
В мене працює.
КРОК 11
Для роботи учнів краще зберегти презентацію у вигляді демонстрації. А собі для подальшої роботи, копіювання залишити ще й звичайний файл презентації.
Файл - зберегти як - тип файлу - демонстрація PPT – для Office 2003
Для Office 2007:
Натисніть на кнопку Microsoft Office, оберіть команду Зберегти як, оберітьІнші формати.
В меню Тип файлу оберіть Демонстація PowerPoint з підтримкою макросів.
ПРИМІТКА
- Щоб при випадковому натисканні миші по слайду не відбувалася змінаслайду, зніміть галочку зміни слайда по клацанню.
- В Office 2003 щоб розблокувати запуск макросів слід виконати такі дії:
зайти МЕНЮ - СЕРВІС - МАКРОС - БЕЗПЕКА і встановити низький рівень безпеки, потім закрити PPT і запустити слайд - кнопки запрацюють.
ВИСНОВОК
У файлах нашої групи є презентація «Зелена кухня», перегляньте її, перевіртефункціонування, а також коди кнопок (робіть подвійне клацання по кнопці - іпобачите в редакторі її код)
Ще вчора ввечері я цього не вміла. Сьогодні – 6 годин і я створила для Вас інструкцію та для учнів слайд, де потрібно закінчити речення.
Звичайно, витрати часу на перший раз великі, але навчившись ви зможете копіювати коди, робити інтерактивні вправи, економити свій час на уроці і т.д.
Звичайно, витрати часу на перший раз великі, але навчившись ви зможете копіювати коди, робити інтерактивні вправи, економити свій час на уроці і т.д.
Наступні інструкції - для створення тестів, кросвордів. Це вже набато простіше.
МЕНЕ НАВЧИЛИ:
Знакомство с макросами (малюнки)
Visual Basic на русском / Нюансы создания ActiveX Control'ов
Программирование на Visual Basic, VB 6.0, VBA, VB.net / Стандартный элемент управления: CommandButton
КАРМАН – сайт вчительки метематики
Домнин К.М.
Создание тестов в MS PowerPoint с использованием VBA.doc
Создание интеарактивных кросвордов в MS PowerPoint с использованием VBA.doc
Немає коментарів:
Дописати коментар