Bonjour à tous,
J'aurais besoin de votre aide pour raccourcir un code :
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
        'Première fois
        For Each Direction_Personnage1 As DIRECTION In [Enum].GetValues(GetType(DIRECTION))
            If (Information_Direction(Direction_Personnage1, Case_1) = Case_2) Then
                If (1 < Distance_Final) Then Distance_Final = 1
            End If
            'Deuxième fois
            For Each Direction_Personnage2 As DIRECTION In [Enum].GetValues(GetType(DIRECTION))
                If (Information_Direction(Direction_Personnage2, Information_Direction(Direction_Personnage1, Case_1)) = Case_2) Then
                    If (2 < Distance_Final) Then Distance_Final = 2
                End If
                'Troisième fois
                For Each Direction_Personnage3 As DIRECTION In [Enum].GetValues(GetType(DIRECTION))
                    If (Information_Direction(Direction_Personnage3, Information_Direction(Direction_Personnage2, Information_Direction(Direction_Personnage1, Case_1))) = Case_2) Then
                        If (3 < Distance_Final) Then Distance_Final = 3
                    End If
                    'Quatrième fois
                    For Each Direction_Personnage4 As DIRECTION In [Enum].GetValues(GetType(DIRECTION))
                        If (Information_Direction(Direction_Personnage4, Information_Direction(Direction_Personnage3, Information_Direction(Direction_Personnage2, Information_Direction(Direction_Personnage1, Case_1)))) = Case_2) Then
                            If (4 < Distance_Final) Then Distance_Final = 4
                        End If
                        'Ainsi de suite jusqu’à la 87eme fois ...
                    Next
                Next
            Next
        Next
Ce code si-dessus se répète 87 fois, avec à chaque fois un for each dans un autre for each
Mais je suis sur qu'il y a un moyen plus astucieux que d'écrire 87 fois ce code ...
Bref, il faux avoir lu et compris le principe pour pouvoir le raccourcir.
J’espère qu'un de vous pourras m'aider, à bientôt !