End Sub. : Установка системы координат (кнопка «Установка шкалы»)

: Установка системы координат (кнопка «Установка шкалы»):

Private Sub Command2_Click()

Picture1.DrawWidth = 3

Picture1.Line (200, 200)-(500, 800), vbMagenta, B

'Picture1.DrawWidth = 1

'Picture1.Line (200, -200)-(550, -1000),, B

Picture1.FillStyle = 0

Picture1.FillColor = vbGreen

Picture1.Line (-2000, -2000)-(-1900, 2000),, B 'Почему прямоугольник зеленый?

Picture1.FillStyle = 1

'Трасса Е95

a1 = -1900 'min X левая граница

b1 = 200 'max X правая граница

a2 = 800 'min Y верхняя граница

b2 = 200 'max Y нижняя граница

n = 300 'Длина участка

xn = Val(Text1.Text)

yn = (a2 - b2) \ 2 + b2

s = 0

Do

s = s + 1

'MsgBox " Участок трассы № " + Str(s)

xk = ((xn + n) - xn) * Rnd + xn

yk = (b2 - a2) * Rnd + a2

If xk > b1 Then

Picture1.Line (xn, yn)-(b1, yk)

Else

Picture1.Line (xn, yn)-(xk, yk)

End If

xn = xk

yn = yk

Loop While s < 40 And xk <= b1

Picture1.DrawWidth = 1