Questions boucle

Bonjour,

Voila une boucle infini en while:

Citation:

---

wile 1 = 1
//code//
end while

---

1) J'aurai aimé stopper ma boucle à l'aide d'un bouton :D
C'est pas un truc du genre? ^^

Citation:

---

for.stop()

---

2) Et enfin j'aimerai faire une pause a chaque répétition de la boucle. Je m'explique:
-Lancement de la boucle
-Action
-> - Attendre un certain temps après chaque répétion de la boucle !

J’espère que vous pourrez m'aider !
Cordialement :ccool:

utilise un timer plutot !

ah ouai pas con merci et pour stopper timer avec bouton?

Citation:

---

Envoyé par alexandre1004

Bonjour,

Voila une boucle infini en while:


1) J'aurai aimé stopper ma boucle à l'aide d'un bouton :D
C'est pas un truc du genre? ^^


2) Et enfin j'aimerai faire une pause a chaque répétition de la boucle. Je m'explique:
-Lancement de la boucle
-Action
-> - Attendre un certain temps après chaque répétion de la boucle !

J’espère que vous pourrez m'aider !
Cordialement :ccool:

---

Bonjour,

Alors, en complément de réponse tu as :

La pause en ms

Code:

---

1 2 3

My.Application.DoEvents() ' facultatif, vois si ça marche sans System.Threading.Thread.Sleep(1000)

---

Depuis un bouton, procédure "click" du bouton

Code:

---

1 2 3 4 5 6 7 8 9 10

dim variableGlobale as boolean = False Sub Button1(... variableGlobale = not variableGlobal ' alternat false/true End Sub sub TaProcedureDeBoucle() do while... if variableGlobale = false then msgBox("Pause") end while End sub

---

Tu peux aussi mettre un

Code:

---

MsgBox("texte")

---

Dans ta boucle, qui va la stopper à chaque fois, et si tu veux maîtriser ceci, le faire avec une condition :

Code:

---

If condition = true then MasBox("ton texte", taVariable)

---

Citation:

---

Envoyé par alexandre1004

ah ouai pas con merci et pour stopper timer avec bouton?

---

Bonjour bis,

Code:

---

1 2 3 4

sub button1(... timer1.enabled = false end sub

---

Merci beaucoup ! :ccool: