Egg like timer

Question

I am new vb.net user. I am attempting to create a timer which is started when a button is clicked and stopped when another button is clicked. The timer should be in the form of 00:00:00- hrs,mins,secs. The timer should be visually incrementing. I have no idea how to do this. This may be simple to someone else. I have no code as such but have spent 2 weeks looking for something on the internet with no luck. So can anybody please help me out?

forums888 · Answer

Here's a modified version that displays the elapsed time as requested: Dim dtInit As Int64 Private Sub Start() dtInit = Environment.TickCount Timer1.Interval = 100 ' display interval of 100 ms. Timer1.Enabled = True End Sub Private Sub Finish() Dim ts1 As TimeSpan = UpdateDisplay() Timer1.Enabled = False MessageBox.Show(ts1.ToString) End Sub Private Sub Button1_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Button1.Click Start() End Sub Private Sub Button2_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Button2.Click Finish() End Sub Private Function UpdateDisplay() As TimeSpan Dim dtFin As Int64 = Environment.TickCount Dim ts1 As TimeSpan ts1 = New TimeSpan(0 0 0 0 dtFin - dtInit) ' display in milliseconds TextBox1.Text = ts1.ToString Return ts1 ' to ensure same value between messagebox and textbox End Function Private Sub Timer1_Tick(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Timer1.Tick UpdateDisplay() ' every timer.interval milliseconds End Sub

kovan · Answer

here u go Private m_initialMillis As Int64 Public Sub startTimer() m_initialMillis = Environment.TickCount End Sub Public Sub stopTimer() Dim totalMillis As Int64 = Environment.TickCount - m_initialMillis Dim _timeSpan As New TimeSpan(0 0 totalMillis / 1000) MessageBox.Show(_timeSpan.ToString()) End Sub Private Sub Button1_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Button1.Click startTimer() End Sub Private Sub Button2_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Button2.Click stopTimer() End Sub