Répétition de nombre généré
altozinzin
Messages postés
54
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
6 mai 2011
-
26 janv. 2006 à 14:31
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 26 janv. 2006 à 17:59
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 26 janv. 2006 à 17:59
5 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
26 janv. 2006 à 14:56
26 janv. 2006 à 14:56
Voilà un exemple de tirage unique d'éléments appartenant à un ensemble de nombres.
Cet algo, par exemple, te sort toutes les boules du loto (de 1 à 49), en ne tirant jamais deux fois la même.
Tu devrais en comprendre le principe assez facilement avec les commentaires.
Dim tableau(48) As Long
Dim l As Long
Dim nbBoulesRestantes As Long
Dim Choix As Integer
' On remplit un tableau avec les 49 boules.
' (nombres de 1 à 49)
For l = 0 To 48
tableau(l) = l + 1
Next l
' On initialise le générateur de nombres
' aléatoires.
Randomize Timer
For l = 0 To 48
nbBoulesRestantes = 48 - l + 1
Choix = Int(Rnd * nbBoulesRestantes)
' On affiche la boule sortie.
MsgBox tableau(Choix)
' On décale les éléments du tableau qui suivent.
For k = Choix To nbBoulesRestantes - 2
tableau(k) = tableau(k + 1)
Next k
Next l
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
Cet algo, par exemple, te sort toutes les boules du loto (de 1 à 49), en ne tirant jamais deux fois la même.
Tu devrais en comprendre le principe assez facilement avec les commentaires.
Dim tableau(48) As Long
Dim l As Long
Dim nbBoulesRestantes As Long
Dim Choix As Integer
' On remplit un tableau avec les 49 boules.
' (nombres de 1 à 49)
For l = 0 To 48
tableau(l) = l + 1
Next l
' On initialise le générateur de nombres
' aléatoires.
Randomize Timer
For l = 0 To 48
nbBoulesRestantes = 48 - l + 1
Choix = Int(Rnd * nbBoulesRestantes)
' On affiche la boule sortie.
MsgBox tableau(Choix)
' On décale les éléments du tableau qui suivent.
For k = Choix To nbBoulesRestantes - 2
tableau(k) = tableau(k + 1)
Next k
Next l
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
26 janv. 2006 à 14:59
26 janv. 2006 à 14:59
En gros, on tire les boules au sein d'un tableau qui est de plus en
plus petit. (on tire de 0 à nbBoulesRestantes,mais nbBoulesRestantes
diminue à chaque tour dans la boucle).
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
plus petit. (on tire de 0 à nbBoulesRestantes,mais nbBoulesRestantes
diminue à chaque tour dans la boucle).
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
altozinzin
Messages postés
54
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
6 mai 2011
26 janv. 2006 à 15:07
26 janv. 2006 à 15:07
ok merci, je vais regarder ça. @ bientôt
altozinzin
Messages postés
54
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
6 mai 2011
26 janv. 2006 à 15:22
26 janv. 2006 à 15:22
En fait ce que je voudrais c'est générer les nombres et les afficher au fur et à mesur dans des Label ou textbox.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
26 janv. 2006 à 17:59
26 janv. 2006 à 17:59
Salut,
Et bien avec le code de Econs, il te suffit de remplacer:
MsgBox tableau(Choix)
Par ce que tu veux. (tes labels ou tes textbox)
@+
Et bien avec le code de Econs, il te suffit de remplacer:
MsgBox tableau(Choix)
Par ce que tu veux. (tes labels ou tes textbox)
@+
