Gambas: Introducción
Introducción
Muchos de los programadores han usado Microsoft Visual Basic (en ellos me incluyo) para desarrollos rápidos y no tan entretenidos, sin embargo, este carece de algunos aspectos (creo que al menos hasta la versión 6.0) como una completa programación orientada a objetos, el correcto uso de manejo de errores (aquellos goto’s eran peligrosos), estructuras de datos integradas y avanzadas, etc.
Como muchos de los desarrollos de software de Microsoft, Visual Basic también su competidor del lado del software libre llamado Gambas (ahora en su version 2.0.0).
Gambas es un lenguaje de programación libre derivado de BASIC que esta bajo licencia GNU GPL similar al Visual Basic de Microsoft, con una Interfaz Gráfica que al igual que VB nos permite arrastrar controles hasta el formulario, cambiarles el tamaño, posicion, las mismas propiedades, y programar en los eventos con esa peculiar y sencilla forma de BASIC.
Instalación
Para instalarlo desde Ubuntu solo basta teclear desde consola:
$ sudo apt-get install gambas2
y listo.
También lo puedes bajar de http://gambas.sourceforge.net/
Mi Primer Programa en Gambas
Al abrir Gambas nos preguntará si deseamos crear un nuevo proyecto o abrir uno existente, en este caso, como no hemos realizado nada, abriremos uno nuevo.
Después nos preguntará que tipo de proyecto, elegimos Aplicación gráfica QT sin seleccionar alguna opción por ahora.
Insertamos información del proyecto, como el nombre del proyecto y el titulo que este tendrá en nuestro formulario.
Una vez echo esto, ya podemos empezar a trabajar.
Agregamos los siguientes controles:
- Un Label: con la propiedad texto “Desarrollando Software Libre”
- Un PictureBox: con el nombre de “visor”
- Tres objectos del tipo Slider, con nombre “rojo”, “verde”, “azul” respectivamente así como tres Label’s que describen a los Slider’s.
- Un Textbox: con nombre “micolor”, y con texto “#000000”
Nuestro formulario se verá como en la siguiente figura (da click para ampliarla).
Ahora solo falta la parte de programación. La idea es que nuestro visor cambie de color con forme movemos los Slider’s, mostrándonos en Hexadecimal el valor que le pertenece.
Lo primero que vamos hacer será programar una función que le cambie el color a nuestro visor, para ello vamos a la ventana de código dando doble click en cualquier parte de nuestro formulario.
Una vez ahí, creamos una función que se llamará change_color()
[vb]
PRIVATE FUNCTION change_color()
visor.BackColor = Color.RGB(rojo.Value, verde.Value, azul.Value)
micolor.Text = “#” & Format$(rojo.Value, “00″) & Format$(verde.Value, “00″) & Format$(azul.Value, “00″)
END
[/vb]
Esta función será llamada cada vez que alguno de nuestros Slider’s cambie. Para ello, vamos a la ventana de nuestro formulario, damos click derecho sobre el Slider rojo y seleccionamos Evento -> Change.
Ahí llamaremos a la función change_color()
Nuestro código final estará así.
[vb]
‘ Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PRIVATE FUNCTION change_color()
visor.BackColor = Color.RGB(rojo.Value, verde.Value, azul.Value)
micolor.Text = “#” & Format$(rojo.Value, “00″) & Format$(verde.Value, “00″) & Format$(azul.Value, “00″)
END
PUBLIC SUB rojo_Change()
change_color()
END
PUBLIC SUB verde_Change()
change_color()
END
PUBLIC SUB azul_Change()
change_color()
END
[/vb]
Por último, solo nos falta probarlo, para ello, presionamos F5.
Y así es como se ve.
Enlaces:
http://es.wikipedia.org/wiki/Gambas
http://wiki.gnulinex.org/gambas
Recent Comments