Encore un lecteur mp3...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 320 fois - Téléchargée 27 fois

Contenu du snippet

Bah... c'est un lecteur MP3 !

Source / Exemple :


;;;;Lecteur MP3 Par Tom_mlkj;;;;

;Met dans la menubar un raccourci...

menu menubar {
  Tom_mlkjMP3:.dialog -m Tom_mlkj.mp3 Tom_mlkj.mp3
}

;Le dialog

dialog Tom_mlkj.mp3 {
  title ".:: MP3 :: Tom_mlkj ::."
  size -1 -1 119 137
  option dbu
  button "Play", 1, 2 6 28 9
  button "Pause", 2, 31 6 28 9
  button "Reprendre", 3, 60 6 28 9
  button "Stop", 4, 89 6 28 9
  edit "", 5, 1 21 117 10, read autohs center
  edit "", 6, 1 31 117 10, read autohs center
  edit "", 7, 1 41 117 10, read autohs center
  list 8, 1 54 117 58, size
  check "", 9, 1 127 109 9
  button "Dossier", 10, 13 113 37 12
  button "", 11, 0 0 0 0, hide ok
  text "Volume :", 12, 62 115 22 8
  button "+", 13, 91 115 8 8
  button "-", 14, 101 115 8 8
}

;Lors du chargement du lecteur, ces commandes s'effectue...

On *:dialog:Tom_mlkj.mp3:init:*:{
  if ( %Tom_mlkj.mp3 == on ) { did -c Tom_mlkj.mp3 9 }
  if ( %Tom_mlkj.mp3 == off ) { did -u Tom_mlkj.mp3 9 }
  did -a Tom_mlkj.mp3 9 $me écoute...
  if ( $exists( $chr(34)  $+ $mircdir $+ mp3.txt $+ $chr(34) ) = $false ) {
    set %dir $sdir(E:\anime,Repertoire des Mp3)
    $findfile(%dir,*.mp3,0,son $1-) 
  }
  else { 
    /write -c mp3.txt 
    if ( $findfile(%dir,*.mp3,0,son $1-) != $null ) { did -a Tom_mlkj.mp3 8 $1- }
  }
}

;Ecriture dans un fichier texte tous vos mp3 qui sont dans le dossier que vous avez choisi

alias son {
  .write $chr(34) $+ $mircdir $+ mp3.txt $+ $chr(34)  $1-
  .did -a Tom_mlkj.mp3 8 $nopath($1-) 
}
On *:dialog:Tom_mlkj.mp3:sclick:10:{
  .remove   $chr(34)   $+ $mircdir $+ mp3.txt $+ $chr(34) 
  set %dir $sdir(E:\anime,Repertoire des Mp3)
  did -r Tom_mlkj.mp3 8
  if ( $findfile(%dir,*.mp3,0,son $1-) != $null ) { did -a Tom_mlkj.mp3 8 $1- }
}

;Bouton PLAY

On *:dialog:Tom_mlkj.mp3:sclick:1:{
  if ( %MP3 == $null ) { echo -a 5,1Lecteur MP3 - Tu n'as pas choisie de MP3. | halt }
  if ( $server == $null ) { splay -p %mp3 | .timerTom 0 1 Tom_mlkj.mp3 | halt }  
  if ( $server != $null ) && ( %Tom_mlkj.mp3 == on ) { /splay -p %MP3 | /ame écoute 12||9,1 $nopath(%MP3) 12||9,1 Lecteur MP3 par Tom_mlkj 12||  | .timerTom 0 1 Tom_mlkj.mp3 | halt }
  if ( $server != $null ) { splay -p %mp3 | .timerTom 0 1 Tom_mlkj.mp3 | halt }
}
;Bouton PAUSE
ON *:dialog:Tom_mlkj.mp3:sclick:2:{
  .splay pause
}
;Bouton REPRENDRE
On *:dialog:Tom_mlkj.mp3:sclick:3:{
  .splay resume
}
;Bouton STOP
On *:dialog:Tom_mlkj.mp3:sclick:4:{
  .splay stop
}

;Pour la selection du mp3 dans la playlist et les informations comme la durée du mp3, le nom du mp3 et la taille en Mo

On *:dialog:Tom_mlkj.mp3:sclick:8:{
  set %mp3_num $did(Tom_mlkj.mp3,8).sel
  set %mp3 $read(mp3.txt , %mp3_num)
  did -r Tom_mlkj.mp3 5
  did -a Tom_mlkj.mp3 5 $nopath(%MP3).sel
  did -r Tom_mlkj.mp3 6
  did -a Tom_mlkj.mp3 6 $round($calc($lof(%mp3) / 1000000),2) Mo
  did -r Tom_mlkj.mp3 7
  did -a Tom_mlkj.mp3 7 $duration($left($mp3(%mp3).length,3))
}
alias Tom_mlkj.mp3 {
  if ($dialog(Tom_mlkj.mp3)) { 
    set %Tom_mlkj $duration( $calc( ( $insong.length - $insong.pos ) / 1000 ) ) 
    did -r Tom_mlkj.mp3 7
    did -a Tom_mlkj.mp3 7 %Tom_mlkj sur $duration($left($mp3(%mp3).length,3))
    if ( %Tom_mlkj == 0 ) { .timerTom off }
  }
  else { halt }
}

;Pour séléctionner si vous voulez dire automatiquement le mp3 joué sur tous les chan où vous vous trouvez...

On *:dialog:Tom_mlkj.mp3:sclick:9:{
  if ($did(9).state = 1 ) { .set %Tom_mlkj.mp3 on }
  else { .set %Tom_mlkj.mp3 off }
}

;Le volume

On *:dialog:Tom_mlkj.mp3:sclick:13:{
  vol -p $calc($vol(mp3) + 5000)
}
On *:dialog:Tom_mlkj.mp3:sclick:14:{
  vol -p $calc($vol(mp3) - 5000)
}

Conclusion :


Heu... j'avais rien a faire et comme j'ai pas mis beaucoup de sources... ( juste une autre ) j'ai fais ce Lecteur mp3 !
Si y a des bugs, dites le moi !

A voir également

Ajouter un commentaire Commentaires
Messages postés
5
Date d'inscription
samedi 15 juillet 2006
Statut
Membre
Dernière intervention
20 septembre 2006

Peut être LARGEMENT optimisé...

if ($server != $null) » if ($server)
Utilisation des '/' pour une commande inutile dans un remote...
Regroupe tes events...

on *:dialog:Tomtruc:*:*: (
if $devent == sclick {
if ($did == ...) { }
}
if $devent == init { }
}

Niveau initié pour si peu de nouveauté...
Dialog horrible (j'avoue je ne fais pas mieux) passe au picwins
Si on veut ajouter un seul fichier ?
Si on veut ajouter des fichiers à la playliste ?

Mais ca marche...
4/10
Messages postés
8
Date d'inscription
dimanche 10 octobre 2004
Statut
Membre
Dernière intervention
23 mai 2006

la pub partout dsl mais c'est nul
Messages postés
1
Date d'inscription
vendredi 31 décembre 2004
Statut
Membre
Dernière intervention
5 janvier 2005

jadore ton lecteur
je suis un extreme debutant et aurai un petit service a te demander
savoir si tu pouvais rajouté 3 fonctions
la premiere un check de lecture continue
un autre check de lecteur aleatoire
et enfin un check pour repeter une plage
jen serai que plus comblé
je ten remerci d'avance
Messages postés
1
Date d'inscription
dimanche 25 janvier 2004
Statut
Membre
Dernière intervention
10 mai 2004

haaa!! enfin un lecteur mp3 valable franchemen linterface et bo rien a dire il est pratic je pense ke tauré pucompressé un peu plus la source mé bon on est pas a 0.2ko pré ^^ franchemen bien joué continu comme sa
Messages postés
338
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
29 novembre 2007

pas mal

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.