USE (scripter)

 

En gambas3 podemos generar script, aquí un ejemplo usando "USE". Este script lo que hace es crear una ventana (form) con titulo hola mundo y cuando cierra guarda la posición del formulario y sus dimensiones, esto lo hacemos por medio de gb.settings, en el evento open leemos los datos antes guardados por settings.

Lo primero que debemos hacer es el encabezado del script usando esta linea:

#!/usr/bin/gbs3

para localizar gbs3 con seguridad ejecutamos: which gbs3

Ejemplo: 

juan@debian:~$ which gbs3
/usr/bin/gbs3

Lo segundo declarar mediante USE los componentes de gambas que vamos a necesitar en este caso use dos de los mas comunes y vitales gb.qt5 y gb.settings.

El primero para usar formularios y el settings para recordar configuraciones.
Cada componente sera un string entre comillas y separado por coma de los demás que se agreguen.

Ejemplo: Use "gb.qt5", "gb.settings"

Ayuda:

USE "Componente" [, "Componente" ...]

Solo para Gambas Scripting con gbs3.
Declara que una clase utilizará uno o varios componentes.
Esta declaración debe estar escrita en el encabezado de la clase.
Los componentes se especifican mediante cadenas. Se cargarán la primera vez que se use la clase.

----- Comienzo del Script -----

#!/usr/bin/gbs3

Use "gb.qt5", "gb.settings"

Private FormX As Form

Public Sub Main()

  Print "Hello world"
  Print "Ejecutando Sub Main"

  formx = New Form As "ev"

  With FormX
    .Width = 200
    .Height = 100
    .Title = "Hola Mundo"
    .Show
  End With

End

Public Sub ev_Close()

  Print "Evento Close detectado"
  Settings.Write(FormX)
  Settings.Save

End

Public Sub ev_Open()

  Print "Evento Open detectado"
  Settings.Read(FormX)

End 

----- Fin del Script ----- 

 

Crea un archivo de texto simple con nombre "scripterHolaMundo" y pega todo el código del script.

Dale permisos de ejecución con: chmod +x scripterHolaMundo

Ejecútalos estando en la carpeta donde se encuentra el script con:

./scripterHolaMundo

Bueno espero les sirva para sus aprendizajes, si algo no entienden o lo he explicado mal por favor escriban un comentario, saludos.

Herramienta de programador gambas (limpiaTaller)

Hola!, aquí una idea para facilitar nuestro trabajo diario de programación.
limpaTaller es un pequeño script que elimina el paquete instalado de nuestro proyecto en este caso es taller-2015 pero podría ser tu proyecto.
también borra la carpeta de trabajo del programa taller 2015 y su archivo de configuración ubicado en: "$HOME/.config/gambas3/Taller_2015.conf"

la utilidad de este script es ver si nuestro programa tiene errores, pues al borrar todo el programa comienza de cero y ves si todo anda correctamente.

en mi caso y para mi proyecto necesite ese script pero ustedes tendrán que adaptarlo a su proyecto. Solo hay que aprender un poco de Bash y no es difícil.

aquí un manual básico para empezar:
https://thales.cica.es/rd/glinex/practicas-glinex05/manuales/bash/practica.pdf

---------------  comienzo ---------------------

#!/bin/bash
# Desintalación completa de Taller 2015
echo '*** Desintalación completa de Taller 2015 ***'
carpeta_taller="$HOME/Taller2015"
archivo_config="$HOME/.config/gambas3/Taller_2015.conf"
# Desintalar paquete taller-2015
sudo apt-get purge taller-2015

# Sí el archivo existe lo elimina
if  test -f $archivo_config
then
rm $archivo_config
echo '*** Archivo '$archivo_config' eliminado'
fi

# Sí la carpeta existe la elimina
if  test -d $carpeta_taller
then
sleep 2
rm -r $carpeta_taller
echo '*** Carpeta '$carpeta_taller' eliminada'
fi

echo '*** Tarea completada! ***'
------------- fin ---------------------

Dar permisos de ejecución al script:  chmod 775  nombreScript
Ejecutar script:  ./nombreScript

Saludos gamberos

Ejemplo de chmod de Gambas

Como reto, cambia la propiedad text a "Crear y ejecutar"
y usa el comando shell de gambas para ejecutar el Scrits y por medio de un comentario muéstranos tu modificación del código. Saludos.

' gambas class file

'by postapase

Public Sub Form_Open()

End

Public Sub Button1_Click()
Dim TextoScript As String
Dim Ruta As String

Ruta = User.Home &/ "MiScript.sh"
TextoScript = "#!/bin/sh" & gb.NewLine
TextoScript &= "# by postapase" & gb.NewLine
TextoScript &= "echo Esto es un ejemplo de como usar chmod de gambas" & gb.NewLine
TextoScript &= "echo " & TextBox1.Text
File.Save(Ruta, TextoScript)
'si comentamos chmod nos da este error de permisos al ejecutar el script
'bash: ./MiScript.sh: Permiso denegado
'porque crea el script sin permiso de ejecucion para todos.
' "-rw-r--r--" la solución es usar chmod
Chmod Ruta To "rwxr-xr-x"
'el script ahora esta pronto para ser ejecutado abre una terminal
'anda a tu user home (predeterminado) y escribe
' ./MiScript.sh
'y veras los resulados.
End

chmodScript-0.0.1.tar.gz