4.Графика VB. Использование графических методов для

Графика Visual Basic.
Цвета в VB:
RGB(0, 0, 0) – черный;
RGB(0, 255, 0) – зеленый;
RGB(255, 0, 0) – красный;
RGB(255, 255, 0) – желтый;
RGB(0, 0, 255) – синий;
RGB(0, 255, 255) – голубой;
RGB(255, 0, 255) – фиолетовый;
RGB(255, 255, 255) – белый;
Графические методы:
Line(X1,Y1)-(X2,Y2)
- линия, где (X1,Y1) – начало, (X2,Y2) – конец.
Line(X1,Y1)-(X2,Y2), RGB(255, 0, 0),B - незакрашенный прямоугольник
(рамка), где (X1,Y1) – левый верхний угол, (X2,Y2) – правый нижний
угол, RGB(255, 0, 0) – цвет красный, B – рамка;
Line(X1,Y1)-(X2,Y2), RGB(255, 0, 0),BF – закрашенный RGB(255, 0, 0)
красным цветом прямоугольник;
Circle(X,Y),R – окружность с центром в (X,Y) и радиусом R;
Pset(X,Y),RGB(255, 0, 0) – точка с координатами (X,Y) и цветом
RGB(255, 0, 0);
ForeColor = RGB(255, 0, 0) –установка цвета рамок, окружностей,
точек;
FillColor= RGB(255, 0, 0) - установка цвета заливки рамок,
окружностей;
FillStyle = 3 - установка стиля заливки; (ниже приведены все стили)
CLS – очистка формы или графического объекта.
Point(X,Y) – определяет цвет в указанной точке.
Некоторые свойства формы в VB.
Height – высота формы;
Width – ширина формы;
Единица измерения в VB twp – твипы (10 twp = 1 точка на экране)
Изменять ширину и высоту формы можно разными способами:
1. Мышкой (ЛКМ на квадраты границ формы);
2. В окне свойств;
3. Непосредственно в
программе:
Private Sub Form_Load()
AutoRedraw = True
Height = 4000
Width = 6000
End Sub
Координаты в VB.
0,0
0,Height
Width, 0
Использование графических методов
Масштаб: 1 клетка 100
twp
500
1700, 200
200, 200
500
2600, 500
1000, 800
200, 1200
2100, 1100
900, 1600
Задание №1.
Набрать программу. Запустить на выполнение. Проверить выполнение
программы с рис.
Private Sub Form_Load()
Form1.AutoRedraw = True
‘незакрашенный прямоугольник
Line (200,200)-(1000,800),,B
‘закрашенный прямоугольник желтого цвета RGB(255,255,0)
Line (1700,200)-(2600,500),RGB(255,255,0),B
‘линия красного цвета RGB(255,0,0)
ForeColor = RGB(255,0,0)
Line (200,1200)-(900,1600)
‘ закрашенная окружность: стилем 7, синим цветом
FillColor = RGB(0,0,255)
FillStyle = 7
Circle (2100, 1100),300
End Sub
Задание №2:
Используя графические методы, составить программу вычерчивания
данного рисунка:
Private Sub Form_Load()
Form1.AutoRedraw = True
‘ кузов
Line (0, 1000)-(3000, 1500), , B
‘ кабина
Line (4500, 1500)-(4500, 1000)
Line (4500, 1000)-(4000, 1000)
Line (4000, 1000)-(4000, 300)
Line (4000, 300)-(3000, 300)
Line (3000, 300)-(3000, 1000)
Line (3000, 1500)-(4500, 1500)
FillStyle = 4
Line (4000, 1100)-(4400, 1400), , B
FillStyle = 7
Line (3100, 400)-(3900, 1400), , B
Line (3200, 500)-(3800, 1000), RGB(0, 255, 0), BF
‘ колеса
FillStyle = 6
Circle (1000, 1800), 300
Circle (3500, 1800), 300
FillStyle = 0
Задание №3:
FillColor = RGB(255, 255, 0)
Загрузить грузовик кирпичиками
Circle (1000, 1800), 150
(прямоугольниками одинаковой
Circle (3500, 1800), 150
ширины и высоты).
End Sub