PROJEK SEDERHANA
MEMBUAT KALENDER MASEHI
LANGKAH-LANGKAH MEMBUAT DESAIN
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
BUATLAH 2 COMBOBOX
COMBO BOX 1 DIGUNAKAN SEBAGAI TEMPAT PEMILIHAN BULAN
COMBO BOX2 DIGUNAKAN SEBAGAI TEMPAT TAHUN KALENDER YANG DIGUNAKAN
BUATLAH COMMAND BUTTON
UBAH CAPTION COMMAND BUTTON DENGAN CARA PILIH PROPERTISES PILIH CAPTION UBAH DENGAN PROSES
LANGKAH-LANGKAH PENGKODEAANNYA
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
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
Posted By UnknownSunday, February 13, 2011