Discussion :

[Invité]

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 !

[shayw]

Salut

peux tu dire ce que doit faire ta sub ?

[Invité]

Salut, le but de cette fonction est de renvoyer un integer
Mais même si j’expliquai tout en détail ça ne servirai à rien puisque toute les informations nécessaire sont dans mon premier message

[-N4w4k-]

Salut,

Peut être comme ça:

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
Module Module1
 
    Private Property Distance_Final As Integer
    Private Property Case_1 As Integer
    Private Property Case_2 As Integer
 
    Sub Main()
        Test(1, Case_1)
    End Sub
 
    Sub Test(ByVal i As Integer, ByVal cas As Integer)
        For Each Direction_Personnage As DIRECTION In [Enum].GetValues(GetType(DIRECTION))
            Dim info As Integer = Information_Direction(Direction_Personnage, cas)
            If info = Case_2 Then
                If (i < Distance_Final) Then
                    Distance_Final = i
                End If
            End If
            If i < 87 Then
                Test(i + 1, info)
            End If
        Next
    End Sub
 
End Module

[Invité]

Woaw, tu es plus rapide que la lumière
Je regarde ça tout de suite et je te dit si c'est bon

[-N4w4k-]

C'est le principe de la recursivité. Le tout c'est de bien voir ce qui est récursif et ce qui ne l'est pas.. Je l'ai fait vite fait alors c'est peut-être pas tout à fait juste mais je pense que si c'est pas bon il y a peu de chose à modifier.