Program Membuat Stopwatch Visual Studio 2010

Pada program ini anda dapat menambahkan "GroupBox", "Label", dan "Button" yang tersedia di Toolbox ke dalam Form. Untuk itu anda dapat mendesign dengan langkah-langkah berikut:

1) Tampilkan terlebih dahulu sebuah Form dengan cara membuka aplikasi Microsoft Visual Studio 2010 dan pilih menu File - New Project - Visual Basic -Windows Forms Application - OK. Setelah itu akan muncul Form seperti dibawah ini

2) Tambahkan 1 "GroupBox" kedalam Form dengan mengubahnya textnya menjadi "Proses"

3) Dan tambahkan 4 "Label" juga kedalam Form dengan mengubah textnya menjadi angka "0", berikan border

4) Tambahkan 2 "Button" dengan mengubah textnya menjadi "Mulai" dan "Selesai"

5) Untuk yang terakhir anda dapat menambahkan "Timer" kedalam Form yang secara otomatis akan terletak di bawah Form

6) Sebelum program dijalankan anda harus double klik di "Timer1", "Mulai", dan "Selesai" untuk memasukkan linsting program berikut

Public Class Form11

        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

7) Dan untuk menjalankan program anda harus memilih "Start Debugging" atau menekan "F5" pada tombol keyboard. Hasil pun akan terlihat seperti tampilan dibawah ini. Pilih "Mulai" agar program dapat berjalan

8) Dan akan berhenti jika anda pilih "Selesai"

9) Program selesai

#Selamat mencoba dan semoga bermanfaat :)