Do until / Do events [Résolu]

Signaler
Messages postés
172
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2011
-
Messages postés
172
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2011
-
Bonjour,

Voilà... j'utilise le petit bout de code suivant dans mon programme dans le sub qui lance la lecture d'un fichier midi.
Info importante : Label1 est placé dans un timer et s'incrémente (par exemple) de cette façon -> 1 - 2 - 3 - 4 - 1 - 2 - 3 - 4 - 1 - 2... etc.
Continuons dans l'exemple, TSig.beatsPerMeasure a une valeur de 4.
Donc dès que Label1 = 4 alors mon action est effectuée. 

Ce que je souhaiterais, c'est que l'action soit effectuée dès que Label1 affiche "1"  pour la troisième fois !(1 - 2 - 3 - 4 - 1 - 2 - 3 - 4 - 1 - 2... etc.)

Et je ne sais pas comment faire. Une petite idée ?

      Do Until Label1.Caption = TSig.beatsPerMeasure
        DoEvents
        If Label1.Caption = TSig.beatsPerMeasure Then
            Form2.Timer1.Enabled = True
            Form2.minute.Enabled = False
            Form2.seconde.Enabled = False
            Form2.sep.Enabled = False
        End If
        Loop

2 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
41
salut,
dans ton timer :

Private Sub Timer1_Timer() 
    Static lCptLabel As Long 
    'tes actions sur ton label....

     If Label1.Caption =  "1" Then lCptLabel = lCptLabel + 1 

     If iCptLabel = 3 Then Call LABEL1_3FOIS  'ta procédure
End Sub

<small> Coloration
syntaxique automatique [AFCK] </small>
       

++
PCPT   [AFCK]

<hr size ="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
Messages postés
172
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
16 mai 2011

j'ai un peu modifié pour mon cas, mais l'approche était bien la bonne. merci