Mp3 player en dialog pour débutant

Commenter

Contenu du snippet

VOici un petit mp3 player avec un peux de mdx modifier le a votre gout :)

( Les couleur du Screen shot son un peux laide )

Source / Exemple : 


alias mp3 dialog -dmr mp3player mp3player
dialog mp3player {
  title "Mp3 Player © pSy4"
  size -1 -1 200 203
  option dbu
  box "Répectoire", 1, 8 6 184 30
  button "...", 2, 18 17 19 12, flat
  edit "", 3, 43 18 145 9, disable
  box "Play List", 4, 26 37 149 135, sort
  list 5, 32 46 137 121, size vsbar
  button "Fermer", 6, 77 187 37 12, flat ok
  text "Track:", 7, 32 176 17 7, center
  edit "", 8, 52 175 123 10, disable
  text "HW Script", 9, 12 193 25 8, center
}
on *:dialog:mp3player:*:*:{ 
  if ($devent == sclick) { 
    if ($did == 2) { 
      set %location.prg $sdir="Choisi le répertoire racine" C:\ 
      dialog -x mp3player 
      dialog -dmr mp3player mp3player 
    } 
  }
  if ($devent == init) { 
    dll mdx\mdx.dll SetMircVersion $version 
    dll mdx\mdx.dll MarkDialog mp3player
    dll mdx\mdx.dll SetColor  5 text $rgb(255,128,0)
    dll mdx\mdx.dll SetColor  5 textbg $rgb(0,0,0)
    dll mdx\mdx.dll SetColor  5 background $rgb(0,0,0)
    dll mdx\mdx.dll SetColor 7,9 text $rgb(255,128,0)
    did -ra mp3player 3 %location.prg 
    set %mp3 $findfile(%location.prg,*.mp3 ,0,1,did -a mp3player 5 $nopath($1-)) 
  } 
  if ($devent == dclick) { 
    if ($did == 5) { 
      set %mp3 %location.prg $+ $did(5).seltext
      set %mp3time $duration($calc($mp3(%mp3).length / 1000))
      splay %mp3 
      did -ra mp3player 8 %mp3
      msg $active Mp3 : $+ $left($nopath(%mp3),-4) Temps: $+ %mp3time $+ 
    } 
  }
}

Conclusion :


Question envoyer moi un mail ecko_100@hotmail.com

A voir également

S'inscrire maintenant

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.