gribouillex
Messages postés172Date d'inscriptionlundi 10 octobre 2005StatutMembreDernière intervention16 mai 2011
-
5 sept. 2006 à 16:31
gribouillex
Messages postés172Date d'inscriptionlundi 10 octobre 2005StatutMembreDernière intervention16 mai 2011
-
5 sept. 2006 à 17:24
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