Menggunakan Timer pada VB2010

Pada bagian ini, kita akan mempelajari penggunaan timer pada VB2010. Timer digunakan to mengontrol dan mengatur setiap event yang membutuhkan perhitungan waktu. Sebagai contoh, kita membutuhkan timer untuk membuat jam, stopwatch, animasi dan lain sebagainya.

1. Menampilkan Jam
Untuk membuat tampilan jam pada VB2010, kita membutuhkan 1 buah label dan 1 buah timer yang diinputkan ke dalam form. Klik timer1, pada properties ubah Enabled menjadi True. Kemudian ketikkan code berikut:

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = TimeOfDay
    End Sub

End Class

2. Membuat Stopwatch
Untuk membuat stopwatch pada VB2010, kita membutuhkan 1 buah label, 1 buah timer dan 3 buah button. Ubah text pada button1 menjadi Mulai, button2 menjadi Berhenti dan button3 menjadi Reset. Ubah text pada label1 menjadi 0. Ubah enabled pada timer1 menjadi False. Kemudian ketik code berikut:

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Val(Label1.Text) + 1
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label1.Text = 0
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
    End Sub

End Class

untuk mendapatkan file pdf nya, klik download