Trouver une ressource (Nouvelle version du moteur, plus rapide & pertinent, essayez le !)
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
(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 de la même categorie
Commentaires
Discussions en rapport avec ce code source
|
CalendriCode
| | | L | M | M | J | V | S | D |
| | | | | 1 | 2 | 3 |
| 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 11 | 12 | 13 | 14 | 15 | 16 | 17 |
| 18 | 19 | 20 | 21 | 22 | 23 | 24 |
| 25 | 26 | 27 | 28 | 29 | 30 | 31 |
|
Téléchargements
Logiciels à télécharger sur le même thème :
|