Avec le debugger ca marche mais sans... ca marche pasRésolu

Question

Hello,



voila mon prob bizarre... j'ai fais une fonction qui permet de placer
une valeur TRUE dans un tableau en fonction de certaines comparaisons..



Pour g&#233;n&#233;rer l'index j'utilise un random sur une intervalle (c'est test&#233; tout seul est &#231;a fonctionne).

Malgr&#233; tout...lorsque je lance le programme ... il ne sort jamais de la
fonction.. par contre si j'utilise le d&#233;bugger en faisant du pas a
pas.. la pas de probl&#232;me..... A ne rien comprendre

firens · Accepted Answer

En fait la boucle n'est pas infinie mais bien finie :)

Le seul probl&#232;me je viens de le remarquer.. c'est que pour un petit intervalle (par exemple 19 &#224; 25) et bien on a une probabilit&#233; non-nulle de tomber sur un s&#233;quence &#224; deux voir une solution... on a donc effectivement &#224; ce moment l&#224; l'impossibilit&#233; de tomber sur le bon nombre....alors que l'on pourrait avoir 7 possibilit&#233;s diff&#233;rentes si l'on avait une vrai s&#233;quence al&#233;atoire...
je pensais donc faire la chose suivante... simplement multipli&#233; par 100 l'intervalle &#224; randomiz&#233;...puis divis&#233; par 100 le r&#233;sultat et faire un round du genre :

 intRandIntervalTemp = intvInterval.intMinIntv + Round(Int(Rnd * ((intvInterval.intMaxIntv - intvInterval.intMinIntv)*100))/100)

on augmente ainsi la probabilit&#233; de tomber sur le bon nombre ...faut que je teste

cs_casy · Answer

C'est que l'on comprend pas grand chose au code de ta fonction que tu as eu l'amabilit&#233; de mettre pour nous expliqu&#233; ton probl&#232;me 

Met non ton code si tu veux que l'on puisse t'aider.

<hr size="2" width="100%">

cs_casy · Answer

C'est vrai que l'on comprend pas grand chose au code de ta fonction que tu as eu l'amabilit&#233; de mettre pour nous expliqu&#233; ton probl&#232;me 

Met non ton code si tu veux que l'on puisse t'aider.

<hr size="2" width="100%">

firens · Answer

Et maintenant on va me dire qu'on comprend rien lol... 





'pour placer al&#233;atoirement une pub dans un interval donn&#233;

Private Function SelectHour(intvInterval As Interval, blValidAdvert()
As Boolean, blLastValidAdvert() As Boolean, intMinDeltaHourPermission
As Integer) As Integer



Dim intRandIntervalTemp As Integer

Dim blValidateExclusion As Boolean

Dim intMin As Integer

Dim intMax As Integer



blValidateExclusion = True



'si on trouve une seule exclusion dans l'index pub choisi alors on recommence

    Randomize

While blValidateExclusion



    intMin = intMinDeltaHourPermission - 1

    intMax = intMinDeltaHourPermission - 1

    blValidateExclusion = False

   



    intRandIntervalTemp = intvInterval.intMinIntv +
Int(Rnd * (intvInterval.intMaxIntv - intvInterval.intMinIntv))



    'Pub toutes les heures donc v&#233;rifier si le chiffre donn&#233; est impair sinon on recommence

    If intRandIntervalTemp And 1 Then

        'Y avait-il une pub &#224; la m&#234;me heure le jour d'avant?

        blValidateExclusion = blLastValidAdvert(intRandIntervalTemp)

   

        'Est-ce une plage d&#233;ja utilis&#233;e?

        blValidateExclusion = blValidAdvert(intRandIntervalTemp)

 

        'Pour ne pas d&#233;passer l'intervalle donn&#233;e ce qui fausserait le r&#233;sultat

        If intRandIntervalTemp - intMinDeltaHourPermission < intvInterval.intMinIntv Then

            intMin = intRandIntervalTemp - intvInterval.intMinIntv

        End If

        If intRandIntervalTemp + intMinDeltaHourPermission > intvInterval.intMaxIntv Then

            intMax = intvInterval.intMaxIntv - intRandIntervalTemp

        End If

        'pas de pub pr&#233;sente dans &#224; +/- intMinDeltaHourPermission de l'index pub choisi

        For i = -intMin To intMax

           
blValidateExclusion = blValidateExclusion Or
blValidAdvert(intRandIntervalTemp + i)

        Next

    Else

         blValidateExclusion = True

    End If

   

Wend

SelectHour = intRandIntervalTemp

End Function

cs_casy · Answer

Alors je n'ai pas r&#233;ellement vu ton probl&#232;me, il faut que tu v&#233;rifie tes conditions &#224; l'int&#233;rieur du IF. Moi j'ai mis ce code en commentaire pour pouvoir tester et &#231;a a l'air de marcher.

Par contre, j'ai vu 2 points :
- il te manque une condition de sortie de ta boucle, en effet si tu ne trouve pas de plage libre (soit utilis&#233;e la veille, soit utilis&#233; aujourd'hui, soit trop pr&#232;s d'une autre), ta variable blValidateExclusion sera toujours &#224; TRUE et tu ne sortira plus de ta boucle (boucle infini).
- revois tes tests blValidateExclusion blLastValidAdvert(intRandIntervalTemp) et blValidateExclusion blValidAdvert(intRandIntervalTemp). En effet m&#234;me si ta plage a &#233;t&#233; utilis&#233;e la vielle (blLastValidAdvert=true) mais que ta plage n'est pas utilis&#233;e aujourd'hui (blValidAdvert=false) ta variable blValidate.. sera &#233;cras&#233; et prendra la valeur false et donc tu s&#233;lectionnera cette plage.

Peut-etre que &#231;a te donnera une piste 

<hr size="2" width="100%">

firens · Answer

Oki merci 

j'ai quand m&#234;me pens&#233; &#224; une chose.. &#233;tant donn&#233;e que Randomize se base sur un timer.. on a donc une s&#233;quence pseudo-al&#233;atoire...
Si on part tout le temps avec le m&#234;me nombre... on aura donc la m&#234;me s&#233;quence...au niveau du programme... la vitesse d'ex&#233;cution pourrais poser probl&#232;me j'ai l'impression...
Il n'y aurait pas moyen en VB d'avoir une s&#233;quence purement al&#233;atoire (par mod&#233;lisation d'un bruit blanc par exemple)...enfin c'est une id&#233;e je ne sais pas si tu connais des techniques valables ?

cs_casy · Answer

Effectivement Randomize bas&#233; sur le timer renvoie un nombre pseudo-al&#233;atoire, donc au bout d'un certain nombre d'appel, tu peux retomber sur la s&#233;quence.

Par contre je ne sais pas comment avoir un vrai nombre al&#233;atoire, je ne me suis jamais pos&#233; la question, mais fait une recherche sur le site, il ya peut-etre la r&#233;ponse.

Par contre pour ton code, tu gagnerais peut-etre &#224; tout casser et &#224; repenser ta fonctionnalit&#233;. Peut-etre que tu n'as pas pris la bonne piste. Cette possibilit&#233; de boucle infinie me perturbe.



<hr size="2" width="100%">

firens · Answer

Ben voila ca marche 

donc c'&#233;tait bien &#231;a.. maintenant &#231;a bloque plus 

Merci quand m&#234;me d'avoir pris du temps pour moi.. t'as trouv&#233; des autres bugs que j'avais pas vu ...donc merci pour tout

Avec le debugger ca marche mais sans... ca marche pas

8 réponses

Discussions similaires