Discussion :

[Invité]

Bonjour,

Voila une boucle infini en while:

wile 1 = 1
//code//
end while

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

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

[Pol63]

utilise un timer plutot !

[Invité]

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

[Ehjoe]

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

Bonjour bis,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
sub button1(...
  timer1.enabled = false
end sub

[Invité]

Merci beaucoup !

[Ehjoe]

Bonjour,

Voila une boucle infini en while:


1) J'aurai aimé stopper ma boucle à l'aide d'un bouton
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

Bonjour,

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

La pause en ms

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox("texte")

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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