• Martes 19 de Noviembre de 2024, 14:16

Autor Tema:  Sonido En Visual Basic 6.0  (Leído 1578 veces)

belen_19

  • Nuevo Miembro
  • *
  • Mensajes: 6
    • Ver Perfil
Sonido En Visual Basic 6.0
« en: Martes 16 de Mayo de 2006, 17:10 »
0
Hola! ya habia preguntado esto, en otro foro, pero la verdad no me sirvio mucho porque no me funciono, asi que voy a ser mas directa, hice un rompecabezas y kiero agregarle sonidos a este juego, por ej hacer que cada vez que muevo una pieza realice un sonido, me explico? bueno espero que alguien pueda ayudarme, desde ya muchas gracias!

saludos.  :)

RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Sonido En Visual Basic 6.0
« Respuesta #1 en: Martes 16 de Mayo de 2006, 18:01 »
0
En el evento mouse_up del control que estes usando, puedes hacer una llamada al api de sonido:

Código: Text
  1. Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
  2. (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  3.  
  4.  
  5. asi lo mandas llamar en cualquier lugar (al entrar al form o al pasar por un boton)
  6.  
  7. Call sndPlaySound(App.Path + "\mensaje.wav", SND_ASYNC +SND_LOOP) 'activas
  8. Call sndPlaySound(ByVal "", 0) ´desactivas
  9.  
Extraido de SoloCodigo
El pasado son solo recuerdos, el futuro son solo sueños

Angel38

  • Miembro MUY activo
  • ***
  • Mensajes: 370
    • Ver Perfil
Re: Sonido En Visual Basic 6.0
« Respuesta #2 en: Martes 16 de Mayo de 2006, 19:20 »
0
Hola Belen_19  :hola:


Hay otra manera, claro que la de Radical es buena pues porque puedes manipular la reproduccion. :P


Pero aqui tengo otra.

Primero vas a Menu - proyecto- componentes.
seleccionas Windows media player. cuando te aparezca lo arrastras al form.


Yo lo llamo MP.

Luego codificas en el boton o donde lo quieras reproducir.

Código: Text
  1.  
  2.      cadena = App.Path + "musica.mp3"   'puede ser .wav y nose que más reproduzca
  3.      MP.CurrentPosition = 0   'lo inicializas cada vez que reproduces
  4.      MP.Open (cadena)     'abres la ruta
  5.      MP.AutoStart = True  'escuchas el sonido
  6.  
  7.  


Espero que entiendas y te sirva   :whistling:
[size=109]Se me olvidó instalar los Drivers de Cordura en mi Cerebro.