Activar o Desactivar sonidos en nuestra aplicación

Hola novatos!!! jajaja
Les traigo un pequeño programita que si lo usan en una programa grande seguro les sera de utilidad.
Trata de la opcion de desactivar todos los sonidos de nuestro programa o activarlos para asi poder oirlos.
A experimentar mucho que es como se aprende.

Saludos y comenten.

' gambas class file

'by postapase
'necesario componentes gb.settings y gb.sdl2.audio

Public bPermisoSonido As Boolean 'Variable que maneja si se pueden o no ejecutar sonidos
Public Clic As Sound 'declaramos una variable de sonido que se puede acceder de cualquier lado.
Public ErrorX As Sound 'declaramos una variable de sonido que se puede acceder de cualquier lado.


Public Sub Form_Open()

Clic = Sound.Load("clic.ogg") 'asignamos a la variable de sonido Clic un sonido X
ErrorX = Sound.Load("error.ogg") 'asignamos a la variable de sonido ErrorX un sonido X
bPermisoSonido = Settings["Opciones/PermitirSonido", True] 'leemos el valor de PermitirSonido y lo asignamos a bPermisoSonido.
'en caso de no existir ningun valor en el archivo settings en PermitirSonido le asignamos true.

EsteIcono() 'llamamos a la funcion.

End

Public Sub btnSonidos_Click()

bPermisoSonido = Not bPermisoSonido 'not le asigna a bPermisoSonido el valor contrario al que tiene.
'si bPermisoSonido es true lo dejara en false
'si bPermisoSonido es false lo dejara en true

EjecutarSonido(Clic) 'llama a la funcion EjecutarSonidos() y entre los parentesis le asignamos el sonido a ejecutar.

EsteIcono() ' funcion que se encarga de visualizar un icono dependiendo de la variable bPermisoSonido.

Settings["Opciones/PermitirSonido"] = bPermisoSonido 'asigna el valor de bPermisoSonido a PermitirSonido del archivo settings
Settings.Save ' guarda los cambios ya de la orden anterior, si esta orden no esta settings la guarda al cerrar el programa.

End

Public Sub EsteIcono() 'se encarga de mostrar uno u otro icono dependiendo de bPermisoSonido.

If bPermisoSonido Then
btnSonidos.Picture = Picture["icon:/64/volume"]
Else
btnSonidos.Picture = Picture["icon:/64/muted"]
Endif

End


Public Sub EjecutarSonido(sonido As Sound)

If bPermisoSonido Then 'si bPermisoSonido es true ejecuta el sonido sino no hace nada.
Try sonido.Play 'intenta ejecutar el sonido si da error el programa no se cuelga y el if siguiente muestra el detalle del error.
If Error Then Message.Warning(Error.Text & gb.NewLine & Error.Where & gb.NewLine & Error.Code)
Endif

End

Public Sub Button2_Click()
EjecutarSonido(Clic) 'llama a la funcion
End

Public Sub Button1_Click()
EjecutarSonido(ErrorX) 'llama a la funcion
End

Código fuente: ActivarDesactivarSonidos-0.0.1.tar.gz

Settings.write y Settings.read

Buenas, para ver los cambios tienen que abrir y cerrar el formulario.

' gambas class file

'by postapase

Public Sub Form_Open()
Print Settings.Path
Settings.Read(Me) 'lee los datos antes guardados con el comando Settings.write
Settings["Blog/postapase"] = "http://novatocodegambas.blogspot.com/" 'ordena que hay que guardar este dato en el archivo
'Settings cuando se cierre el formulario.
Settings.Save ' guarda ya mismo el dato de la linea anterior
LeerArchivoSettings() 'llama a la subrutina que se encargara de leer el archivo Settings y mostrarlo en el TextArea
End


Public Sub by_Click()

Settings.Clear(Me.Name) 'ordena que hay que borrar solo la llave o key Me.name
'que equivale al nombre del formulario en este caso equivale a FMain, se guardara cuando el formulario principal sea cerrado,
'salvo que se ponga la line que viene abajo que ordena guardar inmediatamente.
Settings.Save ' guarda ya todos los datos que ordenaron guardar en el archivo settings
Wait 0.2 ' comando que hace un tiempo antes de ejecutar la linea siguiente.
LeerArchivoSettings() 'llama a la subrutina que se encargara de leer el archivo Settings y mostrarlo en el TextArea
End

Public Sub btnBorrarTodo_Click()
Settings.Clear ' 'ordena que hay que borrar todo el archivo Settings cuando se cierre el formulario principal
Settings.Save 'ejecuta ya mismo todas las ordenes pendientes sobre el archivo Settigns.
Wait 0.2 ' comando que hace un tiempo antes de ejecutar la linea siguiente.
LeerArchivoSettings() 'llama a la subrutina que se encargara de leer el archivo Settings y mostrarlo en el TextArea
End

Public Sub LeerArchivoSettings() 'rutina que se encargara de leer el archivo Settings y mostrarlo en el TextArea
Dim ArchivoSettings As File 'declaramos una variable de tipo archivo para poder leer los datos de un archivo
Dim LineaX As String 'variable de tipo string que contendra los dato de una linea del archivo que estemos leyendo
Dim RutaArchivoSettins As String 'variable de tipo string que contendra la ruta del archivo a leer

TextArea1.Clear 'borramos el textarea sino no visualizaremos los datos como corresponde
RutaArchivoSettins = Settings.Path 'asignamos la ruta del archivo al string

ArchivoSettings = Open RutaArchivoSettins For Read
'open abre un archivo x en la ruta especificada en este caso Settings.path ( )
'For Read indica que abre el archivo solo con intenciones de lectura

'while...wend (El bucle se repite mientras que la expresión es verdadera.)
'Eof devuelve TRUE si estamos al final de un Flujo. (en este caso un archivo)
While Not Eof(ArchivoSettings) 'si eof NO es true ejecute el bluce (comienzo del bluce)
' cuando Eof(ArchivoSettings) es true significa que llego al final del archivo y el bluce no se ejecuta mas
Line Input #ArchivoSettings, LineaX 'lee de a una linea el archivo
' y lo que hay en esa linea lo deposita en lineaX que es una variable de tipo String
TextArea1.Text &= LineaX & gb.NewLine 'va escribiendo en el textarea linea a linea pasando lo que hay en lineax, gb.NewLine es una constante equivalente a poner  LineaX & "\n"
Wend

End

Public Sub BtnGuardar_Click()
Settings.Write(Me) 'ordena que se guarden las coordenadas del FMain en este caso el formulario principal (me) cuando se cierre el formulario.
Settings.Save ' guarda ya todos los datos que ordenaron guardar en el archivo settings
LeerArchivoSettings() 'llama a la subrutina que se encargara de leer el archivo Settings y mostrarlo en el TextArea
End

Public Sub Form_Move() 'evento que sucede cuando movemos el formulario
LabX.Text = "(" & Me.X & ")"
LabY.Text = "(" & Me.y & ")"
End

Código fuente: Settings-write-read-0.0.1.tar.gz