Осуществить вращение линии и ее перемещение - VB

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

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

есть линия, которая является спицей колеса. как сделать так, чтобы она вращалась? фрагмент кода:

Решение задачи: «Осуществить вращение линии и ее перемещение»

textual
Листинг программы
Option Explicit
 
Dim Grad As Integer
 
Private Sub Form_Load()
      Me.Height = 6000
      Me.Width = Me.Height
      Scale (-10, -10)-(10, 10)
      AutoRedraw = True
      DrawWidth = 2
      Timer1.Interval = 10
End Sub
 
Private Sub Timer1_Timer()
    Cls
    If Grad < 360 Then Grad = Grad + 1 Else Grad = 0
    Line (Cos(6.28 / 360 * Grad) * 2, Sin(6.28 / 360 * Grad) * 2)- _
         (Cos(6.28 / 360 * Grad) * 9, Sin(6.28 / 360 * Grad) * 9)
End Sub

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

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