lunes, 29 de febrero de 2016

Rutas que debemos conocer



Aquí iré añadiendo rutas relacionadas con la programación gambas.


/home/tu_usuario/.config/gambas3


ruta donde la clase settings guarda sus datos en un archivo de texto simple
con la extensión  NombreAplicación.conf



/home/tu_usuario/.local/share/gambas3







/home/tu_usuario/.local/share/gambas3/src

Ruta donde gambas descarga los proyectos de la granja.
Cada nombre de carpeta corresponde al nombre del autor.

Dentro de cada carpeta están los proyectos descargados de ese autor.





/tmp/gambas.1002 

 Carpeta de trabajo temporal de gambas, el numero 1002 puede variar creo no estoy seguro.




/usr/share/gambas3/examples/

Carpeta donde esta los ejemplos viejos de gambas 3.1.1 (si se instalaron)




miércoles, 24 de febrero de 2016

Usando Message.Optional

Dejo este ejemplo de Message.optional tal vez poco conocido.

Saludos y comenten.


' gambas class file

'by postapase
'necesario activar componente gb.settings, sino tira error (identificador desconocido:Settings)
'osea Message.Optional trabaja en conjunto con settings (gb.settings)
'en el archivo settings ubicado en /home/tu.usuario/.config/gambas3 se ve asi:
'[HiddenMessage]
'VerMensaje = True

'[HiddenMessage] es el nombre de la key predeterminada de Message.Optional
'VerMensaje es el nombre del valor que nosotros elegimos.

Public Ver As Boolean

Public Sub Form_Open()

Ver = Settings["HiddenMessage/VerMensaje", False]
Message.Optional("Esto es un ejemplo de Message.Optional!", "Aceptar", "VerMensaje")

End

Public Sub Button1_Click()

Settings["HiddenMessage/VerMensaje"] = False
Settings.Save

End

Public Sub Button2_Click()
Form_Open()
End


Descargar Código fuente: DesactivarActivarAviso-0.0.1.tar.gz?dl=0



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






martes, 2 de febrero de 2016

Ejemplo de DFree






En mi programa Taller2015 uso un pendrive viejo de 512 megas jajaja, si si es reviejo pero lo uso para los respaldos automáticos del programa y me di cuenta de que era necesario saber cuanto espacio libre quedaba.
Y buscando en gambas encontré el comando DFree perteneciente al grupo Funciones para Archivos y Carpetas , aquí les dejo un ejemplo muy parecido de como lo utilice.


' gambas class file

'Usando DFree by postapase

Public Sub Form_Open()

Me.Title = Application.Name
TextBox1.Text = User.Home
EspacioDisponible(User.Home)

End

Public Sub Button1_Click()

Dialog.Path = User.Home 'Asigna la ruta predeterminada de dialog cuando se abre)

If Dialog.SelectDirectory() Then Return ' si no se selecciona un directorio dialog devuelve true y retorna
' no haciendo nada y no ejecutando las lineas siguientes. (

TextBox1.Text = Dialog.Path 'pega la ruta elegida en textbox1

EspacioDisponible(Dialog.Path) ' llama a la subrutina EspacioDisponible

End


Public Sub EspacioDisponible(dir As String)

TextLabel1.Text = "Espacio disponible: <b>" & Format$(CString(Dfree(dir) / 1000000), "#.#") & " MB</b>"

'dfree retorna un integer en bytes y para saber los MegaBytes dividimos en 1000000
'cstring convierte el intenger en string para poder concatenarlo con el texto y no de error
'format$ le damos un forma de visualizar el resultado a nuestro gusto en este caso yo elegi "#.#"
'que mostrara todos los numeros a la izquierda y solo una cifra a la derecha

End



Descargar código fuente:
https://www.dropbox.com/s/duqudql1xh6da8m/Usando-DFree-0.0.1.tar.gz?dl=0

Asi se ve en el programa Taller2015