Inicio › ASP_Volume3 › Timeout/Pause
Advertisement
ASP_Volume3 Miscellaneous #49357

Timeout/Pause

Xeek
★★★★★
4.8 · Descargas: 2,341

You can pause execution of code for the specified duration. Different from "Sleep" api in that it will not lock up the whole program.

AI

Resumen de IA: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Código fuente
original-source 
Sub Pause(Duration As Double)
'example: Pause (0.8) 'pause for .8 seconds
Dim start As Double 'declare variable
  start# = GetTickCount 'store milliseconds since boot
  Do: DoEvents 'start loop
On Error Resume Next 'dunno, kept giving me an error once. so i put this here and it stopped giving me the error
  Loop Until GetTickCount - start# >= (Duration# * 1000) 'loop until the actual time (minus stored time) is greater than or equal to the duration (seconds * 1000 = milliseconds)
End Sub
Comentarios originales (3)
Recuperado de Wayback Machine