En este grupo En todos

Foro de Lenguaje basic



juego de las parejas

Escrito por Garland
el 09/05/2005
Hola chicos, soy un poco novato en programación de visual basic, pero agradecería que me resolvierais algunos problemas.

Tengo que hacer el juego de las parejas, el de encontrar la foto identica. Y necesito saber:
1) como podría comparar la ruta de las imagenes, es decir, si la ruta de esta imagen es la misma que la de otra imagen, hazme esto
2) necesito saber alguna manera para que me ordene las fotos de manera aleatoria (que una vez este en un sitio y en otra partida este en otro sitio)
Espero que me ayudeis y que no sea mucho xD. Gracias
Dani
Barcelona, España
Escrito por Dani
el 09/07/2005
    Mensaje original: Enviado por Garland
    hola chicos, soy un poco novato en programación de visual basic, pero agradecería que me resolvierais algunos problemas.

    Tengo que hacer el juego de las parejas, el de encontrar la foto identica. Y necesito saber:
    1) como podría comparar la ruta de las imagenes, es decir, si la ruta de esta imagen es la misma que la de otra imagen, hazme esto
    2) necesito saber alguna manera para que me ordene las fotos de manera aleatoria (que una vez este en un sitio y en otra partida este en otro sitio)
    Espero que me ayudeis y que no sea mucho xD. Gracias

Aqui Te Envio Un Juego Entero Respondiendo A Todas Tus Preguntas

Funciona Esta Provado

Crear Una Matriz De Controles De 8 Imagenes "Image1(index)"

En La Carpeta De La Aplicacion Poner 4 imagenes I nombrar imagen1,imagen2,imagen3,imagen4

Dim MatrizResultados(8) As Integer

Private Sub Form_Load()
Dim Index As Integer, Num As Integer, Indeo As Integer
Randomize
For Index = 0 To 7 Step 1
Reiniciar:
Num = Int(8 * Rnd) + 1)
For Indeo = 0 To 7 Step 1
If Num = MatrizResultados(Indeo) Then GoTo Reiniciar
Next Indeo
MatrizResultados(Index) = Num
Next Index
For Index = 0 To UBound(MatrizResultados) Step 1
If MatrizResultados(Index) > 4 Then MatrizResultados(Index) = MatrizResultados(Index) - 4
Next Index
End Sub

Private Sub Image1_Click(Index As Integer)
Static Apretado As Boolean, Numero As Integer, IndiceApretado As Integer
If Not Apretado Then
IndiceApretado = Index
Numero = MatrizResultados(Index)
Image1(Index). Picture = LoadPicture(App. Path & "\Imagen" & Numero & ". Ico")
Apretado = True
Else
Image1(Index). Picture = LoadPicture(App. Path & "\Imagen" & MatrizResultados(Index) & ". Ico")
If Numero = MatrizResultados(Index) Then MsgBox "Conseguida Una Pareja"
If Not Numero = MatrizResultados(Index) Then
MsgBox "Una Pareja Erronea"
Image1(Index). Picture = LoadPicture
Image1(IndiceApretado). Picture = LoadPicture
End If
Apretado = False
End If
End Sub


Franz Bartels
Meta, Colombia
Escrito por Franz Bartels
el 24/10/2006

Hola amigos mi nombre es Franz y tambien necesito el codigo del juego de las parejas, no se programar nada en Visual Basic pero quiero aprender, como hago para Crear la Matriz De Controles De 8 Imagenes "Image1(index)" de la cual se habla en el codigo.

MUCHAS GRACIAS



Escrito por Elreyleondias
el 16/12/2008

Muchas gracias por el codigo!


quiero ver si al final le puedo agrega un boton de reiniciado

x oportunidades cuando te equivocas

y un score



apenas lo tenga lo subo!


gracias de nuevo!