Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic - Hacer secuencia de funciones sin tantos timer

Life is soft - evento anual de software empresarial
  Imprimir  
Vista:

Hacer secuencia de funciones sin tantos timer

Publicado por Misael (1 intervención) el 04/09/2003 11:15:42
Me gustaria que alguien me ayudar a resolvers un problema que tengo. Necesito realizar una secuencia en la se hace una accion y que terminada siga la otra en cuestion de fracciones de segundo. Lo he hecho con timers pero necesito muchos y a veces fallan. Si alguien puede ayudarme con alguna funcion
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Hacer secuencia de funciones sin tantos timer

Publicado por Juan (206 intervenciones) el 04/09/2003 12:24:09
Mira si te sirve este código:

Private Sub Form_Click()
ejecutaFunciones
End Sub
Private Sub ejecutaFunciones()
Dim aux As Long
Proc1
aux = timeGetTime
Do
DoEvents
Loop While timeGetTime < aux + 500
Proc2
aux = timeGetTime
Do
DoEvents
Loop While timeGetTime < aux + 400
Proc3
End Sub
Private Sub Proc1()
Me.Print "Se ejectuca proc1"
End Sub
Private Sub Proc2()
Me.Print "Se ejectuca proc2 500 milisegundos después"
End Sub
Private Sub Proc3()
Me.Print "Se ejectuca proc3 400 milisegundos después"
End Sub

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Un comentario sobre el código

Publicado por Juan (206 intervenciones) el 04/09/2003 12:26:47
Como ves durante los elapsos de tiempo se llama a doevents, si no quieres que se ejecuten eventos mientras se ejecuta la secuencia de procedimientos borra las llamadas a doevents.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar