Source Code Membuat Stopwatch pada Visual Basic

Untuk membuat stopwacth pada Visual Basic dapat dibuat dengan mengikuti langkah-langkah berikut ini :

1. Buka aplikasi Microsoft Visual Basic 2010

2. Kemudian klik New Project.

3. Maka akan muncul gambar seperti dibawah ini :

Pilih Windows Forms Application. Kemudian ketik nama dan lokasi yang diinginkan klik OK.

Maka akan muncul form seperti dibawah ini :

4. Klik ToolBox, kemudian pilih Label, GroupBox, Timer, dan Button.

Kemudian, hapus tulisan GroupBox1, gantikan Label1, Label2, Label3, dan Label4 menjadi “0”, Button1 menjadi “Mulai”, dan Button2 menjadi “Selesai”.
Maka akan tampak seperti gambar dibawah ini :

5. Double klik pada Button1, Timer1, dan Button2. Kemudian isi listing program seperti dibawah ini :

Public Class Form8

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
End Class

6. Kemudian Save and Start Debugging.

7. Klik “Mulai”, maka muncul seperti ini :

8. Klik “Selesai”.

Note :

Untuk Label, ubah text Label1 menjadi “0” pada properties, ubah BorderStyle menjadi “FixedSingle”, dan ubah bentuk tulisan serta font sesuai keinginan.

Susun Label dimulai dari Label4, Label3, Label2, dan Label1.

Sekian langkah-langkah cara membuat stopwacth pada Visual Basic. Semoga Bermanfaat ^^

Mohon kritik dan sarannya ^^

Browse More Articles

Tweet

Written by Unknown

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.