martes, 22 de septiembre de 2015

Como reproducir un sonido en nuestra aplicación con gb.sdl2.audio?





Primero creamos un nuevo proyecto, despues vamos a componentes y tildamos
gb.sdl2.audio. En este ejemplo el archivo de audio esta dentro del proyecto en la carpeta datos.


' gambas class file

' by postapase


Public Sub Form_Open()
  Me.Center 'centramos el formulario
End

Public Sub Button1_Click()
Dim misonido As Sound 'declaramos la variable de sonido llamada misonido

' misonido = Sound.Load("/home/prueba1/Escritorio/camara.ogg") 'una ruta X

misonido = Sound.Load("camara.ogg") 'Asignamos el sonido a la variable
' que se encuentra en la carpeta Datos del proyecto.

misonido.Play 'reproducimos el sonido

End


Sonido-0.0.1.tar.gz

 FMain.SonidoTantos = New Sound("Sonidos/Kopete_send.ogg") 'vieja linea

 FMain.SonidoTantos = Sound.Load("Sonidos/Kopete_send.ogg")'Linea actualizada


2 comentarios:

  1. En la Granja de Gambas hay un ejemplo llamado "VERY Simple video player" de Charlie Ogier
    También en la Granja hay un programa llamado VisorRV1960 que usa un visor de videos.
    Saludos

    ResponderBorrar