Süper Üye
[font=tahoma, verdana, arial]Gerekenler: 1 adet timer,1 adet label[/FONT]
[font=tahoma, verdana, arial]Komutumuz sayesinde animasyon yapabiliyoruz.[/FONT]
[font=tahoma, verdana, arial]Ben denedim. İsterseniz sizde deneyebilirsiniz.[/FONT]
PHP:
Private Sub Form_Load()
Timer1.Interval = 10
AutoRedraw = True
Label1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
Dim x, y
Static i
i = (i + 1) Mod 360
y = ScaleHeight / 2 + ScaleHeight / 2 * Sin(i * 3.1415 / 180)
x = ScaleWidth / 2 + ScaleWidth / 2 * Cos(i * 3.1415 / 180)
Label1.Top = y
Label1.Left = x
Line (ScaleWidth / 2, ScaleHeight / 2)-(x, y), i * 10
Label1 = i
End Sub[font=tahoma, verdana, arial]Ben denedim. İsterseniz sizde deneyebilirsiniz.[/FONT]
