End Sub

Next I

Circle (X, Y), R, C

Private Sub Command1_Click()

Circle (1500, 1500), 100, 65535

Line (0, 0)-(4672, 3187), 255, BF

Закрашенный прямоугольник - Line

Line (0, 0)-(4672, 3187), 7, B

Line (0, 0)-(11977, 8617), 7, B

End Sub

Next I

Private Sub Command1_Click()

Line (1000,500)-(2000,1000),7

Цвет в Visual Basic

В VB существует 16 777 216 цветов. Каждый цвет можно указывать в виде цифры. Кроме этого имеется способ указывать цвет словом:

Черный	vbBlack
Красный	vbRed
Зеленый	vbGreen
Желтый	vbYellow
Синий	vbBlue
Сиреневый	vbMagenta
Голубой	vbCyan
Белый	vbWhite

Изображение линий - Line

(читается лайн, переводится линия).

х1, у1 – координаты начала линии,

х2, у2 – координаты конца линии,

с – цвет.

Пример:

Создадим пробную программу, рисующую 30 линий

For i = 1 To 30

X1 = Rnd * 12000

Y1 = Rnd * 9000

X2 = Rnd * 12000

Y2 = Rnd * 9000

c = Rnd * 16777215

Line (X1, Y1) – (X2, Y2), C

Запустите программу. Можете поэкспериментировать, изменив строку:

Line (6000, 4500) – (X2, Y2), C

Изображение прямоугольника - Line

(х1, у1) и (х2, у2) – координаты противоположных вершин прямоугольника, лежащих на одной диагонали.

C – цвет.

В –(от Bar –ба полоска "прямоугольной формы").

В пробной программе добавим букву B.

Аналогично предыдущему, с небольшой добавкой:

F – от Flood (читается – флуд, переводится заливка, заполненный)

В пробной программе добавим буквs BF.

Изображение окружности – Circle

Circle (Читается сёкл, переводится круг)

х, у – координаты центра окружности

R – радиус,

С – цвет.

Пробная программа для окружности будет выглядеть так:

For i = 1 To 30

X = Rnd * 12000

Y = Rnd * 9000

R = Rnd * 2000

c = Rnd * 16777215

Изображение дуги окружности – Circle

За основу берётся окружность и добавляется начальный и конечный угол дуги относительно положительного направления оси Х.

a1 – начальный угол, a2 – конечный угол. Углы измеряются в радианах.

Задача: Построить дугу с центром в точке (1000, 2000) и радиусом 500 твипов, цвет дуги 100000.

а) начальный угол которой 45°, а конечный 135°,

б) начальный угол которой 180°, а конечный 270°

Решение: а) Circle (1000, 2000), 500, 100000, 45*3.14/180, 135*3.14/180

б) Circle (1000, 2000), 500, 100000, 3.14, 3/2*3.14

Изображение эллипса – Circle

В VB эллипс от окружности отличается эксцентриситетом. В Бейсике эксцентриситет определяется как отношение радиуса по оси У к радиусу по оси Х, т.е. Е=R_y/R_x.

Е – эксцентриситет. На начальном этапе определяется подбором. Три запятые идущие подряд означают пустые значения углов для дуг. Для окружности Е = 1. (R_y₌R_x).

Е > 1, 0 < Е < 1

Circle (1000,1000),400,100000,,,4 Circle (1000,1000),400,100000,,,0.5

Пробная программа для эллипса будет выглядеть так: