Jouer un son sous VB

Résolu/Fermé
Jperrio Messages postés 71 Date d'inscription samedi 8 septembre 2007 Statut Membre Dernière intervention 1 novembre 2010 - 17 juil. 2008 à 23:04
James56 Messages postés 160 Date d'inscription lundi 24 septembre 2007 Statut Membre Dernière intervention 1 avril 2022 - 23 oct. 2012 à 16:06
Bonjour,

Je developpe depuis excel et sous VB editor un petit programme.

Pour le rendre encore plus ergonomique, je voudrais jouer un son au moment ou je clique sur un bouton.

Qui peux me dire quel composant installer et comment faire ?

Merci
A voir également:

7 réponses

Tu n'es pas le seul sur CCM. Si quelqu'un se pose la même question, il connaîtra ma solution même si le message date de 2 ans. Dans ces conditions, CCM aurait dû bloquer ce message et même tous les plus vieux par la même occasion.

Mieux vaut tard que jamais !

A lire ta phrase, c'est comme si je devais être à l'affut des questions posées ici et d'apporter obligatoirement une réponse.
9
Entièrement d'accord ! Mieux vaut tard que jamais... La preuve : Ca vient de me servir !

Merci MicDundee
0
Idem pour moi !
Merci !
0
Merci egalement
0
James56 Messages postés 160 Date d'inscription lundi 24 septembre 2007 Statut Membre Dernière intervention 1 avril 2022 16
23 oct. 2012 à 16:06
+1
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
31 août 2010 à 12:24
Bravo pour la réactivité (2 ans)!!!
Que serait CCM sans tes interventions ?
3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
18 juil. 2008 à 08:58
Bonjour,

Option Explicit
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long

Sub faire_bip()
Beep 500, 400
End Sub

ici: 500 est la note, 400 la durée

Michel
2
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
18 juil. 2008 à 10:35
re,

Suffit de demander!...

Private Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

' archives mpfe
Sub PlayWAV()
' snd_async: son asynchrone (la musique n'arrete pas le programme)
If Application.CanPlaySounds Then
WAVFile = ThisWorkbook.Path & "\" & "atmosph.wav"
Call PlaySound32(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Else
Exit Sub
End If

End Sub

et le wav bruit des pièces (si tu en as d'autres je suis preneur, d'avance merci):

https://www.cjoint.com/?hskHQC13BX
1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
18 juil. 2008 à 10:41
Oups! sur ma demo dans mon grenier, le son wav était "atmosph.wav"

tu remplaces par le nom du fichier avec les pièces
0
Utilisateur anonyme
29 août 2010 à 18:26
Il y a plus simple pour VB 2008 :
My.Computer.Audio.Play("C:\windows\media\chord.wav")
Mettez le son et l'emplacement que vous souhaitez.
0
Pseudo Comment ça marche oublié
16 févr. 2011 à 17:33
Bravo tout simplement. Pour ton code, cela marche aussi sur VB 2010.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
En fait c'est juste le temps qu'il a mis pour apprendre vb.net ^^
1
Jperrio Messages postés 71 Date d'inscription samedi 8 septembre 2007 Statut Membre Dernière intervention 1 novembre 2010 4
18 juil. 2008 à 09:37
Bonjour

J ai juste oublier un détail, le son en question, c'est un wav.

En fait c'est une caisse enregistreuse que j ai fait et je voudrais jouer le bruit du tirroir caisse quand j encaisse.

Merci pour la réponse

A+
-1
Bonjour

Merci pour la réponse.
Ca vient de me servir également.

Maxfacel
-1