TODOPIC

Lenguajes de programación para PC => Visual Basic => Mensaje iniciado por: nacha4 en 18 de Abril de 2006, 17:53:23

Título: como hacer un ruido
Publicado por: nacha4 en 18 de Abril de 2006, 17:53:23
hola necesitaria saber como hacer un ruido cada ves que ocurra algun evento
Título: Re: como hacer un ruido
Publicado por: BrunoF en 18 de Abril de 2006, 18:00:22
Hola.
La instruccion: Beep genera un ruido del parlante de la PC. Fijate si te funciona y si es suficiente.
Exitos!
Título: Re: como hacer un ruido
Publicado por: nacha4 en 18 de Abril de 2006, 18:27:16
lo que yo necesito es hacer un ruido pero fuerte  los parlantes de la pc (placa de sonido)
Título: Re: como hacer un ruido
Publicado por: BrunoF en 18 de Abril de 2006, 18:45:09
LBueno...Si no deseas utilizar ningun control para lograrlo, deberas utilizar llamadas a .DLL para controlar la placa de sonido...bastante complicado.
Por otra parte, puedes incluir controles ya listos para reproducir archivos de sonido, como por ejemplo el control Windows Media Player.

Y simplemente pones este codigo en un evento:

Código: Visual Basic
  1. Private Sub Form_Load()
  2.  
  3. WindowsMediaPlayer1.Visible = False
  4. WindowsMediaPlayer1.URL = "C:\Sonido.mp3" 'aqui pones la ruta del archivo a reproducir
  5. WindowsMediaPlayer1.Controls.play
  6.  
  7. End Sub
  8.  
  9. Exitos!
Título: Re: como hacer un ruido
Publicado por: nacha4 en 18 de Abril de 2006, 20:18:06
asi me parece mas facil pero como ago para que empiese el sonido cada ves que sucede algun evento y donde pongo lo que me pusite
nacha
Título: Re: como hacer un ruido
Publicado por: BrunoF en 19 de Abril de 2006, 16:02:18
hola.
A ver...aca te pongo un ejemplo. El sonido se reproduce cada vez que se produce el evento "click" del boton command1.
Necesitas para poder ejecutar el código de abajo, insertar un CommandButton llamado Command1,y un control Windows Media Player, que debes llamar WindowsMediaPlayer1.


Código: Visual Basic
  1. Private Sub Command1_Click()
  2.  
  3. On Error Resume Next
  4. WindowsMediaPlayer1.Controls.stop   'detener sonido(por si se estaba reproduciendo desde antes)
  5. WindowsMediaPlayer1.Controls.play   'iniciar desde el principio el sonido
  6.  
  7. End Sub
  8.  
  9. Private Sub Form_Load()
  10.  
  11. WindowsMediaPlayer1.Visible = False 'ocultar reproductor
  12. WindowsMediaPlayer1.URL = "C:\Sonido.mp3" ' cargar sonido a reproducir
  13. WindowsMediaPlayer1.Controls.stop 'detener sonido(ya que cuando se carga, se comienza a reproducir automaticamente
  14.  
  15. End Sub