do doevents loopuntil

Question

Bonjour,

Voila mon pb,
j'ai une boucle
Do
DoEvents
Loop until

En fait, DoEvents peut etre sollicité par un Timer.
Et je voudrais que, si le timer arrive avant mon loopuntil, le Timer puisse arreter ma boucle et me permettre de sortir de cette boucle.

Que dois je rajouter et ou le rajouter.
Merci.

Tilois · Answer

exsit do dans une boucle do-loop pour l'arreter!

capoueidiablo · Answer

salut,
Je comprend pas bien ton code, ton Do se trouve dans l'évennement Timer ? essaille de donnée un exemple précis je verrai ce que je peux faire :)

Sinon pour info :
'arret timer
Timer1.Enable = False
'Quitter un boucle
Exit DO
--Capoueidiablo--

cs_fred23 · Answer

Merci pour vos réponse. 

Je test.

A+

cs_fred23 · Answer

En fait je me suis mal exprimé.

voila ce que j'ai

Private Sub Form_Load()
Timer1.Enabled = True
MSComm1.PortOpen = True
MSComm1.Output = Chr$(1) + Chr$(4) + Chr$(0) + Chr$(0) + Chr$(4) + Chr$(3)
Do
DoEvents
Loop Until MSComm1.InBufferCount >= 6
chaine = MSComm1.Input
If Mid(chaine, 1, 6) = Chr$(1) + Chr$(5) + Chr$(0) + Chr$(0) + Chr$(5) + Chr$(3) Then
boutonok = MsgBox("Modem Connected.", vbOKOnly + vbInformation, "TDXP")
End If
If boutonok = 1 Then
Form2.Show
Timer1.Enabled = False
End If
End Sub

Private Sub Timer1_Timer()If Timer1.Enabled True Then Timer1.Enabled False
boutonpb = MsgBox("Modem not connected.", vbOKOnly + vbCritical, "TDXP")
If boutonpb = 1 Then
Form2.Show
Form2.StatusBar1.Panels.Item(4) = "Failed"
End If
End Sub

Donc, si dans le form_load, l'evenement ne se produit pas avant le timer, le timer me dit "modem not connected" mais je voudrait aussi qu'il me ferme ma boucle Do Loop until.

Comment faire .?

MErci.

pius1985 · Answer

Tu peux déclarer un booléen en global et le mettre a vrai quand ton timer a une certaine valeur. Dans ta boucle tu met do..doevents..loop until booleen=true
voila j'espere avoir résolu ton problème ;-)
Alex

cs_fred23 · Answer

Parfait !!!
J'ai mis en appli ton idée. Et c'est tout bon.

Merci.
!!!

Do doevents loopuntil

6 réponses

Discussions similaires