Chouette lecteur de mp3

Commenter

Contenu du snippet

Petite mise a jour, je viens de trouver comment faire pour faire une fenetre "explorateur" :)

Source / Exemple : 


alias dkm { dialog -mdie DarkMusic DarkMusic | set %cechan $chan }

dialog DarkMusic {
  title "DarkMusic"
  size -1 -1 300 325
  button "Retour",1,0 275 300 50, ok
  tab "Liste",2,0 0 300 250
  tab "Sons et Options",3
  box "",4,5 20 290 220
  button "Dossier :",5,10 35 55 20, tab 2
  edit "",6,65 35 225 20, center, read, tab 2
  list 7,10 60 280 165, sort, tab 2
  button "Play",8,10 210 70 20, flat, tab 2
  button "Stop",9,80 210 70 20, flat, tab 2
  button "Skip",32,150 210 70 20,flat,tab 2
  button "Remove",10,220 210 70 20, flat, tab 2
  text "Mp3 :",11,5 253 30 20
  edit "",12,35 250 40 20, read, center
  text "Wav :",13,115 253 30 20
  edit "",14,145 250 40 20, read, center
  text "Mid :",15,230 253 30 20
  edit "",16,255 250 40 20, read, center
  button "Sys -",17,50 55 70 20, tab 3
  edit "",18,120 55 70 20, read,center, tab 3
  button "Sys +",19,190 55 70 20, tab 3
  button "System : Mute",20,50 75 210 20, tab 3
  button "Wav -",21,50 95 70 20, tab 3
  edit "",22,120 95 70 20, read,center, tab 3
  button "Wav +",23,190 95 70 20, tab 3
  button "Wave : Mute",24,50 115 210 20, tab 3
  button "Mid -",25,50 135 70 20, tab 3
  edit "",26,120 135 70 20, read,center, tab 3
  button "Mid +",27,190 135 70 20, tab 3
  button "Midi : Mute",28,50 155 210 20, tab 3
  check "Echo On/Off",29,115 200 120 20, tab 3
  text "Options sonores et générales",30,90 35 140 20, tab 3
  box "",31,85 25 150 28, tab 3
}

on 1:dialog:DarkMusic:init:0: {
  if (%dmusique == $null) { set %dmusique $sdir(C:\Windows\Bureau\,Selectionne le dossier) }
  dialog -v DarkMusic DarkMusic
  set %mp3nbr $findfile(%dmusique,*.mp3,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %wavnbr $findfile(%dmusique,*.wav,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %midnbr $findfile(%dmusique,*.mid,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  did -ra DarkMusic 6 %dmusique
  set %numlignlist 1
  did -r DarkMusic 7
  unset %mp3nbr
  unset %wavnbr
  unset %midnbr
  unset %volmast
  unset %volwave
  unset %volmidi
  set %mp3nbr $findfile(%dmusique,*.mp3,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %wavnbr $findfile(%dmusique,*.wav,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %midnbr $findfile(%dmusique,*.mid,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %volmast $vol(master)
  set %volwave $vol(wave)
  set %volmidi $vol(midi)
  did -ra DarkMusic 6 %dmusique
  did -ra DarkMusic 12 %mp3nbr
  did -ra DarkMusic 14 %wavnbr
  did -ra DarkMusic 16 %midnbr
  did -ra DarkMusic 18 %volmast
  did -ra DarkMusic 22 %volwave
  did -ra DarkMusic 26 %volmidi
  if (%mecho == 0) { did -u DarkMusic 29 }
  if (%mecho == 1) { did -c DarkMusic 29 }
}

on 1:dialog:DarkMusic:sclick:1: {
  splay stop
  dialog -x DarkMusic
  unset %volmidi %volmast %volwave %midnbr %wavnbr %mp3nbr %numlignlist %mecho
}

on 1:dialog:DarkMusic:sclick:5: {
  did -r DarkMusic 7
  set %dmusique $sdir(C:\Windows\Bureau\,Selectionne le dossier)
  dialog -v DarkMusic DarkMusic
  set %mp3nbr $findfile(%dmusique,*.mp3,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %wavnbr $findfile(%dmusique,*.wav,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  set %midnbr $findfile(%dmusique,*.mid,0,did -a DarkMusic 7 $remove($1-,%dmusique))
  did -ra DarkMusic 6 %dmusique
}

on 1:dialog:DarkMusic:dclick:7: {
  if ($did(DarkMusic,7).seltext == $null) { echo 4 -a Fais un choix dans la liste! | Return }
  splay stop
  splay %dmusique $+ $did(DarkMusic,7).seltext
  if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7).seltext,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7).seltext,.wav,.mp3,.mid) }
  set %numlignlist $did(DarkMusic,7).sel
}

on 1:dialog:DarkMusic:sclick:8: {
  if ($did(DarkMusic,7).seltext == $null) { echo 4 -a Fais un choix dans la liste! | Return }
  splay stop
  splay %dmusique $+ $did(DarkMusic,7).seltext
  if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7).seltext,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7).seltext,.wav,.mp3,.mid) }
  set %numlignlist $did(DarkMusic,7).sel
}

on 1:dialog:DarkMusic:sclick:9: {
  splay stop
}

on 1:dialog:DarkMusic:sclick:10: {
  if ($did(DarkMusic,7).seltext == $null) { echo 4 -a Fais un choix dans la liste! | Return }
  if (.mp3 isin $did(DarkMusic,7).seltext) { dec %mp3nbr 1 | did -ra DarkMusic 12 %mp3nbr }
  if (.wav isin $did(DarkMusic,7).seltext) { dec %wavnbr 1 | did -ra DarkMusic 14 %wavnbr }
  if (.mid isin $did(DarkMusic,7).seltext) { dec %midnbr 1 | did -ra DarkMusic 16 %midnbr }
  did -d DarkMusic 7 $did(DarkMusic,7).sel
  set %numlignlist $did(DarkMusic,7).sel
}

on 1:dialog:DarkMusic:sclick:17: {
  vol -v $calc($vol(master) - 2000)
  did -ra DarkMusic 18 $vol(master)
}

on 1:dialog:DarkMusic:sclick:19: {
  vol -v $calc($vol(master) + 2000)
  did -ra DarkMusic 18 $vol(master)
}

on 1:dialog:DarkMusic:sclick:20: {
  if ($vol(master).mute == $true) { vol -vu2 | did -ra DarkMusic 18 $vol(master) }
  else { vol -vu1 | did -ra DarkMusic 18 Mute }
}

on 1:dialog:DarkMusic:sclick:21: {
  vol -w $calc($vol(wave) - 2000)
  did -ra DarkMusic 22 $vol(wave)
}

on 1:dialog:DarkMusic:sclick:23: {
  vol -w $calc($vol(wave) + 2000)
  did -ra DarkMusic 22 $vol(wave)
}

on 1:dialog:DarkMusic:sclick:24: {
  if ($vol(wave).mute == $true) { vol -wu2 | did -ra DarkMusic 22 $vol(wave) }
  else { vol -wu1 | did -ra DarkMusic 22 Mute }
}

on 1:dialog:DarkMusic:sclick:25: {
  vol -m $calc($vol(midi) - 2000)
  did -ra DarkMusic 26 $vol(midi)
}

on 1:dialog:DarkMusic:sclick:27: {
  vol -m $calc($vol(midi) + 2000)
  did -ra DarkMusic 26 $vol(midi)
}

on 1:dialog:DarkMusic:sclick:28: {
  if ($vol(midi).mute == $true) { vol -mu2 | did -ra DarkMusic 26 $vol(midi) }
  else { vol -mu1 | did -ra DarkMusic 26 Mute }
}

on 1:dialog:DarkMusic:sclick:29: {
  if ($did(DarkMusic,29).state == 0) { set %mecho 0 }
  if ($did(DarkMusic,29).state == 1) { set %mecho 1 }
}

on 1:dialog:DarkMusic:sclick:32: {
  splay stop
  inc %numlignlist 1
  if (%numlignlist > $did(DarkMusic,7).lines) { set %numlignlist 1 }
  splay %dmusique $+ $did(DarkMusic,7,%numlignlist).text
  if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7,%numlignlist).text)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) }
}

on 1:mp3end: {
  if ($dialog(DarkMusic) != DarkMusic) { halt }
  inc %numlignlist 1
  if (%numlignlist > $did(DarkMusic,7).lines) { set %numlignlist 1 }
  splay %dmusique $+ $did(DarkMusic,7,%numlignlist).text
  if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) }
}

on 1:waveend: {
  if ($dialog(DarkMusic) != DarkMusic) { halt }
  inc %numlignlist 1
  if (%numlignlist > $did(DarkMusic,7).lines) { set %numlignlist 1 }
  splay %dmusique $+ $did(DarkMusic,7,%numlignlist).text
  if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) }
}

on 1:midiend: {
  if ($dialog(DarkMusic) != DarkMusic) { halt }
  inc %numlignlist 1
  if (%numlignlist > $did(DarkMusic,7).lines) { set %numlignlist 1 }
  splay %dmusique $+ $did(DarkMusic,7,%numlignlist).text
  if ((%mecho == 1) && (%cechan != $null) && (.mp3 isin $did(DarkMusic,7).seltext)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) ( $+ $duration($calc($insong.length / 1000)) $+ ) | halt }
  if ((%mecho == 1) && (%cechan != $null)) { ame ecoute7 $remove($did(DarkMusic,7,%numlignlist).text,.wav,.mp3,.mid) }
}

Conclusion :


Une fois chargé, tapez /dkm pour lancer le lecteur
Rien de bien spécial, il y a certainement encore des bugs mais j'ai corrigé ceux que j'ai trouvés...

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 (thedarksider)