R-mp3, petit lecteur de mp3

Soyez le premier à donner votre avis sur cette source.

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

Commenter

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
}