JOUER DES MP3Z
SupraDolph
Messages postés
196
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
1 septembre 2008
-
20 déc. 2002 à 20:39
MalCoM33 Messages postés 3 Date d'inscription samedi 21 mai 2005 Statut Membre Dernière intervention 5 novembre 2005 - 17 oct. 2005 à 14:24
MalCoM33 Messages postés 3 Date d'inscription samedi 21 mai 2005 Statut Membre Dernière intervention 5 novembre 2005 - 17 oct. 2005 à 14:24
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5395-jouer-des-mp3z
https://codes-sources.commentcamarche.net/source/5395-jouer-des-mp3z
17 oct. 2005 à 14:24
merci quand meme !!!
16 oct. 2005 à 23:04
15 oct. 2005 à 15:32
j'ai un problemme lors de la compilation de cette source car mon débogueur me signale des erreurs
a partir de cette ligne : Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
QUE DOITGE FAIRE !!!
19 mai 2005 à 16:36
Bon ok ya peu de code mais bon justement, pour des débutants ou quand tu as pas envie de te taper tout un projet pour une simple fonction.... mais ce serait peut etre mieux quand même en expliquant un peu le fonctionne de l'API en général ?!
++
25 janv. 2005 à 00:13
21 déc. 2002 à 02:37
dommage :Q
20 déc. 2002 à 20:39
'Faire une Pause
mciSendString "Pause " & Fichier, 0, 0, 0
'calcul du tps total
Function TotalTime()
Dim TotalTimes As String * 128
mciSendString "set " & Fichier & " time format ms", TotalTimes, 128, 0&
mciSendString "status " & Fichier & " length", TotalTimes, 128, 0&
mciSendString "set " & Fichier & " time format frames", 0&, 0&, 0&
TotalTime = val(TotalTimes)
End Function