Mini lecteur mp3 sans grande pretention

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 460 fois - Téléchargée 29 fois

Contenu du snippet

pour ceux qui comme moi debute dans ce langage vous pourrez trouver un code source qui explique comment faire un lecteur de mp3 certes pas très fonctionnel mais une fois qu'on l'a compris tout est plus claire

Source / Exemple :


Private Sub Command1_Click()
If List2.SelCount = 0 Then Exit Sub
MediaPlayer1.FileName = List1.List(List2.ListIndex)
MediaPlayer1.Play
End Sub

Private Sub Command2_Click()
CommonDialog1.CancelError = True
On Error GoTo error:
CommonDialog1.Flags = cdlOFNFileMustExist
CommonDialog1.ShowOpen
List2.AddItem Mid$(CommonDialog1.FileName, InStrRev(CommonDialog1.FileName, "\") + 1, InStrRev(CommonDialog1.FileName, ".") - 1 - InStrRev(CommonDialog1.FileName, "\"))
List1.AddItem CommonDialog1.FileName
Label1.Caption = Mid$(CommonDialog1.FileName, InStrRev(CommonDialog1.FileName, "\") + 1, InStrRev(CommonDialog1.FileName, ".") - 1 - InStrRev(CommonDialog1.FileName, "\"))
error:
End Sub

Private Sub Command3_Click()
MediaPlayer1.Stop
End Sub

Private Sub Command4_Click()
If List2.SelCount = 0 Then Exit Sub
MediaPlayer1.Pause
End Sub

Private Sub List2_DblClick()
MediaPlayer1.FileName = List1.List(List2.ListIndex)
MediaPlayer1.Play
End Sub

Conclusion :


cette application etait simplement pour moi un exercice donc ne vous attendez pas à une mise à jour de ma part
certains bug son a noter tels que la reconnaissance des mp3 qui fait planter si le morceau n'est pas un mp3 et d'autres encore que je n'ai pas relever

A voir également

Ajouter un commentaire

Commentaires

Messages postés
4
Date d'inscription
lundi 2 février 2009
Statut
Membre
Dernière intervention
9 août 2010

c'etait un bon travail merci pour votre attention a nos besoins
Messages postés
60
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
15 novembre 2010

ben au moin il ser a kelke chose ce lecteur.
si tu as un prog et que tu veux mettre une zic en arrière plan et bien avec cette source tu peut c pas comme les autre source avec des lecteur mp3 et plein de fonction qui serve a ri1 et un codes source énorme avec 10 000 fenettre et 100 000 beug.
avec sa t sur que sa marchera.

merci pour cette source
Messages postés
149
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
26 octobre 2008

Attendez
je peux savoir d'ou vient cette note (7/10) ?????
Il n'y a rien qui puisse justifier ca !!!
Meme pas de zip
le code se résume a quelques ligne pas intéressante(stop,play.....)
je ne vois aucun intéret
Aller @+ et ne le prend pas mal
Messages postés
46
Date d'inscription
dimanche 14 décembre 2003
Statut
Membre
Dernière intervention
8 août 2005

Un zip seré le bienvenu
Ms si fo windowsmedia player pr le lire c moin interresant
enfin ca a lair detre pa mal
Jattend le zip pr la note
Messages postés
60
Date d'inscription
lundi 28 juillet 2003
Statut
Membre
Dernière intervention
7 novembre 2004

Je n'ai pas regardé en détail ton code mais apparemment (si je me gourre pas) il faudrait que WindowsMedia Player soit installé sur le PC pour faire fonctionner ton prog....

Enfin je me trompe peut etre... à vérifier...

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.