ХМЕЛЬНИЦЬКА СЕРЕДНЯ ЗАГАЛЬНООСВІТНЯ І-ІІІ СТУПЕНІВ ШКОЛА № 18 ІМ. В. М.ЧОРНОВОЛА

2011 рік

11 ( Відкритий урок з інформатики в класі рівень)стандарту

Створення та захист програмного проекту з використанням вказівки розгалуження

уч. інформатики та математики Оцалюк Валентина Фадеївна(категорія вища, звання - старший вчитель)

М . Х М Е Л Ь Н И Ц Ь К И Й , В У Л . К У П Р І Н А , 1 2 , Т . 2 - 1 0 - 3 5

Мета уроку: - Освітня формувати загальнонавчальні вміння і навички Розвиваюча формувати логічні вміння: освоювати логічну структуру змісту і вміння логічно викладати думкиВиховна формування таких якостей особистості, як відповідальність, організованість, дисциплінованість, обов'язок, честь, гідність, порядність, скромність, правдивість.

Тип уроку: формування  знань, умінь і навичок за допомогою складання проектів

Обладнання та наочність: дошка, мультимедійний проектор,середовище Vizual Basic, підручник Морзе «Інформатика, 11, рівень стандарту» , презентація, інструктивні картки із завданнями.

І. Актуалізація опорних знань.(5 хв.)Демонструється фільм про Івана Царевича та Сірого вовка(Зі слів «прямо

поїдеш коня і себе загубиш, наліво поїдеш себе загубиш, а направо – сам живий залишишся, а коня загубиш»)

Слово вчителя: Як видно із мультфільму, в житті людини рано чи пізно постає вибір,тобто «розгалуження»– яку дорогу , який життєвий шлях обрати? На попередніх уроках ми з вами розглянули теоретичну частину матеріалу та створили колективний програмний проект розгалуження, вибору в середовищі VB, тому пропоную згадати основне.

(Використовую методичний прийом «Снігова грудка». Перший учень говорить слово, яке стосується даної теми, другий говорить речення з використанням цього слова, третій ставить запитання до сказаного, четвертий дає відповідь на поставлене запитання)

Слово :АлгоритмРечення: Під алгоритмом розуміють послідовність дій, що направлені на

виконання завдання.Запитання: Які види алгоритмів ми розглядали?Відповідь: Слідування(лінійний), Розгалуження(вибір),Цикли(повторення).Слово: Службові слова в середовищі VB

Речення: Для розгалуження це IF<умова> THEN<серія команд 1> ELSE<серія команд 2>

Запитання: Як виконується вказівка розгалуження?Відповідь: Спочатку перевіряється умова. Якщо вона істина, то виконується

серія команд 1. Якщо – хибна, то - серія команд 2Слово: умови Речення: Умови бувають прості і складені. Складені з’єднують прості словами

AND, OR, NOTЗапитання: Як впливає словосполучення AND , OR на вибір дій?Відповідь: AND – виконання обох умов одночасно, OR – виконання хоча б

однієї з умов приведе до виконання команд після слова THEN.Слово: схемиРечення: Схеми для розгалуження або вибору на плакатахЗапитання: Що записують замість слова «умова»?Відповідь: Два вирази, з’єднані математичними знаками порівняння <,>,<=,

>=, =, <>. Наприклад A<=B, T>9, G<>Y

ІІ. Оголошується тема : Створення та захист програмного проекту з використанням вказівки розгалуження.Оголошується мета: виконати і продемонструвати завдання з використанням вказівки розгалуження Мотивація: Створюючи проект кожен із вас мимоволі «прокрутить» як діяти при різних обставинах віртуальних, що пригодиться в реальному житті.ІІІ. Оголошуються(роздаються) завдання на урок у вигляді інструктивної картки(на кожне РМУ одна інструктивна картка). В кожній з карток є інструкція до виконання, на панель задач скинута заготовка форми. Але зловмисник стер код дії для кнопки «Обчислити». Вам пропонується відновити цей код . Нагадую, що він є унікальним для кожного із запропонованх завдань1) Створити калькулятор.2) Створити проект «обмін валюти»3) Створити проект «Собачка»4) Створити «Піцерію»5) Створити форму з біографією6) Створити проект «Щаслива сімка»7) Створити проект «емоції»8) Створити проект «Розклад уроків»

Поки учні готують проекти, учитель представляє себе присутнім на уроці(портфоліо). Доброго дня, шановні гості. Урок для Вас поводить вчитель математики та інформатики Оцалюк Валентина Фадеївна. Закінчила Ужгородський Державний університет у 1981 році. Працюю на педагогічній ниві з 1985 року. І Інформатику читаю теж з 1985 року.Маю звання старший вчитель. Технічне забезпечення у комп’ютерному класі: Процесор CELERON,600(швидкодія 1,7 МГерц); ОЗУ 256 мб; вінчестер 20 гб.V. Демонстрація проектівПеред демонстрацією проектів – вправи для очей:

1) закинути руки за голову, очі міцно закрити2) відкинутися на спинку стільця, потягнутися3) подивимось на стелю4) повільно опускаємо голову і подивимось на підлогу.5) повторити

VІ. Звіт і опитування учнів згідно одержаного завданняVIІ. Випереджувальне завдання. Демонстрація проектів. VІІІ. . Домашнє завдання. Придумати (згадати) таку життєву ситуацію, де б одні і ті ж дії повторювалися декілька разів. Наприклад щоденний режим дня:

1). Встав2). зробив зарядку3). поснідав4). пішов в школу5).пообідав 6). вивчив уроки 7).повечеряв8). водні процедури9). сон І так кожен день до канікул. IX. Демонструється сторінка з онлайн – групи, де є оцінки з попередньої теми. Кожен бачить свої оцінки на фоні інших.

X. Розігрується сценка про вибір дороги :П’ять учнів виходять на роздоріжжя. Один на перехресті стоїть. Інші на дорозі слави,влади,грошей і покликання.Вибір: Щодня перед кожним із нас постає вибір:що одягнути на вечірку, що на сніданок з’їсти… Цього року я закінчую 11-й клас і переді мною постає більш важливий вибір… Вибір мого майбутнього. Мені відкривається широкий світ можливостей. Я роблю маленький крок у доросле життя. Але як важко стояти на роздоріжжі… адже є багато варіантів, які постійно збивають мене з пантелику. Мені важливо зробити правильний вибір.Влада:Вибирай дорогу, що приведе до влади. Будеш мати право керувати, мати можливість панувати, бути при уряді. Влада – це твоє покликання. Хто при владі, той багатий і всесильний.Слава: Дівчинко моя. Що тобі та влада? Слава – ось твоя З усіх доріг дорога Як буду в тебе слава, Так будуть і гроші, Велична станеш ти , мов пава Залишаться з тобою влада і гроші.Гроші:Я – гроші. А як ти знаєш – гроші керують світом. Задувайся, матимеш гроші, тобі не потрібна буде ні влада, ні слава. За гроші ти можеш придбати всі задоволення. Ти горя не будеш мати зі мною. З грошима ти будеш найголовніша, всі будуть тобі підкорятися. Гроші – це найкраще, що є на землі.Покликання:У кожної людини своя доля, своє покликання, своя місія , яку вона має виконати, свій хрест, який вона несе по життю. Від самого народження Бог нагороджує людину талантом та покликанням. У цьому людина має віднайти та реалізувати себе. Часто під час вибору на тебе діють певні чинники спокуси, які заманюють тебе на неправильну дорогу, але ти мусиш завжди слухатись свого серця, свого покликання, яке горить, вказуючи на життя. Не дай цьому полум’ю згаснути!VIIІ. Заключне слово вчителя: Твій вибір – він один-єдиний У всесвіті добра і зла.Спинись, задумайся, дитино:Для чого ти в цей світ прийшла.

Від твого погляду залежить Твій вибір шляху й майбуття . Хто за собою пильно стежить, Той не змарновує життя.Нехай твій погляд буде завжди – Де світло, радість й майбуття.Хай будуть люди йому раді,Й прихильні будуть небеса.

Можливо, вказівка розгалуження допоможе у вашому життєвому виборі. Урок закінчено. Дякую всім за працю.

ДодаткиІнструктивна картка №1

Написати програму для реалізації гри «Щаслива сімка», яка виконує такі дії: при натисканні на кнопку «Крутити» показувати три випадкові цілі

числа в межах від 0 до 20; якщо хоча б одне з цих чисел дорівнює 7, показувати малюнок і

подавати звуковий сигнал; підрахувати кількість спроб і, якщо лічильник невдалих спроб набуває

значення 7, повідомити про закінчення гри.1. Створи проект «Щаслива сімка». Розроби інтерфейс форми згідно з

малюнком.

2. Властивості Text елемента Label4 надати значення «Ви програли», властивості Visible значення False.

3. Для елемента PictureBox1: властивості Visible – False; підбери відповідний малюнок.

4. Запиши програмний код процедури обробки події для командної кнопки крутити.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Randomize() Label1.Text = Int(21 * Rnd()) Label2.Text = Int(21 * Rnd()) Label3.Text = Int(21 * Rnd()) k = k + 1 If Label1.Text = 7 Or Label2.Text = 7 Or Label3.Text = 7 Then k = 0 PictureBox1.Visible = True Beep() ElseIf k = 7 Then Label4.Visible = True Button1.Enabled = False End If

Інструктивна картка № 2Створити проект «емоції» згідно малюнка за пунктами: - сподобався переглянутий фільм - не сподобався - байдуже

При натисканні на кнопку «Дати відповідь» показувати обличчя усміхнене, якщо клацнули на слові «сподобався»

При натисканні на кнопку «Дати відповідь» показувати обличчя похмуре, якщо клацнули на слові « не сподобався»

При натисканні на кнопку «Дати відповідь» показувати обличчя без емоцій, якщо клацнули на слові «байдуже»

1. Властивості Visible елемента PictureBox1 надати значення False .2. Запиши програмний код процедури обробки події для командної кнопки «Дати відповідь»Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (CheckBox1.Checked = True) And (CheckBox2.Checked = False) And (CheckBox3.Checked = False) Then PictureBox1.Visible = True Else PictureBox1.Visible = False If (CheckBox2.Checked = True) And (CheckBox1.Checked = False) And (CheckBox3.Checked = False) Then PictureBox2.Visible = True Else PictureBox2.Visible = False If CheckBox3.Checked = True And (CheckBox2.Checked = False) And (CheckBox1.Checked = False) Then PictureBox3.Visible = True Else PictureBox3.Visible = False End Sub

Інструктивна картка № 3Створити проект «собачка».

1. Текст завдання вивести за допомогою міток Label2. Координати x, y вводити у TextBox1 і TextBox2.3. Запиши програмний код процедури обробки події для командної кнопки

ОбчислитиPublic Class Form1 Dim x, y, r As Single

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click x = Val(TextBox1.Text) y = Val(TextBox2.Text) Label1.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False Label6.Visible = False Label7.Visible = False Label8.Visible = False Label9.Visible = False Label10.Visible = False Randomize() r = Int(Rnd() * 10) Button1.Visible = False TextBox1.Visible = False TextBox2.Visible = False Label11.Visible = False

If x ^ 2 + y ^ 2 <= r ^ 2 Then Label2.Text = "Вас вкусив собака!" Else Label2.Text = «Ви забрали м’яч» End SubEnd Class

Інструктивна картка №4Створити проект «Розклад уроків».1. Використати мітки для зручності користування проектом.2. Створити на формі TextBox1 для введення номера дня тижня.3. Створити на формі TextBox2 для виведення розкладу уроків на цей день.4. Записати програмний код процедури обробки події для командної кнопки Обчислити.

Public Class Form1 Dim n As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click n = TextBox1.Text

If (n < 1) Or (n > 5) Then TextBox2.Text = "Такого дня в розкладі немає" Select Case n Case 1 : TextBox2.Text = "Понеділок" + vbNewLine + "1. укр. мова" + vbNewLine + "2.Алгебра" + vbNewLine + "3.Біологія" + vbNewLine + "4.Історія" + vbNewLine + "5.Фізкультура" + vbNewLine + "6. Зарубіжна" Case 2 : TextBox2.Text = "Вівторок" End Select End SubEnd Class

5. Передбачити введення неіснуючого номера для розкладу

Інструктивна картка № 5Створити проект «Піца»1. Утворити на формі RadioButton1…3 з вибором розміру піци.2. Утворити на формі CheckBox1..3 з пропозицією інградієнтів до піци.3. Імпортувати картинку про піцу.4. Вивести ціну за піцу у форматі FormatCurrency5. Записати програмний код процедури обробки події для командної кнопки Ціна

Public Class Form1 Dim s As Integer Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Label1.Visible = True

If (RadioButton1.Checked = True) Then s = s + 5 If (RadioButton2.Checked = True) Then s = s + 10 If (RadioButton3.Checked = True) Then s = s + 15 If CheckBox1.Checked = True Then s = s + 1 If CheckBox2.Checked = True Then s = s + 1 If CheckBox3.Checked = True Then s = s + 1 Label1.Text = FormatCurrency(s)

End SubEnd Class

Інструктивна картка № 6Створити проект «Калькулятор»1. Утворити мітки для інтерфейсу користувача2. Утворити TextBox1 і TextBox2 для введення чисел3. Утворити чотири-п’ять CheckBox для вибору арифметичних операцій.4. Утворити мітку, щоб вивести результат обчислення.5. Надати дію кнопці «Обчислити»Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If (CheckBox1.Checked = True) And (CheckBox2.Checked = False) Then Label3.Text = Str(Val(TextBox1.Text) + Val(TextBox2.Text))

If (CheckBox1.Checked = False) And (CheckBox2.Checked = True) Then Label3.Text = Str(Val(TextBox1.Text) * Val(TextBox2.Text)) End SubEnd Class

Інструктивна картка № 7Створити форму «Біографія»

1. Використати два CheckBox для вибору фото , біографії(або і те , і те).2. Використати два RadioButton для вибору одного із варіантів: своє чи

друга або подружки3. Надати дію кнопці «Виконати»

Public Class Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If CheckBox1.Checked = True And RadioButton1.Checked = True Then PictureBox1.Visible = True

If CheckBox1.Checked = True And RadioButton2.Checked = True Then PictureBox2.Visible = True If RadioButton2.Checked = True Then PictureBox1.Visible = False If CheckBox2.Checked = True And RadioButton1.Checked = True Then TextBox1.Text = "Я народилася в селищі Антоніни, що на Красилівщині.В 1981 заківчила УЖДУ Наразі працюю вчителем інформатики" If CheckBox2.Checked = True And RadioButton2.Checked = True Then TextBox1.Text =

"Учні 11-Б класу розумні, добрі, красиві, люблять подорожувати, але дуже замучені навчанням" End SubEnd Class

4. Надати дію кнопці «вийти з програми»Private Sub Button1_Click(ByVal sender As System.EventArgs) As System.Object, ByVal e Handles Button1.Click End End Sub

Інструктивна картка № 8Ви працівник банку. Клієнт бажає обміняти долар на гривню або навпаки.Створіть проект «Купівля-продаж»

1. Вставте у форму два перемикачі RadioButton із текстом «Купівля», «Продаж»

2. Вставте у форму чотири поля редагування TextBox1 , Textbox2, Textbox3, Textbox4

3. Вставте у форму мітки Label1, Label2, Label3, Label4, Label5, Label6 Label7

4. Надайте Label1, Label2, Label3, Label4, Label5 значення відповідно «купівля-продаж американського долара», «курс долара для купівлі», «курс долара для продажу», «тут долар міняється на грн.», «тут грн. міняється на долар»

5. Label6, Label7 зробіть невидимими6. Вставте у форму дві кнопки Button1, Button2 із текстом «обчислити» та

«вихід»

7. Для TextBox1 , Textbox2 надайте значення курсу долара для купівлі і продажу відповідно сьогоднішньому курсу і їм властивість Enabled=false

8. Надайте дію для кнопки «Обчислити»:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If (RadioButton1.Checked = True) And (RadioButton2.Checked = False) Then Label7.Visible = False Label6.Visible = True TextBox4.Text = "" Label6.Text = Str(Val(TextBox1.Text) * Val(TextBox2.Text)) + "грн."

End If

If (RadioButton1.Checked = False) And (RadioButton2.Checked = True) Then Label6.Visible = False Label7.Visible = True TextBox2.Text = "" Label7.Text = Str(Math.Round(Val(TextBox4.Text) / Val(TextBox3.Text), 2)) + "$"

End If

End Sub9. Надайте дію для кнопки «Вихід»:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub