Discussion :

[eclipse03]

sculptured



Bonjour a tous

voila j'essaie de réaliser un exercice qui consiste a entrer une chaine de caractere dans une textbox ensuite d'afficher les caractères encodées dans un tableau dynamique sur une listbox ... jusque la pour moi c'est ok cela fonctionne. ( je suis vraiment debutant donc je ne comprend pas tout)

MAIS je dois en même temps afficher dans une autre listbox les mots dans le desordre. merci si quelqu'un peux m'aider

exemple : "bonjour les amis"

listbox1 :

bonjour
les
amis

listbox 2

les
bonjour
amis

je sais que je dois utiliser une fonctione RND et éviter la redondance des mots dans la listbox 2. mais je n'arrive pas a comprend comme il faut proceder quelqu'un serais me guide?

voici mon code que j'ai deja effectué

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
' je declare un tableau dynamique
Dim str_tableau_de_mot() As String
 
'je declare une variable de boucle inconditionnel
Dim int_i As Integer
 
'je declare une variable qui va contenir mes mots
Dim str_phrase_entrer As String
Dim int_indice As Integer
 
'ma variable va contenir les mots de la boite de texte
str_phrase_entrer = TXT_PHRASE_ENTREE.Text
 
'j'entre mes mots dans le tableau dynamique, le split va retirer mes espaces entre les mots
str_tableau_de_mot = Split(str_phrase_entrer)
 
'je crée une boucle afin de lire le contenu de mon tableau jusq'au derniere element de ce dernier et je l'affiche dans une listbox
For int_i = 0 To UBound(str_tableau_de_mot)
    LST_MOT_DANS_l_ORDRE.Items.Add(str_tableau_de_mot(int_i))
Next int_i

[Guyome41]

Ajout avec comme nom des composants : Textbox1, Button1 et Listbox1

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
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
 
        Dim lstMot() As String = TextBox1.Text.Split(" ") ' je découpe a chaque espace
        Dim lstInt As New List(Of Int16)
 
        For i = 0 To lstMot.Count : lstInt.Add(i) : Next
 
        Dim hasard As New Random
        For Each mot In lstMot
            Dim nb As Int16 = hasard.Next(0, lstInt.Count - 1)
            ListBox1.Items.Add(lstMot(lstInt(nb)))
            lstInt.RemoveAt(nb)
        Next
    End Sub

[eclipse03]

donc tu as refais le code en faite si je comprends bien? je te remercie

[Guyome41]

Oui, a toi de l'étudier et de l'adapter maintenant.