Dedicado a mis proyectos en Gambas ,un lenguaje de programación parecido al Visual Basic + Java pero ampliamente mejorado y...¡¡para gnu/linux!!.La potencia del gnu/linux sumada a la facilidad del Basic



Consultas, Desarrollo de programas y petición de presupuestos:



martes, 2 de agosto de 2011

Gambas: nueva clase MultiInput

 
 MultiInput

Una nueva clase para  facilitar la introducción de datos en Gambas2





En gambas existe la clase InputBox, con la cual podemos obtener fácilmente del usuario una cadena para asignarla posteriormente a una variable. Un ejemplo:

 Asi, obtenemos el valor de "edad".


Pues bien, he desarrollado una nueva clase , para poder trabajar con mas asignaciones, obteniendo un formulario  como este:

Para poderlo usar en vuestros programas, os paso el código fuente,del cual tendreis que:
- Descomprimirlo y abrirlo con Gambas2.
- Crear el ejecutable (Proyecto/Crear/Ejecutable).
- Os creara un nuevo control personalizado que lo podréis incluir en vuestros proyectos (Proyecto/Propiedades/Componentes/Componentes del usuario)

Os explico a continuación el uso de la nueva clase:

Propiedad/Método Nombre Definición
Atributo titulo Define el titulo del formulario.
Método add Añade una variable,texto de presentación, y opcionalmente valor inicial
Método mostrar Muestra el formulario para rellenar los datos.
Nota: El botón cancelar hara que los valores no se guarden y se muestre “N/A”
Método devuelve Devuelve una cadena de texto del valor de la variable que le hayamos indicado.


Os paso también un ejemplo del uso de la nueva clase.
Esta es la transcripcion del código del ejemplo:

PUBLIC SUB Form_Open()
DIM mu AS NEW MultiInput
mu.titulo = "hola esto es una prueba"
mu.add("nombre1", "nombre usuario:", "ninguno")
mu.add("apellidos1", "primer apellido:", "")
mu.add("apellidos2", "segundo apellido:", "")
mu.add("direccion", "direccion de vivienda:")
mu.mostrar()
TextArea1.Text = mu.devuelve("nombre1") & "\n"
TextArea1.Text &= mu.devuelve("apellidos1") & "\n"
TextArea1.Text &= mu.devuelve("apellidos2") & "\n"
TextArea1.Text &= mu.devuelve("direccion") & "\n"
TextArea1.Text &= "Ahora probamos con una variable que no existe:" & "\n"
TextArea1.Text &= mu.devuelve("dksl") & "\n"
END


Como veis lo primero que hacemos es crear nuestra nueva instancia "mu" del MultiInput.

Luego le voy pasando el titulo del formulario
mu.titulo

Y voy añadiendo variables, primero el nombre, luego el texto de la etiqueta texto que pondra, y el valor por defecto.
mu.add({nombre_variable},{texto de la etiqueta},{valor opcionar})

Luego llamamos al formulario con:
mu.mostrar()

Y para obtener los valores, usamos el método devuelve indicandole el nombre de la variable
mu.devuelve({nombre_variable})

En esta página podéis ver como lo hice:
http://componentesgambas2.blogspot.com/p/multiinput.html

Bueno, espero que os sea util.

Saludos






Nota:
Me podeis ayudar a continuar subiendo programas apuntandoos atraves de este enlace a Beruby

beruby.com - Empieza el día ganando

Gracias