Accueil > > > SON ORAMA [ WAV , MP3 ... ]
SON ORAMA [ WAV , MP3 ... ]
Information sur la source
Description
On joue ° soit tous les fichiers du répertoire choisi. ° soit tous les fichiers contenus dans le fichier choisi, en les prenant dans l'ordre ou de manière aléatoire. ° soit un fichier de musique ( .wav,.mp3 .. ).
Source
- <HTML>
- <HEAD>
- <TITLE>Ecouter de la Musique</TITLE>
-
- <! ========== choix d'un fichier ========== >
- <OBJECT NAME="CD1" ID="CD1" VIEWASTEXT
- CLASSID="CLSID:F9043C85-F6F2-101A-A3C9-08002B2F49FB">
- <PARAM NAME="DialogTitle"
- VALUE="° Choix Fichier ( liste des Morceaux ) ° Décembre 2003 © marcel.Bultez@Tiscali.fr °">
- <PARAM NAME="FileName" VALUE="">
- <PARAM NAME="Filter">
- <PARAM NAME="FilterIndex" VALUE=1>
- <PARAM NAME="InitDir" VALUE="C:\Mes Documents">
- <PARAM NAME="Flags" VALUE=2630148>
- </OBJECT>
-
- <! ========== choix d'un répertoire ========== >
- <OBJECT ID="CD2" name="CD2" VIEWASTEXT
- CLASSID='clsid:13709620-C279-11CE-A49E-444553540000'>
- <PARAM NAME="Title">
- </OBJECT>
-
- <! ========== pour jouer un fichier son ========== >
- <OBJECT name="ObjSonWav" id="ObjSonWav" VIEWASTEXT
- classid="clsid:0B01FEE3-6DB6-11D0-9586-0000E8C0DC7F">
- <PARAM NAME="FileName">
- <PARAM NAME="Length">
- <PARAM NAME="Max">
- <PARAM NAME="Min">
- <PARAM NAME="Position">
- <PARAM NAME="Value">
- </OBJECT>
-
- </HEAD>
- <BODY bgcolor="#408080" text="#400040">
- <pre><b><table border=5>
- <tr><th>Morceaux de<br>Musique dans</th>
- <th>° Son orama ° Décembre 2003 © marcel.Bultez@Tiscali.fr °<th></tr>
- <tr><td><input onclick="chxrep();"
- type=radio
- name=chxf><b>Répertoire</td>
- <td><input type=text disabled
- style="font-weight:bold;font-size:12px;border:0;
- height:20px;width=600px;background=#C0C0C0;"
- name=rep></td></tr>
- <tr><td><input onclick="chxfic();"
- type=radio
- name=chxf><b>Liste</td>
- <td><input type=text disabled
- style="font-weight:bold;font-size:12px;border:0;
- height:20px;width=600px;background=#C0C0C0;"
- name=fic></td></tr>
- <tr><td><input type=radio checked name=chxt><b> Lecture dans l'ordre<br>
- <input type=radio name=chxt> Choix Aléatoire</td>
- <th><input name=exc type=button value="Valider" onclick="lancer();">
- <input name=exc type=button value="Quitter" onclick="opener=self; self.close();";>
- </th></tr>
- <tr><td><input onclick="chxson();"
- type=radio
- name=chxf><b>Fichier son</td>
- <td><input type=text disabled
- style="font-weight:bold;font-size:12px;border:0;
- height:20px;width=600px;background=#C0C0C0;"
- name=son></td></tr>
- </table>
- <select style="visibility:hidden;" id=tabfic name=tabfic></select><font color=#FFFFFF>
- On joue ° soit tous les fichiers du répertoire choisi
- ° soit tous les fichiers contenus dans le fichier choisi
- il doit être en format texte, 1 fichier de musique
- par ligne. exemple : C:\MES DOCUMENTS\SONS\ALRIGHT.WAV
- C:\MES DOCUMENTS\SONS\AMER29.WAV
- C:\MES DOCUMENTS\UTIL\PARACHUTER\EDIT_ALR.WAV ...
- en les prenant dans l'ordre ou de manière aléatoire.
- ° soit un fichier de musique ( .wav,.mp3 .. ) qui est joué immédiatement.
-
- <script type="text/javascript">
-
- //
- // Initialisation
- //
- var fso = new ActiveXObject("Scripting.FileSystemObject"); // permet traitements fichiers, répertoires
-
- //
- function chxrep() // choix d'un répertoire
- //
- {var dossier=CD2.BrowseForFolder(0,"Choix Répertoire",0,""); // recherche répertoire
- if (dossier) // si trouvé
- {rep.value=dossier.Title;
- if(/\((\w:)\)/i.exec(rep.value)) // c: ? ( par exemple )
- rep.value=RegExp.$1;
- else rep.value=dossier.ParentFolder.ParseName(rep.value).Path;
- son.value="";
- fic.value=""; }
- else chxf[0].checked=false; }
-
- //
- function chxson() // choix d'un son direct
- //
- { CD1.Filter="Sons|*.wav;*.MP3|Tous|*";
- CD1.ShowOpen();
- if (CD1.Filename.length>0)
- { fic.value="";
- rep.value="";
- SonWav(CD1.Filename); }
- else { chxf[2].checked=false; } }
-
- //
- function chxfic() // choix d'une liste
- //
- { CD1.Filter="Tous|*";
- CD1.ShowOpen(); // recherche fichier
- if (CD1.Filename.length>0) // choisi ?
- { fic.value=CD1.Filename;
- son.value="";
- rep.value=""; }
- else chxf[1].checked=false; }
-
- //
- function lancer() // lancement
- //
- {if (chxf[0].checked || chxf[1].checked) // fichier ou répertoire choisi
- {var f,f1,f2,lu,ts;
- switch (chxf[0].checked) {
- //
- case false: // fichier
- //
- ts = fso.OpenTextFile(fic.value,1,false); // ouvrir pour lire
- while (!ts.AtEndOfStream) // tant que ce n'est pas la fin
- {lu=ts.ReadLine(); // lire jusqu'à CRLF
- f2=tabfic.length; // le placer dans la table
- tabfic.length++;
- tabfic[f2].text=lu; }
- ts.close(); // fermer fichier
- break;
- //
- case true: // répertoire
- //
- f = fso.GetFolder(rep.value); // prise en compte répertoire
- f1 = new Enumerator(f.files); // énumère les fichiers
- for (; !f1.atEnd(); f1.moveNext()) // que l'on traite du 1er au dernier
- { f2=tabfic.length; // le placer dans la table
- tabfic.length++;
- tabfic[f2].text=f1.item(); }
- break; }
- if (!chxt[0].checked)
- {var joue=new Array();
- for (f2=0;f2<tabfic.length;f2++) joue[f2]=false; }
- f2=0;
- while (f2<tabfic.length)
- {if (chxt[0].checked) { f=f2; }
- else { f=Math.floor(Math.random()*tabfic.length); // nombre aléatoire
- while (joue[f]) { f=Math.floor(Math.random()*tabfic.length); } // si déjà joué
- joue[f]=true; }
- SonWav(tabfic[f].text); // jouer le fichier
- f2++; }
- window.location.reload(); } } // pour réinitialiser les tables
-
- //
- function SonWav(Fichier) // jouer un son
- //
- {if (fso.FileExists(Fichier)) // fichier existe ?
- {ObjSonWav.FileName=Fichier;
- ObjSonWav.Open(Fichier); // ouvrir
- ObjSonWav.Min = 0;
- ObjSonWav.Max = ObjSonWav.Length;
- ObjSonWav.Value = 0;
- ObjSonWav.Play(); // jouer
- if (ObjSonWav.Length > 0) // longueur > 0
- { while (ObjSonWav.Position < ObjSonWav.Length ) // tant que pas fini
- { ObjSonWav.Value = ObjSonWav.Position; } } // met à jour la position
- ObjSonWav.Close(); // fermer
- ObjSonWav.Value = ObjSonWav.Length; } }
-
- </script>
- </BODY></HTML>
<HTML>
<HEAD>
<TITLE>Ecouter de la Musique</TITLE>
<! ========== choix d'un fichier ========== >
<OBJECT NAME="CD1" ID="CD1" VIEWASTEXT
CLASSID="CLSID:F9043C85-F6F2-101A-A3C9-08002B2F49FB">
<PARAM NAME="DialogTitle"
VALUE="° Choix Fichier ( liste des Morceaux ) ° Décembre 2003 © marcel.Bultez@Tiscali.fr °">
<PARAM NAME="FileName" VALUE="">
<PARAM NAME="Filter">
<PARAM NAME="FilterIndex" VALUE=1>
<PARAM NAME="InitDir" VALUE="C:\Mes Documents">
<PARAM NAME="Flags" VALUE=2630148>
</OBJECT>
<! ========== choix d'un répertoire ========== >
<OBJECT ID="CD2" name="CD2" VIEWASTEXT
CLASSID='clsid:13709620-C279-11CE-A49E-444553540000'>
<PARAM NAME="Title">
</OBJECT>
<! ========== pour jouer un fichier son ========== >
<OBJECT name="ObjSonWav" id="ObjSonWav" VIEWASTEXT
classid="clsid:0B01FEE3-6DB6-11D0-9586-0000E8C0DC7F">
<PARAM NAME="FileName">
<PARAM NAME="Length">
<PARAM NAME="Max">
<PARAM NAME="Min">
<PARAM NAME="Position">
<PARAM NAME="Value">
</OBJECT>
</HEAD>
<BODY bgcolor="#408080" text="#400040">
<pre><b><table border=5>
<tr><th>Morceaux de<br>Musique dans</th>
<th>° Son orama ° Décembre 2003 © marcel.Bultez@Tiscali.fr °<th></tr>
<tr><td><input onclick="chxrep();"
type=radio
name=chxf><b>Répertoire</td>
<td><input type=text disabled
style="font-weight:bold;font-size:12px;border:0;
height:20px;width=600px;background=#C0C0C0;"
name=rep></td></tr>
<tr><td><input onclick="chxfic();"
type=radio
name=chxf><b>Liste</td>
<td><input type=text disabled
style="font-weight:bold;font-size:12px;border:0;
height:20px;width=600px;background=#C0C0C0;"
name=fic></td></tr>
<tr><td><input type=radio checked name=chxt><b> Lecture dans l'ordre<br>
<input type=radio name=chxt> Choix Aléatoire</td>
<th><input name=exc type=button value="Valider" onclick="lancer();">
<input name=exc type=button value="Quitter" onclick="opener=self; self.close();";>
</th></tr>
<tr><td><input onclick="chxson();"
type=radio
name=chxf><b>Fichier son</td>
<td><input type=text disabled
style="font-weight:bold;font-size:12px;border:0;
height:20px;width=600px;background=#C0C0C0;"
name=son></td></tr>
</table>
<select style="visibility:hidden;" id=tabfic name=tabfic></select><font color=#FFFFFF>
On joue ° soit tous les fichiers du répertoire choisi
° soit tous les fichiers contenus dans le fichier choisi
il doit être en format texte, 1 fichier de musique
par ligne. exemple : C:\MES DOCUMENTS\SONS\ALRIGHT.WAV
C:\MES DOCUMENTS\SONS\AMER29.WAV
C:\MES DOCUMENTS\UTIL\PARACHUTER\EDIT_ALR.WAV ...
en les prenant dans l'ordre ou de manière aléatoire.
° soit un fichier de musique ( .wav,.mp3 .. ) qui est joué immédiatement.
<script type="text/javascript">
//
// Initialisation
//
var fso = new ActiveXObject("Scripting.FileSystemObject"); // permet traitements fichiers, répertoires
//
function chxrep() // choix d'un répertoire
//
{var dossier=CD2.BrowseForFolder(0,"Choix Répertoire",0,""); // recherche répertoire
if (dossier) // si trouvé
{rep.value=dossier.Title;
if(/\((\w:)\)/i.exec(rep.value)) // c: ? ( par exemple )
rep.value=RegExp.$1;
else rep.value=dossier.ParentFolder.ParseName(rep.value).Path;
son.value="";
fic.value=""; }
else chxf[0].checked=false; }
//
function chxson() // choix d'un son direct
//
{ CD1.Filter="Sons|*.wav;*.MP3|Tous|*";
CD1.ShowOpen();
if (CD1.Filename.length>0)
{ fic.value="";
rep.value="";
SonWav(CD1.Filename); }
else { chxf[2].checked=false; } }
//
function chxfic() // choix d'une liste
//
{ CD1.Filter="Tous|*";
CD1.ShowOpen(); // recherche fichier
if (CD1.Filename.length>0) // choisi ?
{ fic.value=CD1.Filename;
son.value="";
rep.value=""; }
else chxf[1].checked=false; }
//
function lancer() // lancement
//
{if (chxf[0].checked || chxf[1].checked) // fichier ou répertoire choisi
{var f,f1,f2,lu,ts;
switch (chxf[0].checked) {
//
case false: // fichier
//
ts = fso.OpenTextFile(fic.value,1,false); // ouvrir pour lire
while (!ts.AtEndOfStream) // tant que ce n'est pas la fin
{lu=ts.ReadLine(); // lire jusqu'à CRLF
f2=tabfic.length; // le placer dans la table
tabfic.length++;
tabfic[f2].text=lu; }
ts.close(); // fermer fichier
break;
//
case true: // répertoire
//
f = fso.GetFolder(rep.value); // prise en compte répertoire
f1 = new Enumerator(f.files); // énumère les fichiers
for (; !f1.atEnd(); f1.moveNext()) // que l'on traite du 1er au dernier
{ f2=tabfic.length; // le placer dans la table
tabfic.length++;
tabfic[f2].text=f1.item(); }
break; }
if (!chxt[0].checked)
{var joue=new Array();
for (f2=0;f2<tabfic.length;f2++) joue[f2]=false; }
f2=0;
while (f2<tabfic.length)
{if (chxt[0].checked) { f=f2; }
else { f=Math.floor(Math.random()*tabfic.length); // nombre aléatoire
while (joue[f]) { f=Math.floor(Math.random()*tabfic.length); } // si déjà joué
joue[f]=true; }
SonWav(tabfic[f].text); // jouer le fichier
f2++; }
window.location.reload(); } } // pour réinitialiser les tables
//
function SonWav(Fichier) // jouer un son
//
{if (fso.FileExists(Fichier)) // fichier existe ?
{ObjSonWav.FileName=Fichier;
ObjSonWav.Open(Fichier); // ouvrir
ObjSonWav.Min = 0;
ObjSonWav.Max = ObjSonWav.Length;
ObjSonWav.Value = 0;
ObjSonWav.Play(); // jouer
if (ObjSonWav.Length > 0) // longueur > 0
{ while (ObjSonWav.Position < ObjSonWav.Length ) // tant que pas fini
{ ObjSonWav.Value = ObjSonWav.Position; } } // met à jour la position
ObjSonWav.Close(); // fermer
ObjSonWav.Value = ObjSonWav.Length; } }
</script>
</BODY></HTML>
Sources du mκme auteur
Sources de la mκme categorie
Commentaires et avis
|
Derniers Blogs
XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour tιlιcharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour tιlιcharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour tιlιcharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour tιlιcharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour tιlιcharger Academy System
|