Esta opción si esta activada lo que hace es detectar si una variable no esta declarada y la declara automáticamente, ver el siguiente vídeo que lo dice todo.
Allanando el camino a los iniciados en Gambas, porque programar en Gambas es un placer!!
Esta opción si esta activada lo que hace es detectar si una variable no esta declarada y la declara automáticamente, ver el siguiente vídeo que lo dice todo.
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.
El manejo de imágenes svg no parece fácil en Gambas3 pero bueno aquí un ejemplo no explicado (por ahora). Este ejemplo te dará una idea de por donde empezar y después hacer tus propios aprendizajes.
' Gambas class file
Private svg1 As SvgImage
Private ImagenX As Image
Private RutaImagen As String
Public Sub Form_Open()
RutaImagen = "distro/archlinux.svg"
End
Public Sub DrawingArea1_Draw()
svg1 = SvgImage.Load(RutaImagen)
DrawingArea1.Width = svg1.Width
DrawingArea1.Height = svg1.Height
ImagenX = New Image(svg1.Width, svg1.Height, Color.Transparent)
Paint.Begin(ImagenX)
svg1.Paint()
Paint.End
Paint.DrawImage(ImagenX, 0, 0)
End
Public Sub distro_Click()
RutaImagen = Last.tag
DrawingArea1.Refresh
End
El ejemplo lo puedes descargar de la Granja de Gambas o también de aquí.
¿Te preguntarás si en fedora 32 se puede instalar la última versión de Gambas estable no?
La respuesta es que sí, pero no es algo sencillo ni tan difícil para lograrlo.
Resulta que esa versión viene en el repo updates-testing por tanto hay que activarlo solo para la instalación de gambas.
Primero les cuento como yo lo hice, abres dnfdragora, Archivo, repos, tildas en updates-testing y le das en aplicar.
Cuidado en la selección pues hay otras versiones la 3.14 y la 3.15.1
Después de instalar gambas3 destildamos nuevamente el repo updates-testing
(al parecer este método se puede hacer por linea de comando, algo parecido a esto: dnf —enable-repo update-testing install gambas3 ) pero... no se, no lo use, así que van por su cuenta, investiguen un poco)
Dejar Gambas3 pronto para compilar para todas las distribuciones que permite gambas3.
Instalaremos estos paquetes:
sudo dnf install autoconf
sudo dnf install automake
sudo dnf install debhelper
sudo dnf install fakeroot
sudo dnf install pacman
así lo hice yo pues no sabia que paquetes faltaban por eso hice uno a uno pero seguramente se pueda hacer así:
sudo dnf install autoconf automake debhelper fakeroot pacman
Mejor aún: sudo dnf install debhelper fakeroot pacman
(al instalar el paquete debhelper el sistema pedirá también autoconf automake pues depende de ellos)
(pacman para compilar para archilinux)
Nos quedará así:
bueno después lo voy completando...
saludos
Nota: este método seguramente servirá para mate, lxde, cinamon etc.
VisualizarTexto es un pequeño proyecto y un ejemplo que podrás descargar de la Granja de Gambas.
El mismo lo que hace es aparecer en el menú contextual como se muestra en la siguiente imagen. Posamos el puntero del ratón sobre el archivo de texto y clic en el botón derecho.
Al hacer clic en 'Abrir con VisualizadorTexto' se ejecutara el programa y en el evento open ejecutará el siguiente código.
Al abrir el programa Args nos devolverá dos datos el primero es el nombre de la aplicación (lo ignoramos con continue) y el segundo sera el path del archivo.
Para visualizar el texto en un textarea usamos File.Load y listo.
Para que todo esto funcione en el momento de la compilación debemos agregar el mimetype en esta ventana
¿Pero como se el mimetype que tengo que añadir?
Simple usa el comando mimetype seguido del archivo a averiguar su mimetype.
Ejemplo: mimetype Fretless.webm
nos da: Fretless.webm: video/webm
Lo que tenemos que agregar al mimetype es: video/webm
Bueno después mejoro el tutorial, saludos.
Nota: para probar el proyecto compílenlo e instálenlo
(el proyecto esta en la granja).
Este manual de como instalar VisorRV1960(qt5) es para el sistema operativo Linux Mint 20 Ulyana de 64 bits, si bien pudiera servir para sistemas similares.
Primer paso instalar Gambas3 3.15.1
Abrimos una terminal o presionamos Ctrl+Alt+t y ejecutamos el siguiente comando.
sudo add-apt-repository ppa:gambas-team/gambas3 && sudo apt-get update && sudo apt-get install gambas3
Segundo paso instalar un componente extra que VisorRV1960 necesita llamado gambas3-gb-qt5-ext
sudo apt install gambas3-gb-qt5-ext
Tercer paso instalar otras dependencias:
Instalar youtube-dl (sirve para facilitarte las descargas de videos o audios de youtube)
sudo curl -L https://yt-dl.org/downloads/latest/youtube-dl -o /usr/local/bin/youtube-dl
sudo chmod a+rx /usr/local/bin/youtube-dl
comprobamos si quedo bien la instalación:
youtube-dl --version
si muestra el numero de versión quedo bien, sino y si da este error:
/usr/bin/env: «python»: No existe el archivo o el directorio
Arreglamos con:
sudo apt install python3-pip
sudo pip3 install --upgrade youtube-dl
Instalar diccionario aspell-es:
sudo apt install aspell-es
Finalmente instalar VisorRV1960 (versiones de qt5)
Descarga visorrv1960_0.8.2-0ubuntu1_all.deb de aquí.
sudo dpkg -i visorrv1960_0.8.2-0ubuntu1_all.deb
Nota: la última versión de VisorRV1960 y primera de qt5 estará disponible aquí:
https://sourceforge.net/projects/visorrv1960/files/VisorRV1960%20Qt5/Ubuntu-Kubuntu-Mint.../
Si quieres probar lo último hecho pero a tu riesgo (puede tener muchos fallos) puedes descargar el código fuente, descomprimirlo, abrirlo con gambas3 y ejecutarlo; descargarlo de aquí:
https://sourceforge.net/projects/visorrv1960/files/VisorRV1960%20Qt5/LoUltimoInestable/
Si ves algún error en el manual o tienes problemas con la instalación escribe un comentario y veré en que puedo ayudarte.
Nuestro archivo de ejemplo sera: "/home/juan/Escritorio/SobreFile.odt"
File.Basename:
nos pide la ruta completa del archivo es decir directorio donde se encuentra, nombre de archivo con su extensión.
Print File.BaseName("/home/juan/Escritorio/SobreFile.odt")
nos devolverá este string o cadena: SobreFile
que es el nombre del archivo sin su extensión .odt
File.Dir:
nos pide la ruta completa del archivo.
Print File.Dir("/home/juan/Escritorio/SobreFile.odt")
nos devolverá este string o cadena: /home/juan/Escritorio
File.Ext:
entre los parentesis ponemos la ruta del archivo
Print File.Ext("/home/juan/Escritorio/SobreFile.odt")
nos devolverá un string o cadena que sera solo su extensión: odt
File.Name:
El Name es el nombre del archivo con o sin su extensión, que es el texto que esta después de la ultima barra.
Print File.Name("/home/juan/Escritorio/SobreFile.odt")
nos devolverá el nombre del archivo con su extensión: SobreFile.odt
File.SetBaseName:
nos pide ruta completa del archivo y el nuevo nombre de archivo
Print File.SetBaseName("/home/juan/Escritorio/SobreFile.odt", "SobreFile2")
nos devolverá esta cadena: /home/juan/Escritorio/SobreFile2.odt
como ven solo se cambio el BaseName de SobreFile a SobreFile2
File.SetDir:
nos pide ruta completa del archivo y el nuevo directorio o carpeta
Print File.SetDir("/home/juan/Escritorio/SobreFile.odt", "/home/juan")
nos devolverá una cadena: /home/juan/SobreFile.odt
cambio del directorio /home/juan/Escritorio a /home/juan
File.SetExt:
Ingresamos la ruta completa del archivo y la nueva extensión sin el punto.
Print File.SetExt("/home/juan/Escritorio/SobreFile.odt", "txt")
nos devolverá la siguiente cadena de texto:
/home/juan/Escritorio/SobreFile.txt
como ven solo ha cambiado la extensión de odt a txt
File.SetName:
Nos pide ruta de archivo y el nuevo nombre de archivo y su extensión incluido el punto, se puede dejar el archivo sin extensión si así lo quieres, poniendo 'NuevoFile' solamente.
Print File.SetName("/home/juan/Escritorio/SobreFile.odt", "NuevoFile.doc")
nos devolverá: /home/juan/Escritorio/NuevoFile.doc
después lo continuo, saludos
Debian 10 Buster |
deb http://ftp.de.debian.org/debian sid main
Cuarto paso revisar en synaptic los paquetes de Gambas que faltan tildar e instalarlos.
(pues no se instalan todos completos)
Ahora a disfrutar de gambas, avisen si algo esta mal, saludos.