SexyMemorice

Iniciado por jack06, 14 Noviembre 2008, 05:58 AM

0 Miembros y 2 Visitantes están viendo este tema.

felix90

lo estoy descargando  :P


Gracias  ;)

DarkMatrix

Oye man he escurriñado tu codigo para ver cual era el problema y lo encontre solo hay que agregar 2 lineas de codigo a tu programa:

en el jMain.frm

Código (vb) [Seleccionar]


Private Sub Content_Click(Index As Integer)
On Error Resume Next
Static Primero As Boolean

If acButton = True Then
    Primero = Not Primero
    'Pregunta si se ha hecho click en el 1er.gráfico
    If Primero Then
        'Almacena el numero del gráfico donde se hizo click
        A = Graf(Index)
        'Almacena el numero del control Picture donde se hizo click
        G1 = Index

        Content(Index).Enabled = False <------- Para que no pueda volver a hacer click en la misma imagen

        'Muestra el gráfico en el Picture donde se hizo click
        LoadResBitmap (A), Content(Index)
    Else
        '*** Estas instrucciones se ejecutan cuando se hace click en segundo gráfico
        'Almacena el numero del gráfico donde se hizo click
        B = Graf(Index)
        'Almacena el numero del control Picture donde se hizo click
        G2 = Index
        'Muestra el gráfico en el Picture donde se hizo click
        LoadResBitmap (B), Content(Index)
        'Evita que se haga click en otro gráfico mientras se compara si acertó en los gráficos
        Container.Enabled = False
        'ejecuta las instrucciones del Timer1 donde se comprueba si se acertó en los gráficos
        Attemps = Attemps + 1
        Timer1.Enabled = True
        TimeScore = True
    End If
End If
        'Reproducimos el sonido correspondiente
        LoadResSound 103

acButton = False
End Sub



y aqui:

Código ( vb) [Seleccionar]

Private Sub Timer1_Timer()
Dim hImg As Integer
'Pregunta si los dos gráficos donde se hizo clic son diferentes

    If A <> B Then
        'Muestra el gráfico inicial en los dos PictureBox
        LoadResBitmap (13), Content(G1)
        LoadResBitmap (13), Content(G2)

        Content(G1).Enabled = True <------- para restaurar el valor del picture si no se acerto

    Else
        'Si los dos gráficos son iguales, los desactiva
        Content(G1).Enabled = False
        Content(G2).Enabled = False
    End If
        'Pregunta si se han acertado los 12 gráficos
        If Total = 12 Then
            ContScore.StopAni
            AniState = -1
            Jugando = False
            Timer2.Enabled = False
            'Reproducimos el sonido correspondiente
            LoadResSound 104
            LoadScoreBox DisplayScore.Text, DisplayTime.Text, CStr(Attemps)
            InitGraphics
            T = 0
            Total = 0
            Minutos = 0
            Segundos = 0
            Attemps = 0
            DisplayTime.Text = "00:00"
            DisplayScore.Text = "--"
            jPlayAgain.Show vbModal
        End If
        Timer1.Enabled = False

        If Jugando = True Then
        Container.Enabled = True
        End If
End Sub


Donde estan las flechas. Saludos xD!

Todo aquello que no se puede hacer, es lo que no intentamos hacer.
Projecto Ani-Dimension Digital Duel Masters (Juego de cartas masivo multijugador online hecho en Visual Basic 6.0)

Desing by DarkMatrix

jack06

jejeje es verdad no me habia fijado de eso error, pero aca el men DarkMatrix  ya corrigio el problema gracias men.

Cita de: seba123neo en 15 Noviembre 2008, 02:40 AM
jaja que ocurrencia...¿ y al final que ganas? las de la foto no... :xD :xD

jaja no ganas nada pero creo k con las chikas ya estas ganando demasiado jojoj  :P 
(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ

Angeldj27

hey jack06  esta muy bueno el code y los aspectos graficos que usaste una preguntita puedo usar algunos graficos de eso para un memoryce flash que hice hace mucho para un colegio de que estaba diseñando algunos juegos interactivos y educativos para niños hace un poco de tiempo y hasi actualizo la imagen de mi proyecto claro y estara sus firmas.

Mi proyecto contemplaba algunas cosas mas pero en definitiva era la misma idea 


"Que vamos a hacer Mañana?..... Lo mismo que hacemos todos los dias Pinky tratar de Conquistar el Mundoooo!!!!!

sempus

 :D jack06 usas visual fox  :D
...si la tuviera detendría el tiempo para verla como lo hago en este momento y seria feliz eternamente...
Descarga openSUSE

jack06

Cita de: Angeldj27 en 17 Noviembre 2008, 15:39 PM
hey jack06  esta muy bueno el code y los aspectos graficos que usaste una preguntita puedo usar algunos graficos de eso para un memoryce flash que hice hace mucho para un colegio de que estaba diseñando algunos juegos interactivos y educativos para niños hace un poco de tiempo y hasi actualizo la imagen de mi proyecto claro y estara sus firmas.

Mi proyecto contemplaba algunas cosas mas pero en definitiva era la misma idea 

Wenas claro con tada confianza puedes usar los graficos esos graficos me las hizo un amigo SONIC eh en cuanto alos juegos pa los niños si los terminas los posteas justo keria algunos para mi hijo  :) yo tambien estoy tratando de hacer un juego para mi hijo pero no se me ocurren ideas pero bueno ya saldra la idea jojo

Cita de: sempus en 17 Noviembre 2008, 16:18 PM
:D jack06 usas visual fox  :D

Claro si utilizo foxpro porque la pregunta????
(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ

sempus

por nada, es que ya somos pocos los que aun lo utilizamos :)
...si la tuviera detendría el tiempo para verla como lo hago en este momento y seria feliz eternamente...
Descarga openSUSE

ssccaann43 ©

Quedo buenisimo... Buen trabajo... :xD
- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"

SONIC88

Me presento soy nuevo por aca, algunos ya me conocen soy SONIC88, mis felicitaciones al creador del juego, jaja, mi campa Jack, weno espero aportar con algo a esta web, aunque a veces no tenga mucho tiempo.

weno mis saludos a todos los del foro desde Chile, suerte y gracias...  :P
∞•••∞ MαЯcΘ™ ∞•••∞

jack06

Cita de: SONIC88 en 23 Noviembre 2008, 02:38 AM
mis felicitaciones al creador del juego, jaja, mi campa Jack

wenas cumpa, el juego se ve bonito gracias ah ty tu eres el k le dio mas vida al juego en los graficos los sonidos, etc mil gracias cumpa Salu2  ;)
(̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ €l $åßîø nø d nµn¢å tødø lø qµ£ Þî£n$å, Þ£®ø $î£mÞ®£ Þî£n$å tødø lø qµ£ d (̅_̅̅_̅(̅_̅_̅_̅_̅() ڪ