Buat Jam Sederhana dengan Timer Visual Basic

Salah satu komponen yang penting untuk dipelajar di visual basic adalah penggunaan dari Timer. Timer memiliki banyak fungsi terutama yang berhubungan dengan pengaturan delay atau waktu dari program yang akan kita buat.

Timer di visual basic diatur oleh nilai dari interval yang diset.
Untuk memahami tentang Timer langsung saja kita praktekan cara penggunaannya di visual basic.

Pertama-tama buatlah Project baru dengan 1 buah Timer (icon Timer yang berbentuk seperti stop watch pada Toolbox). Tambahkan 1 buah Label.
Ubah pengaturan pada Font tabel sehingga tulisan lebih besar dan ganti Caption Label dengan Angka “1” seperti gambar di bawah ini.

Klik dua kali pada Timer dan ketikan coding seperti di bawah ini

Label1.Caption = Val(Label1.Caption) + 1

Maksud dari coding tersebut adalah Label1 akan menampilkan penjumlah dari nilai yang tercantum di Label1 dengan Angka 1. Jika Anda masih bingun silahkan pelajari artikel Operasi Aritmatika dengan Visual Basic.

Kemudian isikan interval pada Timer1 dengan nilai 1000.
Coba jalankan aplikasi dan perhatikan apa yang terjadi.

Label akan menampilkan angka yang bertambah 1 sesuai dengan berjalannya waktu. Pada visual basic interval 1000 sama dengan 1 detik. Jadi dengan coding tersebut prosedur penambahan angka satu pada coding akan dieksekusi setiap 1 detik.
Silahkan Anda coba dengan mengutak-atik nilai interval untuk melihat perubahan waktu eksekusi.

Menampilkan Time/ Waktu pada Visual Basic

Dalam visual basic terdapat banyak fungsi/ perintah yang digunakan untuk menjalankan suatu prosedur tertentu.
Salah satunya adalah fungsi Now. Fungsi ini akan menampilkan waktu sekarang pada saat dieksekusi.
Sekarang cobalah ubah coding yang terdapat pada timer dengan seperti di bawah ini

Label1.Caption = Now

Jalankan dan perhatikan yang terjadi.

Akan muncul tanggal dan jam yang detiknya terus berjalan. Detik terus berubah karena prosedur dieksekusi setiap 1 detik.

Waktu yang ditampilkan juga bisa dirubah sesuai dengan berbagai macam format. Misalnya kita ingin hanya menampilkan jam, menit dan detik tanpa tanggal. Gunakan perintah berikut.

Private Sub Timer1_Timer()
    Label1.Caption = Format(Now, "hh:mm:ss")
End Sub

Pelajari cara format waktu dari tabel di bawah ini

Format	Keterangan
dd	Menampilkan 2 digit Tanggal
dddd	Menampilkan Hari
mm	Menampilkan 2 digit Bulan
mmmm	Menampilkan Bulan dengan Format Teks
yyyy	Menampilkan tahun 4 digit
hh	Menampilkan 2 digit jam
mm	Menampilkan 2 digit menit (digunakan setelah hh)
ss	Menampilkan 2 digit detik

Jadi, jika Anda ingin memunculkan hari dan jam bisa menggunakan format seperti ini
Format(Now,”dddd, hh:mm:ss”)

Silahkan download di file contoh dari pembuatan jam sederhana. Kemudian lanjutkan mempelajari artikel berikutnya tentang Progress Bar atau Garis Loading Berjalan .