Этот фрагмент программы обеспечивает закраску формы изменяющимся цветом. Закраска обеспечивается рисованием в цикле цветных горизонтальных линий от левого края формы до правого края. Цвет линии в цикле изменяется.
Пример 2. Построить график функции у = -0.25х3 + 0.14х2 + 0.25 х – 25 на отрезке значений аргумента[-10,+10]. Анализ показывает, что область значений функции на этом отрезке: -270 < у < +270.
Option Explicit
Function Primer(x As Single) As Single
Primer = -0.25 * x ^ 3 + 0.14 * x ^ 2 + _ 0.25 * x - 25
End Function
Private Sub Form_Click() Dim x As Single
Scale (-10, -270)-(10, 270) 'установка масштаба
Cls 'очистка экрана
DrawWidth = 1 'установка толщины линии
Line (-10, 0)-(10, 0) 'рисование оси Х Line (0, -270)-(0, 270) 'рисование оси Y CurrentX = -10 'текущее значение Х
CurrentY = Primer(-10) 'текущее значение Y For x = Step 0.5
Line -(x, Primer(x)) 'построение графика Next
End Sub
Построенный график показан на рис. 58.
Рис. 58. Результат работы программы
12.2.Задания
1.Построить график функции y = 3х2.
101
2.Создайте проект и напишите программу "Светофор", позволяющую по нажатию кнопки "включать" заданный свет светофора.
3.Построить график функции Y = Cos(x) + 1 на отрезке [0; 2*Pi]
12.3. Порядок выполнения работы
Задание 1.
Построенный график приведен на рис. 59.
Рис. 59. Результат работы программы
Код программы:
Private Sub Command1_Click()
Picture1.Scale (-10, 15)-(10, -15) For i = -10 To 10
Picture1.Line (i, -15)-(i, 15), RGB(200, 220, 225) Picture1.PSet (i, 0)
Picture1.Print i Next
For i = -5 To 5
Picture1.Line (-10, i)-(10, i), RGB(200, 220, 225) Picture1.PSet (0, i)
Picture1.Print i Next
Picture1.Line (-10, 0)-(10, 0), QBColor(8) Picture1.Line (0, -15)-(0, 15), QBColor(8) For x = -5 To 5 Step 0.01
y = 3 * x ^ 2
Picture1.PSet (x, y), vbGreen Next
End Sub
102
Задание 2.
Созданный проект показан на рис. 60.
Рис. 60. Результат работы программы
Private Sub Form_Activate()
Picture1.Circle (450, 500), 300, RGB(255, 0, 0)
Picture1.Circle (450, 1200), 300, RGB(255, 255, 0)
Picture1.Circle (450, 1900), 300, RGB(0, 255, 0)
End Sub
Private Sub Command1_Click()
Picture1.FillColor = &H8000000F
Picture1.FillStyle = 0
Picture1.Circle (450, 1200), 300, RGB(255, 255, 0)
Picture1.Circle (450, 1900), 300, RGB(0, 255, 0)
Picture1.FillColor = QBColor(12)
Picture1.FillStyle = 0
Picture1.Circle (450, 500), 300, RGB(255, 0, 0)
End Sub
Private Sub Command2_Click()
Picture1.FillColor = &H8000000F
Picture1.FillStyle = 0
Picture1.Circle (450, 500), 300, RGB(255, 0, 0)
Picture1.Circle (450, 1900), 300, RGB(0, 255, 0)
Picture1.FillColor = QBColor(14)
Picture1.FillStyle = 0
Picture1.Circle (450, 1200), 300, RGB(255, 255, 0)
End Sub
Private Sub Command3_Click()
Picture1.FillColor = &H8000000F
103
Picture1.FillStyle = 0
Picture1.Circle (450, 500), 300, RGB(255, 0, 0)
Picture1.Circle (450, 1200), 300, RGB(255, 255, 0)
Picture1.FillColor = QBColor(10)
Picture1.FillStyle = 0
Picture1.Circle (450, 1900), 300, RGB(0, 255, 0)
End Sub
Задание 3.
Построенный график показан на рис. 61.
Рис. 61. Результат работы программы
Private Sub Command1_Click() For i = 0 To 2 * 10 * 3.14 Step 0.1 y = Cos(x) + 1
Picture1.Circle (300 * x, 300 * y), 40, RGB(100, 200, 100), 2.4, 3.5 Next
End Sub
12.4.Контрольные вопросы
1.Какие управляющие элементы VB относятся к графическим элементам?
2.Какие свойства графического объекта определяют вид линии, ее толщину, ее цвет, а также вид заполнения фигуры?
3.Каково назначение и синтаксис метода Line?
4.Каково назначение и синтаксис метода Circle?
5.На что влияет значение свойства FillStyle?
6.На что влияет значение свойства FillColor?
7.На что влияет значение свойства DrawWidth?
104