Página 1 de 1

Como poner tiempo para ejecucion de If ? VB

Publicado: 04 Ago 2009, 10:57
por Invitado
Hola compañeros de Indetectables Un nuevo interrogante para poder seguir avanzando y aprendiendo.

¿como podria poner un retraso en la ejecucion de una parte del code de un proyecto?

Ejemplo: tenemos una Instruccion condicional IF pero antes de leer y ejecutar la operacion quisieramos que esperara unos segundos o talves algun minuto.

Pienso que esto servira de mucho para muchas funciones.
Seria lo mismo que utiliza una Bomba Logica.


Re: Como poner tiempo para ejecucion de If ? VB

Publicado: 04 Ago 2009, 12:06
por m3m0_11
utiliza la API Sleep

Código: Seleccionar todo

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
Dim FUCK as string
FUCK = "Esperemos 8 segundos antes de mostrar otro mensaje!"
Msgbox FUCK
Sleep 8000
If FUCK = "Esperemos 8 segundos antes de mostrar otro mensaje!" Then
End If
End Sub
salu2

Re: Como poner tiempo para ejecucion de If ? VB

Publicado: 04 Ago 2009, 12:32
por Invitado
Ok voy a examinar y provar a ver que tal Gracias.

Re: Como poner tiempo para ejecucion de If ? VB

Publicado: 17 Sep 2009, 02:16
por ice_mumi
Tambien podes usar un timer para eso.
Pero prefiero la opcion que te dio m3m0_11

Re: Como poner tiempo para ejecucion de If ? VB

Publicado: 20 Sep 2009, 06:21
por The_Cracker
para eso existen los Timers en VB para poner tiempos a sucesos y eventos.
Usa un timer ke haga la función ke rekieres, solo hazlo llamar desde otro sub para ke se active
o desactive y dentro del Sub Timer1 (EJEM) le agregas la llamada directa u otra llamada a una sub función
(Piensa) La cosa es facil.....

Re: Como poner tiempo para ejecucion de If ? VB

Publicado: 21 Oct 2009, 12:08
por ShadeHack
m3m0_11 escribió:utiliza la API Sleep

Código: Seleccionar todo

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
Dim FUCK as string
FUCK = "Esperemos 8 segundos antes de mostrar otro mensaje!"
Msgbox FUCK
Sleep 8000
If FUCK = "Esperemos 8 segundos antes de mostrar otro mensaje!" Then
End If
End Sub
salu2
Buenisimo m3mo, ciempre dejando algo bueno en foro