Propiedades de sonido en VB6

[solonova]

Hola, buenas tardes.

Estoy tratando de encontrar la forma de cargar un .wav en mi programa VB y poder manejar en el programa su volumen y balance a mi antojo.

Ustedes conocen algún método simple que lo haga?

Por ejemplo, con la declaración del sonido y luego el manejo de este tal como: misonido.play, misonido.setVolume o misonido.setPan ...


Muy agradecido por la ayuda.

[A.H.H]

Hola hay varios ejemplos en este enlace para la tarjeta de sonido
con ellos puedes bajar y subir el volumen
jugar con el balance etc......


http://www.recursosvisualbasic.com.a...-de-sonido.htm



y aqui el balance:

http://www.recursosvisualbasic.com.a...ar-balance.htm

[solonova]

Muchas gracias A.H.H. pero no es exactamente lo que busco.

Ya me recorrí recursosvisualbasic.com.ar casi entero y vi y analicé esos ejemplos que me has mandado, pero no encontré lo que busco, que consiste en cargar un wav o mp3 en mi programa y variar localmente solo a ese sonido el volumen y el balance sin alterar los generales de la tarjeta de sonido.


Si alguien me puede echar un cable le estoy muy agradecido.

[pkj]

Yo sólo conozco un modo. El control Windows Media Player.
Busca algún ejemplo de su uso. Puede reproducir los wav y tiene una propiedad balance que solo le afecta a el (al igual que el volumen).

Suerte.

[solonova]

has gracias pkj, miraré por ese lado.

He encontrado un dll interesante, pero el que la programó no puso un ejemplo sencillo que digamos para mostrar todas las funciones y su uso y no soy tan experto como para desarmar un código así.

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/199-dll-activex-wave-mixer.htm


Sigo buscando algo simple. Gracias.

[solonova]

Buenos días.
Parece que la cosa es complicada. Nunca lo hubiera imaginado.

He encontrado un ejemplo muy interesante con DirectX8, pero pasa una cosa curiosa, y es que cuando el programa pierde el foco el sonido se para, y lo vuelve a conectar cuando lo recupera.

Y no hay ningún evento en lostfocus. Alguien sabe por qué ocurre y cómo evitarlo?

Gracias

[solonova]

Nadie tiene idea? No puede ser que algo tan esencial como manejar sonido no tenga una fácil solución, estoy alucinando.

Quizás alguien me recomiende pasarme a una versión más moderna, como el .net? o es igual de complejo manejar sonido?

Muchas gracias

[pkj]

Saludos, Solonova.

Ya te dí la única solución que conozco.
De todas formas si nos pasas el código que usas, igual alguien te sabe aconsejar.

Suerte

[seba123neo]

el tema de que se corta el sonido en otras ventanas, lo podes solucionar con la api GetForegroundWindow y un Timer, algo asi:

Código vb:

Option Explicit
 
Private Declare Function GetForegroundWindow Lib "User32" () As Long
 
Dim DX           As DirectX8
Dim DS           As DirectSound8
Dim dsToneBuffer As DirectSoundSecondaryBuffer8
Dim desc         As DSBUFFERDESC
 
Const SRATE = 44100
 
Private Sub Form_Load()
 
    Set DX = New DirectX8
    Set DS = DX.DirectSoundCreate("")
    DS.SetCooperativeLevel Me.hWnd, DSSCL_NORMAL
    
    Timer1.Enabled = True
    Timer1.Interval = 1000
    
    desc.fxFormat.nFormatTag = WAVE_FORMAT_PCM
    desc.fxFormat.nSize = 0
    desc.fxFormat.lExtra = 0
    desc.fxFormat.nChannels = 1
    desc.fxFormat.lSamplesPerSec = SRATE
    desc.fxFormat.nBitsPerSample = 16
    desc.fxFormat.nBlockAlign = 2
    desc.fxFormat.lAvgBytesPerSec = 2 * SRATE
    desc.lFlags = DSBCAPS_STATIC Or DSBCAPS_CTRLVOLUME Or DSBCAPS_CTRLFREQUENCY Or DSBCAPS_CTRLPAN
    desc.lBufferBytes = 2 * 1 * SRATE
    
    
    Set dsToneBuffer = DS.CreateSoundBufferFromFile("C:\WINDOWS\media\Entrada de Windows XP.wav", desc)
    
    dsToneBuffer.SetVolume -4000 ' aca pones el volumen, fijarse en un tutorial caules son los valores aceptados por DirectX
    dsToneBuffer.Play DSBPLAY_LOOPING
    
End Sub
 
Private Sub Timer1_Timer()
    Dim vHwnd As Long
    vHwnd = GetForegroundWindow
    If vHwnd > 0 Then DS.SetCooperativeLevel vHwnd, DSSCL_NORMAL
End Sub
 

saludos.

[solonova]

Muchas gracias seba123neo, lo del Timer es un buen parcheo a un absurdo inconveniente de DirectX (a mi parecer claro)

pkj, muchas gracias a ti tb.

Creo que la DLL del ejemplo que puse anteriormente debe ser la manera más potente de controlar un wav, pero, me ha sido complicado meterme en el código del ejemplo, si alguien con más experiencia se anima, le estaría muy agradecido si me pusiera un simple ejemplo de carga, ejecución y asignación de volumen y balance.

Gracias a todos

[seba123neo]

voy a ver si me puedo meter en las apis que usa, si tengo novedades te aviso..

PD: pude ver lo que usa, la DLL el tipo la comprimio con el Armadillo. al final usa DirectX igual que el ejemplo que te pase antes, y "parchea" ese inconveniente tambien con la misma api que te puse jaja...

[solonova]

Muchas gracias seba123neo

Pues si usa tb directx me parece que se ha complicado un poco.


Yo estoy bastante decepcionado con VB, por que he usado DirectX8 para gestionar sonidos y es de lo mas precario.

Estoy haciendo un juego donde los sonidos y efectos ambientales van del altavoz izquierdo al derecho y al revés para darle emoción y ambiente al juego, que es como una aventura gráfica de terror, pero sabes que pasa? Que cuando varío ràpidamente del balance del sonido (lo hago con un efecto easing (desaceleración)) se oyen unos crujidos, o cuando paro y reproduzco muy seguido los sonidos pasa igual, y queda fatal. Y no es culpa de los wavs que están editados, por si creo zumbidos o tonos del sistema y hago lo mismo suenan también.

Ahora no se que tecnología usar para esto pero VB 6 o .Net me han fallado, al menos en lo que se refiere a gestión de sonido.


Muchas gracias de nuevo.