jueves, 6 de agosto de 2009

Gambas primeros pininos

Saludos a la lista, bueno, pues aqui un pequeño avance con esto de Gambas, tal vez comentarán que no tiene nada que ver con PIc's, y en eso tienen toda la razon, sin embargo quería hacer la prueba con un ejemplo de punto_net, y pues funcionó muy bien en GAMBAS, de esta forma quienes vengan del lado oscuro como un servidor, podrán ver que es sencillo migrar desde alla.

Ademas mi motivo es que pudieran probar el paquete debian que he armado con el IDE, para ver que tan distribuible es. Así de esta manera aseguraré, que el codigo fuente generado en gambas, para el control de la tarjeta de servos es funcional. sin embargo, iniciamos despacio, paso a paso.

Por cierto aunque el paquete es Debian, como verán en la imagen tengo ubuntu, y si se instala, en el menú aplicaciones, pero no en juegos, si no en otros, espero ver que si haya sido posible instalar el paquete, y ver los pantallazos de sus escritorios aqui.

Este es el paquete debian http://www.savefile.com/files/2146472

El kernel que tengo es:
2.6.28-11-generic
automake 1.10
autoconf 2.63

Esta es la interfaz cyclops



Este es el código fuente
------------------------------------------------------------------------------------------------
Código:

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()
PictureBox1.Visible = FALSE
RANDOMIZE
END

PUBLIC SUB Button1_Click()

PictureBox1.Visible = FALSE 'Oculta la imagen
Label1.Text = CStr(Int(Rnd() * 10)) 'Elige los numeros
Label2.Text = CStr(Int(Rnd() * 10))
Label3.Text = CStr(Int(Rnd() * 10))
'Si alguno de los anteriores es 7 entonces aparece la imagen y produce un sonido
IF (Label1.text = "7") OR (Label2.text = "7") OR (Label3.text = "7") THEN

PictureBox1.Visible = TRUE

ENDIF

END

PUBLIC SUB Button2_Click()

ME.Close

END
------------------------------------------------------------------------------------------------
bounce Gracias por su amable atención