Help on Stopwatch

Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

mikethedj4

Beginner

Posts: 12

Date of registration: Mar 24th 2010

Location: Rockford, IL

Occupation: Freelancer, Inventor

Hobbies: Programming, Design, Engineering, Dancing, and anything else I find to be fun...

Sunday, June 27th 2010, 10:18am

I have 2 buttons, and 4 labels, now the buttons work fine, and do what their supposed to, but as for the labels the stopwatch is supposed to work like it's supposed to (Example I made in Javascript) once it passes 99 it's supposed to go and have 1 second on the second label, and so on as you saw from the web app I made, but instead the number keeps going higher like so - 326.0

Here's the code I have in Timer1_Timer

Source code

Timer1.Interval = 10
Label4.Caption = Val(Label4.Caption) + Val(1)
If Label4.Caption = 60 Then
Label3.Caption = Val(Label3.Caption) + Val(1)
Label2.Caption = "0"
If Label3.Caption = 60 Then
Label2.Caption = Val(Label3.Caption) + Val(1)
Label3.Caption = "0"
If Label2.Caption = 60 Then
Label1.Caption = Val(Label3.Caption) + Val(1)
Label1.Caption = "0"
End If
End If
End If

Can someone please help me, and tell me what I'm doing wrong???

Be the change you WANT to see in the world!

Go to the top of the page

A1880

Intermediate

Posts: 500

Date of registration: Jan 1st 2009

Location: Hanover, Germany

Occupation: Software Engineer

Hobbies: Hilbert Curves

Sunday, June 27th 2010, 5:53pm

I think there are a few spelling errors in your code.

Try this:

Jabaco Source

Public Sub Timer1_Timer()
   Debug.Print Now
   
   Label4.Caption = CInt(Label4.Caption) + 1
   If Label4.Caption = 60 Then
      Label4.Caption = "0"
      Label3.Caption = CInt(Label3.Caption) + 1
      If Label3.Caption = 60 Then
         Label3.Caption = "0"
         Label2.Caption = CInt(Label2.Caption) + 1
         If Label2.Caption = 60 Then
            Label2.Caption = "0"
            Label1.Caption = CInt(Label1.Caption) + 1
         End If
      End If
   End If
End Sub

Greetings

A1880

Go to the top of the page