Discussion :

[nonaparus]

Bonjour, je suis entrain de me programmer un petit jeu de slot poker. Je me suis déclaré un type tMainPoker qui contient les 5 cartes de ma main. Une fois les cartes changées, je voudrais trier, en ordre croissant de noCarte, mon tableau giTblMain de type tMainPoker.

Puis-je le faire....

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Private Type tMainPoker
    noCarte As Integer ' 2 à 14... 14=As, 13=Roi, 12=dame, ..., 2 = 2
    sorte As String 'PIQUE, COEUR, CARREAU, TREFLE
    chmImage As String 'location de l'image sur le disque
    etatChange As Boolean ' change ou pas la carte
End Type
 
Dim giTblMain(1 To 5) As tMainPoker

Merci

Nonaparus

[nonaparus]

J'ai trouvé avec un tri Bubble...

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
 
Function TrierTableau()
Dim temp As tMainPoker
Dim i, j As Integer
For i = UBound(giTblMain) - 1 To 1 Step -1
    For j = 1 To i
        If giTblMain(j).noCarte > giTblMain(j + 1).noCarte Then
 
            temp.noCarte = giTblMain(j + 1).noCarte
            temp.sorte = giTblMain(j + 1).sorte
            temp.chmImage = giTblMain(j + 1).chmImage
            temp.etatChange = giTblMain(j + 1).etatChange
 
 
            giTblMain(j + 1).noCarte = giTblMain(j).noCarte
            giTblMain(j + 1).sorte = giTblMain(j).sorte
            giTblMain(j + 1).chmImage = giTblMain(j).chmImage
            giTblMain(j + 1).etatChange = giTblMain(j).etatChange
 
            giTblMain(j).noCarte = temp.noCarte
            giTblMain(j).sorte = temp.sorte
            giTblMain(j).chmImage = temp.chmImage
            giTblMain(j).etatChange = temp.etatChange
        End If
    Next
Next
End Function