Accueil > > > (MP3 PLAYER)
 (MP3 PLAYER)
 Information sur la source
 Description
Voila le code de mon Mp3 Player qui est de mon script EnEmY Script.
 Source
- ;----------------------
- ; MP3 PLAYER
- ;----------------------
-
- alias mp3_player { dialog -mdx mp3 mp3 }
- dialog mp3 {
- title " Mp3 Player"
- size -1 -1 157 179
- option dbu
- edit "Mp3 Player (EnEmY|Script)", 1, 20 4 122 10, disable center
- box "", 2, 26 24 108 22
- button "Play", 3, 34 30 28 11
- button "Pause", 4, 67 30 28 11
- button "Stop", 5, 99 30 28 11
- box "", 6, 4 68 150 107
- list 7, 9 83 140 86, size
- button "+", 8, 46 73 24 9
- button "-", 9, 85 73 24 9
- scroll "Volume", 10, 52 55 64 8, horizontal range 65535
- text "Volume:", 11, 21 55 26 8, center
- }
- on *:dialog:mp3:*:*:{
- if ($devent == init) { loadbuf -o $dname 7 mp3.txt }
- if ($devent == sclick) {
- if ($did == 8) { var %fichier-mp3 $sfile(*.*,Choisissez un fichier audio) | write mp3.txt $nopath(%fichier-mp3) | write mp3liste.txt %fichier-mp3 | loadbuf -rao $dname 7 mp3.txt }
- if ($did == 9) { write -dl $did($dname,7).sel mp3.txt | write -dl $did($dname,7).sel mp3liste.txt | did -r $dname 7 | loadbuf -rao $dname 7 mp3.txt }
- if ($did == 3) { splay $read(mp3liste.txt,%lines.mp3) }
- if ($did == 4) { if %pause == 1 { splay resume | %pause = 0 | did -ra $dname 4 Pause } | else { splay pause | %pause = 1 | did -ra $dname 4 Resume } }
- if ($did == 5) { splay stop }
- }
- if ($devent == mouse) { if ($did == 10) { vol -w $did(10).sel } }
- if ($devent == dclick) { if ($did == 7) { set %lines.mp3 $did($dname,7).sel | splay $read(mp3liste.txt,%lines.mp3) | msg.mp3 } }
- }
- alias msg.mp3 { amsg 14,1(15Mp³ Player14) (15 $+ $remove($read(mp3.txt,%lines.mp3),.mp3,.wma,.wav,.mid) $+ 14) (15 $+ $duration($calc($mp3($read(mp3liste.txt,%lines.mp3)).length / 1000 )) $+ 14) }
;----------------------
; MP3 PLAYER
;----------------------
alias mp3_player { dialog -mdx mp3 mp3 }
dialog mp3 {
title " Mp3 Player"
size -1 -1 157 179
option dbu
edit "Mp3 Player (EnEmY|Script)", 1, 20 4 122 10, disable center
box "", 2, 26 24 108 22
button "Play", 3, 34 30 28 11
button "Pause", 4, 67 30 28 11
button "Stop", 5, 99 30 28 11
box "", 6, 4 68 150 107
list 7, 9 83 140 86, size
button "+", 8, 46 73 24 9
button "-", 9, 85 73 24 9
scroll "Volume", 10, 52 55 64 8, horizontal range 65535
text "Volume:", 11, 21 55 26 8, center
}
on *:dialog:mp3:*:*:{
if ($devent == init) { loadbuf -o $dname 7 mp3.txt }
if ($devent == sclick) {
if ($did == 8) { var %fichier-mp3 $sfile(*.*,Choisissez un fichier audio) | write mp3.txt $nopath(%fichier-mp3) | write mp3liste.txt %fichier-mp3 | loadbuf -rao $dname 7 mp3.txt }
if ($did == 9) { write -dl $did($dname,7).sel mp3.txt | write -dl $did($dname,7).sel mp3liste.txt | did -r $dname 7 | loadbuf -rao $dname 7 mp3.txt }
if ($did == 3) { splay $read(mp3liste.txt,%lines.mp3) }
if ($did == 4) { if %pause == 1 { splay resume | %pause = 0 | did -ra $dname 4 Pause } | else { splay pause | %pause = 1 | did -ra $dname 4 Resume } }
if ($did == 5) { splay stop }
}
if ($devent == mouse) { if ($did == 10) { vol -w $did(10).sel } }
if ($devent == dclick) { if ($did == 7) { set %lines.mp3 $did($dname,7).sel | splay $read(mp3liste.txt,%lines.mp3) | msg.mp3 } }
}
alias msg.mp3 { amsg 14,1(15Mp³ Player14) (15 $+ $remove($read(mp3.txt,%lines.mp3),.mp3,.wma,.wav,.mid) $+ 14) (15 $+ $duration($calc($mp3($read(mp3liste.txt,%lines.mp3)).length / 1000 )) $+ 14) }
 Conclusion
/mp3_player pour le lancer.
 Historique
- 16 octobre 2005 09:58:08 :
- Menubar =)
- 19 octobre 2005 10:08:52 :
- Ajout de volume et dialog refait avec des grandes modifications! et c'est pas encore fini:)
- 19 octobre 2005 11:01:04 :
- Erreur + Rajout msg
- 19 octobre 2005 11:21:21 :
- Kke chose
- 19 octobre 2005 11:32:01 :
- Suppr le dialog -c (pour le volume)
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Un mp3 et dcc auto [ par romeomd ]
VincentBonjour, je suis a la recher d'un addons, quand qqun va dans mon pv, il fait !Musiquealors la, une liste de musique s'affiche, et il fais son c
Pour ceux qui aiment écouter la musique en tchattant [ par Bestdoud ]
Cela fait quelque temps que je réalise un lecteur mp3 en picwin. venez le découvrir à l'adresse suivante: http://amigagaamp.free.fr voici ces caract
Lecteur MP3 capable de lire des fichiers sons distants [ par cyclopdev ]
Voilà un défi :est-il possible de faire un lecteur MP3 capable de lire des fichiers hébergés sur une page web, le tout pas trop lourd et entièrement m
Lecteur Mp3 [ par titeuf28310 ]
Bonjour,A chaque lecteur mp3 trouver sur le site, meme les mieux noté, fait planter mon script. je comprend pas pourquoi (mon mirc est le 6.16).Il a t
probleme avec un remote pr mp3 !!!!!!!! [ par wizord ]
alrs voila le pb .... g un remote pr lire les fichier mp3 par input ... je tape par exemple : !mp3 blable et mon remote est chargé de me trouve la mu
je voudrai faire un lecteur MP3 et MIDI (si possible) [ par bibi_81 ]
Voila jai deja tout di je voudrais faire un lecteur MP >ET< MIDI siouplait ... Deja me demanderez vous le formtat MIDI est peu repandu NON !!moi
musique de démarage [ par killersbrothers ]
killersbrothersslt!!je pourait savoir comment on met un musique au démarage du script jai completement oublié
Probléme fichier mp3 [ par Raziell ]
Bonjour à tous,J'ai créé un lecteur mp3, mais je n'arrive pas a faire " lire " mIRC les fichier .mp3 un par un !Si quelqu'un sais comment il faut fair
musique de debut pr un script :D [ par bibi_81 ]
Je voudrais savoir comment faire pour que au lancement de mon script il y ai une musique qui se joue ...? Merci ce serait sympa de repondre tres vite
Remote mp3 et commande play fichier.txt [ par PALOMETTE ]
BonjourJ'ai installé un lecteur mp3 en remote qui fonctionne correctement.Le problème, c 'est que je ne peux plus utiliser la commande /play
|
Derniers Blogs
 COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ?MYTIC - SHAREPOINT 2010 : DéJà UN MYTHE MICROSOFT ? par junarnoalg
La prochaine session de MyTIC aura lieu à Namur, le 23 mars prochain. Pendant presque une heure, nous parlerons de SharePoint 2010. Voici un aperçu du programme.
Accueil : 17h30 Début de la session : 18h00 - Les nouvelles int...
Cliquez pour lire la suite de l'article par junarnoalg
Forum
 RE : COULEUR TEXTRE : COULEUR TEXT par WorldDMT
Cliquez pour lire la suite par WorldDMT
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
Comparez les prix
HTC Magic
Entre 429€ et 429€
|