Cara Membuat Stopwatch dengan Microsoft Visual Studio 2012

Membuat sebuah aplikasi untuk digunakan sebagai pencatat waktu. Nama kerennya adalah Stop Watch. Pasti sudah tahu apa itu yang namanya Stop Watch, bagaimana cara bekerjanya?  Disini kita akan mencoba latihan untuk membuat sebuah Stop Watch.

Buka  program Microsoft Visual Basic 2010 dan buat project baru.

Tambahkan Timer dan setting pada properties:

·         Name    : Timer1

·         Enabled : True

·         Interval : 1000

Tambahkan GroupBox, 4 label. Kemudian setting labelnya pada propertis dengan text  0.
Tambahkan 3 Button dan setting:

·         Name    : Button1

·         Text       : Mulai

·         Name    : Button2

·         Text       : Berhenti

·         Name    : Button3

·         Text       : Selesai

masukkan scrip ini :

Public Class Form7

    Dim N1, N2, N3, N4 As Integer

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

        N1 = 0 : N2 = 0 : N3 = 0 : N4 = 0

        Timer1.Enabled = True

    End Sub

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

        If N4 < 10 Then

            If N1 > 9 Then

                N1 = 0

                N2 = N2 + 1

                If N2 > 9 Then

                    Label2.Text = 0

                Else

                    Label2.Text = N2

                End If

            End If

            If N2 > 9 Then

                N2 = 0

                N3 = N3 + 1

                If N3 > 9 Then

                    Label3.Text = 0

                Else

                    Label3.Text = N3

                End If

            End If

            If N3 > 9 Then

                N3 = 0

                N4 = N4 + 1

                If N4 > 9 Then

                    Label4.Text = 0

                    Timer1.Enabled = False

                Else

                    Label4.Text = N4

                End If

            End If

            Label1.Text = N1

            N1 = N1 + 1

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Timer1.Enabled = Not Timer1.Enabled

    End Sub

End Class

Simpan dan jalankan.

Untuk mengubah background atau font atur pada properties.

Pada gambar diatas,jika kita klik “Mulai” maka stopwatch akan mulai, Jika kita kita klik “Berhenti” maka stopwatch kan berhenti dan jika kita klik “Selesai” maka program akan ditutup.

SELAMAT MENCOBA