Графические возможности языка Visual Basic 5.0 11 класс по программе Н.Угриновича для общеобразовательных классов

Рисовать можно

На форме (Form)

В графическом окне (PictureBox)

Используемые методы:

Scale
позволяет задать систему координат и масштаб для формы или графического

Как использовать?

Picture1.Scale(x1,y1)-(x2,y2)

объект

метод

Используемые методы:

Pset
установка точки с заданными координатами и цветом

Как использовать?

Picture1.Pset(x,y)

объект

метод

Используемые методы:

Line
рисование линии, прямоугольника или окрашенного прямоугольника заданного цвета

Как использовать для линий?

Picture1.Line(x1,y1)-(x2,y2)

объект

метод

Как задать цвет линии?

Picture1.Line(x1,y1)-(x2,y2)

[,color]

Значение аргумента Color можно задать различными способами

Первый способ:

С помощью одного из восьми слов, обозначающих цвет
vbBlack
vbBlue
vbGreen

vbCyan
vbRed
vbMagenta
vbYellow
vbWhite

Пример использования

Picture1.Line(x1,y1)-(x2,y2),vbMagenta
При помощи такого способа можно задать 8 различных цветов

Второй способ:

С помощью функции QBColor (номер)
QBColor (2)
QBColor (5)
QBColor

Пример использования

Picture1.Line(x1,y1)-(x2,y2),QBColor(10)
При помощи такого способа можно задать 16 различных цветов

Третий способ:

С помощью функции RGB(число1,число2,число3)
целые числа в диапазоне
от 0

Пример использования

Picture1.Line(x1,y1)-(x2,y2),RGB(110,0,115)
При помощи такого способа можно задать 16 777 215

Как использовать LINE для рисования прямоугольника?

Picture1.Line(x1,y1)-(x2,y2),,B

Флажок, который является сигналом

Как закрасить прямоугольник?

Picture1.Line(x1,y1)-(x2,y2),,BF

Флажок, который является сигналом для закрашивания

Используемые методы:

Circle
позволяет рисовать окружности, овалы и дуги

Как использовать?

Picture1.Circle(x,y),r

радиус

Координаты центра окружности

Как закрасить замкнутую область?

Picture1.FillColor = vbBlue

Пример использования

Picture1.Circle(20,30),50
Добавляем цвет
Picture1.Circle (20,30),50,QBColor(10)

Как использовать Circle для рисования дуг?

Picture1.Circle(x,y),r,c,a1,a2,k

Начальный угол

конечный

Коэффициент сжатия

Угол указывается в радианах

Как перевести градусы в радианы?
Aрад. = Aгр.* П/180

Коэффициент

Коэффициент сжатия > 1

Коэффициент сжатия < 1

Пример использования
Picture1.Circle (30, 50), 50, QBColor(1), 0, 3.14 * 90

Практическая работа №1

Форма перед началом

После выполнения программы

Фрагмент программного кода:

Picture1.scale (0,50)-(100,0)
Picture1.Line (25,10)-(75,25),QBcolor(10),BF
Picture1.Line (25,25)-(50,40),QBcolor(3)
Picture1.Line (50,40)-(75,25),QBcolor(3)
Picture1.Line (30,15)-(50,20),vbBlue,BF
Picture1.Circle (50,30),5,QBcolor(5)