Mp3 simple en moins de 100 lignes meme si c'est du deja vue

5/5 (11 avis)

Snippet vu 4 833 fois - Téléchargée 29 fois

Contenu du snippet

J'ai décidé de me remettre au scripting, ca fesait 5 mois que j'ai arreter , j'ai décidé de faire un Mp3 , donc que j'ai jamais réussi a faire par avant (mais bon)
Simple a lancé , /amp3
Tres différent de ce que vous aviez vu , alors éssayé par essaie erreur on le comprend vite ce qu'on ma dit

Source / Exemple :


menu menubar,channel {
  Mp3 by arc:amp3
}
alias amp3 { dialog -md mp3 mp3 }
dialog mp3 {
  title "Lecteur Mp3 (archeloga) 15.11.05"
  size -1 -1 167 86
  option dbu
  edit "", 1, 2 3 31 10, read autohs
  edit "", 2, 2 14 31 10, read autohs
  edit "", 3, 2 25 31 10, read autohs
  edit "", 4, 2 36 31 10, read autohs
  edit "", 5, 2 47 31 10, read autohs
  button "Rw", 6, 2 71 15 12
  button "Stop", 7, 20 71 15 12
  button "Break", 8, 38 71 15 12
  button "Play", 9, 56 71 15 12
  button "Fw", 10, 74 71 15 12
  list 11, 40 10 122 47, size vsbar
  button "+", 12, 92 58 15 12
  button "-", 13, 110 58 15 12
  button "+ R", 14, 128 58 15 12
  button "Del", 15, 146 58 15 12
  button "+ S", 17, 38 58 15 12
  button "Mute", 18, 56 58 15 12
  button "- S", 19, 74 58 15 12
  edit "", 20, 40 1 122 10, read autohs
  button "Quitter !", 21, 128 72 34 12
  edit "", 22, 2 58 31 10, read autohs
  button "?", 16, 92 71 15 12
}
on *:dialog:mp3:init:*:mp3la
on *:dialog:mp3:sclick:*:{
  if $did == 11 { did -ra mp3 20 $did(mp3,11).seltext }
  elseif $did == 6 {
    if (%mp3rf == 1) { set %mp3rf $lines(txt.txt) | splay $read(txt.txt,%mp3rf) | dialog -t mp3 $nopath($read(txt.txt,%mp3rf)) | mp3info }
    else { dec %mp3rf | splay $read(txt.txt,%mp3rf) | dialog -t mp3 $nopath($read(txt.txt,%mp3rf)) | mp3info }
  }
  elseif $did == 7 { splay stop }
  elseif $did == 9 { splay $read(txt.txt,$did(mp3,11).sel) | dialog -t mp3 $did(mp3,11).seltext | set %mp3rf $did(mp3,11).sel | mp3info }
  elseif $did == 10 {
    if (%mp3rf == $lines(txt.txt)) { splay $read(txt.txt,1) | set %mp3rf 1 | dialog -t mp3 $nopath($read(txt.txt,%mp3rf)) | mp3info }
    else { inc %mp3rf | splay $read(txt.txt,%mp3rf) | dialog -t mp3 $nopath($read(txt.txt,%mp3rf)) | mp3info }
  }
  elseif $did == 12 { write txt.txt $sfile(*.mp3,Recherche d'un fichier Mp3,Ajouter le mp3) | refreshmp3 }
  elseif $did == 14 {
    var %mp3a $sdir(dir,Dossier Mp3)
    var %mp3ax 1
    while (%mp3ax <= $findfile(%mp3a,*.mp3,0)) {
      write txt.txt $findfile(%mp3a,*.mp3,%mp3ax) | inc %mp3ax
    }
    mp3la
  }
  elseif $did == 15 { .remove txt.txt | did -r mp3 11 }
  elseif $did == 16 { echo -a - | echo -a Mp3 v1 par archeloga | echo -a Pour dire ce que tu écoute tape !play avec info tape !pinfo
  echo -a si tu as des problemes avec le Mp3 écrit moi sur warthog15@hotmail.com | echo -a - }
  elseif $did == 8 {
    if (%loly == 1) { splay resume | unset %loly }
    else { splay pause | set %loly 1 }
  }
  elseif $did == 18 { 
    if (%muet == 1) { vol -vu2 | unset %muet }
    else { vol -vu1 | set %muet 1 }
  }
  elseif $did == 17 { vol -w $calc($Int($Vol(Wave)) +5000) }
  elseif $did == 19 { vol -w $calc($Int($Vol(Wave)) - 5000) }
  elseif $did == 13 { 
    write -dl [ $+ [ $did(mp3,11).sel ] ] txt.txt 
    did -d $dname 11 $did(mp3,11).sel 
  }
  elseif $did == 21 { splay stop | dialog -x mp3 }
}
on *:dialog:mp3:dclick:*:{
  if $did == 11 { splay $read(txt.txt,$did(mp3,11).sel) | dialog -t mp3 $did(mp3,11).seltext | set %mp3rf $did(mp3,11).sel | mp3info }
}
alias -l mp3la {
  var %mp3aa 1
  while (%mp3aa <= $lines(txt.txt)) {
    did -a mp3 11 $nopath($read(txt.txt,%mp3aa)) | inc %mp3aa
  }
}
alias -l refreshmp3 { did -r mp3 11 | mp3la }
alias -l mp3info { 
  did -ra mp3 1 $sound($read(txt.txt,$did(mp3,11).sel)).artist
  did -ra mp3 2 $sound($read(txt.txt,$did(mp3,11).sel)).year
  did -ra mp3 3 $sound($read(txt.txt,$did(mp3,11).sel)).album
  did -ra mp3 4 $sound($read(txt.txt,$did(mp3,11).sel)).genre
  did -ra mp3 5 $duration($calc($sound($read(txt.txt,$did(mp3,11).sel)).length /1000).2)
  did -ra mp3 22 $round($calc($file($read(txt.txt,$did(mp3,11).sel))/1000000),2) Mb
}
on *:input:#:{
  if $1 == !play { .timermp32 1 1 describe $active écoute présentement $nopath($read(txt.txt,%mp3rf)) $+([,$duration($calc($insong.pos /1000)),/,$duration($calc($sound($read(txt.txt,%mp3rf)).length /1000)),]) $+([,$round($calc($insong.pos /1000 *100 / $calc($sound($read(txt.txt,%mp3rf)).length /1000)),1),%,]) }
  if $1 == !pinfo { .timermp32 1 1 describe $active écoute présentement $nopath($read(txt.txt,%mp3rf)) $+([,$duration($calc($insong.pos /1000)),/,$duration($calc($sound($read(txt.txt,%mp3rf)).length /1000)),]) $+([,$round($calc($insong.pos /1000 *100 / $calc($sound($read(txt.txt,%mp3rf)).length /1000)),1),%,]) $+([,$round($calc($file($read(txt.txt,%mp3rf))/1000000),2),Mb]) $+([,$sound($read(txt.txt,%mp3rf)).bitrate,Kbps]) $+([,Vol: $Int($Vol(Wave)),]) $+([Genre: ,$sound($read(txt.txt,$did(mp3,11).sel)).genre,]) }
}

Conclusion :


Il aurait une autre version mais plus tard..

A voir également

Ajouter un commentaire Commentaires
abdoulax Messages postés 875 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 22 juin 2012
31 janv. 2006 à 08:54
C'est juste pour te faire comprendre que le fait de faire un minimum de ligne n'a aucun interet !!!

Have fun
archeloga Messages postés 8 Date d'inscription samedi 9 octobre 2004 Statut Membre Dernière intervention 5 mai 2008
31 janv. 2006 à 00:37
abdoulax , merci de tes critiques mais j'ai pas besoin c'est genre de critiques , comme ta pu lire je suis de niveau 1 , alors je suis debutant alors va perdre ton temps ailleur ;)
abdoulax Messages postés 875 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 22 juin 2012
22 déc. 2005 à 20:34
Si vous voulez vraiment un code en moins de 100 lignes http://www.ircfr.com/code.aspx?ID=14218 (60 lignes attention, lol). Nah mais franchement faut voir cette source, tu aprends vraiment bcp de truc...

Have fun et arrêté avec vos nombres de ligne ça me rend fou...
Erwanou Messages postés 59 Date d'inscription mardi 23 août 2005 Statut Membre Dernière intervention 8 janvier 2006
22 déc. 2005 à 17:56
slt Arc, pa mal , en moins le 100 ligne , je script po tres bien alors jme demande komment ta fai !!
abdoulax Messages postés 875 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 22 juin 2012
20 déc. 2005 à 23:24
C vrai que sur la fin j'ai un peu abusé!! Mais peux tu me donner l'intêret d'un lecteur mp3 en moins de 100 lignes, franchement ???

Sinon pour être plus constructif j'ai testé son addon, déjà ça manque d'innovation, ensuite les boutons sont pas très parlant, ensuite lorsque j'ai voulu lancé la lecture sur un répertoir le lecteur à planté ^^

Cette fois-ci c'est pas pour tuer mais c'est juste de la critique!!

Have fun
Afficher les 11 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.