1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Chute de particules - points et deplacements

Chute de particules - points et deplacements

0/5 (5 avis)

Snippet vu 3 128 fois - Téléchargée 46 fois

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

Ajouter un commentaire Commentaires
Fredmane Messages postés 10 Date d'inscription jeudi 13 juin 2002 Statut Membre Dernière intervention 11 septembre 2002
6 sept. 2002 à 15:34
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 ?
alex1er Messages postés 39 Date d'inscription jeudi 11 avril 2002 Statut Membre Dernière intervention 5 juin 2006
6 sept. 2002 à 08:47
La premiere des idées aurait été de ne pas faire cela en VB mais en C!!!
Kooralyne Messages postés 29 Date d'inscription mardi 31 octobre 2000 Statut Membre Dernière intervention 2 mars 2003
5 sept. 2002 à 19:20
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!
cs_Cyrus Messages postés 47 Date d'inscription mercredi 21 novembre 2001 Statut Membre Dernière intervention 2 avril 2007
5 sept. 2002 à 11:23
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.
francktfr Messages postés 101 Date d'inscription vendredi 30 août 2002 Statut Membre Dernière intervention 5 novembre 2004
4 sept. 2002 à 17:33
heu ... c'est supposé faire quoi ?
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)