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

6 7 8 9 10 11 12

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

Private Sub Form_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

If cross = 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.