Построение объемного графика или объемной фигуры - VB

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

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

Привет всем. Нужно построит объемный график или объемную фигуру в Visual Basic. Например можно построить олимпийские кольца. Заранее всем благодарен

Решение задачи: «Построение объемного графика или объемной фигуры»

textual
Листинг программы
Dim k%, t, j, rr, cc
 
Private Sub Form_Load()
    Me.BorderStyle = 5: k = 3: Timer1.Interval = 10: Me.Width = Me.Height: DrawWidth = 5: Me.Scale (-100, 100)-(100, -100): rr = 40: cc = 1
     autoredraw=True: 
End Sub
 
Sub mn(k%, kf)
 
For r = 1 To rr Step 2
      a0 = 8 * Atn(1) / k
      For i = 1 To k
              a = a + a0
              x = r * Cos(kf + a): y = r * Sin(kf + a)
              X1 = r * Cos(kf + a + a0): Y1 = r * Sin(kf + a + a0)
              ForeColor = RGB(90 * i, 3 * r, cc)
              For j = 0 To 3
                    Line (x + 10 * j - 20, y + 10 * j - 20)-(X1 + 10 * j - 20, Y1 + 10 * j - 20)
              Next
       Next
Next
 
End Sub
 
Private Sub Timer1_Timer()
      Me.Cls
      If t < 360 Then t = t + 0.05 Else t = 0.05
      mn k, t * Atn(1)
End Sub

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


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

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

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