Bonjour, comment modifier ce code pour qu'un métronome suive précisément le tempo du fichier midi ?
Actuellement, j'ai un programme qui lit les fichiers mais dès que j'inclus ce que je crois être la solution, l'information arrive en décalé par rapport au tempo...

Dim msg As DMUS_NOTIFICATION_PMSG
Dim metronome As DMUS_NOTE_PMSG

Private Sub timer1_Timer()
If dmPerf.GetNotificationPMSG(msg) Then
    metronome.midiValue = 77
    metronome.mtDuration = 150
    metronome.flags = DMUS_NOTEF_NOTEON
    metronome.velocity = 127
    Call dmPerf.SendNotePMSG(0, DMUS_PMSGF_REFTIME, 9, metronome)
end if
end sub

Merci pour cette source qui fonctionne parfaitement.
J'ai testé celle-ci en connectant un clavier sur un expandeur (en midi) puis l'expandeur sur le port RS232. Ca fonctionne très bien.
Maintenant, j'aimerais savoir s'il existe le même genre de code pour un expandeur connecté en USB sur le PC ? ou s'il faut juste modifier un peu la source ?
merci.

Je découvre un peu le visual basic et tente d'abord d'observer et comprendre ce qui existe... ce programme est très intéressant. Ce qui me plait beaucoup c'est le battement par mesure avec le temps fort en rouge... Je m'en reservirai bien...Mais il y a quand même une chose qui ne fonctionne pas tout à fait bien : lorsqu'on prend un midifile en 3/4 (une valse par exemple) le décompte se fait toujours en 4/4. Et ça décale tout, forcément....
Comment faire pour identifier le "time signature" de chaque mesure du morceau (car il peut potentiellement y avoir un nouveau "time signature" à chaque mesure du midifile...).

Merci en tout cas.