CONTOH PENGGUNAAN TIMER DAN DATETIMEPICKER PADA VB.NET 2008

1. Buat project baru.
2.  Buatlah desain Tampilan form seperti gambar berikut ini :

3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form3	Name Text Start Position	Form3 Timer dan DateTimePicker CenterScreen
Label1	name	Lbl12jam
Label2	Name	Lbl24jam
DateTimePicker1	Name	Dtanggal
Timer1	Enable Interval	True 1000

4.  Klik ganda pada form, ketikkan kode program berikut ini :

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

DTtanggal.Format = DateTimePickerFormat.Custom

DTtanggal.CustomFormat = "dddd,dd/MM/yyyy"

DTtanggal.Value = Format(Now)

End Sub

5.  Klik ganda pada Timer1, ketikkan kode program berikut ini :

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

Lbl12Jam.Text = Format(Now, "h:mm:ss tt")

Lbl24Jam.Text = Format(Now, "hh:mm:ss")

End Sub

6.  Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di
     toolbar, atau melalui menu Debug > Start Debuging.
7.  Simpan aplikasi Anda

hasilnya dapat dilihat pada gambar dibawah ini:

Projectnya dapat di download disini