[RESOLVED] Start my private sub at every 2 minute...

[luca90]

I need to start at every 2 minute a private sub stored in a form1.
How to?
Never used.

[Joe Caverly]

Use a timer control to execute a subroutine (sub) at regular intervals.

Add a Timer Control to Your Form
Open your VB6 project.

From the toolbox, drag and drop a Timer control onto your form.

Double-click on the Timer icon to open the code window for the Timer1_Timer() event

Set the Timer Interval
In the Timer1_Timer() event,
specify the code you want to run every 2 minutes.

Set the Interval property of the Timer control to the desired interval in milliseconds.

For 2 minutes,
set it to 120000 (2 minutes × 60 seconds/minute × 1000 milliseconds/second).

Example Code:

Private Sub Form_Load()
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    ' Your code here (e.g., call your subroutine)
    Call YourSubroutine
End Sub

Joe

[VanGoghGaming]

Max value for Interval is 65535...

[Zvoni]

Max value for Interval is 65535...

Then instead inside the Timer-Event poll the Tickcount every 1000 ms comparing it to a StartTickCount...
easy....
maybe not the most accurate way, but it gets the job done

[luca90]

Then instead inside the Timer-Event poll the Tickcount every 1000 ms comparing it to a StartTickCount...
easy....
maybe not the most accurate way, but it gets the job done

tks bro.

example please based every 2 minutes. (StartTickCount)

[Arnoutdv]

Just use a static variable "Count" in de Timer event
Set the Timer interval to 10000 ms -> 10 seconds
Then increase Count till it reaches 12 (12 * 10 seconds = 2 minutes)
When 12 execute your desired code and set the counter back to 0

[Joe Caverly]

Adapted from: https://www.vbforums.com/showthread....=1#post3526372

Option Explicit

Public NumMins

Private Sub Form_Load()
  NumMins = 0
  
  'set the timer's Interval to 60,000 (to be 1 minute)
  Timer1.Interval = 60000
End Sub

' in your Timer event
Private Sub Timer1_Timer()
   NumMins = NumMins + 1
   If NumMins = 2 Then
      NumMins = 0   ' to reset
      '<your code here>
   End If
End Sub

Joe

[gaouser]

Adapted from: https://www.vbforums.com/showthread....=1#post3526372

Option Explicit

Public NumMins

Private Sub Form_Load()
  NumMins = 0
  
  'set the timer's Interval to 60,000 (to be 1 minute)
  Timer1.Interval = 60000
End Sub

' in your Timer event
Private Sub Timer1_Timer()
   NumMins = NumMins + 1
   If NumMins = 2 Then
      NumMins = 0   ' to reset
      '<your code here>
   End If
End Sub

Joe

If you didnt understand, in Joe's code
2 minutes = 120 Secs = 120000 ms, This exceeds integer limit, the Interval is integer. but a min can be in an integer. So Joe resets timer every 2 ticks. resulting in 2 minutes timer that ticks per 2 mins without ability to know how muchs been since started

[Elroy]

Ok, let's get some of this straightened out.

First, let's get that NumMins inside the timer event as a local variable. And, for goodness sake, let's declare it as a non-Variant.

Option Explicit

Private Sub Form_Load()
  ' set the timer's Interval to 60,000 (to be 1 minute)
  Timer1.Interval = 60000
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Static NumMins As Long  ' No need to initialize this, as we can trust that it starts out zero.
    NumMins = NumMins + 1&
    If NumMins = 2& Then
        NumMins = 0&


        '<your code here>


    End If
End Sub

Next, the timer's Interval property is a Long, not an Integer.



Sure, it might be a ushort (aka, uint16) somewhere under the hood. But, strictly speaking, it's assigned and returned as a Long type to us. And, upon being assigned, it's checked for bounds.

[luca90]

adapted from: https://www.vbforums.com/showthread....=1#post3526372

option explicit

public nummins

private sub form_load()
  nummins = 0
  
  'set the timer's interval to 60,000 (to be 1 minute)
  timer1.interval = 60000
end sub

' in your timer event
private sub timer1_timer()
   nummins = nummins + 1
   if nummins = 2 then
      nummins = 0   ' to reset
      '<your code here>
   end if
end sub

joe

tks bro!

[luca90]

ok, let's get some of this straightened out.

First, let's get that nummins inside the timer event as a local variable. And, for goodness sake, let's declare it as a non-variant.

option explicit

private sub form_load()
  ' set the timer's interval to 60,000 (to be 1 minute)
  timer1.interval = 60000
  timer1.enabled = true
end sub

private sub timer1_timer()
    static nummins as long  ' no need to initialize this, as we can trust that it starts out zero.
    nummins = nummins + 1&
    if nummins = 2& then
        nummins = 0&


        '<your code here>


    end if
end sub

next, the timer's interval property is a long, not an integer.



sure, it might be a ushort (aka, uint16) somewhere under the hood. But, strictly speaking, it's assigned and returned as a long type to us. And, upon being assigned, it's checked for bounds.

tks bro