Programming Forums > Application Development > Visual Basic

skylinegtr · Jan 18th, 2005, 7:55 PM

I have no idea why this code won't work could you please help. Thanks

Private Sub Form_Load()
    Label1.Caption = 100
    Timer1.Enabled = True
End Sub

Private Sub Timer2Start()
    
    Timer2.Enabled = True
    
    Do
        If Label1.Caption = 100 Then
            Exit Do
        End If
    Loop
    
    
End Sub

Private Sub Timer1_Timer()
    Label1.Caption = Label1.Caption - 1
    If Label1.Caption = 0 Then
        Timer1.Enabled = False
        Timer2Start
    End If
    
End Sub

Private Sub Timer2_Timer()
    Label1.Caption = Label1.Caption + 1
End Sub

Ooble · Jan 18th, 2005, 8:02 PM

The loop's taking up so many resources, Windows can't update the form. Make it:

(Toggle Plain Text)

Do
    If Label1.Caption = 100 Then
        Exit Do
    End If
    DoEvents
Loop

DoEvents tells the computer to get on with background stuff before it moves on.

skylinegtr · Jan 18th, 2005, 8:03 PM

thanks for your quick reply

Jan 18th, 2005, 7:55 PM	#1
skylinegtr Newbie Join Date: Oct 2004 Posts: 9 Rep Power: 0	Two Timers Problem I have no idea why this code won't work could you please help. Thanks (Toggle Plain Text) Private Sub Form_Load() Label1.Caption = 100 Timer1.Enabled = True End Sub Private Sub Timer2Start() Timer2.Enabled = True Do If Label1.Caption = 100 Then Exit Do End If Loop End Sub Private Sub Timer1_Timer() Label1.Caption = Label1.Caption - 1 If Label1.Caption = 0 Then Timer1.Enabled = False Timer2Start End If End Sub Private Sub Timer2_Timer() Label1.Caption = Label1.Caption + 1 End Sub Private Sub Form_Load() Label1.Caption = 100 Timer1.Enabled = True End Sub Private Sub Timer2Start() Timer2.Enabled = True Do If Label1.Caption = 100 Then Exit Do End If Loop End Sub Private Sub Timer1_Timer() Label1.Caption = Label1.Caption - 1 If Label1.Caption = 0 Then Timer1.Enabled = False Timer2Start End If End Sub Private Sub Timer2_Timer() Label1.Caption = Label1.Caption + 1 End Sub Last edited by skylinegtr; Jan 18th, 2005 at 8:02 PM.

Jan 18th, 2005, 8:02 PM	#2
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	The loop's taking up so many resources, Windows can't update the form. Make it: (Toggle Plain Text) Do If Label1.Caption = 100 Then Exit Do End If DoEvents Loop Do If Label1.Caption = 100 Then Exit Do End If DoEvents Loop DoEvents tells the computer to get on with background stuff before it moves on. __________________ Me :: You :: Them

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Jan 18th, 2005, 8:03 PM	#3
skylinegtr Newbie Join Date: Oct 2004 Posts: 9 Rep Power: 0	thanks for your quick reply

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

Two Timers Problem