Optimiser 4 "if" dansune boucle

Question

Bonjour, voila jaurai voulu savoire si c pas possible d'optimiser ce code pour reduire le nombre de "if" ? je suis sur que sa doit etre possible lol, jai essaye une autre boucle dans la boucle mais sa change rien etant donner quil va faire 4 fois la boucle et donc 4 fois le test "if"... Bon je suis consciente que je viens pas ici pour me faire servire sur un plateau le nouveau code ! sa minteresserai de voire les possibilitées ou si il ya dautre moyen de pouvoire optimiser ca : For T = 1 To 50 Rem Haut ( = 1 ) If JMove(T) = 1 Then Joueur(T).Top = Joueur(T).Top - JMoveSpeed(T) If Joueur(T).Top JTop(T) Then JMove(T) 0: Joueur(T).Top = JTop(T) End If Rem Gauche ( = 3 ) If JMove(T) = 3 Then Joueur(T).Left = Joueur(T).Left - JMoveSpeed(T) If Joueur(T).Left JLeft(T) Then JMove(T) 0: Joueur(T).Left = JLeft(T) End If Next T Merci! kakenette

cs_Galain · Answer

Salut kakenette Essaie ceci et dis-moi si cela te convient For T = 1 To 50 Select case JMove(T) case 1 ' Haut Joueur(T).Top = Joueur(T).Top - JMoveSpeed(T) If Joueur(T).Top JTop(T) Then JMove(T) 0: Joueur(T).Top = JTop(T) case 3 ' Gauche Joueur(T).Left = Joueur(T).Left - JMoveSpeed(T) If Joueur(T).Left JLeft(T) Then JMove(T) 0: Joueur(T).Left = JLeft(T) End Select Next T GRENIER Alain

kakenette · Answer

c se que javais pens&#233;e faire mais on ma dit que sa va pas changer le problem car les case il va les faire 1 par 1 comme meme

kakenette

cs_Galain · Answer

Salut Kakenette

Avec les 4 If le programme va les tester un par un jusqu'&#224; trouver le bon bloc &#224; traiter 
Avec select case le programme va directement au bon bloc &#224; traiter ans les tester un par un

Dans le second cas tu gagnes du temps
GRENIER Alain

cs_Galain · Answer

Salut Kakenette

Faute de frappe : sans les tester un par un

Avec les 4 If le programme va les tester un par un jusqu'&#224; trouver le bon bloc &#224; traiter 
Avec select case le programme va directement au bon bloc &#224; traiter sans les tester un par un

Dans le second cas tu gagnes du temps

GRENIER Alain

kakenette · Answer

na jai un amis "BurNews" il dit que sa les test un par un car il dit que le compilateur n'est pas devaint enfin voila en attendant jutilise ta solution, celle que je voulais faire.

mais je suis sur que je peut enlever le select case et les if en treiton direcement la valeur de JMove(T)

kakenette

cs_Galain · Answer

Brunews a raison : dans les 2 cas on les teste un par un et je reconnais m'&#234;tre tromp&#233;
D&#233;sol&#233;

GRENIER Alain

ScSami · Answer

Dis donc, toi tu sais choisir tes amis !!! Si BruNews le dit c'est que c'est vrai et on se doit donc de s'incliner.

Cependant, je pense quand m&#234;me qu'un Select Case reste plus "pratique" dans ce genre de cas.
Mais je ne vois pas ce qu'ici on pourrait r&#233;duire si ce n'est le nombre de joueurs!

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

Gobillot · Answer

Salut,

&#231;a les teste un par un jusqu'au moment o&#249; il trouve
c'est &#224; dire que pour le cas 1 les autres cas sont pas trait&#233;s, pour le cas 2 on gagne le test 3 et 4, etc...

tout ceci pouvant &#234;tre remplac&#233; par des ElseIf.



pour utiliser JMove(T) il faudrait l'utiliser en tant qu'op&#233;rateur

            Top  et Left

JMove(1) --> -1 et  0

JMove(2) --> +1 et  0

JMove(1) -->  0 et -1  


JMove(2) -->  0 et +1

traiter Left et Top en m&#234;me temps, mais &#231;a n'emp&#234;chera pas les
autres tests qui sont diff&#233;rents &#224; chaque fois donc gain de temps ???



NB:


ce qui semble bizarre c'est qu'il n'y a pas de valeurs mini et maxi pour JTop et JLeft

If Joueur(T).Top <= JTopMin(T) Then ...

If Joueur(T).Top >= JTopMax(T) Then ...


Daniel

Zlub · Answer

Salut kakenette, Le cas des ElseIf est pas mal vu qu'on arrete de tester des qu'on trouve un test à True. If JMove(T) = 1 Then ' Haut ( = 1 ) ElseIf JMove(T) = 2 Then ' Bas ( = 2 ) ElseIf JMove(T) = 3 Then 'Gauche ( = 3 ) Else ' Droite ( = 4 ) End If Mais pas top, je m'explique avec deux cas extremes : - si JMove(T) = 1 alors on fait 1 test (nickel) - si JMove(T) = 4 alors on aura fait 3 tests (pas top, mais mieux que tes 4) Tout dépend de la répartition des tes valeurs. Si tu as plus de cas 4 que de cas 1 c'est pas génial. Tu peux réduire le nombre de test en orientant la recherche de façon dichotomique. En gros, c'est la stratégie visant à diviser pour mieux regner. Je te propose donc de réduire de moitié les tests effectués à chaque tour. L'idée c'est de derterminer : 1) si on est dans le couple (droite,gauche) ou dans le couple (haut,bas) 2) puis afiner pour trouver le bon cas Const HAUT = 1 Const BAS = 2 Const GAUCHE = 3 Const DROITE = 4 Sub test() For T = 1 To 50 If JMove(T) < GAUCHE Then If JMove(T) = HAUT Then ' Haut Joueur(T).Top = Joueur(T).Top - JMoveSpeed(T) If Joueur(T).Top JTop(T) Then JMove(T) 0: _ Joueur(T).Top = JTop(T) End If Else If JMove(T) = GAUCHE Then 'Gauche Joueur(T).Left = Joueur(T).Left - JMoveSpeed(T) If Joueur(T).Left JLeft(T) Then JMove(T) 0: _ Joueur(T).Left = JLeft(T) End If End If Next i End Sub Ainsi à chaque tour de boucle, il ne sera fait que deux tests au lieu des quatre que l'on avait tant avec la méthode des If que celle des Select On passe donc dans le pire des cas de 50 * 4 = 200 tests (If - Select) à 50 * 3 = 150 tests (ElseIf) à 50 * 2 = 100 tests En stockant dans une variable en début de boucle, le contenu de JMove(T) et en utilisant cette variable dans les tests, c'est possibles que tu gagnes un peux de temps. NB: tu devrais utiliser des constantes pour aider à la lisibilitée de ton code et également à la maintenance. Ecrire en dur dans le code des valeurs, c'est souvent pas une bonne idées. A toi de selectionner le code qui convient en fonction de la répartition de tes données dans le tableau. Bon dev, ++ Zlub

jannoman · Answer

For T = 1 To 50
a (iif (Jmove(T) mod 21,-1,1))

    If JMove(T) <= 2 Then
    Joueur(T).Top = Joueur(T).Top + JMoveSpeed(T) *a    If (Joueur(T).Top - JTop(T)) *  a >0 Then JMove(T) 0: Joueur(T).Top = JTop(T)
   
else

    Joueur(T).Left = Joueur(T).Left + JMoveSpeed(T) * a    If (Joueur(T).Left - JLeft(T))*a >0 Then JMove(T) 0: Joueur(T).Left = JLeft(T)
    End If
     
Next T

A+.
Thomas.

Gobillot · Answer

m&#233;langeons les deux m&#233;thodes, avec une table d'op&#233;rateurs:

Table(1) = -1

Table(2) = +1

Table(3) = -1


Table(4) = +1



Const HAUT = 1 

Const BAS = 2 

Const GAUCHE = 3 

Const DROITE = 4 



Sub test() 



  For T = 1 To 50



    J = JMove(T) 

    If J < GAUCHE Then 

       Joueur(T).Top = Joueur(T).Top + Table(J))* JMoveSpeed(T) 

       If Abs(Joueur(T).Top - JTop(T)) > 0 Then JMove(T) 0: Joueur(T).Top JTop(T) 

       End If 

    Else 

       Joueur(T).Left = Joueur(T).Left + Table(J)) * JMoveSpeed(T) 

       If Abs(Joueur(T).Left - JLeft(T)) > 0 Then JMove(T) 0: Joueur(T).Left JLeft(T) 

     End If 



  Next i 



End Sub 



et toujours ce test de limite qui me g&#234;ne

il semblerait que JTop() et JLeft() soit les seuls valeurs possible.

est-ce que chaque joueur &#233;volue dans un environnement diff&#233;rent ?

et comment sont d&#233;termin&#233;es ces limites ? 

si c'est dans une autre boucle, il faudrait aussi optimiser en m&#233;langeant les deux boucles ...



Daniel

Zlub · Answer

Salut,


Je me suis arr&#233;t&#233; en cours de route ... c'est vrai que j'ai pas pens&#233; &#224; simplifier les calcul par la suite.

Le IIF ce n'est ni plus ni moi qu'un If d&#233;guis&#233; ... donc &#231;a ne fait pas gagner un test.


Par contre, la solution de Gobillot permet en effet de supprimer un
if. Petit oublie de ) et next T au lieu de next i + d&#233;clarations des
variables



donc





Option Explicit 

Const HAUT = 1 
Const BAS = 2 
Const GAUCHE = 3 
Const DROITE = 4 
Const MAXVAL = 50 

Sub test() 

  Dim sens(HAUT To DROITE) As Integer 
  sens(HAUT) = -1 
  sens(BAS) = 1 
  sens(GAUCHE) = -1 
  sens(DROITE) = 1 

  Dim this     As Integer 

  For T = 1 To MAXVAL 

    this = JMove(T) 
    If this < GAUCHE Then 
      Joueur(T).Top = Joueur(T).Top + (sens(this) * JMoveSpeed(T))       If (Joueur(T).Top - JTop(T)) * sens(this) >0 Then JMove(T) 0: Joueur(T).Top = JTop(T) 
    Else 
      Joueur(T).Left = Joueur(T).Left + (sens(this) * JMoveSpeed(T))       If (Joueur(T).Left - JLeft(T)) * sens(this) >0 Then JMove(T) 0: Joueur(T).Left = JLeft(T) 
    End If 

  Next T 



  Erase sens 

End Sub 





pour le coups en reprenant les comptes



 On passe donc dans le pire des cas
 
 de 50 * 4  =  200 tests  (If - Select) 
&#224;  50 * 3   = 150 tests (ElseIf et v1 du code)
 &#224;  50 * 2   = 100 tests


 


++

Zlub

Gobillot · Answer

bien vu 

le Next i m'avait compl&#233;tement &#233;chapp&#233;







le Select Case devrait &#234;tre en meilleur position je pense

en supposant que les 4 cas sont partag&#233;s &#233;quilibrement:

cas 1:  1/4  pour  1 text

cas 2:  2/4  pour  2 tests

cas 3:  3/4  pour  3 tests

cas 4:  4/4  pour  4 tests
soit 10/4 * 50 = 125 tests


Daniel

Zlub · Answer

Salut,

B'hein non,
puisque le Select Case permet juste de trouver dans quel cas on 
est... reste en plus &#224; tester pour placer ou non JMove(T) = 0 





Nb: avec le Select Case, tu peux encore r&#233;duire, d'un poil,


Case 1:  
 '1 test + 1 (pour JMove(T) = 0)        donc 2


Case 2:  
 '2 tests + 1 (pour JMove(T) = 0        donc 3


Case 3:  
 '3 tests  + 1 (pour JMove(T) = 0)      donc 4


Case 
Else:  
 '3 tests  + 1 (pour JMove(T) = 0)   donc 4




Donc, je persiste dans l'id&#233;e que l'algo que "je" propose est le plus compact pour l'instant



++

Zlub

Gobillot · Answer

pour les Ifs &#224; l'origine:

   
 5 * 50 =  250 tests 




pour les ElseIF:

         je sais plus



pour le Case Select:

Case 1:  
 '2 tests
 
Case 2:  
 '3 tests
 
Case 3:  
 '4 tests
 
Case 4
:  
 '5 tests

     ------------

       14/4 * 50 = 175



pour la derni&#232;re m&#233;thode:

             
2 * 50 = 100
tests               
*** gagnant ***



Daniel

kakenette · Answer

Merci Merci Woaw! jen eprend plein je suis comptente! Aufaite JMove() est une abréviation qui veut dire a la base JoueurMove. DOnc en effet yen a le nombre de joueur donc si ya 50 joueur sa ferra JMove(50) au max et chacun peuve etre soit de 1(Avence) soit de 0(Avence pas) lol Maintenant jai ajouter un autre timer a 1 aussi avec ce dode dedans (C'est pour l'Attaque d'un joueur)

Rem ITEM SHOW For T = 0 To 20 Rem Droite frappe If ActalItem(T, 1) >= 1 Then ActalItem(T, 1) = ActalItem(T, 1) + 1 Item(T).Left = Item(T).Left + 10 If ActalItem(T, 1) > 10 Then ActalItem(T, 1) = 0 Item(T).Visible = False Item(T).Top = 100000 Item(T).Left = 100000 End If End If Rem Gauche frappe If ActalItem(T, 2) >= 1 Then ActalItem(T, 2) = ActalItem(T, 2) + 1 Item(T).Left = Item(T).Left - 10 If ActalItem(T, 2) > 10 Then ActalItem(T, 2) = 0 Item(T).Visible = False Item(T).Top = 100000 Item(T).Left = 100000 End If End If Rem Haut frappe If ActalItem(T, 3) >= 1 Then ActalItem(T, 3) = ActalItem(T, 3) + 1 Item(T).Top = Item(T).Top - 10 If ActalItem(T, 3) > 10 Then ActalItem(T, 3) = 0 Item(T).Visible = False Item(T).Top = 100000 Item(T).Left = 100000 End If End If Rem Bas frappe If ActalItem(T, 4) >= 1 Then ActalItem(T, 4) = ActalItem(T, 4) + 1 Item(T).Top = Item(T).Top + 10 If ActalItem(T, 4) > 10 Then ActalItem(T, 4) = 0 Item(T).Visible = False Item(T).Top = 100000 Item(T).Left = 100000 End If End If DoEvents Next T

Mais alor une fois le timer True alor la quand javence avec mon perso, le perso est bcp moin fluide sa fait des acoup par acoups... Et je vois pas comment faire par exemple un select case avec "ActalItem(T, 1)" pour savoire si il est plus grand que 1 le prob c que comme vous avez pu le voire, ya 4 test avec (T,1) (T,2) (T,3) (T,4)... La je cherche une solution pour optimise ca! Un jour jai fait une visite dans une école d'informatique et on ma dit Que on ne programme jamais une chose 2 fois... ce que je voulais dire c que par exemple avec mon code si dessus ya 4 fois : Item(T).Top = 100000 Item(T).Left = 100000 et normalement il devrait pour etre bien coder selon lui etre ecrit que une seul fois! Enfin bon deja merci pour tous, je vais me relire ce topic encore ca il est très interessant merci a tous! kakenette

Gobillot · Answer

Bonjour,

peut on avoir les 4 en m&#234;me temps ?

(T,1) et (T,2) s'annulent ainsi que (T,3) et (T,4)







premi&#232;re approche,

un Booleen &#233;vitera de faire 4 fois Item(T).Top 100000 et Item(T).Left 100000

une zone temp pour &#233;viter de calculer plusieurs fois les m&#234;mes indices.

Dim temp As ???

Dim Bool As Boolean



Rem Droite frappe

temp = ActalItem(T, 1)

If temp >= 1 Then

   temp = temp + 1

   ActalItem(T, 1) = temp

   Item(T).Left = Item(T).Left + 10

   If temp > 10 Then

      ActalItem(T, 1) = 0

      Bool = True

      End If

   End If


etc ...



If Bool Then

     Item(T).Visible = False

     Item(T).Top = 100000

     Item(T).Left = 100000

     Bol = False

    End If


Daniel

Gobillot · Answer

Re salut,

optimiser (en temps) ne veut pas dire regrouper ...

bien au contraire, il faut parfois &#233;crire plusieurs fois les m&#234;mes instructions pour &#233;viter les boucles et les calculs d'indices

&#233;crire 20 fois les m&#234;mes instructions rien ne sera plus rapide

c'est pas de la tr&#232;s jolie programmation mais question rapidit&#233; ...



refaire les 4 tests * 20 fois avec les indices en dur



Rem Droite frappe

If ActalItem(1, 1) >= 1 Then

   ActalItem(1, 1) = ActalItem(1, 1) + 1

   Item(1).Left = Item(1).Left + 10

   If ActalItem(1, 1) > 10 Then

      ActalItem(1, 1) = 0

      Item(1).Visible = False

      Item(1).Top = 100000

      Item(1).Left = 100000

      End If

   End If




Daniel

Gobillot · Answer

re re Salut,

une autre chose (importante)

Item(T).Top = 100000

Item(T).Left = 100000


en travaillant en Twips tu perds 15 fois trop de temps

met tout en Pixels d&#233;j&#224;

d&#233;clare tes variables en Long 

et n'oublie pas de tester en compil&#233;


Daniel

Zlub · Answer

Salut, En effet, Gobillot de 50 * (4+1) = 250 tests (If) à 50 * 3 = 150 tests (ElseIf et v1 du code) à 50 * 2 = 100 tests Pour le Select, vu que j'ai pris dans le pire des cas à chaque fois, ça revient à choisir le cas 4 (donc le plus long) soit équivalent aux If à la suite (ou au ElseIf si on utilise Case Else encor que je sais pas s'il teste le Else) kakenette > Pour éviter de copier/coller du code identique, fais des fonction ou des methodes: Option Explicit Const HAUT = 1 Const BAS = 2 Const GAUCHE = 3 Const DROITE = 4 Const MAXVAL = 50 Sub test() Dim sens(HAUT To DROITE) As Integer sens(HAUT) = -1 sens(BAS) = 1 sens(GAUCHE) = -1 sens(DROITE) = 1 Dim this As Integer For T = 1 To MAXVAL this = JMove(T) If this < GAUCHE Then Joueur(T).Top = Joueur(T).Top + (sens(this) * JMoveSpeed(T)) If (Joueur(T).Top - JTop(T)) * sens(this) >0 Then JMove(T) 0: Joueur(T).Top = JTop(T) Else Joueur(T).Left = Joueur(T).Left + (sens(this) * JMoveSpeed(T)) If (Joueur(T).Left - JLeft(T)) * sens(this) >0 Then JMove(T) 0: Joueur(T).Left = JLeft(T) End If Next T Erase sens End Sub Private Sub ajuster(index As Integer, cas As Integer) Dim valeur As Integer ' pour eviter d'affecter une valeur, valeur = ActalItem(index, cas) + 1 ' pour la changer par la suite si > 10 If valeur <= 10 Then ActalItem(index, cas) = valeur Item(index).Left = Item(index).Left + 10 'idem autant stocker la bonne valeur directement ' sauf si c'était voulu pour l'affichage Else ActalItem(index, cas) = 0 Item(T).Visible = False Item(T).Top = 100000 Item(T).Left = 100000 End If End Sub Private Sub Timer1_Timer() Dim T As Integer ' i serait plus simple mais bon bourquoi pas T Dim cas As Integer For T 0 To 20 'Utiliser Const MAXTIMER 20 au lieu de coder en dur For cas = HAUT To DROITE If ActalItem(T, cas) >= 1 Then Call ajuster(T, cas) Next cas Next T End Sub Essais de faire des Const XXX = ... le plus souvent possible au lieu de marquer un chiffre dans ton code. C'est d'une part plus lisible et si jamais tu dois changer la valeurs, ça evite de chercher dans tout le code se qu'il faut modifier. Et si tu pouvais indenter un minimun ça serait nickel. Dernier point, perso, je suis aps Fan du Rem et je te coneil d'utiliser le simple quote qui revient au même... ++ Zlub

Optimiser 4 "if" dansune boucle

31 réponses

Discussions similaires