Анимация: движение шарика по окружности - VB
Формулировка задачи:
Создать проект, движение шарика по окружности. Прошу помощи.
Решение задачи: «Анимация: движение шарика по окружности»
textual
Листинг программы
Option Explicit
Dim WithEvents tmr As Timer
Private Sub Form_Load()
Set tmr = Me.Controls.Add("VB.Timer", "tmr")
tmr.Interval = 32: AutoRedraw = True
End Sub
Private Sub tmr_Timer()
Static phase As Single, d As Single
d = IIf(ScaleWidth > ScaleHeight, ScaleHeight \ 3, ScaleWidth \ 3)
Me.Cls: Circle (Cos(phase) * d + ScaleWidth \ 2, Sin(phase) * d + ScaleHeight \ 2), d \ 2
phase = phase + 0.1
End Sub