Code:
Public Class Form1
Private stopwatch As New Stopwatch
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Me.stopwatch.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Me.stopwatch.Stop()
Label1.Text = "00:00:00:000"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim elapsed As TimeSpan = Me.stopwatch.Elapsed
Label1.Text = String.Format("(0:00):(1:00):(2:00):(3:000)", _
Math.Floor(elapsed.TotalHours), _
elapsed.Minutes, _
elapsed.Seconds, _
elapsed.Milliseconds)
End Sub
End Class
Public Class Form1
Private stopwatch As New Stopwatch
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Me.stopwatch.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Me.stopwatch.Stop()
Label1.Text = "00:00:00:000"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim elapsed As TimeSpan = Me.stopwatch.Elapsed
Label1.Text = String.Format("(0:00):(1:00):(2:00):(3:000)", _
Math.Floor(elapsed.TotalHours), _
elapsed.Minutes, _
elapsed.Seconds, _
elapsed.Milliseconds)
End Sub
End Class
na formu sam dodao button1 i button2 label1 kao i timer1
kad pokrenem aplikaciju button 1 i 2 rade ali se ne desava rad stoperice.VB ne prijavjuje nikakvu gresku.