Halaman

Jumat, 11 Mei 2012

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.
Untuk mendapatkan file pdf-nya, klik download

Tidak ada komentar:

Posting Komentar