Obtenir le volume de sortie enregistrement

Question

Bonjour 

Je souhaite obtenir le volume de sortie "enregistrement" (table de mixage) pour réaliser un Vu-metre

Quel est le code a appliquer ? (compatible Win2000)

Megawatt2000 · Answer

up

ShareVB · Answer

salut

fait une recherche sur le site avec "volume"

tu verras y plein de sources qui font presque ce que tu veux

voila

ShareVB

Megawatt2000 · Answer

J'ai déja cherché "volume" mais je n'ai pas trouvé ce que je cherchais. (Newbie Inside)

ShareVB · Answer

salut

je comprends pas
"le volume de sortie" une sortie
"enregistrement" une entrée

j'ai vu ce code : c un vu metre du son à l'entrée du micro
http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=26592&lngWId=1

pour un vu metre du son en sortie wave je n'ai rien trouvé

voila

ShareVB

Megawatt2000 · Answer

C'est exactement ce qu'il me fallait. Il me reste plus qu'a voir si je peux l'adapter dans une ProgressBar.

Merci

Megawatt2000 · Answer

Arf j'arrive pas a adapter le code a une progressbar

Help Please

ShareVB · Answer

salut

bon deja supprime le code de subclassing qui sert à rien (k faire planter VB):
supprime le module minmaxproc
supprime dans form_load les deux dernier ligne avant endsub

apres tu mets sur la feuille un progressbar PB avec max = 256

dans drawdata tu vires tout
et tu mets         PB.Value = Abs(InData(0))

enfin dans declaration tu remplaces : Private InData(0 To 511) As Byte
par Private InData(0 To 1) As Byte

tu peux garder une copie du projet original car il est vraiment interessant

de temps à autre ca bug mais bon une fois compilé ca devrait marcher

voila

ShareVB

Megawatt2000 · Answer

Je n'y arrive pas ! VB6 plante
A mon avis je n'ai pas su cerner ce que c'était le subclassing.

ShareVB · Answer

salut

laisse tomber le subclassing :
-supprime juste le module minmaxproc
-supprime dans form_load les deux dernier ligne avant endsub ou il y a getwindowlong et setwindowlong

apres tu mets sur la feuille un progressbar PB avec Max = 256

dans la sub drawdata tu vires tout
et tu mets : PB.Value = Abs(InData(0))

enfin dans declaration tu REMPLACES : Private InData(0 To 511) As Byte
PAR : Private InData(0 To 1) As Byte

dans la sub visualize tu REMPLACES :     Wave.dwBufferLength = 512 'This is now 512 so there's still 256 samples per channel
PAR :
Wave.dwBufferLength = 2 'This is now 512 so there's still 256 samples per channel

sinon tu peux supprimer le code qui a rapport avec les controle picturebox Scope

voila

ShareVB

Megawatt2000 · Answer

Salut

Bon le code que tu m'as refilé a l'air d'etre défaillant (la Progressbar n'arrete pas de Osciller) ca me le fait parfois aussi avec les Spectres

J'ai trouvé ce code qui a l'air tres intéressant mais c'est basé sur un ActiveX
http://www.gdsoftware.dk/showapp.asp?link=grtv_release10040.zip

Ce que j'aimerai, c'est récupérer la valeur de l'intensité sonore (comme le code que tu m'as trouvé) pour pouvoir la traiter dans autre chose (comme une progressbar)

++

ShareVB · Answer

salut

le niveau sonore est dans InData(0) pour le channel left et dans indata(1) pour le channel right

de plus des lors qu'il y a un micro de branché sur linein il y a forcement des parasites qui font osciller le volume sonore

sinon tu peux remplacer ton progressbar par un picturebox et mettre ce code :
picture1.cls
Picture1.Line (0, 0)-(InData(0), Picture1.ScaleHeight), vbRed, BF
avec scalewidth = 256

ca revient au meme

voila

ShareVB

Megawatt2000 · Answer

Bon j"ai trouvé ce qui était défaillant : c'est ma SB Live! 1024
J'ai essayé sur une SB128 : ca passe sans probleme.

Merci encore

@+ sur les forums

cs_domi123 · Answer

Salut, je voudrais savoir quel est le code pour Indata(1) et Indata(0) pour réaliser un vumètre (volume d'enregistrement audio) et quel est le module (.ocx) utilisé ?

Je voudrais savoir aussi si les vumetres fonctionnent sur les 2 voies oiu uniquement une voie (droite ou gauche) ?

Merci.

cs_DF28 · Answer

laisse tomber la prog te Nule.

Obtenir le volume de sortie enregistrement

14 réponses

Discussions similaires