fonction aleatoire

Question

javascript:void(0);
slt a tous j'ai un problème.En fait je suis buté sur le fait que je ne sais pas comment générer un nombre de façon aléatoire sans qu'il ne se répète.je doit générer a partir de la fonction rnd un nombre compris entre 1 et 93 sans qu'un nombre déjà afficher ne se répète.merci de votre aide

Sehnsucht · Answer

Bonjour,

Au lieu de chercher à générer un nombre dans ton intervalle sans répétition (faisable mais très peu performant car nécessite un test de vérification après chaque "génération" de nombre) ; essaies plutôt de partir d'un "tableau" (ou liste ou autre conteneur) contenant les différentes valeurs possibles, et génère un nombre aléatoire représentant une position du tableau, ensuite tu n'as qu'à récupérer le nombre à cette position, le supprimer le tableau et recommencer tant que le tableau n'est pas vide 

Cordialement !

P.S.: code volontairement non présent, afin de plus te permettre de trouver par toi-même, ce qui est toujours plus valorisant.

ucfoutu · Answer

Bonjour,
La fonction Rnd n'étant présente sous VB.Net (qui connait la classe Random) que pour assurer la compatibilité avec des applis précédemment développées sous VB6 ===>>
J'ai un doute sur ton outil de développement-.
Es-tu certain de ne pas finalement développer sous VB6 ou sous VBA de MsOffice ?


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

NHenry · Answer

Bonjour, 

ucfoutu, si l'espace de nom Microsoft.VisualBasic est importé, je crois que Rnd passe quand même, mais en .NET, c'est mieux d'éviter d'utiliser cet espace de nom.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

acive · Answer

Salut,

L'exemple de MSDN pour .NET dans CE LIEN

Cordialement



CF2i - Guadeloupe
Ingénierie Informatique

NHenry · Answer

Bonjour, 

Je préfèrerais plutôt :
http://msdn.microsoft.com/en-us/library/system.random.aspx
Ensuite, une collection listant les nombres possibles pour retourner une valeur une seule fois.

Acive, tu as changé ton avatar ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

ucfoutu · Answer

Bonjour, NHenry,

Oui, j'avais contrôlé et bien vu cette "héritage" avant d'écrire mon message.
Je demeure malgré tout interrogateur, car assez étonné de ce que azenti, apparemment débutant, utilise d'emblée une fonction "héritée"
J'attends donc malgré tout sa réponse.

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

acive · Answer

OUII!... Bien vu Henry... d'où tu nous sorts ces liens?... 


CF2i - Guadeloupe
Ingénierie Informatique

NHenry · Answer

Bonjour, 

Acive, Avec Google en précisant "MSDN" devant le nom de la classe/fonction cherchée

Azenti, On attends ta réponse.

Ucfoutu, Je pense que sur le net, les sujets traitant de VB.NET en utilisant des fonctions VB6 sont encore légions, donc, sa recherche vient peut être de là.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

acive · Answer

Oui, pas bête... je marque toujours VB et j'ai toujours 50 réponses sans rapport...

Et oui nous sommes curieux de voir ton code Azenti. 



CF2i - Guadeloupe
Ingénierie Informatique

ehjoe · Answer

Bonjour Mes Seigneurs,

Moi je ne comprends toujours rien à ce forume, le chemin est :

Accueil > Forum > VB.NET et VB 2005  > Divers  > General
 > fonction aleatoire 

VB5000 c'est vbNet5 (2005), car en vbNet je crois qu'il y a 2008, 2008, 2010 et désormais 2011, non ?
Donc c'est du vbNet\divers\
Donc question en vbNet divers et général (hum , c'est éloquant " divers et général")...

Le Roi là, je veux dire le chef, il pourrait pas demander aux mâitre de nous faire des forums corrects, soit :
- vb6 et inférieur
- vbNet 5 et supérieurs
???

*

Le temps, ben la première des choses comme susdit est de prendre une variable indicée, ainsi :



dim v (93) as integer
dim plein as boolean
dim g as integer
for i = 1 to 93
 v(i) = 0  ' charge à RAZ
next i
genere:
' g = GENERATION DU NOMBRE ENTIER 1 A 93 ICI '
plein = true
for i = 1 to 93
 if v(i) = 0 then  
  plein = false
  exit for
 end if
next i
if plein = true then goto fin ' tableau terminé
for i = 1 to 93
 if v(i) = g then ' existe then goto genere
next i
for i = 1 to 93 ' attribue
 if v(i) = 0 then 
  v(i) = g
  goto genere
 end if
next i
fin: 
' On utilise ensuite le tableau v(i) ...



*

Le code VB est :




Dim hasard As Integer
bis:
Randomize
hasard = Int((93 - 1 + 1) * Rnd + 1)



Mais on peut aussi faire du personnel



Dim h As Integer
Dim alternat as boolean = false
bis:
alternat = not alternat
if alternat true then h now.second + 1 ' 1 à 60
if alternat false then h now.second + 31 ' 31 à 90
' ?
goto bis
' ?
if ? goto fin
' ?
fin:



Cordialement, Joe.

acive · Answer

Salut,

Pourquoi compliquer ce qui est simple?...
Si vous aurais lu la page MSDN que Henri vous a envoyé, vous aurais fait comme ça:

Dim rand As New Random()
Dim i As Integer
For ctr As Integer = 0 To 4
    i = rand.Next(93) + 1
    If InStr(TextBox1.Text, i.ToString, CompareMethod.Text) > 0 Then
       ctr -= 1
    Else
       TextBox1.Text &= i & " "
    End If
Next



CF2i - Guadeloupe
Ingénierie Informatique

NHenry · Answer

Bonjour, 

Quand je vois des Goto en VB, j'en pleure ...

Voici ma proposition (codé à l'arrache, mais l'idée est là) :
Public Function GetAleatoire() as Integer()
Dim rand As New Random()
Dim i As Integer
Dim lLstNb as List(Of Integer)=new List(Of Integer)
dim lResult as List(Of Integer)=new List(Of Integer)

For i=1 to 93
lLstNb.Add(i)
next i

Do while lLstNb.Count>1
i=rand.Next(lLstNb.Count-1)
lResult.Add(lLstNb(i)
lLstNb.RemoveAt(i)
Loop

lResult.Add(lLntNb(0)

Return lResult.ToArray()
End Function

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

NHenry · Answer

Sur la ligne :
lResult.Add(lLntNb(0)
Il manque un )
lResult.Add(lLntNb(0))

---
Mon site

acive · Answer

Salut Henry,

Toi aussi tu as compliqué la chose.
Mon code est plus simple, testé, sans chiffres en double et les valeurs entre 1 et 93 uniquement.
Par contre je ne connais pas le nombre de chiffres qu'il veut (j'en ai mis 5, comme le loto)

Teste-le... j'ai été surpris de simplicité du code.




CF2i - Guadeloupe
Ingénierie Informatique

ehjoe · Answer

GoTo, instruction  
Crée une branche inconditionnelle vers une ligne spécifiée d'une procédure.

acive · Answer

Salut Joe,

Remarque de MSDN:

Les instructions GoTo peuvent rendre le code difficile à lire et à gérer. Si possible, utilisez à la place une structure de contrôle. Pour plus d'informations, consultez Flux de contrôle en Visual Basic.

Dans CE LIEN



CF2i - Guadeloupe
Ingénierie Informatique

ucfoutu · Answer

Ouais...
Quand vous aurez fini, je demanderai à mon frère jumeau de venir vous exposer le coup du Sapeur Camembert. Vous verrez 
mais j'attends d'abord que le demandeur, seul absent, se manifeste.


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ehjoe · Answer

Avis à la populacione 

Un GOTO bien placé peut petre la seule façon rationnelle de remonter le code, par ailleurs, pacé à bon excient il est largement préférable à des abus d'appels de procédure et fonction, ou à des tests conditionnels en surnombre.

Si vous n'aimez pas les goto n'en dégoutez pas les autres

acive · Answer

Re:

Comment expliques-tu alors que avec ce code:
Dim rand As New Random()
Dim i As Integer
For ctr As Integer = 0 To 4
    i = rand.Next(93) + 1
    If InStr(TextBox1.Text, i.ToString, CompareMethod.Text) > 0 Then
       ctr -= 1
    Else
       TextBox1.Text &= i & " "
    End If
Next


On arrive au résultat attendu sans un seul goto?


CF2i - Guadeloupe
Ingénierie Informatique

NHenry · Answer

Bonjour, 

GOTO en .NET peut être replacé dans la majorité des cas par un Exit ou un Continue.

Acive, mon code a l'avantage de n'utiliser que le nombre de tirage nécessaire pour lister.

D'autre part, ton code pose un problème, car si tu tires dans ce sens par exemple : 
32, 56, 42, 95, 3, 12
Le 3 ne sera pas pris en compte car il est déjà présent alors que ce n'est pas logique.

De fait utiliser une collection pour lister les nombres est préférable.
Tu pourra utiliser le membre IndexOf pour vérifier l'existence de la valeur.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

jmfmarques · Answer

Bonjour,

Bon ! puisque mon frère jumeau ucfoutu m'a réveillé :
J'ai déposé en effet un tout petit bout de code qui montre comment utiliser mle coup de ce fameux Sapeur Camembert :
Il est écrit en VB6, mais très facilement transposable en VB.Net  
Il y a tout !
- La listbox n'y est qe pour visualiser le résultat (pas pour "tirer") et peut être remplacée par n'importe quoi d'autre à votre guise
- je n'utilise aucune collection et ne risque pas de revenir sur un tirage déjà sorti

Attention : enlever la ligne qui dit 
a = a & vbCrLf & tabl(ou), que j'ai oublié d'effacer et qui ne sert à rien.
Voilà où je l'ai mis, ce petit bout de code
Je retourne dans mon coin, maintenant.

acive · Answer

Salut Henry,

Bien vu!!!
D'accord tu m'as "cassé la baraque"
Je le refais



CF2i - Guadeloupe
Ingénierie Informatique

ehjoe · Answer

Active,


Comment expliques-tu alors que avec ce code: 


Mais c'est 93 numéros qui doivent être produits dans un ordre peseudo aléatoire, et non 5.

Ton code boucle comme un forcené, car les petits numéros sont peu tirés, ce qui plante le prpogramme ! 
Ce qui est normal, il ne faut pas utiliser du textuel qui est trop long à la lecture, mais des vriables ou une liste...

Et ensuite tu n'as pas mis le code pour les récupérer et les utiliser, alors que moi y a plus qu'à dérouler v(i) en liste...

Un code élégant !

For ctr As Integer = 0 To 4


Un code inexpressif... en C

ctr -= 1
TextBox1.Text &= i & " "


...

Ben je préfère on code, il respect les règle de Basic (Qbasic), il est découpé comprégensible, gènère tout d'une coup est est ummédiatement utilisable, question de goût...

Pour le GOTO, quand c'est cette instruction qui est la plus appropriée, ne pas la mettre est un non-sens !
Fallait rester en c# ou en C si tu ne voulais pas utilier de goto, bien que, ça existe néanmoins.

ehjoe · Answer

Nn Henri,

Bonjour,

tu écris :


D'autre part, ton code pose un problème, car si tu tires dans ce sens par exemple :
 32, 56, 42, 95, 3, 12 
Le 3 ne sera pas pris en compte car il est déjà présent alors que ce n'est pas logique.


Tout dépend si on veut ou pas des doublons...

Ce que je veux dire est que quand le plus simple est de mettre un goto, on en met un tout simplement. Le but n'étant pas de l'éviter à contrario de ce que tu écris, mais de le mettre si besoin.

Tu serais bien incapable de me démontrer que mon goto perturbe le code, explique ?

Cordialement, Joe.

NHenry · Answer

Bonjour, 

Le Goto ne perturbe pas le code, mais le rend plus difficilement compréhensible.

Dans mon code, il y a aucun Goto, alors que le code rempli son office.
Dans la mesure du possible, il faut éviter Goto.
En regardant ton code, il est plus difficile de voir comment on boucle.

dim v (93) as integer
dim plein as boolean
dim g as integer
for i = 1 to 93
 v(i) = 0  ' charge à RAZ
next i
genere:
g = GENERATION DU NOMBRE ENTIER 1 A 93 ICI '
plein = true
for i = 1 to 93
 if v(i) = 0 then  
  plein = false
  exit for
 end if
next i
if plein = true then goto fin ' tableau terminé
for i = 1 to 93
 if v(i) = g then goto genere
next i
for i = 1 to 93 ' attribue
 if v(i) = 0 then 
  v(i) = g
  goto genere
 end if
next i
fin: 

Est-ce plus clair que : ?
Public Function GetAleatoire() as Integer()
Dim rand As New Random()
Dim i As Integer
Dim lLstNb as List(Of Integer)=new List(Of Integer)
dim lResult as List(Of Integer)=new List(Of Integer)

For i=1 to 93
lLstNb.Add(i)
next i

Do while lLstNb.Count>1
i=rand.Next(lLstNb.Count-1)
lResult.Add(lLstNb(i)
lLstNb.RemoveAt(i)
Loop

lResult.Add(lLntNb(0)

Return lResult.ToArray()
End Function

On voit beaucoup mieux comment on boucle, quelles sont les conditions qui sont appliquées.

De plus, mon système a l'avantage de ne pas boucler inutilement, générer un nombre qui est un double.

Si je reprends ton code sans Goto :
Public Function GetAleat() as Integer()
dim ltResult as List(Of Integer)=new List(Of Integer)
Dim rand As New Random()

Do While ltResult.Count<93
Dim lNb As integer=rand.Next(92)+1
if Not ltResult.Contains(lNb) then 
ltResult.Add(lNb)
end if
loop

Return ltResult.ToArray
End Function

C'est pas plus clair ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

ucfoutu · Answer

C'est en général lorsque l'on doit intervenir (pour maintenance) sur un code où règnent les Goto, que l'on se prend à maudire les spaghettis et celui qui les a mis à table.
Mais pas uniquement. Je me rappelle en avoir littéralement "bavé", ainsi que tous les autres de l'équipe que je dirigeais,  lors d'une transposition (Pick étant abandonné) d'un programme écrit en Pick Basic (hé oui : je suis un vieux, moi, et je connais ce langage aujourd'hui très rarement utilisé, sauf par certaines banques) vers un autre langage, à l'aide de "passerelles".
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ehjoe · Answer

Bonjour ucfoutu,

Connais-tu bien le PHP ?

Cordialement, Joe.

ucfoutu · Answer

Non !
je ne connais pas du tout ce langage ...
A ce propos : quand j'ai parlé du "langage" Pick et de "passerelles", je n'ai probablement pas été asse clair.
Pick (et Pick Ultimate, les deux) n'étaient pas seulement un "langage" (Pick Basic). Ils étaient également un système d'exploitation à part entière, système d'exploitation qui était par ailleurs, "in si mismo", une base de données. Et les passerelles, à partir de Pick Ultimate, étaient pour une exploitation sous Unix, les deux systemes "cohabitant" 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Pour que tu aies une petite idée de ce que c'était : un système d'exploitation et SGBD en lui même, entre autres 
____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ehjoe · Answer

Je connais le principe j'ai commencé sous système Bull France, avec un SE nommé ProgoluE et un langag appelé BAL, les deux écrits par la même société, du temps du CPM grâce à eux j'étais déjà en multi-postes-tâches et imprimantes, MsDos n'existait pas encore !

S'ils avaient proposés à IBM un OS gratuit contre un pourcentage comme MS, ce serait la France et BULL qui serait à la place de MS, nous qui étions déjà les inventeurs d'Internet (le minitel)...

Haute trahison mettant en péril les intérêts supéieurs de la Nation, et aucn gouvernement n'a fait "effacer" les dirigeants par l'ex DGSE, lamentable de laisser des traites incompétents en liberté...

acive · Answer

Re:
Pardon pour le retard:

        Dim Tirage As String
        Dim rand As New Random()
        Dim i As Integer
        Dim Numeros As String()
        Dim Doublon As Boolean

        For NombreDeTirages As Integer = 1 To 10
            Tirage = ""
            For ctr As Integer = 0 To 4
                Doublon = False
                i = rand.Next(93) + 1
                Numeros = Tirage.Split(New [Char]() {" "})
                For Each Chiffre In Numeros
                    If Chiffre = i.ToString Then ctr -= 1 : Doublon = True
                Next
                If Doublon = False Then Tirage &= i.ToString & " "
            Next
            Doublon = False
            For Each Ligne In ListBox1.Items
                If Ligne = Tirage Then NombreDeTirages -= 1 : Doublon = True
            Next
            If Doublon = False Then ListBox1.Items.Add(Tirage)
        Next


Dans un listbox sans doublons....

CF2i - Guadeloupe
Ingénierie Informatique

acive · Answer

Salut, tout le monde je sorts de ma plongée,
Excusez moi mais, je viens de lire un peu la suite de la discussion, je crois Azenti, quand il va revenir il va halluciner...

Donc EhJoe:
D'abord on voit de suite ta perspicacité en m'appelant Active, après tu dis:

'Un code inexpressif... en C
    ctr -= 1
    TextBox1.Text &= i & " " 
 
J'imagine que tu fais encore:

ctr = ctr - 1
TextBox1.Text = TextBox1.Text + " "

Ce qui fonctionne aussi (pour l'instant)...
Mais, aucun rapport avec le C la discussion est basée sur VB.NET.
Pour le C il faut demander à mon frère qui est enseignant en programmation à l'université.

Mais en premier tu dis:

Mais c'est 93 numéros qui doivent être produits dans un ordre peseudo aléatoire, et non 5.
Réflechit bien, qu'est ce qui t'impêche de remplacer:

For NombreDeTirages As Integer = 1 To 10 'Nombre de tirages
For ctr As Integer = 0 To 4 'Nombre de chiffres par tirage
Par:

For NombreDeTirages As Integer = 1 To 1000 'Nombre de tirages
For ctr As Integer = 0 To 93 'Nombre de chiffres par tirage

Et ça continue:
Ton code boucle comme un forcené, car les petits numéros sont peu tirés, ce qui plante le prpogramme ! 
Aucun rapport! ça ne veut rien dire ta phrase, sur quoi tu te bases?

J'aime bien le petit "les petits numéros sont peu tirés"... parce que tu crois que c'est moi qui les choisis?  C'est aléatoire!...

Et mon "prpogramme" ne plainte pas, car je n'utilise pas un ZX Spectrum 16 mégabits (pour ceux qui connaissent), j'ai un processeur cadencé à 2.6 GHz et je ne vois pas ce qui peut le faire planter.

Je programme aussi des processeurs en assembleur et pour ce qui est des plantages je m'y connais un peu...
 
Bon, j'arrête parce que je me suis fait engueuler récemment par Buno pour avoir dit ce que je pense.

Bonne prog à tous...

CF2i - Guadeloupe
Ingénierie Informatique

acive · Answer

Non pardon, je viens de me relire...

Quand tu dis "les petits numéros sont peu tirés" c'est normal j'avais une erreur dans mon code et grâce à Henry je l'ai rectifiée.

Par contre:
il respect les règle de Basic (Qbasic), il est découpé comprégensible, gènère tout d'une coup est est ummédiatement utilisable, question de goût... 

Le Qbasic date de 1981... (tu avais 25 ans), et la nous parlons de VB2010.
Et concernant le "ummédiatement utilisable, question de goût...", je dis: pourquoi pas lui faire un cd avec un autorun d'installation et sans bugs aussi? il est sensé programmer comme nous...



CF2i - Guadeloupe
Ingénierie Informatique

ehjoe · Answer

Bonjour acive,

Remets les choses en place :

Je donne un exemple qui tourne je présume.

Derrière tu viens, m'expliquant que tu fais mieux...

Je l'ance ton code, et je vois que c'est totalement boîteux.

Et c'est encore boîteux, au lieu de charger dans un variable immdiatement exploitable tu charges dans un texte (plus long, chacun le sait sauf toi), puis tu fais un tableau avec Split (j'ai lu rapidement), alors que le tableau moi je le fais directement...

Enfin bref, c'est toi qui est venu me dire que tu faisais mieux, pas moi, alors quand tu dis que tu fais mieux ça fait désordre quand ça ne marche même pas !

Cordialement, Joe.

ehjoe · Answer

acive, suite,

Je regarde rapidement...

Tu fais des boucles 0 to 4, 1 to 10...

La boucle selon la demande et sans doublons c'est 1 to 93, en quel honneur il n'y a rien nde tel ?

Ton choix de mettre en texte puis de le lire par une instruction de comparaison de texte et d'en faire un tableau est le plus mauvais choix, le plus lent !

Alors tu y arrives (si on veut), mais question vitesse t'a encore du travail...

Cordialement, Joe.

acive · Answer

Sans commentaire....


CF2i - Guadeloupe
Ingénierie Informatique

Sehnsucht · Answer

Bon comme tout le monde y est allé de son implémentation, autant mettre ma contribution (enfin j'ai dû changer d'idée, NHenry a piqué ma première idée d'implémentation ^^)
' 0.82s pour 1000000 d'éléments en moyenne sur 100 itérations
Public Function Shuffle(ByVal min As Integer, ByVal max As Integer) As Integer()
    Static rnd As New Random
    ' on multiplie la plage de rnd par 100 pour diminuer les collisions
    Dim count = max - min + 1
    Return Enumerable.
        Range(min, count).
        OrderBy(Function(n) rnd.Next(100 * count)).
        ToArray
End Function

Sinon un "brin" plus compliquée, mais environ (chez moi) 6 fois plus rapide
(implémentation du "Knuth Shuffle")
' 0.13s pour 1000000 d'éléments en moyenne sur 100 itérations
Public Function Shuffle2(ByVal min As Integer, ByVal max As Integer) As Integer()
    Static rnd As New Random
    Dim count = max - min + 1
    Dim range = Enumerable.Range(min, count).ToArray
    For i = 0 To count - 1
        Dim j = rnd.Next(count)
        Dim tmp = range(i)
        range(i) = range(j)
        range(j) = tmp
    Next
    Return range
End Function

Cordialement !

P.S. profitant de l'inférence, je n'ai pas typé explicitement toutes mes variables, mais je pense pas que cela gêne la compréhension.

DevLama · Answer

D'abord le rnd est un fonction qui gère des nombres aléatoirement grâce l'heure de ta machine les secondes varies à chaque momment 
il faut Faire :
Randmize timer avant l'instruction Rnd

Fonction aleatoire

38 réponses

Votre réponse

Discussions similaires