Boucle itérative

Question

Bonjour, je fais un jeu et dans mon jeu j'ai une boucle  (Mes vaisseaux 1 &#224; Maximum, descende vers le bas jusqu'&#224; temps qu'il atteingne une ligne, alors l&#224; je veux qu'un seul message apparaise et non pas 2000)

Randomize


For z = 1 To Maximum


    If Vaisseau(z).Top > frmJeu2.linMax.Y2 Then
        
        blnMessage = True


    Else


        Vaisseau(z).Top = Vaisseau(z).Top + Rnd() * Vitesse


    End If


Next


If blnMessage = True Then
   blnMessage = False


    Call Demo
    
End If
-------------------------------------------------------------------------
Public Sub Demo()


Call PauseReprendre



    Reponse = MsgBox("Voulez-Vous Enregistrer votre score? ", vbInformation + vbYesNo, "Attention")


    Select Case Reponse
        Case vbYes
            frmJeu2.Hide
            frmEnregistrer.Show
        Case vbNo
            MsgBox "Voulez-Vous Quitter?", vbInformation + vbYesNo, "Attention"
    End Select


End Sub
---------------------------------------------------------------------------
Ma boucle fonctionne jusqu'&#224; c'que mon blnMessage devienne True. Ca ne semble pas sortir de ma boucle donc il apelle constamment ma procedure Demo. Comment peut-on faire pour sortir de la boucle. J'ai essayer beaucoup de m&#233;thode et ca ne fonctionne pas. Merci de votre aide

econs · Answer

Dans le code que tu pr&#233;sentes, l'appel &#224; la proc&#233;dure Demo ne se fait qu'une seule fois : &#224; la sortie de la boucle For z ...



Si Demo se lance plusieurs fois, c'est qu'il y a une autre boucle au dessus de For z...

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_CanisLupus · Answer

Salut,
Dis, ta proc PauseReprendre , &#231;a ne serait pas celle qui contient ta boucle For z = 1 To Maximum ... ? Dans ce cas, tu te retrouves avec 2 proc qui s'appellent l'une l'autre, frisant l'infini. Sinon, qu'y a-t-il dans la proc PauseReprendre ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

eYeScReAm25 · Answer

Ce n'&#233;tait qu'un simple oublie de d&#233;claration de variables.... Merci quand m&#234;me. Tout marche maintentant

Boucle itérative

3 réponses

Discussions similaires