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