График в полярных координатах на форме координатной сеткой - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д