Duda: Parar un segundo en tiempo de ejecución

[Idrialen]

Buenas!

Soy nueva por el Foro, pero reconozco que me ha sido de mucha ayuda otras veces, para varias dudas que me han ido surgiendo.

Ahora me toca escribir, porque para esta no he encontrado ningún "problema real" pero no consigo hacer lo que realmente quiero.
Me gustaría comentaros el tema, y que me digais qué ideas se os ocurren para poder solventarlo.

La idea es el juego de hacer parejas. Una persona hace clic en una carta, se guarda su información en una variable y después hace clic en otra y se hace lo mismo. Si sus valores coinciden bien, sino mal.

Para ello tengo dos arrays de imagenes, uno que se llama cartas y tiene los valores de esas cartas y otro array de fondos para que la carta de abajo no se vea hasta que se haga clic.

Código:

If carta1Tag = "" Then      ' Cojo la primera carta
        carta1Tag = cartas(Index).Tag   ' Guardo el Tag
        carta1Index = Index             ' Guardo su Index
        picFondo(carta1Index).Visible = False   ' Le digo que la imagen que tiene por encima no se vea.
        
    Else ' ya hay una carta cogida anteriormente, repito como en la carta 1

        carta2Tag = cartas(Index).Tag   ' Cojo la segunda carta
        carta2Index = Index
        picFondo(carta2Index).Visible = False
       
       
        If carta1Tag <> carta2Tag Then
            
            ' Aqui no puedo meter un Sleep
            ' Pero quiero quitar el msgbox de Incorrecto y que pase un segundo antes
            ' de que pase a la siguiente instruccion
            
            'MsgBox ("Incorrecto")
            
            picFondo(carta1Index).Visible = True
            picFondo(carta2Index).Visible = True
            
            
            'Vacio los valores del tag y del Index
            
            
        Else
            
            MsgBox ("Correcto")
            ' Vacio los valores del tag y el index
         
            
            
        End If
    End If

El problema que tengo es que al hacer clic en la segunda carta, y en caso de que no sean pareja sale directamente INCORRECTO en el msgbox pero no se llega a ver el dibujo en sí de la carta.

He probado con un Sleep y la imágen no desaparecia.
He probado con Timers pero me repetian algo cada X veces.

Lo único que necesito es que después de pinchar la segunda carta y que se vea la figura pase un segundo hasta que se verifica si son iguales o no.

Espero haberme explicado y que me podais echar un cable con alguna idea. Porque yo ya no sé qué mas probar. A lo mejor es por alguna tontería en la que no me estoy fijando , asi que una ayudita me vendría muy bien xD

Gracias por adelantado!

[pkj]

Yo probaria un timer y algo asi:

Código vb:

Private sub Pausa(byval Tiempo as integer)
  Timer1.Interval=Tiempo
  Timer1.Enabled=true
  Do While Timer1.Enabled=True
    doevents
  loop
End sub
 
Private sub Timer1_Timer()
  Timer1.Enabled=False
End Sub
 

Y antes de mostrar el error pones la pausa

Pausa 1000 ' en milisegundos
MsgBox "...."

No se si lo he probado alguna vez pero es una de las opciones.

Saludos

[franko1809]

Otra opcion al timer seria que utilizes un bucle FOR de 1 a 1000 ó 10000 para que te de unos segundos antes de que vacies tus variables

Por otro lado tambien podrias utilizar un progressbar que seria lo mismo que el FOR
http://www.recursosvisualbasic.com.a...rogressbar.htm

[dsio392i3nkmw9d]

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'usar_____________________________________________ _______
Call Sleep(1000) '1 segundo