Mi primer componente llamado animales

Buenas aquí ando re feliz pues e logrado crear mi primer componente y lo comparto con ustedes novatos igual que yo.
Hice un planteo en el foro http://www.gambas-es.org/  en este post .
Obtuve dos respuestas una muy interesante sin llegar a ser lo que pedi exactamente y la otra me mandaron a estudiar :( .
Pero... soy curioso y cuando ando con ganas y paciencia lo que busco generalmente lo encuentro pues bien hoy fue uno de esos días.

Primero que nada creamos un nuevo proyecto tildando en Programar un componente, elegimos en tipo de proyecto Aplicación gráfica GTK+, elegimos donde guardaremos el proyecto y que nombre tendra, en mi caso le puse animales.

Segundo borramos las dos clases que el gambas crea de forma predeterminadas llamadas CControl y CContainer ubicadas en la carpeta fuente.
También borramos las dos imágenes png de la carpeta Control ubicada en la carpeta proyectos. en la carpeta control agregamos una imagen a gusto y la renombramos con el nombre de la clase que crearemos en mi caso es animales

Tercero creamos una nueva clase llamada animales (en mi caso) en la carpeta fuentes.

Ahora les dejo las siguientes imagenes y ustedes sabran que hacer osea copiar el codigo en la clase y en el formulario FTest

Bien después de probado el componente en el formulario FTest y todo funciona como queremos, tenemos que crear el archivo de instalación para compartir nuestro componente con el resto del mundo algo que da mucha gratificación jaja y eso que este componente solo sirve para dar nociones de como crear un componente pues  en si no hace nada interesante.

Vamos a Proyecto-->Crear-->Paquete de instalación

y seguimos los siguientes pasos, terminado el proceso se crearan los paquetes dentro de una carpeta y vamos a instalar el paquete deb en mi caso seria postapase-animales_0.0.1-0ubuntu1_all.deb

Después de instalado creamos un nuevo proyecto, luego vamos a Proyecto-->Propiedades-->Componentes y tildamos en animales que es nuestro componente recién creado.

En esta ultima imagen podemos apreciar el componente animales en accion y funcionando perfectamente.

Espero que les sirva para sus estudios y pruebas novatos de gambas jajaja.

Saludos.

Código fuente del componente animales: Animales-0.0.1.tar.gz

Ejemplos de sintaxis en Gambas3 (truco by postapase)

Buenas gente,

Resulta que estudiando siempre aprendemos algun comando nuevo, entendemos como funciona pero he aquí que no encontramos muchos ejemplos de sintaxis, pero... para eso teneis un buen amigo como postapase jaja.

Yo estoy en un proceso de aprendizaje por golpes :( jaja y muchas veces no se la sintaxis de un comando y los ejemplos que encuentro en internet o son escasos o poco entendibles de ahí la necesidad de ver muchos, muchos ejemplos para comprender fácilmente.

Sin mas preambulos les cuento en que consiste el truco:

1. Leer y entender bien este post: juguemos a ser Benoit Minisini

2. Abrimos el proyecto gambas3

3. Vamos a Herramientas-->Encontrar y escribimos en Buscar el comando que deseamos, en este caso yo puse a modo de ejemplo el comando Format

4.Tildamos en Sólo palabras y también en Todos los archivos y clic en el botón Navegar

y gualaaa!!! vemos cientos de ejemplos, bueno saludos y espero les sirva.

Tambien pueden comentar en el blog que les parecio el tutorial jaja.

Saludos.

Format

Aprendiendo un poco sobre el comando Format y las Constantes predefinidas.

' gambas class file

'by postapase

Public Sub Form_Open()
Me.Center 'centra el formulario
DateBox1.Value = Date 'se coloca la fecha del sistema del dia actual
'a la caja de texto del DateBox1

TextArea1.Text &= Format(DateBox1.Value, gb.LongDate) & gb.NewLine
End

Public Sub Button1_Click()
TextArea1.Clear ' borra todo el TextArea1
ComboBox1.Text = "" ' borra el cuadro de texto del ComboBox1
ComboBox1.SetFocus 'da el foco al ComboBox1 y queda el cursor parpadeando
End

Public Sub RadioButton1_Click()
'& concatena cadenas o string, equivalente a:
' TextArea1.Text = TextArea1.Text & Format(DateBox1.Value, gb.LongDate) & gb.NewLine
'gb.newline equivalente a salto de linea o "\n"
'gb.longdate equivalente a (dddd d mmmm yyy)-(domingo 16 noviembre 2014)
'format como lo dice el nombre del propio comando, da formato en este caso a la fecha
'tomando la fecha de DateBox1.value y dandole el formato elegido en este caso
'con la Constante predefinida de gb.LongDate, se puede optar por otras constantes
'como gb.MediumDate, gb.ShortDate o bien 'definirlo de forma personalizada
' por ejemplo con: "dddd, mmm yyyy" en vez de gb.LongDate
TextArea1.Text &= Format(DateBox1.Value, gb.LongDate) & gb.NewLine

End

Public Sub RadioButton2_Click()
TextArea1.Text &= Format(DateBox1.Value, gb.MediumDate) & gb.NewLine
End

Public Sub RadioButton3_Click()
TextArea1.Text &= Format(DateBox1.Value, gb.ShortDate) & gb.NewLine
End

Public Sub Button2_Click()
TextArea1.Text &= Format(DateBox1.Value, ComboBox1.Text) & gb.NewLine
ComboBox1.Add(ComboBox1.Text)
End

Public Sub Button3_Click()
ComboBox1.Clear
ComboBox1.Text = ""
ComboBox1.SetFocus
End

Código fuente: Fecha-0.0.1.tar.gz

Sgn

' gambas class file

' by postapase

Public Sub Button1_Click()
Dim num As Integer

Randomize

num = Rnd(-1000, 1000) 'Rnd elige un numero aleatorio entre -1000 y 1000
'y lo guarda en la variable de tipo integer num

If Sgn(num) = 1 Then 'Sgn analiza el dato integer o numerico dentro de num
'y devuele 1 si el número es positivo o si es negativo devuelve -1
TextArea1.Text &= "El número " & num & " es un número positivo ( " & Sgn(num) & " )" & gb.NewLine
Else
TextArea1.Text &= "El número " & num & " es un número negativo ( " & Sgn(num) & " )" & gb.NewLine
Endif

End