Untuk membuat kalender menggunakan visual basic ada dua cara. Cara yang pertama menggunakan Fasilitas yang telah disediakan oleh Visual Basic 6.0 dan cara kedua dengan menggunakan Listing program dan beberapa kontrol label.
Untuk Cara yang pertama silakan anda baca artikel sebelumnya. Kali ini kita akan mencoba membuat kalender dengan visual basic 6.0 menggunakan cara yang Kedua. Untuk cara yang kedua ini kita akan mengggunakan beberapa kontrol seperti label dan timer. Adapun langkah-langkahnya adalah sebagai berikut.
>> Buka Program Visual Basic Pada komputer anda
>>tambahkan 4 buah kontrol label pada form dan sebua kontrol timer serta sebuah kontrol command button. Dan ubah nilai propertie masing-masing seperti berikut
--Name: lblhari,lblbulan,lbltahun dan lblangka untuk timer ganti jadi tmrwaktu command1 ganti jadi keluar
--Interval beri nilai 1000
>>atur tampilannya seperti berikut. (atau sesuai kebutuhan anda)
Gambar.1 tampilan program
>>selanjutnya ketikan listing berikut
Private Sub keluar_Click()
Unload Me
End Sub
Private Sub tmrwaktu_Timer()
Dim iwan As Variant
iwan = Now
lblhari.Caption = Format(iwan, "dddd")
lblbulan.Caption = Format(iwan, "mmmm")
lbltahun.Caption = Format(iwan, "yyyy")
lblangka.Caption = Format(iwan, "d")
End Sub
>>jalankan program yang dibuat. Hasilnya seperti ini
0 komentar:
Posting Komentar