R-mp3, petit lecteur de mp3

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 869 fois - Téléchargée 29 fois

Contenu du snippet

C'est un ptit lecteur de mp3 que j'ai fait. Il n'utilise pas de liste.

Source / Exemple :


dialog r-mp3 {
  title "R-MP3 By Re[M]i_34"
  size -1 -1 97 154
  option dbu
  button "Choisir le Répertoire", 1, 4 9 86 17
  edit "", 2, 5 28 84 10, read autohs
  box "Répertoire :", 3, 2 1 94 39
  button "Choisir le MP3", 4, 4 49 86 17
  edit "", 5, 5 68 84 10, read autohs
  box "MP3 :", 6, 2 40 94 43
  text "Volume :", 7, 12 93 26 8, center
  button "+", 8, 44 90 15 12
  button "-", 9, 64 90 15 12
  box "Volume :", 10, 2 83 94 25
  button "Lecture", 11, 9 112 37 9
  button "Stop", 12, 54 112 37 9
  button "Fermer", 13, 7 140 84 12, ok
  button "Pause", 14, 9 126 37 9
  button "Reprendre", 15, 54 126 37 9
}

on *:dialog:r-mp3:init:*:{ 
  did -r r-mp3 2
  did -a r-mp3 2 %repertoire
}

on *:dialog:r-mp3:sclick:1:{
  if (%repertoire) { unset %repertoire }
  if (!%repertoire) { did -e r-mp3 4 }
  set %repertoire $sdir="Choisissez le Répertoire de vos MP3 :"
  did -r r-mp3 2
  did -a r-mp3 2 %repertoire
}
on *:dialog:r-mp3:sclick:4:{
  if (%mp3) { unset %mp3 } {
    if (!%repertoire) { echo -a 4Erreur de direction | did -b r-mp3 4 | halt }
    set %mp3 $dir="Choisissez un MP3:" %repertoire
    did -r r-mp3 5
    did -a r-mp3 5 $nopath(%mp3), $round($calc($lof(%mp3) / 1000000),2) MB.
  }
}
on *:dialog:r-mp3:sclick:8:{
  if ($vol(r-mp3) >= 65535) { echo -a 4Volume Maximum | halt }
  vol -p $calc($vol(r-mp3) + 5000)
}
on *:dialog:r-mp3:sclick:9:{
  if ($vol(r-mp3) <= 1000) { echo -a 4Volume Minimum | halt }
  vol -p $calc($vol(r-mp3) - 5000)
}
on *:dialog:r-mp3:sclick:12:splay stop

on *:dialog:r-mp3:sclick:11:{
  splay -m %mp3 | msg $active 12J'écoute4 $nopath(%mp3), 12qui dure 4 $duration($left($mp3(%mp3).length,3)) 
}
on *:dialog:r-mp3:sclick:14: { splay pause }
on *:dialog:r-mp3:sclick:15: { splay resume }

menu * {
  LecTeuR MP3:dialog -m r-mp3 r-mp3
}

Conclusion :


Voilà voilà, dites moi ce que vous en pensez :)

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de Kerrigan

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.