End Sub

 

‘ обработка события Paint

Private SubForm_Paint ()

Line (x0, y0) – (x0, y0 – h) ‘ ось Х

Line (x0, y0) – (x0 + w, y0) ‘ ось Y

 

 

‘засечки, сетка и оцифровка по оси X

x = x0 + dx

lx = dlx

While(x < x0 + w)

Line (x, y0 + 3 ) – (x, y0 – 3) ‘ засечка

 

cross = cross – 1

Ifcross = 0 Then‘оцифровка

Forml.CurrentX = x – 8

Forml.CurrentY = y0 + 5

Print Format$(lx, “0.0”)

cross = dcross

 

End If

Forml.DrawStyle = 2	‘ задание типа линии ‘ пунктирный
Line ( x, y0 – 5) – (x, y0 – h)	‘ линия сетки
Forml.DrawStyle = 0	‘задание типа линии ‘сплошной

lx = lx + dlx

x = x + dx

 

Wend

‘ засечки, сетка и оцифровка по оси Y

y = y0 – dy

ly = dly

While(y > y0 - h)

Line (x0 – 3, y) – (x0 +3, y) ‘ засечка

Forml.CurrentX = x0 – 22 ‘оцифровка

Forml.CurrentY = y – 5

Print.Format$(ly, “0.0”)

Forml.DrawStyle = 2

Line (x0 +5, y)-(x0 +w, y) ‘линия сетки

Forml.DrawStyle = 0

y = y - dy

ly = ly + dly

Wend

End Sub

 

6. Программа вычеркивает график фкункции (в данном примере функция имеет вид 2sin(x)e^x/5) на поверхности формы. Окно программы приведено на рис. 2.7.

 

 

‘ инициализация формы

Private Sub Form_Initialize()

Form1.BackColor = RGB (255, 255, 255)

End Sub

 

‘ функция, график которой будет построен

Functionf (x As Single) As Single

f = 2 * Sin(x) * Exp(x/5)