Juego BuscaCaras: Uso de shuffle (barajar)

Juego Busca Caras:

Uso de shuffle (barajar)

Descripción del juego:

Os dejo un juego para los más pequeños: Se trata de encontrar que cara se repite de las 32 que aparecen aleatoriamente colocadas en un formulario. Tenemos 3 intentos (o vidas), cada vez que nos equivocamos, nos quitará una vida, y si acertamos, añadiremos una vida (como máximo tendremos 3 vidas). Si llegamos a 0 vidas, se acaba el juego :)

Funcionamiento interno:
La función barajar (shuffle) se usa para desordenar las caras que estan almacenadas  en un array de cadenas.
Primero se elige una entre las 32 caras, la cual se elimina del array, y luego se elige otra de las que tenga para añadirla al array, asi tenemos la "cara repetida". Luego desordenamos el array con la función barajar(shuffle).

Para mostrar las cras se usan controles ToolButton, creados en tiempo de ejecución dentro de un contenedor del tipo Hpanel.

Public Sub CrearBotones()

Dim a As Integer

Dim botontmp As ToolButton

Dim listaPresentacion As New String[]

For a = 0 To listacaras.max

listaPresentacion.Add(listaCaras[a])

Next

'quito una cara aleatoriamente

listaPresentacion.Remove(Int(Rnd(0, listaPresentacion.max)))

'añado una cara repetida

caraRepetida = listaPresentacion[Int(Rnd(0, listaPresentacion.count))]

listaPresentacion.Add(caraRepetida)

'barajo

listaPresentacion = ModuleAzar.barajar(listaPresentacion)

For a = 0 To 31

botontmp = New ToolButton(HPanel1) As "botones"

botontmp.Picture = Picture[listaPresentacion[a]]

botontmp.w = 75

botontmp.h = 75

botontmp.Border = True

botontmp.tag = listaPresentacion[a]

Next

End

Código Fuente e instalador .deb: alojado en google drive


Video del programa funcionando:





Nota:
17/11/2015
Gracias a Portano, ya tenemos el programa traducido al Portugués, Francés y Inglés