Discussion :

[fikou]

Bonjour,

J'aimerai génerer une liste de nombres aléatoires entre 1 et 30
j'ai besoins des 30 chiffres compris entre 1 et 30 et il ne faut pas qu'il y aie un chiffre identique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 0 To 30
    tab(i) = CInt((30) * Rnd())
    Label1.Text = tab(i)
Next i

Avec ce code des chiffres identiques reviennent.

En fait il me faut tous les chiffre de 1 à 30, je sais trier mais pas mélanger
Merci d'avance
Fikou

[Bluedeep]

Bonjour,

J'aimerai génerer une liste de nombres aléatoires entre 1 et 30
j'ai besoins des 30 chiffres compris entre 1 et 30 et il ne faut pas qu'il y aie un chiffre identique.

Désolé, mais ta demande semble contradictoire;

que veux tu faire ? tirer aléatoirement 30 nombres compris entre 1 et 30 ? essaye d'être plus précis, merci.

[fikou]

Re et merci pour ta réponse rapide.

En fait j'aimerai faire un tirage au sort.
30 personnes 30 numéros différents compris entre 1 et 30.
Peut on faire une sorte d'énumération de de 1 à 30 et la mettre dans le désordre ???
FikoU

[Mehdi Feki]

[C#] Aléatoire ???

[C#]Random

Random Class

[Bluedeep]

En fait j'aimerai faire un tirage au sort.
30 personnes 30 numéros différents compris entre 1 et 30.
Peut on faire une sorte d'énumération de de 1 à 30 et la mettre dans le désordre ???
FikoU

Tout d'abord, le générateur pseudo-aléatoire de .Net est comme la pluspart des générateurs de ce type seulement pseudo-aléatoire; en clair, une équiprobabilité des tirages n'est absolument pas garantie.

De même, il n'y a aucun moyen de lui dire de sortir un nombre garanti comme différent des n derniers nombres tirés.

Par ailleurs, quand le générateur est initialisé à partir d'une "graine" donnée, il sort toujours la même séquence de nombre.

Une solution est d'utiliser par exemple l'heure pour réinitialiser la séquence de tirage; mais encore une fois, ne pas d'attendre à une distribution équitable.

Un vrai générateur ne doit sortir que 0 ou 1, et cela de maniére équiprobable sur "un certain temps". (autant de 0 que de 1 sur un grand nombre de tirage).

Je me rapelle que j'avais bricolé un truc comme cela qui utilisait comme source le "bruit de fond" du réseau.

[Pol63]

Bonjour,

J'aimerai génerer une liste de nombres aléatoires entre 1 et 30
j'ai besoins des 30 chiffres compris entre 1 et 30 et il ne faut pas qu'il y aie un chiffre identique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 0 To 30
    tab(i) = CInt((30) * Rnd())
    Label1.Text = tab(i)
Next i

Avec ce code des chiffres identiques reviennent.

En fait il me faut tous les chiffre de 1 à 30, je sais trier mais pas mélanger
Merci d'avance
Fikou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
randomize
dim list_nb(30) as integer
 
for i as integer = 1 to 30
  list_nb(i) = i
next
 
for i as integer = 30 to 1
  msgbox(list_nb(cint(rnd*i)) ' ici se trouve le nombre aléatoire
  list_nb(cint(rnd*i)) = list_nb(i) ' la on met dans sa case le numéro qui se trouve en dernier
  redim preserve list(i) ' ici on retire la derniere case
next

avec un truc dans le genre ca devrait etre bon ...

[fikou]

Salut Sperot51 et merci

Je n'arrivae pas à faire tourner ton code.
J'ai essayé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
For i = 0 To 30
    iTrans = CInt((30) * Rnd())
    sComp = CStr(iTrans)
    sCompare = sCompare & "-" & sComp & "-"
    b = sCompare.Contains(sComp.ToString)
    If Not b Then
       tab(i) = iTrans
    End If
    Label1.Text = CStr(tab(i))
Next

Ce que je ne comprend c'est que b est toujours à true même si il y a des doublons (c'est pour cette raison que j'ai mis des tirets mais cela ne change rien)

FikoU

[SaumonAgile]

C'est très sale comme approche.
Tu pourrais au moins stocker les valeurs déjà tirées dans un tableau d'entier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

List<int>