Membuat Jam Digital Dalam Form

MENAMPILKAN JAM DIGITAL DALAM FORM

Untuk mempercantik tampilan Form, sekaligus juga untuk mengetahui jam/waktu dalam Form yang sedang aktif, kita bisa menampilkan jam/waktu dalam bentuk digital yang selalu berganti-ganti detiknya sesuai dengan waktu dari sistem komputer kita.

Supaya tampilannya lebih digital dan lebih menyerupai jam digital, maka kita membutuhkan jenis Font Digital seperti dalam jam tangan, jika anda ingin Font digital, anda bisa mencarinya di Paman Google atau di situs-situs/website-website penyedia font gratisan, lalu menginstalnya dikomputer anda. Atau jika tidak, anda bisa menggunakan Font yang sudah ada dikomputer anda (tentunya tampilannya tidak seperti jam digital).

Berikut adalah contoh jam digital yang penulis buat :

Form Dengan Jam Digital

Cara membuat jam digital dalam Form sangat dan sangatlah mudah sekali, yaitu :

• Buat sebuah Label/Textbox dalam Form, penulis merekomendasikan membuat Label, karena Label tidak bisa diutak-atik nilainya, sedangkan jika menggunakan TextBox, agar TextBox tersebut tidak bisa diakses, maka kita harus mensetting Property Enabled menjadi No, dan Locked menjadi Yes. Dan biar lebih gampang, ganti nama Label/TextBox tersebut menjadi lblJam, atau txtJam (hal ini terserah anda, suka-suka anda saja, yang penting namanya unik dan tidak menyalahi aturan penamaan dari Access). Karena penulis membuat Label maka penulis namakan lblJam, lalu setting jenis Font sesuai keinginan anda.
• Lalu disebelah kiri atas Form ada kotak hitam kecil, anda klik kanan dikotak hitam kecil tersebut lalu pilih Properties.
• Pada Tab Event, cari field Timer Interval, dan isikan dengan 1000 (agar Jam/Waktunya terupdate setiap 1 detik).
• Lalu pada event On Timer pilih Event Procedure, dan klik […] disebelah kanannya, anda akan dibawa kedalam jendela Visual Basic Editor.
• Lalu masukkan code berikut ini :

         lblJam.Caption = Time()

         Sehingga code anda akan menjadi seperti ini :

         Private Sub Form_Timer()

         lblJam.Caption = Time()

         End Sub

• Lalu klik Save dan tutup Jendela Visual Basic Editor
• Tutup jendela properties dari Form, dan tutup jendela Design View Form.
• Lalu jalankan Form anda, dan lihat hasilnya.

Jika yang anda gunakan adalah TextBox maka anda tidak perlu menuliskan “.Caption”. misalnya :

         Private Sub Form_Timer()

         txtJam = Time()

         End Sub

Anda juga bisa menggunakan format tanggal penuh disertai dengan waktunya, misalnya anda ingin tampilan waktunya seperti 01 Januari 2012 01:30:55, maka anda tinggal ganti Time() dengan format yang anda inginkan. Namun saran penulis jika anda ingin menggunakan format  tersendiri, maka anda harus sertakan detiknya, hal ini agar tampilan jamnya menjadi lebih hidup dengan selalu berganti-ganti detiknya (karena yang kita gunakan adalah 1000, yang berarti bahwa Event On Timer akan dieksekusi setiap 1 detik). Agar anda lebih paham, Timer Interval itu jika dibandingkan : 1 Detik waktu adalah 1000 dalam Timer Interval, dan berlaku kelipatannya (kayak kuis aja ya). yang berarti jika kita mau 5 detik, maka kita harus memasukkan nilai 5000 pada Timer Interval. Namun untuk trik menampilkan jam digital ini, mau tidak mau anda harus memasukkan nilai 1000 pada Timer Interval, karena kita akan menampilkan jam yang selalu berganti-ganti detiknya, bukan yang lain. Aduh maaf kenapa jadi kesini-sini ya pembahasannya, balik lagi ke masalah format tersendiri, jika anda ingin tampilannya seperti 01 Januari 2012 01:30:55, maka anda harus ganti Time() menjadi seperti dibawah ini :

Private Sub Form_Timer()

lblJam.Caption = Format(Now, "dd mmmm yyyy hh:nn:ss")

End Sub

Semoga Bermanfaat…

Posted in: tips n trik