Para hacer una pausa en la ejecución del código.

Sub Pausa(Tiempo As Byte)
Dim TiempoPausa, Inicio, Final, TiempoTotal
   TiempoPausa = Tiempo   ‘ Asigna hora de inicio.
   Inicio = Timer   ‘ Establece la hora de inicio.
   Do While Timer < Inicio + TiempoPausa
      DoEvents   ‘ Cambia a otros procesos.
   Loop
   Final = Time   ‘ Asigna hora de finalización.
   TiempoTotal = Final – Inicio   ‘ Calcula tiempo total.
End Sub


Vota este artículo:
1 Estrella2 Estrellas3 Estrellas4 Estrellas5 Estrellas (2 votes, average: 3,00 out of 5)
Loading ... Loading ...

Posts anterior y posterior:
«
»