Sonidos

[XYON126]

Hola!

Tengo una consultilla ¿Que comando, como se hace para emitir un sonido en VB? me explico, estoy haciendome un juego para mi hija para que aprenda el horario y quiero que cada vez que acierte le salga un sonido ya sea waw u otro, ¿como Lo puedo hacer? con que me digais el comando es suficiente, despues yo ya me peleare para aprender.

Un saludote

[pkj]

Puedes usar sndPlaySound

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2

Private Sub PlayFile(byVal FileName As String)
sndPlaySound FileName, SND_ASYNC Or SND_NODEFAULT
End Sub

Saludos

[XYON126]

Iniciado por pkj

Puedes usar sndPlaySound

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2

Private Sub PlayFile(byVal FileName As String)
sndPlaySound FileName, SND_ASYNC Or SND_NODEFAULT
End Sub

Saludos

Hola pkj!

Muchas gracias pero no entiendo bien el codigo o como aplicarlo, veo que haces referencia a winmm.dll pero ¿Que es el sndPlaySound, donde encuentro la Dll, etc? podrias explicarte algo mas, recuerda que soy novato aún.

Un saludo

[pkj]

Esa dll se supone que está en tu carpeta windows\system32 y creo que viene por defecto.

Solo pega el código.

Esto es un ejemplo. Un form con un commandbutton y este código:

Código vb:

Option Explicit
 
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
 
Private Sub PlayFile(ByVal FileName As String)
  sndPlaySound FileName, SND_ASYNC Or SND_NODEFAULT
End Sub
 
Private Sub Command1_Click()
  PlayFile "c:\fichero.wav"
End Sub
 

Comenta tus dudas.

[XYON126]

Muchas gracias pkj.

Un saludote