Mp3 player & playlist

Soyez le premier à donner votre avis sur cette source.

Vue 6 886 fois - Téléchargée 1 024 fois

Description



Attention : Afin de mieux faire découvrir votre source aux visiteurs, veuillez décrire votre code, donner des exemples ou des liens.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
9
Date d'inscription
dimanche 1 décembre 2002
Statut
Membre
Dernière intervention
3 janvier 2011

Petit erreur de ma part......
Cette c'est la bone !!!
J'ai oublie de changer le valeur dans les volumes de mediaplayer1 et mediaplayer2.
En plus ça marche bien avec une valeur de -1500 pour le debut.
C'est dans le code.

Amicalement,
Lluis Mas
--------------------------

Private Sub Timer2_Timer()
'calcul de la durée du mp3
min2play = Int(MediaPlayer1.Duration / 60)
sec = Int(min2play * 60)
sec2play = Int(MediaPlayer1.Duration - sec)
Shape2.FillStyle = 1
Shape1.FillStyle = 0
If sec2play < 10 Then
sec2play = "0" & sec2play
End If
'calcul pour le compte a rebour du mp3

minrest = Int((MediaPlayer1.Duration - MediaPlayer1.CurrentPosition) / 60)
secr = Int(minrest * 60)
secrest = Int((MediaPlayer1.Duration - MediaPlayer1.CurrentPosition)) - secr

If secrest < 10 Then
secrest = "0" & secrest
End If
Label9 = MediaPlayer1.FileName
Label3 = "...Lecture"
Label5 = "Durée : " & minrest & "'" & secrest & " / " & min2play & "'" & sec2play

'code pour le mixage player1/player2
If minrest = 0 Then
If secrest = 0 Then
Label9 = ""
Label3 = "En attente ..."
Label5 = ""
Timer2.Enabled = False
End If
If Image4.Visible = True Then
If secrest + 0 = Text3.Text Then
List2.Enabled = True
If List2.ListCount <> 0 Then
List2.ListIndex = List2.ListIndex + 1
MediaPlayer2.FileName = List2.Text
'
DoEvents
xvolum = MediaPlayer1.Volume
yvolum = -1500
'Stop
Timer5.Enabled = True
Timer6.Enabled = True
MediaPlayer2.Play
Label4 = "...Lecture"
List3.AddItem List2
DoEvents
Call Sup_element
End If
End If
End If
End If
End Sub

Private Sub Timer3_Timer()

'calcul de la durée du mp3
min2play2 = Int(MediaPlayer2.Duration / 60)
sec2 = Int(min2play2 * 60)
sec2play2 = Int(MediaPlayer2.Duration - sec2)
Shape2.FillStyle = 0
Shape1.FillStyle = 1
If sec2play2 < 10 Then
sec2play2 = "0" & sec2play2
End If

'calcul pour le compte a rebour du mp3
minrest2 = Int((MediaPlayer2.Duration - MediaPlayer2.CurrentPosition) / 60)
secr2 = Int(minrest2 * 60)
secrest2 = Int((MediaPlayer2.Duration - MediaPlayer2.CurrentPosition)) - secr2

If secrest2 < 10 Then
secrest2 = "0" & secrest2
End If

'affichage des resultats du calcul
Label10 = MediaPlayer2.FileName
Label4 = "...Lecture"
Label6 = "Durée : " & minrest2 & "'" & secrest2 & " / " & min2play2 & "'" & sec2play2

'code pour le mixage player1/player2
If minrest2 = 0 Then
If secrest2 = 0 Then
Label10 = ""
Label4 = "En attente ..."
Label6 = ""
Timer3.Enabled = False
End If
If Image4.Visible = True Then
If secrest2 + 0 = Text3.Text Then
List2.Enabled = True
If List2.ListCount <> 0 Then
List2.ListIndex = List2.ListIndex + 1
MediaPlayer1.FileName = List2.Text
'
xvolum = -1500
yvolum = MediaPlayer2.Volume
'Stop
Timer6.Enabled = True
Timer5.Enabled = True
MediaPlayer1.Play
Label3 = "...Lecture"
List3.AddItem List2
Call Sup_element
End If
End If
End If
End If
End Sub
Messages postés
9
Date d'inscription
dimanche 1 décembre 2002
Statut
Membre
Dernière intervention
3 janvier 2011

'calcul pour le compte a rebour du mp3

minrest = Int((MediaPlayer1.Duration - MediaPlayer1.CurrentPosition) / 60)
secr = Int(minrest * 60)
secrest = Int((MediaPlayer1.Duration - MediaPlayer1.CurrentPosition)) - secr

If secrest < 10 Then
secrest = "0" & secrest
End If
Label9 = MediaPlayer1.FileName
Label3 = "...Lecture"
Label5 = "Durée : " & minrest & "'" & secrest & " / " & min2play & "'" & sec2play

'code pour le mixage player1/player2
If minrest = 0 Then
If secrest = 0 Then
Label9 = ""
Label3 = "En attente ..."
Label5 = ""
Timer2.Enabled = False
End If
If Image4.Visible = True Then
If secrest + 0 = Text3.Text Then
List2.Enabled = True
If List2.ListCount <> 0 Then
List2.ListIndex = List2.ListIndex + 1
MediaPlayer2.FileName = List2.Text
'
DoEvents
xvolum = MediaPlayer1.Volume
yvolum = -4000
'Stop
Timer5.Enabled = True
MediaPlayer2.Play
Label4 = "...Lecture"
List3.AddItem List2
DoEvents
Call Sup_element
End If
End If
End If
End If
End Sub

Private Sub Timer3_Timer()

'calcul de la durée du mp3
min2play2 = Int(MediaPlayer2.Duration / 60)
sec2 = Int(min2play2 * 60)
sec2play2 = Int(MediaPlayer2.Duration - sec2)
Shape2.FillStyle = 0
Shape1.FillStyle = 1
If sec2play2 < 10 Then
sec2play2 = "0" & sec2play2
End If

'calcul pour le compte a rebour du mp3
minrest2 = Int((MediaPlayer2.Duration - MediaPlayer2.CurrentPosition) / 60)
secr2 = Int(minrest2 * 60)
secrest2 = Int((MediaPlayer2.Duration - MediaPlayer2.CurrentPosition)) - secr2

If secrest2 < 10 Then
secrest2 = "0" & secrest2
End If

'affichage des resultats du calcul
Label10 = MediaPlayer2.FileName
Label4 = "...Lecture"
Label6 = "Durée : " & minrest2 & "'" & secrest2 & " / " & min2play2 & "'" & sec2play2

'code pour le mixage player1/player2
If minrest2 = 0 Then
If secrest2 = 0 Then
Label10 = ""
Label4 = "En attente ..."
Label6 = ""
Timer3.Enabled = False
End If
If Image4.Visible = True Then
If secrest2 + 0 = Text3.Text Then
List2.Enabled = True
If List2.ListCount <> 0 Then
List2.ListIndex = List2.ListIndex + 1
MediaPlayer1.FileName = List2.Text
'
xvolum = -4000
yvolum = MediaPlayer1.Volume
'Stop
Timer6.Enabled = True
MediaPlayer1.Play
Label3 = "...Lecture"
List3.AddItem List2
Call Sup_element
End If
End If
End If
End If
End Sub

Private Sub Timer5_Timer()
tfinal = tfinal - 1
'For xvolum = 0 To -6000 Step -1000
xvolum = xvolum - ttrans
yvolum = yvolum + ttrans
If yvolum >= 0 Then
yvolum = 0
tfinal = -1
End If
volum1 = Val(xvolum)
volum2 = Val(yvolum)
Label11.Caption = xvolum
MediaPlayer1.Volume = volum1
MediaPlayer2.Volume = volum2

If tfinal <= 0 Then
Timer5.Enabled = False
tfinal = Int(tfosa / ttrans)
End If'If xvolum -6000 Then Timer5.Enabled False

End Sub

Private Sub Timer6_Timer()
tfinal = tfinal - 1
'For xvolum = 0 To -6000 Step -1000
xvolum = xvolum + ttrans
yvolum = yvolum - ttrans
If xvolum >= 0 Then
xvolum = 0
tfinal = -1
End If
If yvolum <= -4000 Then
yvolum = -4000
tfinal = -1
End If
volum1 = Val(xvolum)
volum2 = Val(yvolum)
Label11.Caption = xvolum
MediaPlayer1.Volume = volum1
MediaPlayer2.Volume = volum2

If tfinal <= 0 Then
Timer6.Enabled = False
tfinal = Int(tfosa / ttrans)
End If

End Sub
Messages postés
21
Date d'inscription
samedi 30 novembre 2002
Statut
Membre
Dernière intervention
21 janvier 2003

Bonjour !
c moi vbprog :-)
ton petit soft est bien fait bravo...
j' aimerait savoir comment tu as fait the play list ?
Merci pour ta reponse et bon courage.

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.