Timer-Función de espera

Hola, estoy intentando hacer un procedimiento que funcione como un tiempo de espera, es decir, de acuerdo al tiempo que le indique se quede esperando hasta que termine ese tiempo y recién allí ejecute nuevas instrucciones. Lo que yo quiero es que determinada información se muestre de acuerdo a un tiempo que cada una tiene asignada, por ejemplo información 1 debe durar 1 minutos, cuando termine ese minuto debe aparecer información 2, ahora el programa debe esperar que termine el tiempo de información 2 para mostrar la información siguiente. He probado con el timer pero mientras está contando se continúan ejecutando las instrucciones y por eso se muestra todo de una vez.
¿Conocen ustedes una manera de hacer que el timer se mantenga contando y no ejecue nada hasta que termine de contar y recién allí siga leyendo el resto de instrucciones? ¿O saben como puedo hacer un procedimiento de espera? ¿Se puede sincronizar con un reloj?
Por favor mucho les agradecería la ayuda que me puedan brindar en esto.
Gracias
PD:Esto es un ejemplo de lo que tengo en el código (está en un modulo vas)
Public sub Escribirinformacion(myrecordset as recordset)
tiempo = 2
alarmtime=time+tiempo
'tiempo que debe durar para escribir es de 2 segundos
Contadortiempo.Enabled = True
Contadortiempo.Interval = (tiempo * 1000)
If alarmsounded = True Then
TxtRutina ="....................."
'
'
'una serie de instrucciones para escribir
End If
'Esto está en el formulario
Private Sub Contadortiempo_Timer()
If Time >= alarmtime Then
alarmsounded = True
MsgBox ("Momento de mostrar otro ejercicio")
Else
alarmsounded = False
End If
End Sub

1 respuesta

1
Respuesta de
Buenas, probá con la API sleep, la sintaxis es así:
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Y se puede llamar de la siguiente forma:
Sleep 0&
Saludos
Andrés
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje