Discussion :

[daladim]

Salut à tous,

je suis en train de programmer un jeu en VB (Tetris, en fait)
J'aimerais donc pouvoir lire des sons (musique, bruit lorsque les formes sont posées, etc...)

J'ai trouvé sur Internet beaucoup de sources utilisant la fonction

Code :

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

Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"

Cette méthode marche parfaitement pour lire un son, mais comment faire pour lire 2 sons en même temps ? (par exemple, la musique en fond, qui est lue en boucle, et, de temps en temps, un bruit par-dessus, comme celui d'une forme posée)

Merci beaucoup !

[ShortcutZ]

Pourquoi ne pas simplement créer une deuxième fonction ?

EX:

Code :

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

1
2
3
 
Function PlayMusic Lib "winmm.dll" Alias "PlaySoundA"
Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"

[daladim]

C'était une bonne idée (à laquelle je n'avais pas pensé), ShortcutZ, mais malheureusement, ca ne marche pas...

Par contre, j'ai essayé de créer cette fonction dans un autre programme, et j'arrive ainsi à lier 2 sons en même temps (chacun venant d'un programme différent).
Mais est-il possible de faire plus ou moins pareil, dans 1 seul programme ? (peut-être en créant plusieurs threads ? (je ne connais rien aux threads..))

Quelqu'un a une idée ? Quelqu'un saurait si 2 threads pourraient jouer 2 sons en même temps (le but étant de garder un unique fichier .exe...)

Merci beaucoup

[Delbeke]

Peut etre en faisant un composant ocx empaquetant la fonction, tu en depose ensuite deux sur ta form

[Rico Nuch]

Peut etre en faisant un composant ocx empaquetant la fonction, tu en depose ensuite deux sur ta form

Je viens d'essayer, en mettant deux "Contrôles ActiveX Microsoft Multimedia" (MMControl) sur une feuille, de les faire jouer en même temps, et ça ne marche pas : quand on lance le deuxième son il interrompt l'exécution du premier.

[daladim]

Salut,

j'ai trouvé une vague solution grâce à vos idées : je lis un son avec la fonction de l'API, et un autre avec un MMPlayer. (Heureusement, je prévois pas de jouer plus de 2 sons en même temps...)

Mais bon, ce n'est pas très propre...
Ca me dépanne, mais si quelqu'un aurait une vraie solution, ce serait super !!

Merci beaucoup !

[ProgElecT]

Il semblerait que deux sons de même type ne peuvent être joués en même temps, par contre je viens de faire l'essais, deux sons de type different eux peuvent etre emis en même temps
Mon code d'essais concluant/

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
MMControl1(0).DeviceType = "Sequencer"
MMControl1(0).FileName = "C:\PersoFrancis\Pour SON Wav\PINBALL.MID"
MMControl1(0).Command = "Open"
 
MMControl1(1).DeviceType = "WaveAudio"
MMControl1(1).FileName = "C:\PersoFrancis\Pour SON Wav\kongas.wav"
MMControl1(1).Command = "Open"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMControl1(0).Command = "Close"
MMControl1(1).Command = "Close"
End Sub

Je declanche le fichier MID (son d'embiance de fond) puis une ou plusieurs fois le son WAV (bruitage)

[daladim]

Salut !

Merci pour ta proposition, mais malheureusement, la musique n'est pas au format midi. Les sons et la musique sont tous les 2 au format wav...

Si vous avez d'autres solutions, n'hésitez pas !
Merci !