Hola a todos!! Tengo éste código:
El problema, es que no reproduce ningún sonido...
:D ¡DONDE ESTARÁ EX3 CUANDO SE LE NECESITA! :D
Gracias por adelantado.
Salu2... :lol:
Código [Seleccionar]
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: