Chute de particules - points et deplacements

Commenter

Contenu du snippet

Copier le code sur une feuille après avoir créer 5 listes nommées:
List1, List2, List3, List4 et List5.

Source / Exemple : 


Sub gener()
Dim a, b, c, d, e, comp, desc, nvs, lstt
For comp = 0 To 200
Randomize
a = Int(4000 * Rnd)
b = Int(4000 * Rnd)
c = Int(256 * Rnd)
d = Int(256 * Rnd)
e = Int(256 * Rnd)
Form1.List1.AddItem a
Form1.List2.AddItem b
Form1.List3.AddItem c
Form1.List4.AddItem d
Form1.List5.AddItem e
Form1.PSet (a, b), RGB(c, d, e)
Next comp
For desc = 0 To 60
Form1.Cls
For nvs = 0 To 200
Form1.List2.List(nvs) = Form1.List2.List(nvs) + 60
Form1.PSet (Form1.List1.List(nvs), Form1.List2.List(nvs)), RGB(Form1.List3.List(nvs), Form1.List4.List(nvs), Form1.List5.List(nvs))
Next nvs
Next desc
Form1.Cls
For lstt = 200 To 0 Step -1
Form1.List1.RemoveItem (lstt)
Form1.List2.RemoveItem (lstt)
Form1.List3.RemoveItem (lstt)
Form1.List4.RemoveItem (lstt)
Form1.List5.RemoveItem (lstt)
Next lstt
p = MsgBox("Recommencer ?", vbQuestion + vbYesNo, "Recommencer?")
If p = vbYes Then
gener
Else
End
End If
End Sub

Private Sub Form_Activate()
gener
End Sub

Conclusion :


Mon adresse e-mails: Kooralyne@aol.com

A voir également

S'inscrire maintenant

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.

Du même auteur (Kooralyne)