Foro de elhacker.net

Hola!

necesito ejecutar una funcion despues de los 5 segundos abierto el FORM.

osea, q se ejecuta una vez, no cada 5 segundos..

algun ejemplo :S?

Gracias :)

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

Private Sub Form_Load ()
    Me.Show
    Call Sleep (5000)
    'Call Function
End Sub

DoEvents¡! :P

Timer cada 5 segundos, una vez que se ejecute lo deshabiltas :)

NOTA: Odio el sleep, porque hace parecer que la aplicacion "se tildo"

O asi:

http://foro.elhacker.net/programacion_visual_basic/solucionado_timer_o_alternativa-t304050.0.html;msg1508955#msg1508955

DoEvents¡! :P

jaaj pero lo q yo quiero es abrir el from y que despues de 5 segundos se ejecute la funcion.

no q el from se abra en 5 segundos ^^

Quitas el Me.Show y listo...

DoEvents¡! :P

lo unico q hice fue poner en "general" esto:

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

y en from_load (antes de la funcioon)

Call Sleep(10000)

Tienes que poner Me.Show antes del sleep ¬¬

Pero si el no quiere mostrarlo antes de los segundos...

y eso como se hace :P

La idea no seria hacerlo en el Load, sino hacer un sub main luego de instanciar el formulario :)

Private Sub Timer1_Tick()
   '' CODIGO
   Timer1.Enabled = false
End sub
 

:¬¬ lee algun manual de algoritmos :)

ah sisi ya lo habia echo, solo me faltaba saber como desactivarlo xd

q caraaaajoooo pongo Timer1.Enabled = false, en el mismo codigo del timer(para q se desactive cuando ejecuta la funcion), pero sigue activo :/

Private Sub Timer1_Tick()
   '' CODIGO
   Timer1.Enabled = false
End sub
 

FAIL MIO XD... el codigo es

Private Sub Timer1_Timer()
   '' CODIGO
   Timer1.Enabled = false
End sub
 

Estaba en .net antes :silbar:

Yo lo probe y funciona u.u poniendo el interval a 5000 :P Aunque por alguna razon ejecuta 2 veces ._. (FAIL... no habia borrado el Debug xDDD)

issi, yo lo tenia bien, pero no se desactiva -_-

deja de citar todo el mensaje anterior!!

Que codigo tienes ?

FFFFFUUUUUUUUUUUUUUU :@

te lo regalo

http://www.sendspace.com/file/ygdzpd

No tengo la menor idea que intentas hacer, pero a mi me funciona perfecto :P

con el goto erro, se cierra el form2 y se vuelve a abrir.

pero el timer hacia q se cierre y se abra todo el tiempo (porq daba error, n encontraba unas cosas.. osea el error es normal, pero NO TENDRIA PORQ SAR ERROR SI EL TIMER ESTUBIERA DESACTIVADO

Por qué no creas un tread, lo lanzas apenas se abre la aplicación y en ese tread haces el sleep?

Pero es normal cuando tienes errores de logica :P
Cuando se cierra y se habre el form... adiviina, el Timer vuelve a estar en True!!! :P

 :¬¬ :laugh: :laugh: ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) :¬¬ :¬¬ :¬¬ :¬¬ :¬¬ :laugh: :laugh: :laugh: :laugh: :laugh: :laugh: ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-) ;-)

el programa hace esto:

se logea, y nada mas ;D , pero con el timer..

pones los datos, abre el from2, a los 5 segundos se logea, si hay error se reinicia el form2..

pero ami me hace esto:

pones los datos, abre el from2, a los 5 segundos se logea, se vuelve a logear (proboca error), y se reinicia la apli.-, y entra en unna "Bola" de reinicios   :¬¬

.
Sleep() no es faltible ya que lo que hace es Dormir X tiempo al hilo actual xS!¡.

aqui tienes una optativa!¡.

 
Option Explicit
 
Private Declare Function WaitMessage Lib "user32" () As Long
 
Enum eTime
    Horas = 3600
    Minutos = 60
    Segundos = 1
End Enum
 
Public Sub Wait(ByVal vToWait&, Optional ByVal ThisWait As eTime = Segundos, Optional ByVal UseAllProc As Boolean = False)
Dim vDateE      As Date
    vDateE = DateAdd("s", vToWait& * (ThisWait + 0), Time)
    Do While vDateE > Time
        Call WaitMessage
        If Not UseAllProc Then DoEvents
    Loop 
End Sub
 
 

Uso:

 
Option Explicit
 
Private Sub Form_Load()
    Call MsgBox("segundos")
    Call Wait(5, Segundos, False)
    Call MsgBox("minutos")
    Call Wait(1, Minutos, True)
    Call MsgBox("Fin")
End Sub
 
 

Dulces Lunas!¡.

Si quieren borren esto

Porque demonios Citas el mensaje anterior Petro_Boca... Se entiende claro a quien respondes!¡.

Dulces Lunas!¡.