Discussion :

[ne2sbeal]

voilà je m'explique je souhaiterais créer un programme qui face des tirages au sort.
Donc j'aimerais savoir comment trier des valeur aléatoirement

Par exemple j'ai comme variable "OM" "OL" "PSG" et je voudrais les ranger aléatoirement
Par exemple le résultat obtenu serait OL PSG OM ou OM PSG OL

Quelqu'un peu m'aider?

merci d'avance

[Pol63]

une solution possible :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Randomize
 
Dim Coll As New System.Collections.Generic.List(Of String)
Coll.Add("OM")
Coll.Add("PSG")
Coll.Add("OL")
 
Dim nbAlteatoire As Integer
Dim s As String
For i As Integer = 0 To 1000 'on fait 1000 déplacement d'ordre
    nbAlteatoire = CInt(Rnd() * (Coll.Count - 1)) 
 
    s= Coll(nbAlteatoire)
    Coll.Remove(s) ' on retire le string de la collection à l'index où il est
    Coll.Add(b) ' et on le remets dans la collection mais à la fin
Next

[ne2sbeal]

ok merci je vais tester mais je comprend pas les 2 dernières ligne en fet

[Pol63]

le principe c'est qu'on prend une collection, qu'on rempli

e0 e1 e2 e3 e4 e5 e6


on demande un nombre au hasard entre 0 et 6 prenons comme exemple 4
on met la valeur de e4 dans une variable, on retire ensuite e4 de la liste ce qui nous donne

e0 e1 e2 e3 e5 e6

puis on rajoutes l'element mis de coté

e0 e1 e2 e3 e5 e6 e4


et on répète ca plein de fois, donc ca mélange ...

[smyley]

1000 étapes pour trier 3 valeurs ? ... mouais
Sinon, j'ai ça (j'ai fait l'effort du vb .... merci les convertisseurs )

Code VB :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Overridable Function Randomisationner(Of T)(ByVal original As List(Of T)) As List(Of T)
    Dim result As New List(Of T)()
 
    Dim m As New Random(CInt(DateTime.Now.Ticks))
    Dim nx As Integer = 0
    While original.Count > 0
        nx = m.Next(0, original.Count)
        result.Add(original(nx))
        original.RemoveAt(nx)
    End While
 
    Return result
End Function
 
Public Sub Test()
    Dim equipes As List(Of String) = Randomisationner(Of String)(New List(Of String)(New String() {"OM", "OL", "PSG", "Brazil"}))
End Sub

[tomlev]

Encore une variation sur le même thème...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Public Shared Sub Shuffle(ByVal list As IList, ByVal nbSwaps As Integer)
        Dim rnd As Random = New Random()
        Dim i As Integer = 0
        For i = 1 To nbSwaps
            Dim i1 As Integer = rnd.Next(0, list.Count)
            Dim i2 As Integer = rnd.Next(0, list.Count)
            Swap(list, i1, i2)
        Next
    End Sub
 
    Public Shared Sub Swap(ByVal list As IList, ByVal i1 As Integer, ByVal i2 As Integer)
        Dim tmp As Object = list(i1)
        list(i1) = list(i2)
        list(i2) = tmp
    End Sub

Le paramètre nbSwaps indique le nombre d'échanges à effectuer : plus il est élevé, mieux la liste sera mélangée.

A priori c'est un peu plus performant que les méthodes précédentes (variable selon le nombre d'échanges bien sûr...), vu que ça ne fait pas de Add et de Remove. Et ça marche pour tout ce qui implémente IList (tableaux, collections en tous genre). Par contre ça ne renvoie pas une copie mélangée de la liste, ça mélange directement la liste elle même

PS: merci aussi au convertisseur C#/VB
dommage qu'il traduise un for par un While, et un i++ par System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)

[Pol63]

1000 étapes pour trier 3 valeurs ?

j'ai repris ca ... mais c'est en effet c'est à mettre en relation avec Coll.Count