Des sons et de la musique !

Question

SVP !!!

Quelqu'un saurait par hasard comment mettre des sons ou de la musique dans une form ?
Ca m'interesserai pas mal !
Et meme mettre des sons à la suite d'un clic sur un bouton !

Merci d'avance !!
CiaaO

boursicotteur · Answer

très facile:

1er: 
Place un fichier .wav au même endroit que ton fichier .vbp

2è:
Copie cette API dans un module quelconque:
'------------------------
'Pour jouer son wav
Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'------------------------

3è:
Dans ton prog, tu dois maintenant appeler le fichier .wav (wincrash.wav dans ce cas ci). Tu peux placer ces lignes n'importe où dans ton prog: ouverture de formulaire, bouton, etc.

'--------
    Path = CurDir & "\wincrash.wav"
    R = sndPlaySound(Path, 1)
'--------

...et c'est tout.

aquanum · Answer

Merci beaucoup, c'est éxactement ce que je cherchais !!!

Au fait, est-ce que ca peut marcher avec des fichiers midi ou MP3 ???
merci d'avance !

boursicotteur · Answer

Non!  Pas avec cette API.

C'est possible autrement mais je sais pas comment faire car je n'ai jamais eu besoin de le faire.

Je sais par contre qu'il y a des sources sur ce site qui le font alors tu n'as qu'à faire une petite recherche.

aquanum · Answer

Merci,
En fait là je suis face à un autre probleme !
Comment jouer plusieurs sons à la suite ?
Il ne me lit que le dernier !!

Genre je mets ca

'--------
Path = CurDir & "\son.wav"
R = sndPlaySound(Path, 1)
'--------

'--------
Path = CurDir & "\son2.wav"
R = sndPlaySound(Path, 1)
'--------

et là il me joue seulement le 2eme son !
J'aimerais bien pouvoir lire plusieurs sons à la suite !

AIDEZ MOI  PLEASE !!!

boursicotteur · Answer

Pour jouer plusieurs sons l'un à la suite de l'autre, il faut mettre le flag à 0 comme ceci:

'--------
Path = CurDir & "\son.wav"
R = sndPlaySound(Path, 0)
'--------

'--------
Path = CurDir & "\son2.wav"
R = sndPlaySound(Path, 0)
'--------

Vas voir ma source "Horloge". C'est exactement ce que j'ai fait. 

NOTE: Cette source est actuellement hors d'usage car le site web de l'horloge atomique a changé la config de la page où ma source puise son info. Je vais faire une modif bientôt et je vais en profiter pour la faire parler avec MSagent au lieu de fichiers wav.

Concernant la lecture de fichiers mp3 et midi:
En cherchant des infos sur MSagent, je suis tombé sur ce que tu cherches...

http://easyvb.free.fr/multimedia.php3

Il y a aussi des sources qui utilisent MSagent pour faire parler le PC

http://easyvb.free.fr/agent.php3

Amuses toi bien...

arogneru · Answer

salut j'ai essay&#233; ce code mais sa marche pas j'entend un son mais c 'est un son window et moi j'ai mis un cri de fantome comme wav


 


voila la code ke cj'ai tap&#233;:


 


Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Private Sub Command1_Click()
'--------
Path = CurDir & "\ghost.wav"
R = sndPlaySound(Path, 1)
'--------



End Sub

tu peux m'aider?
merci

Des sons et de la musique !

6 réponses

Discussions similaires