Discussion :

[obel38]

Bonjour,

J'effectue une boucle FOR NEXT permettant l'acquisition de données, par contre, le sampling des mesures s'effectue à intervales réguliers.

Je saisis le nombre d'enregistrements voulus, puis appui sur démarrer et les mesures s'effectuent.

Cependant, durant l'execution, le programme ne répond pas, et plus ennuyant, il est impossible d'arrêter la boucle en appuyant sur le bouton Arret.

Voici mon bout de programme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  row = 2
  For boucleval = 0 To spl
  DoEvents
 
  If main.arret.value=true Then
  Exit Sub
  End If
  Sleep 1000
.
.
.
.
Next

Pourriez vous me dire, SVP ce qui ne va pas ?

Je vous en remercie par avance,


Cdt

[Delbeke]

Ben, sortir d'une bouble for avant son terme se fait par un exit for, pas un exit sub

[obel38]

Merci pour votre réponse,

j'ai essayé, en remplacant Exit Sub par Exit For, mais il doit y avoir qque chose d'autre qui ne va pas car la boucle ne s'arrête toujours pas.


Merci

[Overcrash]

Bonjour,

A la place de ton Exit For mets donc un msgbox et vérifie que le traitement passe bien par la msgbox comme ça tu sauras si la condition est validée.

[obel38]

J'ai remplacé par une msgbox, mais la condition ne semble pas remplie.

Le problème doit provenir de main.arret.value=true

Est ce que cette commande est valable ?

(ce que je souhaite c'est arreter la boucle lorsque le bouton Arret est appuyé)

Merci par avance,


Cdt

[SfJ5Rpw8]

Peu-être une erreur sur un nom de variable , as tu mis la ligne

Code :

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

Option Explicit

en haut de ton code ?

[l_autodidacte]

Si tu es sûr que le problème vient de "main.arret.value=true", il est possible de le contourner en ajoutant un TextBox nommé TextOK par exemple de propriété Visible = False et initialisé avec .text vide
Dans l'évènement Click du bouton arret tu mets ce

Code :

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

1
2
3
4
5
6
7
 Private Sub Arret_Click()
   TextOK.Text = 1
 ...................
 ...................
 ..................
 'suite de ton code
End Sub

Maintenant, dans ton bout de code envoyé tu fais ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 row = 2
  For boucleval = 0 To spl
  DoEvents
 
      If CInt(main.TextOK.Text)=1 Then Exit For
 
  Sleep 1000
.
.
.
Next

C'est un peu détourné mais cela peut aboutir !