DÉTECTEUR DU VOLUME DU SON

cs_Nox Messages postés 415 Date d'inscription mardi 3 avril 2001 Statut Membre Dernière intervention 26 avril 2008 - 3 mars 2002 à 05:04
vanpet Messages postés 149 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 5 février 2006 - 4 mars 2002 à 16:45
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/2735-detecteur-du-volume-du-son

vanpet Messages postés 149 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 5 février 2006
4 mars 2002 à 16:45
j'ai plus l'erreur... mais quand j'appuye sur le bouton il lance winamp avec le microsoft sound : je l'entends, mais rien ne change sur ton visual.
juste les lignes oranges qui avance tjrs de la meme maniere
je vois pas a quoi sert le shpe ni les images en haut, ni la barre de progression...
si tu pouvais me dire où t'a trouvé la source (en anglais, le module au moins :-) j'essayerais d'en faire qque chose. merci
@+
cs_shivan Messages postés 363 Date d'inscription jeudi 20 décembre 2001 Statut Membre Dernière intervention 25 août 2003
4 mars 2002 à 14:28
ben au moins ca met kk chose pour ceux ki ont le message !!! moi j'ai un depassement de capacité !!!!
remarque c ptetre parske j'ai win2k...
cs_Nox Messages postés 415 Date d'inscription mardi 3 avril 2001 Statut Membre Dernière intervention 26 avril 2008
3 mars 2002 à 19:30
ben la ligne de code du message est:

' Get the output volume meter
ok = GetControl(hmixer, MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT, MIXERCONTROL_CONTROLTYPE_PEAKMETER, outputVolCtrl)

If (ok = True) Then
ProgressBar1.Min = 0
ProgressBar1.Max = outputVolCtrl.lMaximum
Else
ProgressBar1.Enabled = False
MsgBox "Erreur au chergement du détecteur de volume"
End If


je vois pas le probleme la... je renvoie le zip sans le ELSE... voir c koi sa fait
cs_Nox Messages postés 415 Date d'inscription mardi 3 avril 2001 Statut Membre Dernière intervention 26 avril 2008
3 mars 2002 à 19:29
ben la ligne de code du message est:

' Get the output volume meter
ok = GetControl(hmixer, MIXERLINE_COMPONENTTYPE_SRC_WAVEOUT, MIXERCONTROL_CONTROLTYPE_PEAKMETER, outputVolCtrl)

If (ok = True) Then
ProgressBar1.Min = 0
ProgressBar1.Max = outputVolCtrl.lMaximum
Else
ProgressBar1.Enabled = False
MsgBox "Erreur au chergement du détecteur de volume"
End If


je vois pas le probleme la... je renvoie le zip sans le ELSE... voir c koi sa fait
cs_Nox Messages postés 415 Date d'inscription mardi 3 avril 2001 Statut Membre Dernière intervention 26 avril 2008
3 mars 2002 à 19:26
ma rgarder sa...
vanpet Messages postés 149 Date d'inscription lundi 17 décembre 2001 Statut Membre Dernière intervention 5 février 2006
3 mars 2002 à 13:45
ce marche pas..
"erreur au chergement du detecteur de volume"
ya même une faute dans le msgbox !
pq ca marche pas ? ca m'interesse une source comme ça !
cs_Nox Messages postés 415 Date d'inscription mardi 3 avril 2001 Statut Membre Dernière intervention 26 avril 2008
3 mars 2002 à 05:04
Merci de laisser vos commentaires ! :)
Rejoignez-nous