jouer une musique

Question

Salut &#224; tous,
Je sais que cette question a beaucoup &#233;t&#233; abord&#233;e mais j'ai bien regard&#233; les posts et je n'ai pas trouv&#233; la r&#233;ponse...
Donc voila j'aimerais pouvoir jouer des musique grace a real player , lecteur windows media ou bien un autre logiciel.
Je suis un d&#233;butant donc j'ai essayer d'utiliser le fso et dans une console application j'ai ajouter la reference scripting runtime et j'ai cod&#233;:
dim v1
set v1=createobject("scripting.filesystemobject")
v1.getfile("C:/chanson/chanson")
Il m'affiche une erreur et me dit que le fichier est introuvable donc voila avec le fso j'ai aussi essayer d'ajouer la reference active movie mais je n'ai pas trouver la commande pour lire le fichier.
bye et merci d'avance pour vos r&#233;ponses

cs_MasterHack · Answer

salut, pour commencer v1.getfile("C:/chanson/chanson") c faux c plutot v1.getfile("C:\chanson\chanson"),et pour terminer explique nous un peu plus se que tu vx faire,merci

Life is short...Learn more Copy Rights <> Rights to Copy

dOsSpr0uTosS · Answer

Euh bah moi j'ai toujours utilis&#233; les slash dans ce sens et ca marche tr&#232;s bien....
Sinon pour ce que je veux faire rien de speciale simplement un programme qui quand il s'execute puisse lire des chanson ou des video (c'est juste pour am&#233;liorer ma connaissance de vb )
J'ai aussi essayer de rajout&#233; .mp3 au nom de la chanson car je les ai compresser en mp3 mais c'est pareil : marche pas 
Donc voila si quelqu'un peut me donner le code et me l'expliquer sinon ca me sert a rien

dOsSpr0uTosS · Answer

j'ai trouver comment fair mais j'ai encor un programme donc enfaites je tape:

Dim film 
As 
Double


film = Shell(
"C:\Program Files\Windows Media Player\wmplayer.exe C:\chansons mp3\chanson.mp3", vbMaximizedFocus)



End 
Sub

Mais il me dit qu'il ne trouver pas la chansons alors qu'elle y est pourtant et je me suis pas trompe dans le chemin j'ai tout bien v&#233;rifi&#233;...

dOsSpr0uTosS · Answer

PS: je viens d'essayer 

Sub Main()



Dim film 
As 
Double


film = Shell(
"C:\Program Files\Windows Media Player\WMPLAYER, C:\chansons mp3\09 Piste 9")


 



End 
Sub
R&#233;sultat : il me met cette erreur "permission denied",j'ai aussi essayer avec RealPlayer mais il me marque pareil.....

tbbuim1 · Answer

Tu veux pouvoir lire un fichier audio...

Ce qu'il faudrait que tu fasses, c'est mettre un activeX de WMP dans ton form.

Et qu'ensuite, tu passes le fichier audio &#224; cette OCX

Tu liras le fichier et en plus, tu verras l'animation 

Pour lire le fichier, il suffit d'&#233;crire:

WMP.URL = "C:\chansons mp3\chanson.mp3"

Si tu veux mettre le WMP en pleine &#233;cran &#233;crit:

WMP.fullScreen = true

Si tu as access, tu peux voir comment je fais sur ma source &#224; l'adresse suivante:

http://www.vbfrance.com/code.aspx?ID=23674

*********************************************

Sinon, si &#231;a ne te d&#233;range pas de lancer en parall&#232;le WMP ou winamp, &#231;a
d&#233;pend de ce qui est param&#233;tr&#233; sur ta machine, alors utilise un ShellExecute

Place la d&#233;claration de cette fonction dans un module:

Public Declare Function ShellExecuteA Lib
"shell32" (ByVal hwnd As Long, ByVal LPFile As String, ByVal PathFile
As String, ByVal Other As String, ByVal Other2 As String, ByVal Param
As Long) As Long

Ensuite, pour lancer un fichier, &#233;cris:

File = "C:\Chansons\chanson.mp3"

ShellExecuteA 0, "Open", File, "", "", 10


TBBUIM

dOsSpr0uTosS · Answer

Salut et merci,je suis un gros d&#233;butant et peux-tu m'expliquer en quoi consiste le fait de mettre une activex (est-ce simplement une r&#233;f&#233;rence?).Sinon j'aimerais bien savoir  quoi marquer pour justement masquer WMP.
merci d'avance

dOsSpr0uTosS · Answer

Salut et merci,je suis un gros d&#233;butant et peux-tu m'expliquer en quoi consiste le fait de mettre une activex (est-ce simplement une r&#233;f&#233;rence?).Sinon j'aimerais bien savoir  quoi marquer pour justement masquer WMP.
merci d'avance

tbbuim1 · Answer

Un activeX c un composant qui a &#233;t&#233; programm&#233; et que tu peux ajouter &#224;
ton projet, comme n'importe quel objet, comme un bouton par exemple,
sauf que la c l'&#233;cran du WMP. Je ne sais pas comment masquer le WMP,
peut &#234;tre en faisant un formulaire &#224; part contenant le WMP et en
lan&#231;ant le formulaire avec l'option Hide...

Mais je sais pas, j'ai jamais essay&#233; lol

Je suis moi m&#234;me d&#233;butant en VB 
TBBUIM

cs_MasterHack · Answer

salut pour rendre le composant wmp invisible mets juste la propriete wmp.visible=false

Life is short...Learn more Copy Rights <> Rights to Copy

tbbuim1 · Answer

lol oui, par exemple, on peut faire &#231;a aussi... 

J'y ai pas pens&#233; sur le coup 


TBBUIM

dOsSpr0uTosS · Answer

Salut j'ai chercher l'activeX window media player mais j'l'ai pas trouv&#233;(je sais pas trop ou cherch&#233;...)

Jouer une musique

11 réponses

Discussions similaires