Petit lecteur mp3
Soyez le premier à donner votre avis sur cette source.
Snippet vu 7 930 fois - Téléchargée 26 fois
Contenu du snippet
Bah c est un ti lecteur mp3 avec annonce de ce ke l on ecoute sur la fenetre active (desactivable) avec un mode continu, aleatoire, boucle. On pe ajouter autant de rep ke l on desire.Ca lit les waves, midi avec la fonction add. Le volume est gere ainsi k une info hyper utile , le tps restant :)
ps:click droit sur le fond d un chan ou de la fenetre status pour afficher le menu.
Y a ptete des bugs c ma premiere grosse source. Commentaire si vous en trouvez.
Version 1.1:
Bugs des espaces reparé.
ps:click droit sur le fond d un chan ou de la fenetre status pour afficher le menu.
Source / Exemple :
;;;;;Mp3 PLayer Dialog;;;
menu status,channel {
-
Mp3 :
.Lancer:/mp3
.Afficher:/dialoga
.Masquer:/dialogm
}
alias dialogm {
.set %y 85
if ( %mode == on ) {
.timerinftitle 0 1 .mp3tpsenroule
.timermasker 85 0.1 .enroule }
}
alias dialoga {
.set %y 0
if ( %mode == on ) {
.timerafficher 95 0.1 .deroule }
.timerinftitle off
.dialog -t mp3 mp3 - Huitre
.timerinfo 0 1 .mp3tps
}
alias mp3 {
dialog -hm MP3 MP3
}
alias son_txt {
/write $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) $1-
did -a mp3 1 $nopath($1-)
}
alias deroule {
.dialog -sb mp3 $dialog(mp3).x $dialog(mp3).y 100 %y
.set %y $calc( %y + 1 )
}
alias enroule {
.dialog -sb mp3 $dialog(mp3).x $dialog(mp3).y 100 %y
.set %y $calc( %y - 1 )
}
alias mp3tpsenroule {
.timerinfo off
set %tpsmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) )
.dialog -t mp3 mp3 :[ %tpsmp3 ]:
if ( %tpsmp3 == 0 ) { .timerinftitle off }
}
alias mp3tps {
set %tpsmp3 $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) )
did -a mp3 40 :[ $iif( $mp3($insong.fname).title == $null , No Title,$mp3($insong.fname).title ) - %tpsmp3 ]:
if ( %tpsmp3 == 0 ) { .timerinfo off }
}
dialog MP3 {
title "Mp3 - Huitre"
size -1 -1 100 85
option dbu
list 1,5 5 90 60
box "info",40,0 75 100 30
button "ok",100, 200 1000 1 1,ok
button "cancel",200, 100 1000 1 1,cancel
button "Play",2,5 63 16 10
button "Stop",3,26 63 16 10
button "Boucle",4,46 63 18 10
button "Add",5,68 63 15 10
button "+",6,88 63 5 5
button "-",7,88 68 5 5
menu "mode",9
menu "Mode continu",30,9
item "On",31,30,9
item "Off",32,30,9
menu "Mode aleatoire",41,9
item "On",33,41,9
item "Off",34,41,9
menu "Mode silencieux",50,9
item "On",35,50,9
item "Off",36,50,9
menu "Repertoire",10
item "Choisir le repertoire",11,10
item "Ajouter un repertoire",12,10
menu "Credits",92
item "About",91,92
}
dialog Credits {
title "Credits"
size -1 -1 70 47
option dbu
text "Huitre Audio Media Player",99, 5 5 100 12
text "crée par Huitre",97,16 35 100 12
text "Kewl.random.org:6667",96, 5 17 60 12
text "#universjeux",98, 5 24 40 12
button "Ok",1,133 4 15 43,ok
}
on *:dialog:mp3:menu:91 {
dialog -m Credits Credits }
on *:dialog:mp3:menu:11 {
remove $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34)
set %dir $sdir(E:\anime,Repertoire des Mp3)
did -r mp3 1
$findfile(%dir,*.mp3,0,son_txt $1-)
}
on *:dialog:mp3:menu:12 {
set %addir $sdir(E:\anime,Repertoire des Mp3)
$findfile(%addir,*.mp3,0,son_txt $1-)
}
on *:dialog:mp3:sclick:1 {
set %zik_num $did(mp3,1).sel
set %zik $read( $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num)
}
on *:dialog:mp3:dclick:1 {
set %boucle off
/splay -p stop
set %zik_num $did(mp3,1).sel
set %zik $read(mp3.txt , %zik_num)
/splay -p %zik
/timerinfo off
/timerinfo 0 1 mp3tps
if ( %silence == off ) {
msg $active [ Mp3 Huitre's Player : $nopath(%zik) Album : $mp3(%zik).album Length : $duration($calc(($mp3(%zik).length)/1000)) Bitrate : $mp3(%zik).bitrate kb/s ]
}
}
on *:dialog:mp3:rclick:1 {
msg $active [ Mp3 Huitre's Player : $nopath(%zik) Album : $mp3(%zik).album Length : $duration($calc(($mp3(%zik).length)/1000)) Bitrate : $mp3(%zik).bitrate kb/s ]
}
on *:dialog:mp3:sclick:3 {
set %boucle off
/splay -p stop %zik
}
on *:dialog:mp3:sclick:2 {
set %boucle off
set %zik_num $did(mp3,1).sel
set %zik $read( $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num)
/splay %zik
}
on *:dialog:mp3:sclick:4 {
set %zik_num $did(mp3,1).sel
set %zik $read( $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num)
set %boucle on
/splay -p %zik2
}
on *:dialog:mp3:sclick:5 {
var %addmp3 $sfile(E:\anime\,Nom du mp3,Ajouter)
/write $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) %addmp3
/did -a MP3 1 $nopath(%addmp3) }
on *:dialog:mp3:sclick:6 {
//vol -v $calc( $vol(master) + 1000 ) }
on *:dialog:mp3:sclick:7 {
//vol -v $calc( $vol(master) - 1000 ) }
on *:dialog:mp3:menu:31 {
set %aleatoire off
set %continu on }
on *:dialog:mp3:menu:32 {
set %aleatoire off
set %continu off }
on *:dialog:mp3:menu:33 {
set %continu off
set %aleatoire on }
on *:dialog:mp3:sclick:34 {
set %continu off
set %aleatoire off }
on *:dialog:mp3:menu:35 {
set %silence on }
on *:dialog:mp3:menu:36 {
set %silence off }
on *:dialog:MP3:init:0: {
.set %mode on
/echo merci d' utiliser Huitre Amp - %crt
if ( $exists( $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) ) = $false ) {
set %crt Made by Huitre
set %dir $sdir(E:\anime,Repertoire des Mp3)
$findfile(%dir,*.mp3,0,son_txt $1-)
}
else {
/write -c mp3.txt
$findfile(%dir,*.mp3,0,son_txt $1- )
}
}
on *:dialog:MP3:close:0: {
.set %boucle off
.set %mode off
/splay -p stop %zik
/echo merci d' avoir utilisé Huitre Amp - %crt
.timerinfo off
.timerinftitle off
/write -c $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) }
on *:MP3END: {
/timerinfo off
if ( %continu == on ) {
.set %boucle off
inc %zik_num 1
if ( %zik_num > $lines( $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) ) ) {
.set %zik_num 1
}
.set %zik $read( $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34) , %zik_num)
/timerinfo off
/splay -p %zik
/timerinfo 0 1 /mp3tps
if ( %silence == off ) {
msg $active [ Mp3 Huitre's Player : $nopath(%zik) Album : $mp3(%zik).album Length : $duration($calc(($mp3(%zik).length)/1000)) Bitrate : $mp3(%zik).bitrate kb/s ]
}
}
if ( %aleatoire == on ) {
set %boucle off
set %zik $read($chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34))
/timerinfo off
/splay -p %zik
/timerinfo 0 1 /mp3tps
if ( %silence == off ) {
msg $active [ Mp3 Huitre's Player : $nopath(%zik) Album : $mp3(%zik).album Length : $duration($calc(($mp3(%zik).length)/1000)) Bitrate : $mp3(%zik).bitrate kb/s ]
}
}
if ( %boucle == on ) {
/splay -p %zik
if ( %silence == off ) {
msg $active [ Mp3 Huitre's Player : $nopath(%zik) Album : $mp3(%zik).album Length : $duration($calc(($mp3(%zik).length)/1000)) Bitrate : $mp3(%zik).bitrate kb/s ]
}
}
else { halt }
}
Conclusion :
Y a ptete des bugs c ma premiere grosse source. Commentaire si vous en trouvez.
Version 1.1:
Bugs des espaces reparé.
A voir également
- Petit lecteur mp3
- Uitre - Meilleures réponses
- Visual Basic / VB.NET : Petit lecteur mp3 - CodeS SourceS - Guide
- Lecteur mp3 - Codes sources - Visual Basic / VB.NET (Multimedia)
- Visual Basic / VB.NET : Lecteur mp3 avec multiple skins - CodeS SourceS - Guide
- Silver79 -=[player]=- v.1 ~lecteur mp3, avi(divx), mpg, mpeg, asf....~ - Codes sources - Visual Basic / VB.NET (Multimedia)
- Visual Basic / VB.NET : Lecteur mp3 avec playlist + classements de mp3 - CodeS SourceS - Guide
Juste si on pouvait le baisser dans la barre d'outil ça aurait été super :)
aller bon courage a +
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.