Discussion :

[noftal]

Bonjour,

Dans un algorithme de tri à bulle tout repose sur une condition :

Code :

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

If (tab(i) > tab(i+1) ' pour un tri croissant

et

Code :

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

If (tab(i) < tab(i+1) ' pour un tri décroissant

Je suis en train de bâtir une fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Enum SortStyle
ASC
DESC
End Enum
 
Private sub tri(ByVal SensduTri as SortStyle)
 
If SensduTri = SortStyle.ASC then comparateur = ">"
If SensduTri = SortStyle.DESC then comparateur = "<"
 
'... algorithme du tri à bulle
 
End Sub

La question est de savoir comment "paramétrer" la condition du tri à bulle pour ne pas avoir à écrire le contenu de l'algo 2 fois.

[noftal]

J'ai trouvé une solution satisfaisante même si ce n'est pas ce que j'avais imaginé au départ :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private sub tri(ByVal SensduTri as SortStyle)
 
Dim condition As Boolean
Select Case SensduTri 
                    Case SortStyle.ASC
                        condition = (tab(i) > tab(i+1))
                    Case SortStyle.DESC
                        condition = (tab(i) < tab(i+1))
                End Select
If condition then ...