* örnek Kronometre

* örnek Kronometre


Public Class Form1

' Değişkenleri tanımlama

Dim d As Object

Dim a, b As Object

Dim c As Short

Private Sub Button2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button2.Click

a = 0

b = 0

c = 0

Label1.Text = "00:00:00"

Timer1.Stop()

End Sub

Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

a = 0

b = 0

c = 0

Label1.Text = "00:00:00"

End Sub

Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick

Timer1.Interval = 1

c = c + 1

If b = 60 Then

a = a + 1

b = 0

End If

If c = 60 Then

b = b + 1

c = 0

End If

Label1.Text = Str(a) & ":" & Str(b) & ":" & Str(c)

DefInstance.Text = "Kronometre " & TimeOfDay

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Select Case Button1.Text

Case "baslat"

Timer1.Enabled = True

Button1.Text = "durdur"

Case "durdur"

Timer1.Enabled = False

Button1.Text = "baslat"

End Select

End Sub

End Class