MEMMBUAT PROGRAM TAHUN KABISAT DENGAN VB 6.0

Cara membuat program tahun kabisat diperlukan form seperti diatas,langkah-langkahnya adalah:

1. Buat form seperti di atas yang terdiri atas
a. Tulisan “PROGRAM TAHUM KABISAT”
b. 2 buah textbox, dinamai txt_tahun ( Untuk memasukkan tahun & txt_comend (untuk memasukkan commendnya)
c. 3 buah commend button, dinamai cmd_OK ( untuk menjalankan program bila yang angka yang dimasukkan ke txt_tahun adalah benar tahun kabisat maka akan muncul “YANG ANDA MASUKKAN TAHUN KABISAT” di txt_comend) & cmd_clear ( untuk membersihkan form) & cmd_exit ( untuk keluar dari program)
2. Masukkan coding dibawah ini menurut nama tombol/formnya

Dim TAHUN As Integer

Private Sub cmd_clear_Click()
txt_comend.Text = ""
txt_tahun.Text = ""
End Sub
Private Sub cmd_exit_Click()
Pesan = MsgBox("Anda Yakin Kaluar dari Program", vbYesNo)
If Pesan = vbYes Then
End
End If

End Sub

Private Sub cmd_OK_Click()
TAHUN = Int(txt_tahun.Text)
txt_tahun.Text = TAHUN

If TAHUN Mod 4 = 0 Or TAHUN Mod 100 = 0 Then
txt_comend.Text = "YANG ANDA MASUKKAN TAHUN KABISAT"
Else
txt_comend.Text = "YANG ANDA MASUKKAN BUKAN TAHUN KABISAT"

End If

End Sub

Private Sub Command1_Click()

End Sub
Hasilnya akan seperti ini :
Jika Yang anda masukkan benar tahun kabisat maka :


Dan ini form yang akan tampil
Jika Yang anda masukkan Bukan tahun kabisat maka akan tampil :


Sekian dan Mohon maaf klo programnya kurang sempurna soalnya ini tugas kuliah trus tak upload deh dari pada aku cari ide laen … he….he…..maklum bru dapet pelajaran vb yang amat sangat dasar sekali..... Dan klo ada yang kurang puas dan mau kasih saran soale saran nya saya sangat membutuhkan sekali dan jangan lupa comment nya ya ....cba hubungi ke Ym aja quick_ahm