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

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

abdoulax
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012
-
vive le picwin
Kerrigan
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005
-
j'ai une idée pour ceux qui veulent faire et refaire du mp3 playeur... a la place des graphique une petite picwin pour changer ... ça vous dit pas ?
Dark-Dragoon
Messages postés
228
Date d'inscription
mercredi 24 septembre 2003
Statut
Membre
Dernière intervention
26 octobre 2004
-
eu
perso j'aime pas le dialog :/
fai une liste a la place de choisir tout le temps le mp3 :)
:)
ameliore :)
ChAnG-Fu
Messages postés
165
Date d'inscription
dimanche 2 novembre 2003
Statut
Membre
Dernière intervention
1 juillet 2006
-
Vu plus de 10^89 fois...
cs_ReMi34
Messages postés
1025
Date d'inscription
vendredi 29 août 2003
Statut
Membre
Dernière intervention
28 mars 2005
-
Ah bon Kolibot ? Tu m'aimes bien ? Ok lol ben c'est gentil :)

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.