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
[WF4] PASSAGE D'ARGUMENTS LITERAL, VISUALBASICVALUE OU LAMBDAVALUE?[WF4] PASSAGE D'ARGUMENTS LITERAL, VISUALBASICVALUE OU LAMBDAVALUE? par JeremyJeanson
Avec la sortie de la RC de Visual Studio 2010, Microsoft a mis un peu les points sur le i en ce qui concernait le passage d'arguments. Mais nous somme un certain nombre à avoir pris ce changement comme un méchant coup dur. Pour résumer la situation : à la...
Cliquez pour lire la suite de l'article par JeremyJeanson [RIA SERVICES] INCLUDE ET DOMAINDATASOURCE[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE par Audrey
Dans un de mes articles précédents , j'avais parlé des DomainDataSource avec RIA Services dans le cas d'une interface Maître - Détail. Dans le même principe, je vais parler d'une autre manière de mettre en forme ce cas d'interface avec RIA Services. Et po...
Cliquez pour lire la suite de l'article par Audrey ZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATIONZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATION par ROMELARD Fabrice
Une des nouveautés de la version V 3.0 était l'apparition de l'onglet Social qui ne fonctionnait que si le MarketPlace était activé sur son poste. Cela limitait donc son intérêt, car hors du cadre commercial USA-CANADA, peu de monde trouva...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit
Forum
RE : CONVERSIONRE : CONVERSION par peter2010
Cliquez pour lire la suite par peter2010
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour tιlιcharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour tιlιcharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour tιlιcharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour tιlιcharger Rigs of Rods
|