Chouette lecteur de mp3

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 765 fois - Téléchargée 25 fois

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

Ajouter un commentaire Commentaires
Messages postés
33
Date d'inscription
lundi 8 août 2005
Statut
Membre
Dernière intervention
13 décembre 2005

thedarksider utilise les $sfile pour faire la recherche
(Ex: $sfile(*.* , Choisis le fichier )
Messages postés
34
Date d'inscription
vendredi 24 janvier 2003
Statut
Membre
Dernière intervention
14 août 2003

il est pas tres beau ton lecteur Mp3 , puis c vrai ce ke dit Nitro120
Messages postés
229
Date d'inscription
vendredi 16 août 2002
Statut
Membre
Dernière intervention
9 juillet 2003

il est bien mé c domage ke kan on kitte le dialog adieu le mp3...
Messages postés
29
Date d'inscription
samedi 22 février 2003
Statut
Membre
Dernière intervention
26 avril 2004

Maintenant le systeme d'exploration est déjà plus pratique :)
Messages postés
29
Date d'inscription
samedi 22 février 2003
Statut
Membre
Dernière intervention
26 avril 2004

ben c'est ce que je disais dans les commentaires, pour le moment je ne sais pas encore comment faire ce genre de fenetre de recherche mais je prévois de faire une mise a jour quand je saurai... sinon en global ca dit quoi ?
Afficher les 6 commentaires

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.