Ce code sert à animer en 3D une forme géometrique, ça commence par un cercle est se termine par un cercle via une succession de formes géomtrique en 3D, ça apparaît comme si la forme tourne dans l'espace.
Source / Exemple :
Me.AutoRedraw = True
Me.Show
DoEvents
Const pi = 3.141
Const z = 0.7
mm = 8
Dim i, j, k, l, m
Dim x, y, s, t As Double
For l = 1 To 6
For s = 0 To 1 Step 0.01
For t = 0 To 2 * pi Step 0.002
x = (1 - s) * Cos(t + pi * s) + s * Cos(2 * t)
y = (1 - s) * Sin(t + pi * s) - s * Sin(2 * t)
x = 100 * x + 200
i = x
y = 100 * y + 200
j = y
k = 255
Me.ForeColor = RGB(k, 0, 0)
Me.PSet (j * mm, i * mm)
Next t
DoEvents
Me.Refresh
Me.Cls
Next s
Next l
Conclusion :
Suite aux conseils des internautes, la rapidité de l'animation a été améloirée...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.