Lecteur mp3 qui passe automatiquement au suivant à la fin

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 898 fois - Téléchargée 28 fois

Contenu du snippet

Lorsq'un MP3 fini (on mp3end) ca passe au suivant dans la liste :)

Source / Exemple :


;Alias
alias mp3_play {
  if ($dialog(mp3player)) {
    if ($did(mp3player,1).seltext == $null) { echo -a 13•( Player )•14 Aucun MP3 sélectionné | halt }
    set %ItemList $did(mp3player,1).sel
    set %CurrentPlaying %Mp3Dir $+ $did(mp3player,1).seltext $+ .mp3
    var %MP3_Time = $calc($sound(%CurrentPlaying).length / 1000)
    var %MP3_Time = $duration(%MP3_Time)
    splay -p %CurrentPlaying
    if ($mp3(%CurrentPlaying).artist == $null) { echo -a 13•( Player )•14 $left($nopath(%CurrentPlaying),$calc($len($nopath(%CurrentPlaying)) - 4)) 14[13 $+ %MP3_Time $+ 14] | halt }
    if ($mp3(%CurrentPlaying).title == $null) { echo -a 13•( Player )•14 $left($nopath(%CurrentPlaying),$calc($len($nopath(%CurrentPlaying)) - 4)) 14[13 $+ %MP3_Time $+ 14] | halt }
    else { echo -a 13•( Player )•14 $mp3(%CurrentPlaying).artist 13-14 $mp3(%CurrentPlaying).title 14[13 $+ %MP3_Time $+ 14] } 
  }
}

alias mp3_pause {
  if ($dialog(mp3player)) {
    if (%Pause == $null) { set %Pause oui | splay -p pause }
    else { splay -p resume | unset %Pause }
  }
}

alias mp3_stop {
  if ($dialog(mp3player)) {
    unset %ItemList 
    splay -p stop 
    echo -a 13•( Player )•14 Lecture stoppée 
  }
}

alias mp3_prev {
  if ($dialog(mp3player)) {
    set %ItemList $calc(%ItemList - 1)
    set %CurrentPlaying %Mp3Dir $+ $did(mp3player,1,%ItemList).text $+ .mp3
    var %MP3_Time = $calc($sound(%CurrentPlaying).length / 1000)
    var %MP3_Time = $duration(%MP3_Time)
    splay -p %CurrentPlaying 
    if ($mp3(%CurrentPlaying).artist == $null) { echo -a 13•( Player )•14 $left($nopath(%CurrentPlaying),$calc($len($nopath(%CurrentPlaying)) - 4)) 14[13 $+ %MP3_Time $+ 14] | halt }
    if ($mp3(%CurrentPlaying).title == $null) { echo -a 13•( Player )•14 $left($nopath(%CurrentPlaying),$calc($len($nopath(%CurrentPlaying)) - 4)) 14[13 $+ %MP3_Time $+ 14] | halt }
    else { echo -a 13•( Player )•14 $mp3(%CurrentPlaying).artist 13-14 $mp3(%CurrentPlaying).title 14[13 $+ %MP3_Time $+ 14] } 
  }
}

alias mp3_next {
  if ($dialog(mp3player)) {
    if (%ItemList == $did(mp3player,1).lines) { echo -a 13•( Player )•14 Fin de playlist | halt }
    inc %ItemList
    set %CurrentPlaying %Mp3Dir $+ $did(mp3player,1,%ItemList).text $+ .mp3
    var %MP3_Time = $calc($sound(%CurrentPlaying).length / 1000)
    var %MP3_Time = $duration(%MP3_Time)
    splay -p %CurrentPlaying 
    if ($mp3(%CurrentPlaying).artist == $null) { echo -a 13•( Player )•14 $left($nopath(%CurrentPlaying),$calc($len($nopath(%CurrentPlaying)) - 4)) 14[13 $+ %MP3_Time $+ 14] | halt }
    if ($mp3(%CurrentPlaying).title == $null) { echo -a 13•( Player )•14 $left($nopath(%CurrentPlaying),$calc($len($nopath(%CurrentPlaying)) - 4)) 14[13 $+ %MP3_Time $+ 14] | halt }
    else { echo -a 13•( Player )•14 $mp3(%CurrentPlaying).artist 13-14 $mp3(%CurrentPlaying).title 14[13 $+ %MP3_Time $+ 14] } 
  }
}

alias mp3_next_on_end {
  if ($dialog(mp3player)) {
    if (%ItemList == $did(mp3player,1).lines) { halt }
    inc %ItemList
    set %CurrentPlaying %Mp3Dir $+ $did(mp3player,1,%ItemList).text $+ .mp3
    var %MP3_Time = $calc($sound(%CurrentPlaying).length / 1000)
    var %MP3_Time = $duration(%MP3_Time)
    splay -p %CurrentPlaying
    if ($mp3(%CurrentPlaying).artist == $null) { echo -a 13•( Player )•14 $left($nopath(%CurrentPlaying),$calc($len($nopath(%CurrentPlaying)) - 4)) 14[13 $+ %MP3_Time $+ 14] | halt }
    if ($mp3(%CurrentPlaying).title == $null) { echo -a 13•( Player )•14 $left($nopath(%CurrentPlaying),$calc($len($nopath(%CurrentPlaying)) - 4)) 14[13 $+ %MP3_Time $+ 14] | halt }
    else { echo -a 13•( Player )•14 $mp3(%CurrentPlaying).artist 13-14 $mp3(%CurrentPlaying).title 14[13 $+ %MP3_Time $+ 14] } 
  }
}

alias mp3_config { if ($dialog(mp3player)) { did -r mp3player 1 | set %Mp3Dir $$sdir(C:\,Répertoire de vos MP3s ) | set %MP3 $findfile(%Mp3Dir,*.mp3,0,1,didtok mp3player 1 C $left($nopath($1-),$calc($len($nopath($1-)) - 4))) } }
alias mp3_vol_plus { if ($dialog(mp3player)) { if ($vol(mp3) == 65000) { halt } | vol -p $calc($vol(mp3) + 2000) } }
alias mp3_vol_moins { if ($dialog(mp3player)) { if ($vol(mp3) == 0) { halt } | vol -p $calc($vol(mp3) - 2000) } }

;Dialog
dialog mp3player {
  title "TitaXium Player"
  size -1 -1 381 156

  list 1, 5 30 370 100, size
  button "Play", 2, 30 5 60 20
  button "Pause", 3, 93 5 60 20
  button "Stop", 4, 156 5 60 20
  button "Prev", 5, 219 5 60 20
  button "Next", 6, 282 5 60 20
  button "Config", 7, 254 134 60 20
  button "Fermer", 8, 317 134 60 20, ok
  text ".: TitaXium Player 2 :.", 9, 5 138 120 20
  button "vol +", 10, 140 134 40 20
  button "vol -", 11, 185 134 40 20
}

on *:DIALOG:mp3player:init:*: { set %MP3 $findfile(%Mp3Dir,*.mp3,0,0,didtok mp3player 1 C $left($nopath($1-),$calc($len($nopath($1-)) - 4))) }
on *:DIALOG:mp3player:dclick:1: { mp3_play }
on *:DIALOG:mp3player:sclick:2: { mp3_play }
on *:DIALOG:mp3player:sclick:3: { mp3_pause }
on *:DIALOG:mp3player:sclick:4: { mp3_stop }
on *:DIALOG:mp3player:sclick:5: { mp3_prev }
on *:DIALOG:mp3player:sclick:6: { mp3_next }
on *:DIALOG:mp3player:sclick:7: { mp3_config }
on *:DIALOG:mp3player:sclick:10: { mp3_vol_plus }
on *:DIALOG:mp3player:sclick:11: { mp3_vol_moins }
on *:MP3END: { mp3_next_on_end }

Conclusion :


++

A voir également

Ajouter un commentaire Commentaires
abidnour Messages postés 1 Date d'inscription lundi 3 novembre 2003 Statut Membre Dernière intervention 19 février 2006
19 févr. 2006 à 05:16
Salut j'ai une question a propos du player comment on peut limiter la lecture d'un mp3 a 30 secondes cad le player commence a la 1 sec et quant il atteind 30 sec il fait stop automatiquement.
Merci d'avance.
Kerrigan Messages postés 708 Date d'inscription lundi 15 juillet 2002 Statut Membre Dernière intervention 17 mars 2005
8 août 2003 à 18:00
deja vu deja fait et pas extraoridinaire en plus
abdoulax Messages postés 875 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 22 juin 2012
5 août 2003 à 12:03
lol nan je rigol , je l'ai mem pas regardé ton script lol , et pui mon vieu addon dailleur il vo pas gran chose lol car il est tro compliqé lol

bon allé have fun
abdoulax Messages postés 875 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 22 juin 2012
5 août 2003 à 12:02
lol
poa
fuck

danmming , mon tou premier addon c un lecteur mp3 , et je pe te dir que mem si ct mon premier addon mem si g fais pl1 de truc qi complic l'addon je pe te dir kil été carement mieu que le tien .
abdoulax Messages postés 875 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 22 juin 2012
5 août 2003 à 12:01
lol
poa
fuck

danmming , mon tou premier addon c un lecteur mp3 , et je pe te dir que mem si ct mon premier addon mem si g fais pl1 de truc qi complic l'addon je pe te dir kil été carement mieu que le tien .
Afficher les 8 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.