Détecteur du volume du son

Soyez le premier à donner votre avis sur cette source.

Vue 4 062 fois - Téléchargée 617 fois

Description

Une sorte de VISUAL comme dans winamp mais en plus....laid ;p

Source / Exemple :


zip

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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...
Afficher les 7 commentaires

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.