Ce module est ENTIEREMENT repris de la source "DIRECTSOUND7", cepandant vous pouvez démarrer plusieurs sons à la fois.
Source / Exemple :
' C'est HYPER simple :
InitSound hwnd
'Initialiser DirectSound sur la page en cours
Dim MonSon As Integer
MonSon = LoadSound("C:\MONSON.WAV")
'Charger le son
'ATTENTION : Fichiers Waves uniquement
PlayWave MonSon
'Démarrer le son
StopWave MonSon
'Arrête le son
SetWaveVolume MonSon, 50
'Met le son a 50%
'(Contrairement a la source "DIRECTSOUND7",
'je fait un pourcentage d'une valeur de -5000 à 0
'juste un peu plus pratique :)
NotInitSound
'Décharge tous les sons
Conclusion :
!!!! REMARQUE !!!!!
Pour ceux qui n'ont pas essayé de comprendre mon module DirectDraw et qui veulent utiliser les deux modules en même temps:
L'objet DX est déclaré dans les deux modules, vous devez donc le suspendre dans un des deux module. (Dim DX As DirectX7)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.