como ejecuto una funcion cada X segundos?

Iniciado por Petro_Boca, 9 Septiembre 2010, 04:11 AM

0 Miembros y 2 Visitantes están viendo este tema.

Petro_Boca


ignorantev1.1


Petro_Boca

Cita de: ignorantev1.1 en  9 Septiembre 2010, 04:17 AM
Timer!

es lo q pense, pero me podes dar un ejemploÇ?

nunca lo supe usar a ese relojito feo xd

ignorantev1.1

antes que nada pones un Relojito y en "interval" le pones el tiempo que trascurrira entre cada ejecucion de la funcion(por ejemplo 100) y le pones en "Enabled" le pones true
Código (vb) [Seleccionar]

Private Sub Timer1_Timer()
    Call diHola
End Sub

Private Sub diHola()
    MsgBox "hola!"
End Sub



BlackZeroX


Código (vb) [Seleccionar]


with Timer1
    .interval = 1000 ' 1 Segundo
    .enabled=true
end with



Dulces Lunas!¡.
The Dark Shadow is my passion.

Petro_Boca

Cita de: Petro_Boca en  9 Septiembre 2010, 04:18 AM
Cita de: ignorantev1.1 en  9 Septiembre 2010, 04:17 AM
Timer!

es lo q pense, pero me podes dar un ejemploÇ?

nunca lo supe usar a ese relojito feo xd

solucionado

Código (vb) [Seleccionar]


  Private Sub form_load()
 
Timer1.Interval = 1
Timer1.Enabled = True

 
 
 
   End Sub



para el timer

Código (vb) [Seleccionar]


Private Sub Timer1_Timer()
Timer1.Enabled = True
codigo
End Sub



ese es el q uso y funca u_u :P

BlackZeroX


Código (vb,3) [Seleccionar]


Private Sub Timer1_Timer()
Timer1.Enabled = True
codigo
End Sub



Por lo gica ya esta en True asi que obvia esa linea (LA resaltada)

Código (vb) [Seleccionar]


Private Sub Timer1_Timer()
codigo
End Sub



Dulce Infierno Lunar!¡.
The Dark Shadow is my passion.