[SOLUCIONADO] Timer o Alternativa

[e500]

Hola gente del foro, estuve horas mirando como funciona un timer... y despues de un largo rato usando un mismo timer para una aplicacion que quiero q ejecute cada 2 minutos una funsion del codigo, me he dado cuenta que el timer consume demasiados recursos...

Ahora cuestiono, hay forma de reemplazar el control, o hacer que seamas establa la aplicacion en cuanto a recursos consumo de memoria, y demas... Aquien tiene algun ejemplo o algo que me redusca el consumo del ordenaro...

Ya q solo quiero ejecutar mi aplicacion y q cada 2 minutos ejecute un funsion.

Saludos

[xkiz ™]

creo que cualkiera de esos modos (en si casi lo mismo) te seria mas util que el control Timer

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/131-timer-con-modulo-de-clase.htm

http://www.recursosvisualbasic.com.ar/htm/listado-api/175-timer-con-el-api.htm

[Psyke1]

O asi:

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Wait(ByVal lSeconds As Long)
Dim ActualTime              As Date
Dim FutureTime              As Date
   ActualTime = Second(Now)
   FutureTime = ActualTime + lSeconds
   Do
       DoEvents
   Loop While FutureTime > Second(Now)
End Sub

Y para esperar minutos:

Código (vb) [Seleccionar] Expandir


Option Explicit

Public Sub Wait_Minutes(ByVal lMinutes As Long)
Dim Sgl_Start          As Single
Dim Sgl_End            As Single
   lMinutes = lMinutes * 60
   Sgl_Start = Timer
   Sgl_End = Sgl_Start + lMinutes
   Do While Sgl_End > Timer
       DoEvents
       If Sgl_Start > Timer Then Sgl_End = Sgl_End - 24 * 60 * 60
   Loop
End Sub

DoEvents¡!

[e500]

Gracias a los 2 me sirvio de mucho

Saludos