Discussion :

[Danyel]

Salut All,

Je cherche un algo ou une class qui me permettrait de faire un melange dans un tableau simple de donnees en short. (environ une centaine de donnees)

Voici un exemple sur 1 tableau à 5 donnees :

Code :

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

Dim TableauX() as Short = New Short(4) { 0, 1, 2, 3, 4 }

et je voudrais, apres melange, que le TableauX comporte toutes les donnees initiales, mais dans le/un desordre aleatoire.

J'ai cherche du cote de Array.Sort mais choux blanc pour un aleaoire.
Merci pour votre aide.

++ Danyel.

[Totanne]

Salut l'insomniaque (Msg posté a 5h28 ... )
Je ne me rappelle pas de la syntaxe Random mais le plus simple serait je pense une Function dans le genre de celle ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function Melange( T1() as integer) as integer()
	Dim C as integer
	Dim T2(T1.length-1) as integer
	For i as integer = 0 to T2.length-1
		C = chiffre aléatoire entre [ 0 et T1.length-1 ]
		T2(i) = T1(C)
		'suppression de la case utilisée
		For J as integer = C to T1.length - 2
			T1(J) = T1(J+1)
		Next
		Redim Preserve T1(T1.Length-2)
	Next
	Return T2
End Function

Je n'est pas testé le code, donc si ton écran se met à fondre pendant l'execution je ne suis en aucun cas responsable.
Tiens moi au courant ...

[Danyel]

Merci Totanne.
Je vais (essayer de) regarder ton code et voir si mon ecran va fondre


PS : Ouais en ce moment j'ai tendance à tirer sur la corde comme on dit

[Danyel]

Apres corrections et tentatives, il semblerait que ca fonctionne correctement comme ceci

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
Public Function Melange(ByVal T1() As Short) As Short()
        Dim C As Integer
        Dim T2(T1.Length - 1) As Short
        For i As Integer = 0 To T2.Length - 1
            'C = chiffre aléatoire entre [ 0 et T1.length-1 ]
            Randomize()
            C = (T1.Length - 1) * Rnd()
            T2(i) = T1(C)
            'suppression de la case utilisée
            For J As Integer = C To T1.Length - 2
                T1(J) = T1(J + 1)
            Next
            ReDim Preserve T1(T1.Length - 2)
        Next
        Return T2
End Function

J'ai change les integer en short car mon tableau est evidemment en short.
Je suis en train de controler si toutes les donnees sont presentes et sans doublon.


PS : pour info voici le code de generation aleatoire entre 2 valeurs distinctes

Code :

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

randomvalue = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))

[Totanne]

randomvalue = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))

Si ton PostScriptum est bon, du coup il doit y avoir erreur dans le calcul de C :
- Lower devient 0
- Upper devient T1.length -1
- randomvalue = ((T1.length -1) - 0 + 1) * Rnd() + 0
soit : C = T1.Length * Rnd() et non pas C = (T1.Length-1) * Rnd()

... d'un autre coté si ca marche

[Danyel]

Oui je sais !!!
Quand je laisse la veritable fonction, ca me donne un indice en dehors lors de l'execution.

...
Je vais quand meme rejeter un oeil
...

Tu m'as remis le doute