Problème algorithme tri à bulle

Version imprimable

Bonjour,

J'essaie de trier chaque ligne de ma TextBox, mais j'ai un soucis au niveau de l'algorithme que je n'arive pas à resoudre!

L'utilisateur doit cliquer sur un label pour que le tri s'effectue.

voici le code:

Code:

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
 
Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click
        Dim tab As String
        Dim chaine() As String
        Dim i As Integer
        Dim Temp As String
        tab = Me.ListeNote.Text
        chaine = tab.Split(vbCrLf)
        For i = 0 To UBound(chaine) - 1
            If chaine(i) > chaine(i + 1) Then
                Temp = chaine(i)
                chaine(i) = chaine(i + 1)
                chaine(i + 1) = Temp
            End If
        Next
 
        For i = 0 To UBound(chaine)
            If i = 0 Then
                Me.ListeNote.Text = chaine(i)
            ElseIf i < 2 Then
                Me.ListeNote.Text = Me.ListeNote.Text + chaine(i)
            End If
 
 
        Next
    End Sub

Le tri ne se fait pas correctement, et il y a plein de bizarrerie, il semblerai qu'il un problème au moment où j'effectue le tri (la première boucle for), car j'ai testé la 2éme boucle et elle m'affiche correctement le contenu tester.

en espérant que vous puissiez m'aider,

Cordialement,

sushis

20/12/2009, 11h59
Pol63

le site possède une balise code pour une mise en forme lisible

si tu veux trier par ordre alphabétique ca prend 2 lignes avec un sortedlist, ca ne sert à rien de réinventer l'eau tiède ^^
20/12/2009, 12h09
sushis

Ok merci!

Aurais-tu de la doc (en français) sur l'utilisation de sortedlist. (j'utilise un tableau, mais enfin avec la doc je devrai comprendre quelque chose :roll: )

Bref, je vais essayer de baliser mon code.

Merci pour ta réponse.
20/12/2009, 13h43
Pol63

tu fais F1 dans vb ou vs
chaque classe chaque membre chaque mot clé (...) est expliqué avec souvent des exemples

Finalement 'ai suivi cette doc: http://plasserre.developpez.com/cour...age-vb3#LV-I-7

Bref, en suivant l'exemple et en l'adaptant à mon code, j'ai fait ça:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click Dim tab As String Dim chaine() As String Dim i As Integer Dim tri As New SortedList() tab = Me.ListeNote.Text chaine = tab.Split(vbCrLf) For i = 0 To UBound(chaine) tri.Add(i, chaine(i)) Next i For i = 0 To tri.Count - 1 Me.ListeNote.Text = tri.GetKey(i) & tri.GetByIndex(i) Next i End Sub
Le soucis est que à l'affichage, il ne m'affiche que la dernière ligne de mon contenu! Et quand je clique une seconde fois sur le label, il m'affiche un zéro (les zéro sacumule à chaque fois que je clique sur le label!).

en espérant que vous puissiez m'aider,

Cordialement,

sushis

21/12/2009, 08h02
Pol63

Code:

Me.ListeNote.Text = Me.ListeNote.Text & " " & tri.GetKey(i) & tri.GetByIndex(i)

?

Le trie a bulle se fait une une boucle While et une For.
Grosso modo en pseudo cracra code ça donne ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 TableauTrié=Faux MaxTableau=Ubound(Tableau) 'Taille de ton tableau / collection Tant TableauTrié=Faux TableauTrié=Vrai Pour I=0 To MaxTableau-1 Si tableau(I)>tableau(I+1) Alors Permutation des deux élèment TableauTrié=Faux Fin si Fin Pour Fin Tan Que
Tu trouvera de la doc partout.
Aprés tout dépend de ce que tu dois / veux faire, si l'objectif ce de trier tu peux passer par des élèment du FrameWork, mais si tu dois / veux faire un trie bulle c'est comme ça qu'il faut faire.

;)

21/12/2009, 23h02
sushis

Ok merci, l'algo fonctionne enfin. Merci Maelstrom!