Racourcir un code

Version imprimable

Racourcir un code

Bonjour à tous,
J'aurais besoin de votre aide pour raccourcir un 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
        '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 !

01/06/2012, 17h50
shayw

Salut

peux tu dire ce que doit faire ta sub ?
01/06/2012, 17h55
Invité

Salut, le but de cette fonction est de renvoyer un integer :mrgreen:
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 :?

Salut,

Peut être comme ça:

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
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

01/06/2012, 18h21
Invité

Woaw, tu es plus rapide que la lumière :ccool:
Je regarde ça tout de suite et je te dit si c'est bon :mouarf:
01/06/2012, 18h25
-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.
01/06/2012, 18h27
Invité

Merci infiniment, c'est ça !!!
Il faut juste que je modifie quelque trucs et ça marchera à merveille, merci à toi :mrgreen::mrgreen::mrgreen::ccool::ccool::ccool::mouarf::mouarf::mouarf::P:P:P:lol::lol::lol:8-)8-)8-):D:D:D
01/06/2012, 18h28
-N4w4k-

Lol, no problem :ccool:

N'oublie pas le :resolu: si ça l'est.

++

Version re raccourcie ? :roll:

Code:

1
2
3
4
5
6
7
    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 AndAlso i < Distance_Final Then Distance_Final = i
            If i < 87 Then Test(i + 1, info)
        Next
    End Sub

01/06/2012, 19h20
Invité

Merci, c'est encore mieux :ccool::ccool::ccool: