Hacer una pausa de “n” segundos ( Visual Basic )

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

12 comentarios en “Hacer una pausa de “n” segundos ( Visual Basic )

  1. Gracias,me sirvio para confirma esta opcion. Quiero parar una rutina ya que es muy extensa, para poder usar otra opcion en el programa sin tener que salir de este.

  2. ¡Excelente!
    Gracias por tu ayuda desinteresada. Despues de mucho quebrarme la cabeza y no encontrar una solucion adecuada, tu codigo me ha servido demasiado.
    Gracias.

  3. Un excelente código, de la ayuda que viene con visual basic, y creo que nos hace falta un poco mas de empeño en buscar en lo que tenemos disponible.

  4. Una muy buena ayuda para mi, realmente necesitaba algo como esto para simplificar un programa que estoy desarrollando y me ha venido de perlas. Muchas gracias y a seguir así !!

  5. Hola amigo
    No se quien seras
    pero quiero darte las gracias
    me a servido tu aporteee
    graciaaaaaaaaaaaaaaaaaaaaaaaaas
    atte
    AL FIN PODRE DORMIR
    GRACIAAS MAN

Los comentarios están cerrados.