Осуществить вращение линии и ее перемещение - 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