Discussion :

[andre_21]

Bonjour,

je veux faire sonner un carillon d'autant de coups que l'heure indique.
mais, je ne réussi pas à attendre la fin de la sonnerie pour pouvoir lancer la suivante.

Si je mets une boucle d'attente, c'est le prog qui boucle complètement

j'ai fait plusieurs essais, voir si dessous.

Merci de vos idées.

Code :

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

1
2
3
4
5
6
7
8
For i = 1 To Left$(heure, 2)
    sonnerie ("unecloche.mid")
attente:
    If WindowsMediaPlayer1.playState <> 1 Then GoTo attente
            'For j = 1 To 1000000000: Next j
'            If (WindowsMediaPlayer1.Status <> "Arrêté") Then GoTo attente
 
Next i

[DarkVader]

Bonjour,
Utilises les évènements de WMP.