Jumat, 11 Juni 2010

Membuat Kalender menggunakan Microsoft Visual Basic 6.0 (Bagian 2)

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 andi As Variant
andi = Now
lblhari.Caption = Format(andi, "dddd")
lblbulan.Caption = Format(andi, "mmmm")
lbltahun.Caption = Format(andi, "yyyy")
lblangka.Caption = Format(andi, "d")
End Sub

>>jalankan program yang dibuat. Hasilnya seperti ini
Gambar.2 Program yang telah jadi

Penjelasan. Sama seperti program sebelumnya yang telah kita buat,untuk program kelender ini kita juga masih menggukaan format waktu yang ada dari sistem komputer kita. Jika kita ingin melakukan pengaturan maka kita atur sistem komputer kita sendiri.
Download script lengkapnya disini

5 komentar:

  1. gan download visual basicnya gimana??? kalau mau tau emang bisa buat antivirus dari visual basic tolong sarannya gan.

    BalasHapus
  2. kk maksudnya
    Interval beri nilai 1000
    itu apa..???

    BalasHapus
  3. Muh.Ari SAwali: Interval beri nilai 1000 maksudnya salah satu properties dari timer. beri nilai 1000 itu sama dengan 1000mDetik atau 1 detik.
    Abi:SAma-sama Sob!
    Dimmas: Tidak saya sertakan lagi Link Downloadnya Gan. Mungkin Nanti! Untuk membuat Antivirus Menggunakan VB, bisa Kok. Satu contohnya adalah ARTAV antivirus.

    BalasHapus

Need Your Comments, Please !!!