График в полярных координатах на форме координатной сеткой - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте Дело вот в чем, нарисовал координатную сетку, код представлен ниже, теперь надо нарисовать график в полярных координатах, точнее Улитку Паскаля, как связать координаты сетки с графиком, чтобы график был в сетке? Благодарю за любую помощь

Решение задачи: «График в полярных координатах на форме координатной сеткой»

textual
Листинг программы
Dim x0, y0 As Integer ' координаты начала координатных осей
Dim dx, dy As Integer ' шаг координатной сетки по X и Y
Dim h, w As Integer ' высота и ширина области вывода координатной сетки
Dim x, y As Integer
Dim lx, ly As Double '  оцифровка линий сетки по осям X и Y
Dim dlx, dly As Double ' шаг оцифровки
Dim cross As Integer ' счетчик не оцифрованных линий сетки
Dim dcross As Integer ' количество не оцифрованных линий между оцифрованными по оси X
 
Private Sub Form_Initialize()
w = 512
h = 360
x0 = 50
y0 = 35 + h
dx = 30
dy = 30
dcross = 1
dlx = 0.5 ' шаг меток оси X
dly = 1 
cross = dcross
Form1.ScaleMode = 3
End Sub
 
Private Sub Form_Paint()
Line (x0, y0)-(x0, y0 - h) ' ось X
Line (x0, y0)-(x0 + w, y0) ' ось У
 
' засечки, сетка и оцифровка по оси X
x = x0 + dx
lx = dlx
While (x < x0 + w)
Line (x, y0 + 3)-(x, y0 - 3) 
cross = cross - 1
If cross = 0 Then
Form1.CurrentX = x - 8
Form1.CurrentY = y0 + 5
Print Format$(lx, "0.0")
cross = dcross
End If
Form1.DrawStyle = 2 
Line (x, y0 - 5)-(x, y0 - h) 
Form1.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) 
Form1.CurrentX = x0 - 22 
Form1.CurrentY = y - 5
Print Format$(ly, "0.0")
Form1.DrawStyle = 2
Line (x0 + 5, y)-(x0 + w, y)
Form1.DrawStyle = 0
ly = ly + dly
y = y - dy
Wend
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.5 из 5
Похожие ответы