Chute de particules - points et deplacements

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 933 fois - Téléchargée 42 fois

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

Ajouter un commentaire

Commentaires

Messages postés
10
Date d'inscription
jeudi 13 juin 2002
Statut
Membre
Dernière intervention
11 septembre 2002

Pourquoi ceci dans la carégorie VBA (Visual Basic pour Application: Word, Excel, autres ) alors que ce code est du VB (Visual Basic) , et qu'en VBA ca ne fonctionne pas ?
Messages postés
39
Date d'inscription
jeudi 11 avril 2002
Statut
Membre
Dernière intervention
5 juin 2006

La premiere des idées aurait été de ne pas faire cela en VB mais en C!!!
Messages postés
29
Date d'inscription
mardi 31 octobre 2000
Statut
Membre
Dernière intervention
2 mars 2003

Il aurait fallu 1000 variables ce qui est enorme et surtout l'effet de chute aurait disparu car le prog aurait saccadé. Il est préférable ici d'utiliser simplement les ListBox. En tout cas, si tu as des idées fait moi s'en part, je serai ravi!
Messages postés
47
Date d'inscription
mercredi 21 novembre 2001
Statut
Membre
Dernière intervention
2 avril 2007

Pourquoi être passé par des contrôles listbox pour contenir les coordonnées des points ? Des variables auraient suffit. Sinon ça fonctionne, et c'est assez sympa.
Messages postés
101
Date d'inscription
vendredi 30 août 2002
Statut
Membre
Dernière intervention
5 novembre 2004

heu ... c'est supposé faire quoi ?

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.