Discussion :

[stracoma]

Bonjour à vous tous.
Depuis des heures que je révise le code suivant pour trouver mon erreur, mais je n'arrive pas.
Le but est de copier les éléments d'un tableau dans un autre mais de manière aléatoire .

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
18
19
20
21
22
23
24
25
26
27
28
29
 
Module Module1
 
    Sub Main()
        Dim tablo1() As Integer = {1, 2, 3, 4, 5, 6}
        Dim tablo2(5) As Integer
        Dim hasard As New Random
 
 
        For i As Integer = 0 To 5
            Dim oui As Boolean = True
            Dim x As Integer = 0
            Do
                x = hasard.Next(0, 6)
                For j As Integer = 0 To tablo2.Count - 1
                    If (tablo2(j) = tablo1(x)) Then
                        oui = False
                    End If
                Next
            Loop While (oui = False)
            tablo2(i) = tablo1(x)
            Console.WriteLine(tablo2(i))
        Next
 
        Console.ReadKey()
 
    End Sub
 
End Module

A l'affichage, j'ai un tableau de 4 éléments, une autres fois 1 éléments, 2 éléments ....
Merci de votre aide

[stracoma]

Bonsoir
J'ai trouvé la solution dans un autre forum (dans ce même site)
Il fallait réinitialiser la variable oui à True à chaque début de la boucle Do while

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Do
                oui = True
                x = hasard.Next(0, 6)
                For j As Integer = 0 To tablo2.Count - 1
                    If (tablo2(j) = tablo1(x)) Then
                        oui = False
                    End If
                Next
            Loop While (oui = False)

Merci à vous