Графические возможности языка Visual Basic. Рисование графических примитивов На формах (Form) В графических полях (окнах) (PictureBox) - презентация

1 Графические возможности языка Visual Basic

2 Рисование графических примитивов На формах (Form) В графических полях (окнах) (PictureBox)

3 Графическое поле PicterBox Name - PicGraph Выполните задание: создайте интерфейс будущего проекта следующим образом: При щелчке на кнопке ПУСК в графическом поле будут выводиться графические примитивы: точка, линия, прямоугольник, закрашенный прямоугольник, окружность.

4 Графические примитивы (точка, линия и т.д.) рисуются с помощью графических методов

5 Графический метод Scale Объект.Scale(x1,y1) – (x2,y2) – задает систему координат и масштаб для формы и графического поля. (x1,y1) и (x2,y2)– координаты противоположных углов объекта.

6 Графический метод Pset Объект.Pset (x,y), цвет – устанавливает точку с координатами x,y заданного цвета.

7 Цвета: 1 способ: vbBlack – черный vbBlue – синий vbGreen – зеленый vbCyan – голубой vbRed – красный vbMagenta – сиреневый vbYellow – желтый vbWrite - белый 2 способ: QBColor(номер) 0 – черный 1 – синий 2 – зеленый 3 – и т.д. до 15 (всего 16 цветов)

8 Private Sub Command1_Click() PicGraph.Scale (0, 350)-(350, 0) PicGraph.PSet (10, 10), vbRed End Sub Выполните задание: в программном коде кнопки ПУСК запишите команды для задания системы координат и установки точки. Измените строку PicGraph.Scale (0, 350)-(350, 0) на PicGraph.Scale (350, 0)-(0, 350). Обратите внимание на изменение местоположения начала координат. Запустите проект Обратите внимание, где располагается точка начала координат.

9 Графический метод Line Объект.Line (x1,y1)-(x2,y2), цвет – рисует линию. Объект.Line (x1,y1)-(x2,y2), цвет, B – рисует прямоугольник. Объект.Line (x1,y1)-(x2,y2), цвет, BF – рисует закрашенный прямоугольник.

10 Графический метод Circle Объект.Circle (x,y), радиус, цвет – рисует окружность заданным цветом с центром в точке (x,y)

11 Private Sub Command1_Click() PicGraph.Scale (0, 350)-(350, 0) PicGraph.PSet (175, 175), vbRed PicGraph.Line (0, 0)-(100, 160), QBColor(12) PicGraph.Line (100, 100)-(250, 40), QBColor(10), B PicGraph.Line (100, 200)-(250, 260), QBColor(10), BF PicGraph.Circle (250, 300), 20, 15 End Sub Выполните задание: допишите программный код кнопки ПУСК Экспериментальным путем самостоятельно определите цвета от 0 до 15

12 Private Sub Command2_Click() PicGraph.Cls End Sub Выполните задание: запишите программный код кнопки Очистить

13 Сохраните проект в папке «Знакомство с графическими примитивами»