Ampliando el juego

Bien, antes que nada si alguno sigue este blog le pido disculpas por lo abandonado que estaba, no por falta de ganas sino de tiempo.
Vamos a retomar ahora el juego del cine y agregarle algunas funcionalidades.
Por ahora solo podíamos jugar con películas, vamos ahora a dar la posibilidad de elegir con que jugar.
En mi caso elegí GEO(ciudades y países) libros, series de tv y por supuesto, películas.
Vamos a usar también algunos controles nuevos, en primera instancia el frame y los radiobutton.
El frame es un contenedor, lo utilizaremos aquí para agrupar los radioButton.
¿Por qué hacemos esto? Porque solo uno de los radiobutton dentro del contenedor puede estar activo a la vez, y esto nos permite seleccionarlo mediante su propiedad value.
También funcionaría con ponerlos en el formulario que ya de por sí este es un contenedor primario, pero agruparlos en un Frame nos permite “aislarlos” y poner algún otro grupo en el mismo form en caso de ser necesario. Además se ve más ordenado.
Veamos como se ve esto en el Fmain.
O sea, primero añadimos un Frame , le cambiamos el texto mediante su propiedad text, yo puse “Selecciona  tu juego”.

Luego agregamos los cuatro radiobutton y le ponemos el texto que vemos en la imagen. Cambiamos sus nombres por otros que se refieran a su función, por ejemplo rbtpelis, rbtgeo, rbtlibros y rbtseries.

Dejemos esto por ahora y vamos a crear un nuevo módulo .

Para eso vamos al árbol izquierdo, módulo,nuevo módulo. En el formulario que aparece a continuación le ponemos como nombre modlista y le agregamos el siguiente código:

‘ Gambas module file

PUBLIC SUB pelis()

frmjugar.ListBox1.add(“La bella y la bestia”)
frmjugar.ListBox1.add(“La bella durmiente”)
frmjugar.ListBox1.add(“Tarzán”)
frmjugar.ListBox1.add(“las locuras de Dick y Jane”)

END
PUBLIC SUB libros()

frmjugar.ListBox1.add(“Gracias por el fuego”)
frmjugar.ListBox1.add(“Detectives en el parque Rodó”)
frmjugar.ListBox1.add(“el gato con botas “)
frmjugar.ListBox1.add(“Papillon”)

END
PUBLIC SUB series()

frmjugar.ListBox1.add(“Doctor who”)
frmjugar.ListBox1.add(“Hechizada”)
frmjugar.ListBox1.add(“Cosmos”)
frmjugar.ListBox1.add(“Cerca de casa “)
END
PUBLIC SUB geo()

frmjugar.ListBox1.add(“Montevideo”)
frmjugar.ListBox1.add(“Londres”)
frmjugar.ListBox1.add(“Francia”)
frmjugar.ListBox1.add(“Sudafrica”)

END

Por supuesto que este código es muy parcial, deberás de llenar cada procedimiento con la lista que corresponde, usando la misma sintaxis: frmjugar.ListBox1.add(“Sudafrica”)

Donde frmjugar.ListBox1 hace referencia al control y su ubicación, .add al método y la palabra entre paréntesis será la que se agregue al listbox1.

Ahora vamos al frmjugar y en el evento open del mismo colocamos el siguiente código:

‘cargar lista
DIM value AS Boolean
IF
FMain.rbtgeo.Value THEN
modlista.geo
ELSE IF
FMain.Rbtpelis.Value THEN
modlista.pelis
ELSE IF
FMain.rbtlibros.Value THEN
modlista.libros
ELSE IF
FMain.rbtseries.Value THEN
modlista.series
ELSE

END IF
‘  ———-cargar errores,ocultar pelìcula,inicializar timer y lanzar el sub elegir
Txterrores.text = “6”

Lo que está resaltado en negrita es  lo que ya estaba, el codigo que estamos poniendo va en lugar del

Listbox1.Add(“peliculax”)

que se repetía más de 400 veces en el juego original y que era el que cargaba  las películas.

Primero, como siempre declaramos la variable value como boolean

Dim value as boolean

Esto nos dice que value solo tiene dos valores , verdadero o falso (true o false).

IF
FMain.Rbtgeo.Value THEN
modlista.geo

Aquí comenzamos una sentencia condicional If, else if, else.. Comienza preguntando si rbtgeo.value es true, si es así carga el sub geo del modlista, si no es así va recorriendo los radiobutton hasta encontrar el que hallamos elegido.

Solo en el botón elegido el value es TRUE y solo podemos elegir uno por vez, por tanto cargará el procedimiento del botón que esté marcado.

Aquí vemos que para acceder a un control de otro formulario hay que poner antepuesto al nombre del control el nombre del formulario. Y éstos deben ser públicos.

Hasta la próxima

Anuncios
Esta entrada fue publicada en programación y etiquetada . Guarda el enlace permanente.

2 respuestas a Ampliando el juego

  1. Efectivamente alguien sigue aunque con retraso el blog, muy agradecido por compartir tu manera de trabajar con gambas, seguro que me será muy útil.

    Saludos.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s