MEDIR VOLUME DA MAQUINA
Preciso fazer um projeto que mostre por exemplo numa escala de 1 a 10 o volume do audio que indo para a saida de som do micro, já baixei varios exemplos inclusive um aqui do vbmania mas não entendi como eles funcionam
Esse é o exemplo do site,
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=6733
Baixei as dlls que faltavam mas mesmo assim nada acontece. Se alguém pudem me dar essa mão eu agadeceria!
Esse é o exemplo do site,
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=6733
Baixei as dlls que faltavam mas mesmo assim nada acontece. Se alguém pudem me dar essa mão eu agadeceria!
Então, procurando uma solução para o meu problema eu encontrei uma possivel solução para a sua
Public Declare Function midiOutGetVolume Lib "winmm.dll" Alias "midiOutGetVolume" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
A função do midiOutGetVolume recupera o ajuste atual do volume de um dispositivo de saÃÂÂda de MIDI.
lpdwVolume
Ponteiro àposição para conter o ajuste atual do volume. A palavra low-order desta posição contem o ajuste do volume da esquerdo-canaleta, e a palavra high-order contem o ajuste da direito-canaleta. Um valor de 0xFFFF representa o volume cheio, e um valor de 0x0000 é silêncio.
Se um dispositivo não suportar o controle de volume esquerdo e direito, a palavra low-order da posição especificada contem o nÃÂÂvel mono do volume.
Qualquer jogo de valor usando a função do midiOutSetVolume é retornado, não obstante se as sustentações do dispositivo que avaliam.
Valores do retorno
Retorna MMSYSERR_NOERROR se bem sucedido ou um erro de outra maneira. Os valores possÃÂÂveis do erro incluem o seguinte.
e tem também a função:
Public Declare Function midiOutSetVolume Lib "winmm.dll" Alias "midiOutSetVolume" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
A função midiOutSetVolume ajusta o volume de um dispositivo de saÃÂÂda de MIDI.
Public Declare Function midiOutGetVolume Lib "winmm.dll" Alias "midiOutGetVolume" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
A função do midiOutGetVolume recupera o ajuste atual do volume de um dispositivo de saÃÂÂda de MIDI.
lpdwVolume
Ponteiro àposição para conter o ajuste atual do volume. A palavra low-order desta posição contem o ajuste do volume da esquerdo-canaleta, e a palavra high-order contem o ajuste da direito-canaleta. Um valor de 0xFFFF representa o volume cheio, e um valor de 0x0000 é silêncio.
Se um dispositivo não suportar o controle de volume esquerdo e direito, a palavra low-order da posição especificada contem o nÃÂÂvel mono do volume.
Qualquer jogo de valor usando a função do midiOutSetVolume é retornado, não obstante se as sustentações do dispositivo que avaliam.
Valores do retorno
Retorna MMSYSERR_NOERROR se bem sucedido ou um erro de outra maneira. Os valores possÃÂÂveis do erro incluem o seguinte.
e tem também a função:
Public Declare Function midiOutSetVolume Lib "winmm.dll" Alias "midiOutSetVolume" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
A função midiOutSetVolume ajusta o volume de um dispositivo de saÃÂÂda de MIDI.
ah!vc também tem que usar a função:
Private Declare Function mciGetDeviceID Lib "winmm.dll" Alias "mciGetDeviceIDA" (ByVal lpstrName As String) As Long
VEja como usar:
Public Property Get LVolume() As Long
Dim v As Long, ID As Long, ret As Long
ID = mciGetDeviceID("MCIMIDI")
ret = midiOutGetVolume(ID, v)
LVolume = v And &HFFFF&
End Property
Boa Sorte
Private Declare Function mciGetDeviceID Lib "winmm.dll" Alias "mciGetDeviceIDA" (ByVal lpstrName As String) As Long
VEja como usar:
Public Property Get LVolume() As Long
Dim v As Long, ID As Long, ret As Long
ID = mciGetDeviceID("MCIMIDI")
ret = midiOutGetVolume(ID, v)
LVolume = v And &HFFFF&
End Property
Boa Sorte
Cara eu não sei se me fiz entender, eu preciso que esse valor oscile conforme o ritmo da musica que está tocando, acho que tinha faltado esse detalhe.
então vc que mostre a oscilação da frequencia, e ñ do volume, ñ é isso?
Olha só eu quero fazer um projetinho que simule isso
http://www.youtube.com/watch?v=FBW6Puz5j7o
Só no modo bargraph o outro modo não me interessa, veja o video que entenderas
http://www.youtube.com/watch?v=FBW6Puz5j7o
Só no modo bargraph o outro modo não me interessa, veja o video que entenderas
Tópico encerrado , respostas não são mais permitidas