Realizar una parada del programa de X segundos

Esta función, es la más exacta que he encontrado… ya que funciona con milisegundos…., debes pasarle los milisegundos que quieres que espere la aplicación…. (segundos * 1000)… 😉

Declare Function GetTickCount Lib "kernel32" () As Long

Sub EsperaTicks(ByVal TicksEsperando As Long)
    Dim TicksIniciales As Long
    TicksIniciales = GetTickCount() + TicksEsperando
    Do While TicksIniciales > GetTickCount()
        DoEvents
    Loop
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s