1.

Solve : Trying to make a Timer VB.net?

Answer» PUBLIC Class Form1

    Dim TimeEnd, TimeStart, TimeStop As New DateTime
    Dim isStop, isPause As Boolean
    Dim form02 As New Form2
    Dim foo, TimePause, ElapseTime, TotalTimePaused As New TimeSpan
    Dim h, m, s As Integer


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        TextBox1.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0"

        Button6.Hide()
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
     
        If Timer1.Interval <> 100 Then Timer1.Interval = 100
        If DateTime.Now > TimeEnd Then
            TextBox5.Text = "Time End"
            Timer1.Stop()

        Else

            If isStop = False And isPause = False Then
                foo = TimeEnd - DateTime.Now
                TextBox5.Text = String.Format("{0:D2}:{1:D2}:{2:D2}", _
                                              foo.Hours, foo.Minutes, foo.Seconds)

            End If
            TextBox6.Text = TimeStart.ToString("hh:MM" & " " & "tt")

            If isStop Then
                TextBox4.Text = TimeStop.ToString("hh:mm" & " " & "tt")
            Else

                TextBox4.Text = TimeEnd.ToString("hh:mm" & " " & "tt")
            End If
            TextBox1.Text = "0" : TextBox2.Text = "0" : TextBox3.Text = "0"
        End If

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       'START
        Button1.Hide()
        Timer1.Enabled = True
        If Not Integer.TryParse(TextBox1.Text, h) OrElse _
            Not Integer.TryParse(TextBox2.Text, m) OrElse _
            Not Integer.TryParse(TextBox3.Text, s) Then
            'bad input data
            Exit Sub
        End If
        TimeEnd = DateTime.Now.AddHours(h).AddMinutes(m).AddSeconds(s)
        TimeStart = DateTime.Now
        TimeOfDay = DateTime.Now
        Timer1.Interval = 1
        Timer1.Start()
        isStop = False

    End Sub


    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       'STOP
        isStop = True
        TimeStop = DateTime.Now
       ' form02.PressStop = True

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        isPause = True
        Timer1.Enabled = False

        Button1.Hide()
        Button6.Show()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        'RESUME
        If isPause = True Then
            Timer1.Enabled = True
            isPause = False
        End If
    End Sub
End Class

im working on a stop watch that can set a time then do a countdown, and do a ascending count
.im kind of a messy when it comes to this thing hope u understand the code. what im trying to do now is  to make a PAUSE and RESUME button for this code. i've tried using on the Pause button timer1.enabled = false and on the RESUME button Pause button timer1.enabled = true. it does pause the time and resumes it,but for example the TIMER is counting down and i pause it at 5:33, and resume it after 7 seconds, the timer then resumes at 5:40, what i want to do is to make it resume from the time that i pause it, in my example i want it to resume from 5:33. hope you can help me. thanks in advanceIs the code all yours? Was part of it copied from another source?
How much accuracy do you NEED?
Have you already read this?
http://www.dotnetperls.com/timer-vbnet
OR
http://www.ehow.com/how_4590003_program-timer-control-vbnet.html
OR
http://www.techrepublic.com/forum/questions/101-224643/vbnet-timer-control-woes


Discussion

No Comment Found

Related InterviewSolutions