gambas otro paquete deb y sliders

Advertencia.- Todos estos mensajes sobre gambas, los estoy realizando desde un foro, denominado foro activo, que trata sobre programación de electrónica desde entornos linux, además si desean consultarla, solo deben registrarse, esta muy buena, la recomiendo.

**************************************************************************************
Buena noche compañeros listeros, bien ahora presento otro programa hecho en gambas, se que pensaran que esta parte que estoy publicando no corresponde, sin embargo les pido paciencia

Bien esta vez se trata de como manejar controles slider + control spinbox haciendo que un background de un picturebox cambie de color, bien es cierto que tome como referencia el codigo fuente publicado en esta pagina, http://blog.ihtoa.org/2008/07/08/gambas-introduccion/ , a quien agradezco que haya colocado su codigo, sin el cual por el momento no me seria posible haber avanzado mas
.

bien AQUI coloco el paquete .deb

ahora AQUII coloco el codigo fuente -- Para que veas las propiedades aqui vienen




El codigo fuente esta aqui
************************************************************************************

Código:


' Gambas class file
' Esta basado en un ejemplo que tome de la siguiente pagina web
' http://www.nabble.com/Saber-que-boton-del-spinbox-se-ha-pulsado-td21523755.html
' http://blog.ihtoa.org/2008/07/08/gambas-introduccion/


PRIVATE FUNCTION Cambia_color()
'Esta funcion será llamada cada vez que nuestro slider cambie
PictureBox1.BackColor = Color.RGB(sldRojo.Value, sldVerde.Value, sldAzul.Value) ' le pone color al backG
txtMiColor.Text = "#" & Format$(sldRojo.Value, "00") & Format$(sldVerde.Value, "00") & Format$(sldAzul.Value, "00")
' Al textbox le imprime el valor del color que esta tanto en el slide, como en el spinboX
END


PUBLIC SUB sldRojo_Change()

Cambia_color()
spinRojo.Value = sldRojo.Value 'Cuando cambiamos el valor de slide tambien se asigna al spinner

END

PUBLIC SUB sldVerde_Change()

Cambia_color()
spinVerde.Value = sldVerde.Value
END

PUBLIC SUB sldAzul_Change()

Cambia_color()
spinAzul.Value = sldAzul.Value
END

PUBLIC SUB spinRojo_Change()
sldRojo.Value = spinRojo.Value 'Cuando cambiamos el valor del spinner tambien se cambia el del slide
Cambia_color()

END

PUBLIC SUB spinVerde_Change()

sldVerde.value = spinVerde.Value
Cambia_color()

END

PUBLIC SUB spinAzul_Change()

sldAzul.Value = spinAzul.Value
Cambia_color()

END

*************************************************************************************

La intencion de esto es que pueda controlar los servos, usando los slider, y viendo el resultado en los spinbox, pero si quiero un control mas preciso, puedo usar los spinbox!!!, como lo hago en el caso de estos colores, sin embargo, mi tarjeta controladora, funciona con caracteres ascii, y no con numeros, cada caracter ascii corresponde a un servo y cada caracter, corresponde a un avance positivo o negativo del servo. Hasta el dia de hoy he estado utilizando minicom, sin embargo para hacer almacenamiento de valores, lo hacia desde la tarjeta, lo cual hasta cierto punto la eeprom del micro, un pic16F628A funciona, pero pues queda muy limitado; debido a lo anterior, utilizaré un programa hecho en GAMBAS para hacer estas tareas y quitarle carga al micro, esto de momento.

veamos como irá quedando nuestro proyecto y tambien espero que a alguien del foro que se vaya interesando en usar GAMBAS, le sirvan estas breves notas como referencia y ayuda.

Gracias por su atencion