Ver Mensaje Individual
  #9 (permalink)  
Antiguo 10/04/2016, 17:09
Predaaator
 
Fecha de Ingreso: agosto-2005
Mensajes: 34
Antigüedad: 18 años, 8 meses
Puntos: 0
Respuesta: Como puedo hacer un retardo en VB 6.0

Cita:
Iniciado por pkj Ver Mensaje
Para gustos los colores.

Yo por ejemplo soy reacio a usar cualquier elemento externo si puedo evitarlo.
Ya sea un objeto que haya que cargar en componentes, ya sea un comando externo, como sería una llamada a API, cualquier cosa que use dlls que puedan no existir en el pc de destino, si puedo evitarla la evito.

Además las pruebas que he hecho con la función Sleep nunca me han resultado como esperaba, de modo que tengo mis propios "Sleeps" para usar cuando los necesito:

Para esperar segundos...

Código vb:
Ver original
  1. Sub Espera(ByVal Segundos As Long)
  2.   Dim Hora As Double
  3.   On Local Error Resume Next
  4.   Hora = Timer
  5.   Do Until Timer >= Hora + Segundos
  6.     DoEvents
  7.   Loop
  8. End Sub
'------------------------------------
y para esperar milisegundos...

Código vb:
Ver original
  1. Sub EsperaMiliseg(ByVal Tiempo As Double)
  2.   Dim HoraActual As Double
  3.   On Local Error Resume Next
  4.   HoraActual = Timer
  5.   Do Until Timer >= HoraActual + (Tiempo / 1000)
  6.     DoEvents
  7.   Loop
  8. End Sub
Y dependiendo del propósito, puedo usar un timer si lo veo conveniente y crear otro tipo de sleep.

Compañeros... la imaginación es nuestro límite.

Saludos.
Muchas gracias por esa respuesta, era exactamente lo que buscaba :D