JOUER UN SON
Zouille
-
26 nov. 2001 à 13:23
djedjeska Messages postés 90 Date d'inscription mercredi 21 novembre 2007 Statut Membre Dernière intervention 25 mai 2013 - 12 avril 2011 à 23:45
djedjeska Messages postés 90 Date d'inscription mercredi 21 novembre 2007 Statut Membre Dernière intervention 25 mai 2013 - 12 avril 2011 à 23:45
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/10-jouer-un-son
https://codes-sources.commentcamarche.net/source/10-jouer-un-son
12 avril 2011 à 23:45
12 avril 2011 à 23:41
Des idées ?
4 sept. 2009 à 09:24
non, le son fonctionne bien. Je parviens à utiliser MMcontrol;
mais je rencontre des problèmes avec "mciExecute".
3 sept. 2009 à 22:00
Le son fonctionne-t-il par ailleurs (Winamp, Windows Media Player...) ? Ne peut-il pas y avoir un problème de driver ?
Bonne soirée.
2 sept. 2009 à 11:28
mais ce code me donne une erreur :
"Le périphérique n'est pas ouvert ou pas reconnu par MCI"
1 sept. 2009 à 20:39
Oui, en quatre ans j'ai eu le temps de trouver ;)
Pour mettre un son en pause :
mciExecute ("pause " & Fichier)
(on peut ensuite le reprendre avec mciExecute("play " & Fichier) )
Pour l'arrêter complètement :
mciExecute ("stop " & Fichier)
Bonne soirée !
1 sept. 2009 à 16:42
As-tu la réponse VLAVV
Ca m'intéresse. Merci
15 déc. 2005 à 13:32
17 juil. 2005 à 21:15
y a-t-il une commande pour arreter de jouer le son ?
merci
22 avril 2005 à 19:28
Je ne sais pas pourquoi mais la fonction jouerunwav marche une fois sur deux, c'est vraiment bizarre, ton astuce avec ce multimedia control est génial merci.
20 nov. 2004 à 12:25
Vous inserez le contrôle Microsoft Multimédia Control 6.0 visible = false
Puis vous faites :
Private sub form_load
MMControl1.FileName = "chemin même avec espace !!"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
Et voilà !!!
18 sept. 2004 à 19:02
Ce qui donne :
Public Sub JouerUnWav(Fichier As String)
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(Fichier)
mciExecute ("play " & f.shortpath)
End Sub
29 janv. 2004 à 06:03
28 juil. 2003 à 16:44
16 mai 2003 à 16:59
14 févr. 2003 à 19:01
6 janv. 2003 à 13:33
mciExecute("play " & chr(34) & Fichier & chr(34))
18 oct. 2002 à 13:51
Et ca marche!
26 nov. 2001 à 13:23