[EX3]

Ya sé donde me daba error.

Código [Seleccionar] Expand


Call m_Sound.SOUND_Play(Snd_Id, 0, CBool(True))     '// ERROR

Call m_Sound.SOUND_Play(Snd_Id, 1, CBool(True))     '// FORMA CORRECTA


Me puse a investigar, y me dí cuanta de que ese 1 es un 0.

Gracias, EX3.

Salu2...

[EX3]

Jajajaja :D  no es por amargar, EX3, pero ahora lo puse de esta forma:

Código [Seleccionar] Expand


Snd_Id = m_Sound.SOUND_Load("C:\entidad_3d\wav\saltar.wav") 'Carga la secuencia de sonido en memoria.


Pero sigue sin oirse. :)

¿Sabes por qué?

Espero haberme explicado bien.

Gracias de antermano.

Salu2...

Hola a todos!! Tengo éste código:

Código [Seleccionar] Expand


Option Explicit

Dim m_Sound As dx_Sound_Class 'Referencia a dx_Sound.
Dim Snd_Id As Long 'Almacena el identificador de la secuencia de sonido en memoria.
Dim Snd_Freq As Long 'Almacena la frecuencia de la secuencia de sonido.
Dim Speed As Long 'Almacena el valor de la frecuencia para modificar la velocidad.

Private Sub Form_Load()
'Inicializamos dx_Sound:
Set m_Sound = New dx_Sound_Class

'Inicializamos la clase dx_Sound con los valores por defecto:
Call m_Sound.Init(Me.hWnd)

Call m_Sound.SOUND_Unload(Snd_Id) 'Descargamos la secuencia de sonido anterior.
       
Snd_Id = m_Sound.SOUND_Load("C:secta_final.xm") 'Carga la secuencia de sonido en memoria.

Call m_Sound.SOUND_Play(Snd_Id, 0, CBool(True)) 'Reproduce la secuencia de sonido en el canal 0.

Call m_Sound.SOUND_SetFrequency(0, Speed)
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Terminamos la ejecucion de la clase:
Call m_Sound.Terminate

'Destruimos la instancia de la clase:
Set m_Sound = Nothing

End Sub


El problema, es que no reproduce ningún sonido...

:D ¡DONDE ESTARÁ EX3 CUANDO SE LE NECESITA! :D

Gracias por adelantado.

Salu2... :lol: