Графічні можливості Visual Basic 6
Освітні завдання: узагальнити та систематизувати знання учнів на тему “Графічні можливості Visual Basic 6.0”, перевірити практичні навички учнів у побудові графіків функций.
Виховні завдання: розвивати інтерес до інформатики, розкрити творчі можливості учнів під час складання графіків, виховувати позитивне ставлення до навчання.
Основні знання та вміння: знати основні графічні методи та об'єкти, поняття абсолютної та відносної системи координат для об'єкта, вміти розробляти проект побудови графіка функції.
ТСО: персональні комп'ютери, мультимедійний проектор, презентація "Графічні можливості Visual Basic 6.0", картки із завданням, програма Visual Basic 6.0.
Хід уроку
1. Організаційний етап: постановка цілей та мотивація навчально-пізнавальної діяльності.
2. Узагальнення та систематизація знань.
2.1 Усне фронтальне опитування з використанням презентації.
Які графічні засоби Visual Basic ви знаєте?
Відповідь: графічні методи та графічні об'єкти.
Наведіть графічні методи.
Відповідь: Scale, Pset, Line, Circle, Cls.
Перерахуйте графічні об'єкти.
Відповідь: Графічна форма – Form1
Графічне вікно - PictureBox
Як пов'язані між собою графічні методи та графічні об'єкти?
Відповідь: На формі або у графічному вікні можна малювати графічні примітиви з використанням графічних методів.
Що таке спосіб і які ще об'єкти ви знаєте?
Відповідь: Метод
- цевбудована процедура, яка може працювати з будь-яким об'єктом.
- це деякадія, яка може виконувати Visual Basic надданим об'єктом.
Об'єкти: Командна кнопка, текстове поле, мітка...
Що таке графічний метод?
Відповідь: Це такий метод, який дозволяє зображати на об'єкті геометричний елемент: точку, відрізок, прямокутник, коло...
Об'єкт Форма має абсолютні координати на ... (Відповідь: на екрані).
Об'єкт Графічне вікно (PictureBox) має абсолютні координати. (Відповідь: екранна форма).
Ці координати вимірюються в особливих одиницях - .... (Відповідь: твіпах).
1 твіп = ... (Відповідь: 1 / 1440 дюйма).
Визначити, що за система координат зображена на слайді?
Відповідь: Це абсолютна система координат екрана.
Що робить метод Scale та яка його синтаксична схема?
Метод Scale призначає об'єкту (формі чи графічному полю) нову систему координат, оскільки абсолютні координати виражаються дуже великими числами, що дуже незручно.
13. Який синтаксис методу Scale та що означають його параметри?
[Ім'яОб'єкта.] Scale(Х1, Y1) - (Х2, Y2)
Ім'я Об'єкта може бути відсутнім. В цьому випадку за умовчанням метод Scale використовуєтьсяЕкранною формою.
(XI, Y1) - нові координати лівого верхнього кутаОб'єкта,а(Х2, Y2)- нові координати правого нижнього кутаОб'єкта.
Відразу після виконання методу Scale старі (абсолютні) координатиоб'єктабудуть замінені новими.
Ви хочете, щоб об'єкт класуГрафічне вікно зім'ямPicturel,який Ви вже розмістили на екранній формі, мав ширину14(в умовних одиницях), висоту10і щоб координатні осі розташовувалися звичним для Вас чином: вісьхбула б спрямована зліва направо, а вісьу- знизу вгору,апочаток координатрозташовувалося в центрі даного об'єкту
Як це можна зробити?
Відповідь: Picture1.Scale (-7,5) - (7,-5).
15. Що робить метод Pset?
Відповідь: Малює точку із заданими координатами та кольором
16. Який синтаксис методу та його параметри?
[Ім'яОб'єкта.] PSet(X, Y) [, Колір].
Ім'я Об'єкта може бути відсутнім. У цьому випадку за промовчанням метод PSet використовуєтьсяЕкранною формою.
(X, Y) — координати “точки” (точніше кажучи — маленької кольорової плями на екрані), яку (яку) Ви хочете зобразити наОб'єкті.
Колір - це вираз, значенням якого є число типу Long. Цим числом у Visual Basic кодується той чи інший колір. Зручно як колір використовуватиконстантиVisual Basic: vbWhite, vbRed, vbGreen, і т.д.Колірможе бути відсутнім. У цьому випадку за промовчанням його значенням буде0- код чорного кольору.
17. Що робить метод Line?
Метод Line дозволяє:
- креслити на об'єкті, якого цей метод застосовується,відрізки прямих ліній.
- зображати на цьому об'єкті зафарбовані або незакрашені прямокутники.
18. Який синтаксис методу Line та що означають його параметри?
[Ім'яОб'єкта.] Line(Х1, Y1) — (Х2, Y2) [, Колір] [,B][F].
Параметр(XI, Y1)-(Х2, Y2)- це координати меж відрізка або двох кутів прямокутника - лівого верхнього та правого нижнього (або навпаки - правого нижнього та лівого верхнього) ).
ПараметрКолір -це вираз, значенням якого є число типу Long, яким Visual Basic кодується той чи інший колір.
Прапорець B- задає малювання прямокутника.
Прапорець F – задає малювання зафарбованогопрямокутника.
19. Що робить метод Circle та що означають його параметри?
Метод малює коло, овал або дугу.
[Ім'яОб'єкта.] Circle(X, Y), Радіус [, Колір [,Кут1 ,Куток2[,Коефіцієнт-Стискання ]]]
(X, Y) - координати центру кола або еліпса.
Колір – це колір колаРадіус-радіус кола.
Кут1 іКут2 --це початковий і кінцевий кути дуги або сектора. Кути вимірюють урадіанах,їх значення беруться в інтервалі від0до2п. Нульовий кут відповідає горизонтальній осі, спрямованій праворуч.
Якщо перед ненульовим значенням кута ставиться знак “-” (мінус), це означає, що буде намальована не дуга, а сектор 13 (а зовсім не те, що кут негативний).
20.Для чого використовується метод Print та його синтаксис?
Спільне використання методів Line та Print.
Метод Print використовується для видачі чисел та рядків наОб'єкт- на екранну форму або у графічне вікно. Цю видачу називаютьдрукомчисел чи рядків на даному об'єкті. Синтаксис методу Print наступний.
[Ім'яОб'єкта.] Print [ппослідовність Фрагментів].
Послідовність Фрагментів — це або одинФрагмент(одне число або один рядок), або кількаФрагментів,між якими стоїтьрозділювач друку— кома (,) або точка з комою (;). У першому випадкуФрагментидрукуються так званимизонами(по 14 символів у
кожній зоні); у другому випадку - впритул один до одного. Якщо після слова Print немає нічого, друкується порожній рядок.
2.2.Узагальнення знань з прикладу побудови графіка функції у=sinx. Пояснення вчителя із використанням презентації.
Проект "Побудова графіка функції"
Завдання. Розробимо проект побудови у графічному вікні графіка функції з використанням графічних методів. Як приклад розглянемо побудову графіка функціїу =sinx.
Хід виконання проекту:
- Розмістимо на формі кнопку та графічне вікно. .
- Змінимо напис Command1 кнопки на Графік..
- Змінимо у вікні Властивостей ім'я (Name) графічного вікна Picture1 на picGraph.
- Подвійним клацанням лівої клавіші миші відкриваємо подію процедуру, пов'язану з кнопкою Графік.
- Вводимо програмний код процедуру Command1_Click:..
Private Sub cmd1_Click() 'Завдання масштабу picGraph.Scale (-10, 2)-(10, -2) 'Побудова графіка функції For sngX = -10 To 10 Step 0.01 picGraph.PSet (sngX, Sin(sngX)) Next sngX 'Вісь Х picGraph.Line (-10, 0)-(10, 0) For bytI = -10 To 10 picGraph.PSet (bytI, 0) picGraph.Print bytI Next bytI 'Вісь Y picGraph.Line (0, 2)-(0, -2) For bytI = -2 To 2 picGraph.PSet (0, bytI) picGraph.Print bytI Next bytI End Sub
- Запустити проект і натиснути на кнопку Графік
Результат роботи програми - графік функції у = sinx.
Питання: Що потрібно змінити у програмі , щоб побудувати графік функції y=cosx, y=tgx?
Функцію sin у процедурі замінити на функцію Cos.
Функцію sin у процедурі замінити на функцію tan.
3. Перевірка практичних навичок. Самостійна робота на ПК.
1 варіант: накреслити червоним у вікні (-9,9) – (9,-9) графік функції.
Private Sub Command1_Click() Dim SngX As Single, bytI As Integer, y As Single 'SngX - абсцис точки, у - ордината 'Завдання масштабу і нової системи координат PicGraph.Scale (-9, 9 )-(9, -9) 'Побудова графіка функції For SngX = -9 To 9 Step 0.01 y = 3 * (Cos(SngX ^ 2 + 5)) ^ 2 / ((SngX + 10) ^ (3 / 5 )) 'Обчислення ординати у PicGraph.PSet (SngX, y), vbRed 'Малюємо точку Next SngX 'Беремо наступну абсцису 'Малюємо вісь Х PicGraph.Line (-9, 0) -(9, 0) For bytI = -9 To 9 PicGraph.PSet (bytI, 0) 'Малюємо масштаб на осіХ PicGraph.Print bytI 'Підписуємо масштаб Next bytI 'Малюємо вісь Y PicGraph.Line (0, 9)-(0, -9) For bytI = -9 To 9 PicGraph.PSet (0, bytI) 'Малюємо масштаб на осі У PicGraph.Print bytI 'Підписуємо масштаб Next bytI End Sub
Результат дивіться у файлі:.
2 варіант: Накреслити синім кольором у вікні (-9,9)-(9,-9) графік функції
Програмний код:
Private Sub Command1_Click() Dim SngX As Single, Y As Single, BytI As Integer 'SngX - абсцис точки, у - ордината 'Завдання масштабу і нової системи координат PicGraph.Scale (-9, 9 )-(9, -9) 'Побудова графіка функції For SngX = -9 To 9 Step 0.01 Y = (7 * (Sin(SngX ^ 2)) ^ 3) / (3 * (Cos(SngX ^ 3) ^ 2 + 1)) Обчислення ординати у PicGraph.PSet (SngX, Y), vbBlue Малюємо точку Next SngX 'Малюємо вісь Х PicGraph.Line ( -9, 0)-(9, 0) For BytI = -9 To 9 PicGraph.PSet (BytI, 0) 'Малюємо масштаб на осі Х PicGraph.Print BytI 'Підписуємо масштаб Next BytI 'Вісь Y PicGraph.Line (0, 9)-(0, -9) For BytI = -9 To 9 PicGraph.PSet (0, BytI) 'Малюємо масштаб на осі У PicGraph.Print BytI 'Підписуємо масштаб Next BytI End Sub
Результат дивіться у файлі:.
Оцінка роботи учнів. Демонстрація правильного рішення на екрані. Розбір наявних помилок.
Презентація до уроку: . Виглядає натисканням кнопки PageDown.
1. Н.Угринович. Інформатика та інформаційні технології 10 -11.Москва. БІНОМ. Лабораторія базових знань. 2005.