Mp3 avec dll

Commenter

Contenu du snippet

pas mal a tester merci de ne pas crtiker son mon 1er MP3

Source / Exemple : 


alias .mp3 { dialog -m .mp3 .mp3 }
dialog .mp3 {
  title ".::: MP3 :::."
  size -1 -1 106 112
  option dbu
  button "Choisi ton MP3", 1, 7 11 41 12
  button "Jouer", 2, 7 26 41 12
  button "Pause", 3, 51 11 41 12
  button "Stop", 4, 51 26 41 12
  box "rep, jouer, stop, pause", 5, 2 2 102 47
  box "Volume", 6, 2 48 102 50
  text " Augmenter", 7, 4 59 37 8
  button " +", 8, 29 69 11 12
  text " Baisser", 9, 44 74 43 8
  button " -", 10, 64 83 11 12
  button "ok", 11, 2 98 101 12, ok
}

alias .mp3 {
  var %title
  var %auteur
  var %album
  %title = $mp3(%.mp3.file).title
  %auteur = $mp3(%.mp3.file).artist
  %album = $mp3(%.mp3.file).album
}

on *:dialog:.mp3:init:*:{
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog .mp3
  dll mdx.dll SetDialog .mp3 bgcolor $rgb(10,25,255)
  dll mdx.dll SetFont .mp3 2 +abg 16 400 comic sans ms
  dll mdx.dll SetColor .mp3 "id" background $rgb(255,0,0) 
  dll mdx.dll SetColor .mp3 5 text $rgb(255,255,0)
  dll mdx.dll SetColor .mp3 5 background $rgb(255,255,0)
  dll mdx.dll SetColor .mp3 6 text $rgb(255,255,0)
  dll mdx.dll SetColor .mp3 6 background $rgb(255,255,0)
  dll mdx.dll SetColor .mp3 7 background $rgb(255,255,0)
  dll mdx.dll SetColor .mp3 9 background $rgb(255,255,0)
  dll mdx.dll SetFont .mp3 7 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 8 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 9 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 11 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 10  +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 6 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 5 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 4 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 1 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 2 +abg 16 400 comic sans ms
  dll mdx.dll SetFont .mp3 3 +abg 16 400 comic sans ms

}

on *:dialog:.mp3:sclick:2:{ /splay %Mp3Dir | /msg $active  4,15Moi J'écoute Sa :  1[4 %title $+ 1]4 De 1[4 %auteur $+ 1] AlBuM 1[4 %album $+ 1] 4PoidS 1[4 $round ] }
on *:dialog:.mp3:sclick:3:{ /splay pause }
on *:dialog:.mp3:sclick:4:{ /splay stop } 
on *:dialog:.mp3:sclick:1:set %MP3Dir $sfile( *.mp3 , Choisissez un fichier audio ) 
on *:dialog:.mp3:sclick:8:{ //vol -vp $calc($vol(mp3) + 5000) }
on *:dialog:.mp3:sclick:10:{ //vol -vp $calc($vol(mp3) - 5000) }

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.

Du même auteur (NaNo45)