stopwatch

ringtemek

Daemon Poster
Messages
684
I'm making a stopwatch code with milliseconds but i don't think the millisecond text is moving fast enough, here is the code

Code:
Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label4.Text = Val(Label4.Text) + Val(1)
        If Label4.Text = 100 Then
            Label3.Text = Val(Label3.Text) + Val(1)
            Label4.Text = 0
            If Label3.Text = 60 Then
                Label2.Text = Val(Label2.Text) + Val(1)
                Label3.Text = 0
                If Label2.Text = 60 Then
                    Label1.Text = Val(Label1.Text) + Val(1)
                    Label2.Text = 0
                End If
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Timer1.Enabled = False Then
            Timer1.Enabled = True
        Else
            Timer1.Enabled = False
        End If
    End Sub
End Class
 
Back
Top Bottom