Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: e500 en 6 Septiembre 2010, 01:10 AM

Título: [SOLUCIONADO] Timer o Alternativa
Publicado por: e500 en 6 Septiembre 2010, 01:10 AM
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
Título: Re: [PREGUNTA] Timer o Alternativa
Publicado por: xkiz ™ en 6 Septiembre 2010, 01:14 AM
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
Título: Re: [PREGUNTA] Timer o Alternativa
Publicado por: Psyke1 en 6 Septiembre 2010, 01:21 AM
O asi:

Código (vb) [Seleccionar]

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]

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¡! :P
Título: Re: [PREGUNTA] Timer o Alternativa
Publicado por: e500 en 6 Septiembre 2010, 01:53 AM
Gracias a los 2 :) me sirvio de mucho

Saludos