Application.Busy

Nuestros programas muchas veces hacen tareas, en donde el usuario debe esperar, es el momento para encontrar formas visuales de avisarle al usuario de que el programa esta haciendo algo y el usuario debe esperar hasta que el programa termine; una forma de hacerlo gráficamente es usando Application.Busy. (el aviso consistiría en avisarle que el programa esta haciendo algo y que es lo que esta haciendo.)

Tiene dos estados: 0 que equivale a desocupado y 1 que equivale a ocupado
dejando el icono de nuestra aplicación por medio de la propiedad mouse=wait en wait.
También podemos hacerlo visible de otra manera según la imaginación de cada uno.
A modo de ejemplo yo use texto con el clásico movimiento de 3 puntos.

' gambas class file

' by postapase

Public mensaje As String = "Estoy haciendo algo espere..."

Public Sub Button1_Click()

Application.Busy = 1  'otra forma de hacerlo es Inc Application.Busy
LabInfo.Text = mensaje
Timer1.Start

End

Public Sub Button2_Click()

Timer1.Stop
Application.Busy = 0 'otra forma de hacerlo es Dec Application.Busy
LabInfo.Text = "He terminado la tarea asignada"

End

Public Sub Timer1_Timer()

Select Case mensaje
Case "Estoy haciendo algo espere..."
mensaje = "Estoy haciendo algo espere"
Case "Estoy haciendo algo espere"
mensaje = "Estoy haciendo algo espere."
Case "Estoy haciendo algo espere."
mensaje = "Estoy haciendo algo espere.."
Case "Estoy haciendo algo espere.."
mensaje = "Estoy haciendo algo espere..."
End Select

LabInfo.Text = ""
LabInfo.Text = mensaje

End

Public Sub Form_Open()
Me.Title = "Application.Busy"
End

Código fuente

Otras propiedades de Application

Application.Version

Nos da un string con la versión de nuestra aplicación.

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

Como crear un comando para Linux en Gambas

Creamos un nuevo proyecto gambas de tipo consola y pegamos este código.
luego lo copilamos, despues intalamos el paquete .deb, y despues lo probamos en la terminal.

' gambas module file
'by postapase

Public Sub Main()
 Dim modificador As String

 modificador = Application.Args[1] 'esto lo aprendi de Shell

 Select modificador
   Case "arquitectura"
     Shell "uname -m"
   Case "codename"
     Shell "uname -n"
   Case "--help"
     Print Application.Name & "-" & Application.Version
   Case Else
     Print "modificador desconocido"
     Print "escriba  'PcInfo --help'"
 End Select

End

necesario registrarse en el foro, código fuente:
http://www.gambas-es.org/download.php?id=617

Saludos, comenten....