Membuat Tanggal Dan Jam menggunakan Visual Basic 6.0

Share on :

Tweet

Sedikit sharing dari pengalaman seorang teman beberapa waktu yang lalu yang menunjukan ternyata hal sepele pun bisa menjadi besar bila tidak dapat diselesaikan dengan baik.

Kemarin, seorang teman pernah di uji oleh dosen mata kuliah untuk menampilkan tanggal pada sebuah form dengan bahasa pemrograman Visual Basic 6.0 dalam rangka membuktikan bahwa tugas pemrograman yang dikasi oleh sang dosen adalah benar-benar hasil karyanya.

Singkat cerita, sang teman ini tidak tau bagaimana cara membuat tanggal, alih-alih karena tidak kehilangan akal dan ingin mendapatkan nilai yang bagus, dia meletakan tool DTPicker di form. Tentu saja bukan seperti itu yang diharapkan oleh sang dosen. Dan akhirnya sang teman tidak bisa memenuhi permintaan sang dosen dengan konsekuensi nilai yang dikurangi.

Padahal, membuat tanggal di form sangatlah mudah, hanya membutuhkan sebaris script saja. Hal ini terjadi karena sang teman selama ini terlalu fokus mempelajari pemrograman yang bersifat entri data dan tidak pernah terfikirkan kalau seperti ini yang akan jadi biang masalahnya.

Sepulangnya dari kampus, sang teman bertanya kepada saya tentang masalah tersebut dengan wajah kecewa, setelah saya tunjukan betapa mudahnya menyelesaikan masalah tersebut. Setelah melihat apa yang saya terangkan, dia jadi bertambah kecewa karena hal sepele seperti ini yang membuat tugasnya jadi kacau.

Berikut cara dan script yang dibutuhkan untuk membuat tanggal dan jam pada form Visual Basic 6.0 :

• Buka form yang akan dipasang tanggal dan waktu
• Letakkan 2 buah Timer dan 2 buah Label di form

 

• Atur Interval kedua Timer tersebut menjadi 360 melalui jendela Properties yang berada disebelah kanan
• Atur Properties kedua Label tersebut sesuai keinginan sobat
• Timer1 dan Label1 akan kita gunakan unutk menampilkan tanggal sedangkan Timer2 dan Label2 kita gunakan untuk waktu
• Duoble klik pada Timer1 lalu masukkan script : Label1.Caption = Date, seperti gambar berikut :

• Duoble klik pada Timer2 lalu masukkan script : Label2.Caption = Time, seperti gambar berikut :

• Coba running program tersebut, dan hasilnya akan seperti berikut ini :

• Jika sobat ingin merubah format tangganya menjadi : 11 April 2012, sobat cukup mengganti script tanggal pada Timer1 tersebut menjadi Label1.Caption = Format(Date, "dd MMMM YYYY"), seperti berikut ini :

•  Maka hasilnya seperti berikut ini :

Bagaimana, mudah bukan...?
Sangat tidak disangka, gara-gara program sederhana ini, sang teman mendapatkan nilai yang kurang bagus
Semoga bermanfaat aja posting pemrograman kali ini,  salamm

Share on :

Share

Tweet