aplikasi sederhana membuat kalender masehi dengan vb6

PROJEK SEDERHANA

MEMBUAT KALENDER MASEHI

DENGAN VB6

LANGKAH-LANGKAH MEMBUAT DESAIN

1. BUATLAH 4 LABEL

LABEL1 UNTUK TEMPAT JUDUL

LABEL 2 UNTUK TEMPAT PILIHAN

LABEL3 UNTUK TEMPAT MEMILIH TAHUN

LABEL4 UNTUK TEMPAT MENAMPILKAN KALENDER MASEHI DAN UNTUK LABEL4 HARUS DITRANSPARAN

CARANYA PILIH PROPERTISE PILH BORDER STYLE PILH TRANPARENT

2. BUATLAH 2 COMBOBOX

COMBO BOX 1 DIGUNAKAN SEBAGAI TEMPAT PEMILIHAN BULAN

COMBO BOX2 DIGUNAKAN SEBAGAI TEMPAT TAHUN KALENDER YANG DIGUNAKAN

3. BUATLAH COMMAND BUTTON

UBAH CAPTION COMMAND BUTTON DENGAN CARA PILIH PROPERTISES PILIH CAPTION UBAH DENGAN PROSES

LANGKAH-LANGKAH PENGKODEAANNYA

1. PADA COMMAND1 KETIKKAN KODE DIBAWAH INI:

Private Sub Command1_Click()

If Combo1.Text = "januari" Then

Label3.Caption = "muharram dan shafar"

ElseIf Combo1.Text = "februari" Then

Label3.Caption = "shafar dan rabiul al-awwal"

ElseIf Combo1.Text = "maret" Then

Label3.Caption = "rabiul al-awal dan rabiul al-akhir"

ElseIf Combo1.Text = "april" Then

Label3.Caption = "rabiul al-akhir dan jumadil al-awwal"

ElseIf Combo1.Text = "mei" Then

Label3.Caption = "jumadil al-awwal dan jumadil al-akhir"

ElseIf Combo1.Text = "juni" Then

Label3.Caption = "jumadil al-akhir dan rajab"

ElseIf Combo1.Text = "juli" Then

Label3.Caption = "rajab dan sya'ban"

ElseIf Combo1.Text = "agustus" Then

Label3.Caption = "ramadhan dan syawwal"

ElseIf Combo1.Text = "september" Then

Label3.Caption = "syawwal dan dzul-qaidah"

ElseIf Combo1.Text = "oktober" Then

Label3.Caption = "dzul-qaidah dan dzul-hijjah"

ElseIf Combo1.Text = "november" Then

Label3.Caption = "dzul-hijjah dan muharram"

ElseIf Combo1.Text = "desember" Then

Label3.Caption = "muharram dan shafar"

End If

End Sub

2. PADA FORM1 KETIKKAN CODE DIBAWAH INI:

Combo1.AddItem "januari"

Combo1.AddItem "februari"

Combo1.AddItem "maret"

Combo1.AddItem "april"

Combo1.AddItem "mei"

Combo1.AddItem "juni"

Combo1.AddItem "juli"

Combo1.AddItem "agustus"

Combo1.AddItem "september"

Combo1.AddItem "oktober"

Combo1.AddItem "november"

Combo1.AddItem "desember"

SEMOGA

SUKSES !!!

jika anda mau mendownload file di atas klik
disini