Тренінги в рамках співпраці в Національному проекті «Відкритий світ» для вчителів міста Марганця Дніпропетровської області

субота, 19 січня 2013 р.

Інтерактивні форми


18:12 Автор Наталия Саражинская Нет комментарий
Cтворення інтерактивних форм
(для дидактичних матеріалів, кросвордів, тестів
в MS Power Point
з використанням елементів ActiveX та
Visual Basic for Application
(частина І – дидактичний матеріал)


Даний ресурс допоможе навчитися створювати і втілювати в презентаціях інтерактивні дидактичні матеріали, тести,кросворди та інші, в яких учень активно взаємодіє з навчальним чи перевіряючим матеріалом. Може виправити свою помилку (якщо це дидактичний матеріал чи кросворд) або отримати оцінку за тест.
Наприклад, в дидактичних матеріалахпісля введення учнем слова в спеціальне поле та натискання кнопки «ПЕРЕВІРИТИ» слово повинне залишитися і виділятися кольором, якщо відповідь правильнав іншому разі - зникне і знову можна повторювати до безкінечності введення слова (або інший символу)
               Для мови програмування така процедура проста: під кожну букву слова відводиться окремий Textbox і після натискання «ПЕРЕВІРИТИ» описується процедура обробки цього Textboxа - або стирати або залити кольором.


Однак у кросворді є ускладнення із-за перетину слів - відповідно буде більше різних комбінацій для перевірки - загалом, кодів обробки боксів збільшиться.

В середовищі MS Power Point, напевне,вміють працювати всі вчителі.
В Power Point  є елементи керуванняActiveX та вбудований редактор VisualBasic (VBA), який нам і потрібен для обробки подій  і за алгоритмом, описаним в цій статті, дидактичні інтерактивні матеріали нескладно буде зробити будь-якому вчителю.
Спілкування учня з нетбуком буде активним, діяльнісні форми взаймодіїі все ж набагато краще, ніж споглядально-пасивні.

Що таке макрос, модуль?




              Макрос - це набір команд і інструкцій, що згрупованіразом у вигляді єдиної команди для автоматичного виконання завдання.
Макрос служить для автоматизації типових завдань.Деякі макроси є просто записами для натисненьклавіш або клацання мишею. Більш складні VBA-макроси - це написані програми, що дозволяють виконувати найрізноманітнішікоманди на комп'ютері.

Модулі являють собою контейнери для зберігання макросів, що створюються за допомогою засобів VBA.

Макрос: фрагмент коду, що виконує певну дію і має унікальне ім'я.
VBA: Visual Basic для додатків - мова програмування макросів.
Модуль: контейнер для зберігання макросів, закріплений за презентацією.

КРОК 1.
В центрі управління безпекою змінити параметри безпеки макросів
та елементів ActiveX.
Параметри безпеки макросів доступні в центрі управління безпекою (центруправления безопасностью)

   1. Натисніть кнопку Microsoft Office

, а потім кнопку Параметри PowerPoint.

   2. Виберіть Центр управління безпеки, потім - Параметри центру управління безпекою.
   3. В меню Параметри макросів виберіть потрібні параметри  - поставити галочку біля параметру
  •       Увімкнути всі макроси (не рекомендовано, можливий запуск небезпечної програми) Цей параметр дозволить виконання всіх макросів, які ми далі створимо. та
  •      Довіряти доступ до об'єктної моделі проектів VBA.
4. В меню Параметри ActiveX

КРОК 2.
Відобразити вкладку Розробник на стрічці
1. Клацніть значок, а потім виберіть пункт Параметри PowerPoint.

2. Виберіть пункт Особиста настройка (Личная настройка).
3. У групі Основні параметри роботи з PowerPoint установіть прапорецьВідображати вкладку "Розробник" на стрічці.

КРОК 3.
Створюємо слайд для закріплення знань, в якомуучневі необхідно буде ввести слова з клавіатури.
Завдання «Встав пропущені слова»

КРОК 4.


На панелі Елементи керування у вкладці Розробник, яку ми додали на стрічку обираємо елементTextboxщо зветься Поле і розміщуємо його на слайд - у нас з'явився TextBox1 (далібудемо його звати «бокс»), поміщаємо, звичайно ж, в темісце на слайді, де повинна бути буква під № 1.
(При необхідності, клацнувши правою кнопкою по боксу і обравши ВЛАСТИВОСТІ, можна змінити розмір і колір шрифту)
Далі нам потрsбно помістити на слайд ще кілька боксів (в залежності від того скільки літер в в завданні)  в нашому їх 10, отже потрібно створити ще 9 копій боксу.
Наші поля для введення літер тепер мають назви TextBox1
TextBox2
TextBox3
TextBox4
TextBox5
TextBox6
TextBox7
TextBox8
TextBox9
TextBox10



КРОК 5.
Створимо 3 кнопки
Перевірити
- Очистити
- Вихід
Їх також беремо з панелі Елементикерування і поміщаємо на слайд
За бажанням можно змінити вигляд кнопки (її фон, колір шрифту та розмір).
Натиснувши правою клавішею миші по кожній кнопці і вибравши Властивості, задамокожній потрібний розмір PicturePosition
колір шрифту ForeColor і
фон кнопки BackColor (викликавши випадаюче меню обравши потрібний колір)
Змінимо написи на кнопках на потрібні: Правою - Об'єкт 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 - «о», в 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)) ...

Інакше (слово «води» не введено) то очищаємо всі бокси 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 = ""
КРОК 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 = ""

Application.Quit


КРОК 10
Тепер чарівна мить перевірки. Запускаємо режим демонстрації слайдів й перевіримодію нашого інтерактивного «живого» дидактичного матеріалу - все повинно працювати.
В  мене працює.

КРОК 11
Для роботи учнів краще зберегти презентацію у вигляді демонстрації. А собі для подальшої роботи, копіювання залишити ще й звичайний файл презентації.
Файл - зберегти як - тип файлу - демонстрація PPT – для Office 2003

Для Office 2007:

Натисніть на кнопку Microsoft Officeоберіть команду Зберегти як, оберітьІнші формати.
В меню Тип файлу оберіть Демонстація PowerPoint з підтримкою макросів.



 


ПРИМІТКА
  • Щоб при випадковому натисканні миші по слайду не відбувалася змінаслайду, зніміть галочку зміни слайда по клацанню.
  • В Office 2003 щоб розблокувати запуск макросів слід виконати такі дії:
зайти МЕНЮ - СЕРВІС - МАКРОС - БЕЗПЕКА і встановити низький рівень безпеки, потім закрити PPT і запустити слайд - кнопки запрацюють.



ВИСНОВОК
               У файлах нашої групи є презентація «Зелена кухня», перегляньте її, перевіртефункціонування, а також коди кнопок (робіть подвійне клацання по кнопці - іпобачите в редакторі її код)
              Ще вчора ввечері я цього не вміла. Сьогодні – 6 годин і я створила для Вас інструкцію та для учнів слайд, де потрібно закінчити речення.
               Звичайно, витрати часу на перший раз великі, але навчившись ви зможете копіювати коди, робити інтерактивні вправи, економити свій час на уроці і т.д.

Наступні інструкції - для створення тестів, кросвордів. Це вже набато простіше.

МЕНЕ НАВЧИЛИ:

Веб-вузол Microsoft Office PowerPoint Поиск "макросы" в разделе PowerPoint 2007

Знакомство с макросами (малюнки)

Visual Basic на русском / Нюансы создания ActiveX Control'ов

Программирование на Visual BasicVB 6.0, VBAVB.net  / Стандартный элемент управления: CommandButton

КАРМАН – сайт вчительки метематики

Домнин К.М.
Создание тестов в MS PowerPoint с использованием VBA.doc
Создание интеарактивных кросвордов в MS PowerPoint с использованием VBA.doc

Немає коментарів:

Дописати коментар