begin process at 2010 03 13 05:13:34
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

AddOns

 > CHOUETTE LECTEUR DE MP3

CHOUETTE LECTEUR DE MP3


 Information sur la source

Note :
7 / 10 - par 1 personne
7,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Classé sous :player, mp3, lecteur, musique, mirc Niveau :Débutant Date de création :20/04/2003 Date de mise à jour :26/04/2003 13:12:07 Vu :3 113
Auteur : thedarksider

Ecrire un message privé
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

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

Source

  • 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) }
  • } 
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...


 Sources du même auteur

Source avec Zip TUTORIAL SUR LES MODES
Source avec Zip UN TUTORIAL POUR LES THEMES DE MIRC
DEBUG DANS UNE FENETRE
ACCÈS AUX RAW TRÈS FACILEMENT
LES 'BONUS' DE MIRC
Toutes les sources de thedarksider

 Sources de la même categorie

TCL - AJOUT SUPPRESSION DE LOGS par Atok
BLACKLIST PSEUDOS/MASKS par usurpateur
Source avec une capture [XCHAT] ANTI KICK / AWAY C++ par GeroXXXX
JEU DU CODE par alanpersonproject
SERVEUR FTP par hisoka2501
Toutes les sources de la catégorie AddOns

 Sources en rapport avec celle ci

LECTEUR MP3 par Samsung741
LECTEUR MP3 par emotion
LECTEUR MP3 par coca95
LECTEUR MP3 QUI PASSE AUTOMATIQUEMENT AU SUIVANT À LA FIN par b0uH
PETIT MP3PLAYER :) par ripzone

Commentaires et avis

Commentaire de koko le 21/04/2003 09:23:36

hum hum hum... lorsqu'il demande le dossier ca pas vraiment cool...
tu devrais faire un truc ou tu indiques le dossier en fesant une sorte de recherche

Commentaire de thedarksider le 21/04/2003 10:48:54

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 ?

Commentaire de thedarksider le 26/04/2003 13:13:36

Maintenant le systeme d'exploration est déjà plus pratique :)

Commentaire de nitro120 le 10/05/2003 00:23:48

il est bien mé c domage ke kan on kitte le dialog adieu le mp3...

Commentaire de lemec le 31/05/2003 18:59:29

il est pas tres beau ton lecteur Mp3 , puis c vrai ce ke dit Nitro120

Commentaire de Grais le 02/09/2005 17:22:43

thedarksider utilise les $sfile pour faire la recherche
(Ex: $sfile(*.* , Choisis le fichier )

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Un mp3 et dcc auto [ par romeomd ] VincentBonjour, je suis a la recher d'un addons, quand qqun va dans mon pv, il fait !Musiquealors la, une liste de musique s'affiche, et il fais son c MP3 avec mIRC 6.21 [ par BSmax ] Bonjour,J'ai un petit problème ! Je sais que dans mIRC 6.21 toutes les commandes de son dépendent de la case Enable Sounds qui est bien cochée dans le Pour ceux qui aiment écouter la musique en tchattant [ par Bestdoud ] Cela fait quelque temps que je réalise un lecteur mp3 en picwin. venez le découvrir à l'adresse suivante: http://amigagaamp.free.fr voici ces caract probleme avec un remote pr mp3 !!!!!!!! [ par wizord ] alrs voila le pb .... g un remote pr lire les fichier mp3 par input ... je tape par exemple : !mp3 blable et mon remote est chargé de me trouve la mu je voudrai faire un lecteur MP3 et MIDI (si possible) [ par bibi_81 ] Voila jai deja tout di je voudrais faire un lecteur MP >ET< MIDI siouplait ... Deja me demanderez vous le formtat MIDI est peu repandu NON !!moi Lecteur Mp3 [ par titeuf28310 ] Bonjour,A chaque lecteur mp3 trouver sur le site, meme les mieux noté, fait planter mon script. je comprend pas pourquoi (mon mirc est le 6.16).Il a t Script Mirc pour afficher les lecteur Reseau [ par wally314 ] Et ben voila tout est dans le titre.Pour le moment j'ai trouver pour afficher le disque dur local et meme le lecteur CD mais pas moyen pour les lecteu Lecteur MP3 capable de lire des fichiers sons distants [ par cyclopdev ] Voilà un défi :est-il possible de faire un lecteur MP3 capable de lire des fichiers hébergés sur une page web, le tout pas trop lourd et entièrement m changer le nick de quelq'un sur mirc [ par dr_watson ] Je veu just savoir sil y a un moyen de changer le nickname de kelk1 sur mirc. si oui, lequel??M.K.E.I Question sur le dialogue mirc entre 2 serveurs [ par Zerross ] tout d'abord, bonjour a vous tous qui lisez ce message :)Ensuite, je me suis posé une question, et je n'arrive pas a trouvé de réponse donc, je vais v


Nos sponsors


Appels d'offres

Sondage...

Comparez les prix


Archos 5 Internet Tablette 500 Go
Entre 396€ et 444€

Visiter le guide achat

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,983 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)