Estoy haciendo el juego del ahorcado, y recorro el array por si "letra_introducida" se encuentra en la palabra a aceptar
Código:
For i = 1 To Len(palabra)
If letra_introducida = Mid(palabra, i, 1) Then
'poner temporizador
Call Esperar
lblarray(i - 1).AutoSize = False
lblarray(i - 1).BackColor = &HFF0000 ' Azul
lblarray(i - 1).ForeColor = &HFFFFFF ' Blanco
lblarray(i - 1).Caption = letra_introducida
sw2 = 1
aciertos = aciertos + 1
End If
Next i Me gustaria que al aceptar alguna pues me muestre una pausa de 2 segundos para seguir recorriendo el array, para ello tengo la funcion "Esperar"
Código:
Private Function Esperar()
Dim dife, inicio, fin As Variant
inicio = Format(Time, "hh:mm:ss")
dife = Format("00:00:02", "hh:mm:ss")
fin = Format(TimeValue(inicio) + TimeValue(dife), "hh:mm:ss")
'MsgBox "inicio = " & inicio & " fin = " & fin & " dife = " & dife
While inicio < fin
inicio = Format(Time, "hh:mm:ss")
Wend
End Function Hago esto, por ejemplo si quiero aceptar la palabra "TRAGABOLAS" pues me muestre la primera A, haga una pausa de 2 segundos, me muestre la 2ª "A", haga una pausa de 2 segundos y luego muestre la 3ª "A".
El caso es que no me funcione, parece que hace las pausas pero me muestra las 3 "A" al mismo tiempo.
Agradezco vuestra colaboracion, tambien he probado con Sleep, y nada
problema con temporizador 
Mode Lineal
