M2-x- ,un lecteur audio-video basé sur wmp9

Soyez le premier à donner votre avis sur cette source.

Vue 11 060 fois - Téléchargée 2 903 fois


Description

Je commence en Visual Basic, j'ai voulu me familiariser un peu avec WMP(9) ; c'est un lecteur audio, video (mp3, cd, divx, etc...enfin les formats pris en charge par wmp). Il permet de creer une mediatheque tout ce qu'il y a de modeste en déclarant un dossier Audio et Video par defaut -> accés rapide à ses médias par un petit menu, comprenant également un explorateur & accés rapide cd-rom/dvd-rom avec possibilité d'éjection ou de fermeture (toutes les fenetres s'ouvrent ou se ferment à partir du menu du lecteur).
Affichage des infos/medias (à ameliorer pour la video).
Possibilité de programmer l'extinction du pc (merci à l'astuce de vbalcor pour l'extinction complete).
Possibilité de faire ses propres playlists audio ou video.
Il n'est pas encore fini (améliorer l'affichage video/le systeme des playlists, ameliorer le code); un lecteur multimedia de plus, je sais ; en tant que novice les conseils sont les bienvenus.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

bouv
Messages postés
1429
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
-
Ma première source fut un lecteur de ce genre. Prepare toi à quelques critiques pas toujours agréables.
Sinon pour ma part, à l'ouverture du projet :
Impossible de trouver les fichiers suivants :
frmExplorateur.frm
modInformationMedia.bas
Met les de préférence dans le repertoire du projet.
Il manque également LEDMeter.ocx (à mettre dans le zip)

'Innitialise le repertoire par defaut pour la creation de nouvelle playlist
DrivePlaylists.Drive = "E:"

Pourquoi "E:" ; je n'ai pas de lecteur E et l'appli plante...

Pour le choix des repertoires (frmConfig) oublie les DirListBox (surtout sur 2 lignes) et utilise plutot un controle de ce genre :
http://www.vbfrance.com/code.aspx?id=6441
ou http://www.vbfrance.com/code.aspx?id=3371
ou http://www.vbfrance.com/code.aspx?ID=33733

Dans Public Sub VerificationExistenceRepertoiresParDefaut() et d'une manière générale n'utilise pas de chemin en 'dur' mais plutot des chemin relatifs. Essai App.Path...

Voila je suis pas allé plus loin surtout qu'il manque qq fichiers.
Sinon les controles ont l'air bien nommés, le code est indenté, relativement clair et commenté.

Continue...

Bonne prog
++
MopX
Messages postés
8
Date d'inscription
mardi 21 juin 2005
Statut
Membre
Dernière intervention
22 octobre 2005
-
Merci pour tes infos, j'ai rajouté les fichiers manquants (pour le LEDMeter.ocx, je pense que cela ne devrait plus poser de probleme).

Pour le reste je vais regarder ça ce soir.
jrbleboss
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
-
C'ets pas mal si tu es debutant mais ya un truc très important !!
Met un common dialog car pour trouver le chemin de notre dossier audio c vraiment dure !!
MopX
Messages postés
8
Date d'inscription
mardi 21 juin 2005
Statut
Membre
Dernière intervention
22 octobre 2005
-
J'ai revu le systeme pour la sélection des dossiers audio et video ; je n'arrive pas à sélectionner un dossier avec un common dialog (juste des fichiers), et je voulais faire une fenêtre pas trop grande pour l'opération.
J'ai finalement utilisé les API SHBrowseForFolder et SHGetPathFromIDList (que je viens de découvrir sur un autre site) qui permettent d'ouvrir une boite de dialogue et de sélectionner un dossier.
En ce qui concerne le 'répertoire par defaut pour la creation de nouvelle playlists' dont tu parlais -Bouv-, c'est également réglé.
bouv
Messages postés
1429
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
-
Bien, pour ce qui a été modifié. Surtout la recherche des dossiers.
Mais... il reste encore qq problèmes. Si par exemple je clique sur Play sans avoir créé de playlist... le prog plante la dessus :

ListeDeLecture(intMediaEnCours)

Met un code pour gérer ça. Plutot dans le genre
If TaillePlaylist = 0 Then Exit Sub
ou avec On Error Resume Next

Quand cela sera corrigé je noterai

Bonne prog
++

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.