JUEGO DE MEMORIA EN VISUAL BASIC
e-mail: dalejrios@hotmail.com
Código Fuente de Juego de Memoria
Option Explicit
Public ContadorSegundos As Integer
Public ContadorMinutos As Integer
PublicContadorHoras As Integer
Public NumeroAciertos As Integer
Public NumeroFallos As Integer
Public NumeroParejas As Integer
Public ImagenNumero1 As Integer
Public ImagenNumero2 As Integer
PrivatePermisoBorrar As Boolean
Private PrimeraUbicacion(1, 2) As Integer
Private SegundaUbicacion(1, 2) As Integer
Private MatrizMemoria(4, 5) As Integer
Private MatrizAciertos(4, 5) As BooleanPrivate Sub Form_Load()
Call EstablecerImagenesIniciales
Call EstablecerMatrizDeImagenes
End Sub
Private Sub Imagen_Click(Index As Integer)
Select Case Index
Case 0
Imagen(0).PaintPictureLoadPicture(".\Imagenes\Nave.jpg"), 0, 0,
1000, 1000
Call EstablecerDatos(0, 0)
Case 1
Imagen(1).PaintPicture LoadPicture(".\Imagenes\Libros.jpg"), 0, 0,
1000, 1000
Call EstablecerDatos(0, 1)
Case 2Imagen(2).PaintPicture LoadPicture(".\Imagenes\Auto.jpg"), 0, 0, 1000,
1000
Call EstablecerDatos(0, 2)
Case 3
Imagen(3).PaintPicture LoadPicture(".\Imagenes\Sonido.jpg"), 0, 0,
1000, 1000
CallEstablecerDatos(0, 3)
Case 4
Imagen(4).PaintPicture LoadPicture(".\Imagenes\Casco.jpg"), 0, 0,
1000, 1000
Autor: Diego Ríos. Alias: DALEJ
e-mail: dalejrios@hotmail.com
CallEstablecerDatos(0, 4)
Case 5
Imagen(5).PaintPicture LoadPicture(".\Imagenes\Rosas.jpg"), 0, 0,
1000, 1000
Call EstablecerDatos(1, 0)
Case 6
Imagen(6).PaintPicture LoadPicture(".\Imagenes\Corazon.jpg"), 0, 0,1000, 1000
Call EstablecerDatos(1, 1)
Case 7
Imagen(7).PaintPicture LoadPicture(".\Imagenes\Nave.jpg"), 0, 0,
1000, 1000
Call EstablecerDatos(1, 2)
Case 8
Imagen(8).PaintPictureLoadPicture(".\Imagenes\Casco.jpg"), 0, 0,
1000, 1000
Call EstablecerDatos(1, 3)
Case 9
Imagen(9).PaintPicture LoadPicture(".\Imagenes\Mundo.jpg"), 0, 0,
1000, 1000
Call EstablecerDatos(1, 4)
Case 10...
Regístrate para leer el documento completo.