DIRECTX TUTO 6 : DIRECTMUSIC JOUER DES FICHIERS MIDI
MadM@tt
Messages postés
2167
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
1 juil. 2004 à 19:17
ciberrique Messages postés 589 Date d'inscription lundi 25 août 2003 Statut Membre Dernière intervention 18 juillet 2010 - 25 janv. 2007 à 12:41
ciberrique Messages postés 589 Date d'inscription lundi 25 août 2003 Statut Membre Dernière intervention 18 juillet 2010 - 25 janv. 2007 à 12:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/24166-directx-tuto-6-directmusic-jouer-des-fichiers-midi
https://codes-sources.commentcamarche.net/source/24166-directx-tuto-6-directmusic-jouer-des-fichiers-midi
25 janv. 2007 à 12:41
25 janv. 2007 à 12:00
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
15 janv. 2005 à 19:04
La hauteur d'une note c'est son numéro (de 0 à 127)
Pour calculer la durée ... c'est beaucoup plus compliqué
Il faut connaitre la résolution du fichier MIDI exprimé
en nombre de Tick par noire (par exemple 96)
Puis savoir le nombre de Tick de la Note_On, le nombre
de Tick de la Note_OFF et faire la différence ...
Et pour compliquer le tout ...
Le nombre de tick dans un fichier MIDI est exprimé par rapport à l'évènement précédent ... dans un mot à longuer variable (maximun 4 octets)
Bon ... si vraiment t'as envie fais moi signe ...
A+
Afyn
Navedac
5 juil. 2004 à 22:48
5 juil. 2004 à 01:36
3 juil. 2004 à 11:14
Bon coding
2 juil. 2004 à 12:36
2 juil. 2004 à 11:00
Par exemple : Ceci te donne le tempo de ton fichier :
dTempo = perf2.GetTempo(mtTime + 2000, 0)
lblTempo.Caption = "Tempo: " & Format(dTempo, "00.00")
donc je suppose que c'est possible.
Pourt azerty25, j'hesite entre 2 tuto, je ne sais pas encore lequels je choisirai :
- Jouer des MP3 (ce qui me prendrais du temps car je connais que trés peu)
- Faire des systemes de menu ( ce qui est difficile quand on ne connait pas la technique)
Donc je verrais.
Si vous avez besoin d'explication supplémentaire n'hésité pas.
2 juil. 2004 à 10:37
2 juil. 2004 à 08:33
1 juil. 2004 à 20:41
allé bon coding.
1 juil. 2004 à 19:17
bravo !
@ +
MadMatt