begin process at 2012 02 12 11:06:46
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Multimedia

 > MINI LECTEUR MP3 SANS GRANDE PRETENTION

MINI LECTEUR MP3 SANS GRANDE PRETENTION


 Information sur la source

Note :
3,67 / 10 - par 6 personnes
3,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Multimedia Classé sous :mp3, player, lecteur, musique, audio Niveau :Débutant Date de création :13/05/2004 Vu :4 223
Auteur : darthpolor_I

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

 Description

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

  • 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 
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


 Sources du même auteur

Source avec Zip Source avec une capture LECTEUR AUDIO MP3 ET WMA
Source avec Zip Source avec une capture EDITEUR DE POCHETTES CD
Toutes les sources de darthpolor_I

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) MON LECTEUR MP3 par kentharold
Source avec Zip Source avec une capture LECTEUR MULTIMÉDIA par lartiguef
Source avec Zip Source avec une capture RENOMMER SOUS-TITRES par memejoueur
Source .NET (Dotnet) "PARLEUR" EN VB 2010 par clementgeek41
Source avec Zip Source avec une capture CHANGER LE VOLUME SYSTÉME SANS ACTIVEX par kayoub5
Toutes les sources de la catégorie Multimedia

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture LECTEUR AUDIO EN FORME DE TÊTE DE MORT : SKELEKTOR! par Thanatozblob
Source avec Zip Source avec une capture DIRECTX TUTO 7 : DIRECTSHOW, JOUER DES MP3/OGG par ciberrique
Source avec Zip MP3 PLAYER (ET OUI, ENCORE UN :) par Zenith
Source avec Zip Source avec une capture MP3 POWAA VERSION 3.00 par Proutie66
Source avec Zip Source avec une capture LECTEUR MP3 AVEC PLAYLIST + CLASSEMENTS DE MP3 par nihaoma

Commentaires et avis

Commentaire de Mechanicman le 14/05/2004 09:40:46

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...

Commentaire de cmoapierre le 14/05/2004 10:16:36

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

Commentaire de FearBlue le 14/05/2004 19:47:44

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

Commentaire de chasseurdedemon le 21/07/2005 16:48:13

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

Commentaire de ka28 le 12/02/2009 21:56:58

c'etait un bon travail merci pour votre attention a nos besoins

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

MP3 et Media player sous VB6 [ par krmou ] Je suis entrain de programmer un lecteur de MP3 en integrant mediaplayer comme lecteur et je n'arrive pas à lire la liste des fichiers *.mp3 en conti Base CDDB [ par Titicar ] J'écris un programme genre Player, lisant les mp3, wav, cd-audio, etc...Par contre, pour chaque cd-audio, il existe un numéro identifiant. Tous les Pl Pb Windows Media Player [ par Franck ] Bonjour,Je souhaite lancer la lecture d'un fichier mp3 sur deux lecteur Media player en même temps. La lecture se lance bien sur le premier lecteur ma Lecteur MP3 qui fait pas chier comme winamp !!! [ par hereticus ] Je voudrais faire un prog qui montre dans une filelistbox les fichier MP3 contenu dans le dossier de l'application,jusque la pas de problemes,mais là PLAYER DIVX AVI MPG MP3 WAV MID...+fonction autorun [ par NumZ ] salutje vous propose mon ptit dernier ici.donc le titre en dis bcp je vous laisse découvrir dans le zip tout est compris vous avez juste a le dl<a hre lecteur mp3 [ par ronando ] je fé un lecteur mp3 avec VB..J'aimerai poussé ces fonctionnalisté un peu plus loin en par exemple affichant le temps de la chanson ecoulé ou encore u lecteur mp3-->tps-->trouvé mais ?? [ par ronando ] J'arrive a aficher le tps qui decoule pour ma chanson mais ce temps est en seconde ..est ce que qqun pourrai m'aider pour afficher ce temps en minute Lancer le player par défaut pour jouer un mp3 depuis VB [ par Pipof ] Je souhaite lancer un mp3 avec le player par défaut depuis mon apllication en VB .Comment qu'c'est qu'on fait ti ?Merci les gens ! Player mp3 real playe [ par poiss0n ] Je voudrais faire un player mp3 avec le composant Real Player.Et comme playlist je voudrais utilise une list1 au lieu d'une file1.Merci de répondre vi equaliseur sur un lecteur Mp3 [ par EagleMan ] je sui a la recherche dun code source , Ocx enfin nimporte koi ki pourré maidé a fer un equaliseur pour mon lecteur mp3 . si vou navé pa ca je recherc


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Beautiful woman in a bikini meditating on the beach
Photo Monument Valley Utah known as The Mittens 

Visiter la photothèque
 
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 : 1,373 sec (4)

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)