Графика в VISUAL BASIC 10 класс УМК Угринович Н.Д. учитель Болтенкова В.М. - презентация

1 Графика в VISUAL BASIC 10 класс УМК Угринович Н.Д. учитель Болтенкова В.М.

2 Базовые конструкции Graphics Device Interface – графический интерфейс устройств. Объект Graphics – область рисования: - 1 способ: метод CreateGraphics формы или элемента управления, на котором надо отобразить графику. Dim Graph1 As Graphics = PictureBox1. CreateGraphics();

3 Базовые конструкции - 2 способ: для создания растрового изображения, который можно сохранить как графический файл. Dim Image1 As New Bitmap(200,200) Dim Graph1 As Graphics = Graphics. FromImage(Image1) PictureBox1.Image=Image1

4 Базовые конструкции - 3 способ: использование события Paint формы или элемента управления, которое происходит при их создании или обновлении. В обработчике этого события одним из аргументов является е типа System.Windows.Forms.PaintEventArgs Private Sub PictureBox1_Paint (ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint Dim Graph1 As Graphics = Graphics. End Sub

5 Инструменты рисования Перо (линия) Dim Pen1 As New Pen (Color.red,3) Кисть закрашивание замкнутых фигур Dim Brush1 As New SolidBrush(Color.Blue) Цвет – значение свойства Pen1.Color=Color.green Brush1.color=color.red Метод - Color.FromArgb(Red,Green,blue) – Brush1.color=color.FromArgb(255,0,255) Элемент управления - ColorDialog ColorDialog1.ShowDialog() Pen1.Color=ColorDialog1.Color

6 Графические методы DrawLine() – метод рисования линии Graph1.DrawLine (Pen1,x1,y1,x2,y2) DrawRectangle() – метод рисования прямоугольника (рамка или внутренняя область) Graph1.DrawRectangle(Pen1,x1,y1,Width,Height) Graph1.DrawRectangle(Brush1,x1,y1,Width,Height)

7 Графические методы DrawEllipse() – метод рисования окружности или эллипса Graph1.DrawEllipse (Pen1,x1,y1,Width,Height) FillEllipse() – метод закраски окружности или эллипса с использованием кисти определенного цвета Graph1. FillEllipse (Brush1,x1,y1,Width,Height) Graph1.Clear() – метод стирания изображения в области рисования

8 Постановка задания Используя данные конструкции, нарисовать и раскрасить: 1) – треугольник; 2) – трапецию; 3) – пересекающиеся или вложенные окружности;

9 Критерии оценки Наличие всех фигур – 5. Наличие 3 фигур – 4. Наличие 2 фигур – 3.

10 Домашнее задание Прочитать стр Используя VBA к Microsoft Office, нарисовать дома Снеговика или Робота или Чебурашку. На повторение: Составить программу на Паскале: Вычислить среднее арифметическое произвольного числа заданных с клавиатуры чисел. Окончание ввода – число 0.