MEMBUAT STOPWATCH (VISUAL BASIC 2010)

Kali ini saya akan memberitahukan kalian bagaimana membuat stopwatch.... stopwatch yang akan kita buat yaitu stopwatch yang ditekan, menitnya akan langsung berjalan..

inilah yang akan kita buat :

Properties : 

Form
Text : Stopwatct

button start
Name : btnstart
Text : Start

button stop
Name : btnstop
Text : Stop

Grupbox
Name : gpbtimer

Textbox
Name : txthasil
Text : 0.0

Setelah anda menyesuaikan property yang saya buat, maka saya akan memberikan code untuk kalian:
----------------------------------------------------------------------------------------------

Public Class tugas3

    Dim second As Integer = 0
    Dim second2 As Integer = 0

    Private Sub tugas3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.MdiParent = menuutama
        btnstop.Enabled = False
        txthasil.Text = "0.0"

    End Sub

    Private Sub btnstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstart.Click

        txthasil.Text = "0.0"
        second = 0
        second2 = 0
        btnstop.Enabled = True
        btnstart.Enabled = False
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        second += 1
        If second = 10 Then
            second2 += 1
            second = 0
        End If
        txthasil.Text = Format(second2, "0") & "." & Format(second, "0")

    End Sub

    Private Sub btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstop.Click

        btnstart.Enabled = True
        btnstop.Enabled = False
        Timer1.Stop()

    End Sub


End Class

--------------------------------------------------------------------------------------

inilah hasilnya :

Terima kasih atas perhatiannya... apabila anda ada pertanyaan, silahkan berikan komentar anda....