Ten minute timer ???

Expand Post »

:cheesy: Brief Intro: I am new to Visual Basic but have been playing with a USB PC Interface and have got to grips with some VERY basic VB6 commands and am trying to expand my "vocabulary" with hopefully the help of your kind and learned selves.

Best Wishes for the Festive Season and here goes.

I want to set a timer from a button click to run for ten minutes then go off, but can only get the timer in vb6 to run for 10000 milliseconds ! any help would be great.

Thanks Newbie Dogfish

P.S.

Sorry for posting in the wrong area before this ( you know what we're like, play with the remote first, then read the manual when you can't get it working)

Similar Threads

Please Help me with VB Timer in Visual Basic 4 / 5 / 6
More timer based questions ?? in Visual Basic 4 / 5 / 6
Java tutor needed BADLY in Java
Visualbasic - Timer Interval Help in Visual Basic 4 / 5 / 6

Dogfish

Reputation Points: 10

Solved Threads: 1

Newbie Poster

Offline

3 posts
since Dec 2006

Permalink

Dec 13th, 2006

Re: Ten minute timer ???

Click to Expand / Collapse Quote originally posted by Dogfish ...

I want to set a timer from a button click to run for ten minutes then go off, but can only get the timer in vb6 to run for 10000 milliseconds ! any help would be great.

I don't know why you can't go higher than 10000, I just loaded a timer with 60000 -- 1 minute. 70000 was too large.

Regardless, you can just count the number of times the timer kicks off, and when it gets to the 10-minute count, you're done.

WaltP

Moderator

Reputation Points: 3278

Solved Threads: 894

Posting Sage

Offline

7,738 posts
since May 2006

Permalink

Dec 13th, 2006

Re: Ten minute timer ???

Hi,

Set these properties for Timer Control :
Interval = 10000
Enabled = False
Place A Command Button cmdStart on the Form.
Caption ="Start"

Keep a Form Level Variable MyTime

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Dim MyTime As Long
 
Private Sub cmdStart_Click()
    MyTime = 0
    Timer1.Enabled =True
    cmdStart.Enabled = False    
End Sub
 
Private Sub Timer1_Timer()
    MyTime = MyTime +1
    If MyTime >= 60 Then 
        MyTime = 0
        Timer1.Enabled = False
        MsgBox "Time Out!!"
        cmdStart.Enabled = True
    End If
End Sub
Dim MyTime As Long
 
Private Sub cmdStart_Click()
    MyTime = 0
    Timer1.Enabled =True
    cmdStart.Enabled = False    
End Sub
 
Private Sub Timer1_Timer()
    MyTime = MyTime +1
    If MyTime >= 60 Then 
        MyTime = 0
        Timer1.Enabled = False
        MsgBox "Time Out!!"
        cmdStart.Enabled = True
    End If
End Sub

I Hope It IS Clear
Regards
Veena

QVeen72

Reputation Points: 84

Solved Threads: 140

Posting Shark

Offline

923 posts
since Nov 2006

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Listboxes and scroll bars

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: How to automate some interaction between "Word" and "Access" documents?

DaniWeb Message

Cancel Changes

User Name
Password