5/5 (7 avis)
Snippet vu 3 481 fois - Téléchargée 44 fois
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
9 juin 2007 à 17:03
18 mai 2002 à 19:09
dim j as integer, j as double, k as double, m as double, x as double y as double, s as double ,t as double, l as integer
et puis on peut accelerer le tout en stokant les operations executées plusieurs fois dans une variable par exemple a=1-s ; b=t+pi*s ; c=2*t
voial, ce sont de petits conseils pour optimiser le code.
18 mai 2002 à 18:04
18 mai 2002 à 14:15
18 mai 2002 à 03:05
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
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.