Урок 7 Графические возможности VBasic

Урок 7 Графические возможности VBasic

На форме создать размером 317х317 с именем Р1

Система координат и масштаб

Имя_объекта. SCALE (Х1, Y1) – (X2,Y2)

Где X1.Y1 - Координаты левого верхнего угла сетки

X2.Y2 - Координаты правого нижнего угла сетки

l  Form1.SCALE (-100,100) – (100,-100)

l  Picture. SCALE (-50,20) – (50,-20)

На форме создать кнопку «линия»

Рисование линии, прямоугольника

Имя_объекта. LINE (X1,Y1) – (X2,Y2),color, BF

X1,Y1 и X2,Y2 координаты концов линии (левого и правого)

Color – цвет (vbred)

B – при необходимости рисования прямоугольника

F – при необходимости закрашивания прямоугольника

Ввести пример:

Private Sub Command1_Click()

'линии, прямоугольники

P1.Line (10, 10)-(300, 10) 'горизонтальная

P1.Line (150, 10)-(150, 300), vbGreen ‘вертикальная

P1.Line (150, 10)-(10, 300), vbRed ‘диагональ

P1.Line (160, 160)-(300, 300), ,’ квадрат

P1.Line (10, 160)-(140, 260), vbBlue, BF ‘голубой прямоугольник

End Sub

На форме создать кнопку «круг»

Рисование эллипса, круга, дуги сектора

Имя_объекта. CIRCLE (X, Y),R, color, start, end, k

X, Y координаты центра

R - радиус

Color – цвет (vbred)

Start – начальный угол дуги задается в радианах (0; 1.57; 3.14; 4.71)

End – конечный угол дуги задается в радианах (0; 1.57; 3.14; 4.71)

k – коэффициент сжатия (для эллипса) задается Ry/Rx>1, Ry/Rx<1

Private Sub Command2_Click()

'окружность, эллипс, дуга, сектор

P1.Circle (155, 155), 120, vbRed ' окружность

P1.Circle (155, 155), 110, vbBlue, 0, 3.14 ' дуга

P1.Circle (155, 155), 100, vbGreen, 3.14, 1.57 'дуга

P1.Circle (155, 155), 100, vbYellow, 1.57, 3.14 'дуга

P1.Circle (155, 155), 80, , 0.7 'эллипс Ry/Rx<1

P1.Circle (155, 155), 80, , 1.5 'эллипс Ry/Rx>1

P1.Circle (155, 155), 70, , 0, 4.71, 1.5 'дуга эллипса

P1.Circle (155, 155), 40, vbMagenta, -1.57, -0, 1.5 'сектор эллипса

End Sub

На форме создать кнопку «точка»

Рисование точки

Имя_объекта. PSET (X, Y),[color]
Имя_объекта – имя формы или имя графического окна
X и Y – координаты точки в системе установленной шкалы
color – цвет точки (необязательный параметр

Пример:
P1.PSET (100,120),vbRed

Private Sub Command3_Click()

‘горизонтальная линия

For i = 10 To 300 Step 10

P1.PSet (i, 150),vbgreen

Next i

End Sub

САМОСТОЯТЕЛЬНО:

вывести 30 точек по вертикали вывести 60 точек по диагонали вывести решетку: 10 линий по вертикале и 10 линий по горизонтали вывести 5 концентрических колец из одного центра