none
Ejecutar un sub privado cada tres minutos RRS feed

Respuestas

  • Hola E.Peralta,

    Acá tienes un código de ejemplo:

    Public Class SampleCallEveryXMinute
    
         Private WithEvents xTimer as new System.Windows.Forms.Timer
    
         Public Sub New(TickValue as integer)
             xTimer = new System.Windows.Forms.Timer
             xTimer.Interval = TickValue
         End Sub
    
         Public Sub StartTimer
             xTimer.Start
         End Sub
    
         Public Sub StopTimer
             xTimer.Stop
         End Sub
    
         Private Sub Timer_Tick Handles xTimer.Tick
             SampleProcedure
         End Sub
    
         Private Sub SampleProcedure
             'SomeCodesHERE
         End Sub
    
    End Class

    Lo usas así:

    Dim xSub as new SampleCallEveryXMinute(60000) ' 1000 ms = 1 sec so 60000 ms = 1 min
    xSub.StartTimer

    Espero que te sea de ayuda.  Por favor no olvides marcar una respuesta si resolviste tu consulta. Quedo pendiente de cualquier actualización. Gracias por levantar tu consulta en los foros de msdn.

     

    Saludos cordiales

    Gabriel Castro

     ____________________________ 

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    jueves, 10 de septiembre de 2020 1:14
    Moderador

Todas las respuestas

  • Hola E.Peralta,

    Acá tienes un código de ejemplo:

    Public Class SampleCallEveryXMinute
    
         Private WithEvents xTimer as new System.Windows.Forms.Timer
    
         Public Sub New(TickValue as integer)
             xTimer = new System.Windows.Forms.Timer
             xTimer.Interval = TickValue
         End Sub
    
         Public Sub StartTimer
             xTimer.Start
         End Sub
    
         Public Sub StopTimer
             xTimer.Stop
         End Sub
    
         Private Sub Timer_Tick Handles xTimer.Tick
             SampleProcedure
         End Sub
    
         Private Sub SampleProcedure
             'SomeCodesHERE
         End Sub
    
    End Class

    Lo usas así:

    Dim xSub as new SampleCallEveryXMinute(60000) ' 1000 ms = 1 sec so 60000 ms = 1 min
    xSub.StartTimer

    Espero que te sea de ayuda.  Por favor no olvides marcar una respuesta si resolviste tu consulta. Quedo pendiente de cualquier actualización. Gracias por levantar tu consulta en los foros de msdn.

     

    Saludos cordiales

    Gabriel Castro

     ____________________________ 

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    jueves, 10 de septiembre de 2020 1:14
    Moderador
  • Hola E.Peralta,

    ¿Alguna novedad sobre tu pregunta? ¿Han sido útiles las respuestas proporcionadas? Por favor no olvides marcar una respuesta si resolviste tu consulta (debajo de cada post hay una opción que dice "Marcar como respuesta").

     

    Saludos cordiales

    Gabriel Castro

     ____________________________ 

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    martes, 22 de septiembre de 2020 17:39
    Moderador