Membuat Stopwatch Menggunakan VB2010

Pada bagian ini kita akan membuat sebuah stopwatch menggunakan VB2010. Adapun langkah-langkah yang kita lakukan untuk membuat stopwatch menggunakan VB2010 yaitu:

1. Tambahkan sebuah label ke dalam form dan ubah text propertiesnya menjadi “00:00:00:000”.

2. Ubah ukuran size font menjadi 28.

3. Tambahkan sebuah timer ke dalam form, pada properties window ubah interval menjadi “1”.

4. Tambahkan sebuah listbox dan letakkan di bawah label.

5. Tambahkan 4 button dan letakkan di bawah listbox dan ubah text propertiesnya. Button1 menjadi “Mark”, button2 menjadi “Start”, button3 menjadi “Stop” dan button 4 menjadi “Reset”.

Klik form1 dan klik view code, kemudian masukkan coding berikut:

Public Class Form1

Private stopwatch As New Stopwatch

End Class

Klik 2 kali timer1 dan masukkan coding berikut:

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

Dim elapsed As TimeSpan = Me.stopwatch.Elapsed

Label1.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", _

Math.Floor(elapsed.TotalHours), _

elapsed.Minutes, elapsed.Seconds, _

elapsed.Milliseconds)

End Sub

Klik 2 kali button “Start” (button2) dan masukkan coding berikut:

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

Timer1.Start()

Me.stopwatch.Start()

Button4.Enabled = False

End Sub

Klik 2 kali button “Stop” (button3) dan masukkan coding berikut:

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

Timer1.Stop()

Me.stopwatch.Stop()

Button4.Enabled = True

End Sub

Klik 2 kali button “Reset” (button4) dan masukkan coding berikut:

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Me.stopwatch.Reset()

Label1.Text = "00:00:00:00"

ListBox1.Items.Clear()

End Sub

Klik 2 kali button “Mark” (button1) dan masukkan coding berikut:

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

ListBox1.Items.Add(ListBox1.Items.Count + 1 & " - " & Label1.Text)

End Sub

Klik Start Debugging (F5) untuk menjalankan program.