Zouille
-
26 nov. 2001 à 13:23
djedjeska
Messages postés90Date d'inscriptionmercredi 21 novembre 2007StatutMembreDernière intervention25 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.
djedjeska
Messages postés90Date d'inscriptionmercredi 21 novembre 2007StatutMembreDernière intervention25 mai 2013 12 avril 2011 à 23:45
Non désolé, c'était simplement dû à l'espace...
djedjeska
Messages postés90Date d'inscriptionmercredi 21 novembre 2007StatutMembreDernière intervention25 mai 2013 12 avril 2011 à 23:41
Bonsoir, si le son en question est situé en D:, la commande ne fonctionne plus... Alors que j'ai essayé avec un son en C:, et pas de problème...
Des idées ?
papyalin
Messages postés7Date d'inscriptionmercredi 26 août 2009StatutMembreDernière intervention29 avril 2011 4 sept. 2009 à 09:24
Bonjour,
non, le son fonctionne bien. Je parviens à utiliser MMcontrol;
mais je rencontre des problèmes avec "mciExecute".
Vlavv
Messages postés20Date d'inscriptionsamedi 16 juillet 2005StatutMembreDernière intervention 3 septembre 2009 3 sept. 2009 à 22:00
Bonsoir,
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.
papyalin
Messages postés7Date d'inscriptionmercredi 26 août 2009StatutMembreDernière intervention29 avril 2011 2 sept. 2009 à 11:28
merci VLAVV,
mais ce code me donne une erreur :
"Le périphérique n'est pas ouvert ou pas reconnu par MCI"
Vlavv
Messages postés20Date d'inscriptionsamedi 16 juillet 2005StatutMembreDernière intervention 3 septembre 2009 1 sept. 2009 à 20:39
Bonsoir,
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 !
papyalin
Messages postés7Date d'inscriptionmercredi 26 août 2009StatutMembreDernière intervention29 avril 2011 1 sept. 2009 à 16:42
bonjour
As-tu la réponse VLAVV
Ca m'intéresse. Merci
fredflo74
Messages postés14Date d'inscriptionlundi 29 août 2005StatutMembreDernière intervention28 novembre 2015 15 déc. 2005 à 13:32
Comment on cré une ressource pour metre le fichier wav dedans
Vlavv
Messages postés20Date d'inscriptionsamedi 16 juillet 2005StatutMembreDernière intervention 3 septembre 2009 17 juil. 2005 à 21:15
Salut
y a-t-il une commande pour arreter de jouer le son ?
merci
geoxdd4
Messages postés9Date d'inscriptionlundi 13 octobre 2003StatutMembreDernière intervention17 mars 2008 22 avril 2005 à 19:28
Fraden28, ton astuce est tout particulièrement satisfaisante.
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.
Fraden28
Messages postés19Date d'inscriptionsamedi 25 septembre 2004StatutMembreDernière intervention11 octobre 2004 20 nov. 2004 à 12:25
Sinon il y a 10 fois plus simple !!!
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à !!!
raytrex
Messages postés2Date d'inscriptionmercredi 7 avril 2004StatutMembreDernière intervention 9 novembre 2005 18 sept. 2004 à 19:02
Pour que ca marche avec les noms longs (et donc contenant des espaces), il faut rajouter 3 lignes à la procédure JouerUnWav.
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
shadowmoy
Messages postés340Date d'inscriptionjeudi 25 juillet 2002StatutMembreDernière intervention25 août 2007 29 janv. 2004 à 06:03
bien bien bien !
Syncop
Messages postés1Date d'inscriptionmercredi 5 février 2003StatutMembreDernière intervention28 juillet 2003 28 juil. 2003 à 16:44
pour le nom de fichier au format DOS faut utiliser la fonction : GetShortPathNameA
alexx860
Messages postés22Date d'inscriptionvendredi 4 avril 2003StatutMembreDernière intervention 2 janvier 2004 16 mai 2003 à 16:59
il faut le mettre dans une ressource
KWANSETSU
Messages postés4Date d'inscriptionmercredi 11 octobre 2000StatutMembreDernière intervention30 décembre 2008 14 févr. 2003 à 19:01
Pas mal... Mais comment faire pour que le fichier WAV ou MID en question soit inclus à l'exécutable lui-même, dispansant ainsi l'utilisateur de posséder le fichier son ?
winsave
Messages postés21Date d'inscriptionmercredi 1 janvier 2003StatutMembreDernière intervention 1 septembre 2005 6 janv. 2003 à 13:33
plus simple :
mciExecute("play " & chr(34) & Fichier & chr(34))
cs_XeroS
Messages postés9Date d'inscriptionmercredi 16 octobre 2002StatutMembreDernière intervention11 février 2005 18 oct. 2002 à 13:51
si dans le chemin il y a un espace il faut écrire le nom du répertoire comme ds le dos: c:progra~1 pour Program Files.
Et ca marche!
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