TABLE DE MIXAGE MP3

Commentaire de yannn le 09/10/2003 15:23:56

Marche pas chez moi ... comprends pas ... :
Valeur bloc non definie a la ligne
Time3 = (LecteurA.currentMedia.duration - LecteurA.Controls.currentPosition)
dans Private Sub TimerRestanteA_Timer()

Commentaire de poof65 le 09/10/2003 16:47:47

erf j'ai meme pas wmp.dll pour tester ton prog

Commentaire de Fripouil le 09/10/2003 20:23:18

Windows MédiaPlayer n est pas associé c est une partie intégrante du programme mais au lieu de le commander via ses boutons ce sont les boutons du programmes qui le commande.

Pour le son, il faut augmenter le slider master vers la gauche ( augmente A) ou la droite (Augmente B).

Et si rien ne se passe, il se peut que la musique ne soit pas charger dans le lecteur (A ou B), dans ce cas rajouter des musiques dans la playlist voulu puis double cliquez sur la chanson de facon a voir son nom défiler dans le lecteur adéquate. Et play.........

Commentaire de kimmelf2 le 11/10/2003 02:37:20

je pense que le + delicat consistera dans le passage entre les 2 mp3 sans que ca s'entende. Il faut pas que ca saute brusquement, que ca fasse un blanc parceque ca dois recharger le mp3 ou parceque Mossieur Windobe decide de se bloquer :-D

Commentaire de Fripouil le 17/02/2004 15:49:45

Bonjour
Alors voila ce qui se passe le fait de mettre des chansons dans la playlist n' en charge aucune dans le lecteur donc lors de l' appuie sur le bouton "Play" celui ci lance le timer pour connaitre la durée restante de la chanson, le hic vous le comprendrez c' est que pas chanson, pas de durée.
Alors petit reméde trés simple rajouté le code indique par la fléche dans TimerRestanteA et TimerRestanteB.

Private Sub TimerRestanteA_Timer()
Dim Time3 As Long
Dim Min3 As Long                      
Dim Sec3 As Long
If LecteurA.URL = "" Then Exit Sub   <------------------------------
Time3 = (LecteurA.currentMedia.duration - LecteurA.Controls.currentPosition)
Min3 = (Time3 \ 60)
Sec3 = (Time3 - (Min3 * 60))
DureeRestanteA.Caption = Format(Min3, "00") & ":" & Format(Sec3, "00")
End Sub

Voila et si maintenant ca marche, merci de me laisser une petite note.... lol
@+

Commentaire de mabouxia le 19/03/2004 17:10:34

ca ne marche pas...Ca dit que le fichier n'est pas correctement enregistré et qu'il manque quelque chose,mais je ne sais pas ce que c'est.... De l'aide !!