langkah-langkah membuat projek
1)buatlah label sebanyak 2
label 1 rubah caption menjadi nama bulan
label 2 kosongkan isi caption.
2)buatlah cammend button sebanyak 3
cammend button 1 rubahlah caption manjadi nama proses
cammend button 2 rubalah caption manjadi bersih
cammend button 3 rubalah caption manjadi exit
3)butlah image sebanyak 24 dan ganti pada properti name seperti di bawah ini
image1 : a1 image13 : g1
image2 : a2 image14 : g2
image3 : b1 image15 : h1
image4 : b2 image16 : h2
image5 : c1 image17 : i1
image6 : c2 image18 : i2
image7 : d1 image19 : j1
image8 : d2 image20 : j2
image9 : e1 image21 : k1
image10 : e2 image22 : k2
image11 : f1 image23 : l1
image12 : f2 image24 : l2
langkah-langkah pengkodingan
view code source
Private Sub Command1_Click()
Dim bulan As String
Dim hasil As String
bulan = Combo1.Text
Select Case bulan
Case "januari"
hasil = "muharram dan shafar"
a1.Visible = 1
a2.Visible = 0
b1.Visible = 0
b2.Visible = 2
c1.Visible = 0
c2.Visible = 0
d1.Visible = 0
d2.Visible = 0
e1.Visible = 0
e2.Visible = 0
f1.Visible = 0
f2.Visible = 0
g1.Visible = 0
g2.Visible = 0
h1.Visible = 0
h2.Visible = 0
i1.Visible = 0
i2.Visible = 0
j1.Visible = 0
j2.Visible = 0
k1.Visible = 0
k2.Visible = 0
l1.Visible = 0
l2.Visible = 0
Case "februari"
hasil = "shafar dan rabiul al-awwal"
a1.Visible = 0
a2.Visible = 0
b1.Visible = 1
b2.Visible = 0
c1.Visible = 0
c2.Visible = 2
d1.Visible = 0
d2.Visible = 0
e1.Visible = 0
e2.Visible = 0
f1.Visible = 0
f2.Visible = 0
g1.Visible = 0
g2.Visible = 0
h1.Visible = 0
h2.Visible = 0
i1.Visible = 0
i2.Visible = 0
j1.Visible = 0
j2.Visible = 0
k1.Visible = 0
k2.Visible = 0
l1.Visible = 0
l2.Visible = 0
Case "maret"
hasil = "rabiul al-awal dan rabiul al-akhir"
a1.Visible = 0
a2.Visible = 0
b1.Visible = 0
b2.Visible = 0
c1.Visible = 1
c2.Visible = 0
d1.Visible = 0
d2.Visible = 2
e1.Visible = 0
e2.Visible = 0
f1.Visible = 0
f2.Visible = 0
g1.Visible = 0
g2.Visible = 0
h1.Visible = 0
h2.Visible = 0
i1.Visible = 0
i2.Visible = 0
j1.Visible = 0
j2.Visible = 0
k1.Visible = 0
k2.Visible = 0
l1.Visible = 0
l2.Visible = 0
Case "april"
hasil = "rabiul al-akhir dan jumadil al-awwal"
a1.Visible = 0
a2.Visible = 0
b1.Visible = 0
b2.Visible = 0
c1.Visible = 0
c2.Visible = 0
d1.Visible = 1
d2.Visible = 0
e1.Visible = 0
e2.Visible = 2
f1.Visible = 0
f2.Visible = 0
g1.Visible = 0
g2.Visible = 0
h1.Visible = 0
h2.Visible = 0
i1.Visible = 0
i2.Visible = 0
j1.Visible = 0
j2.Visible = 0
k1.Visible = 0
k2.Visible = 0
l1.Visible = 0
l2.Visible = 0
Case "mei"
hasil = "jumadil al-awwal dan jumadil al-akhir"
a1.Visible = 0
a2.Visible = 0
b1.Visible = 0
b2.Visible = 0
c1.Visible = 0
c2.Visible = 0
d1.Visible = 0
d2.Visible = 0
e1.Visible = 1
e2.Visible = 0
f1.Visible = 0
f2.Visible = 2
g1.Visible = 0
g2.Visible = 0
h1.Visible = 0
h2.Visible = 0
i1.Visible = 0
i2.Visible = 0
j1.Visible = 0
j2.Visible = 0
k1.Visible = 0
k2.Visible = 0
l1.Visible = 0
l2.Visible = 0
Case "juni"
hasil = "jumadil al-akhir dan rajab"
a1.Visible = 0
a2.Visible = 0
b1.Visible = 0
b2.Visible = 0
c1.Visible = 0
c2.Visible = 0
d1.Visible = 0
d2.Visible = 0
e1.Visible = 0
e2.Visible = 0
f1.Visible = 1
f2.Visible = 0
g1.Visible = 0
g2.Visible = 2
h1.Visible = 0
h2.Visible = 0
i1.Visible = 0
i2.Visible = 0
j1.Visible = 0
j2.Visible = 0
k1.Visible = 0
k2.Visible = 0
l1.Visible = 0
l2.Visible = 0
Case "juli"
hasil = "rajab dan sya'ban"
a1.Visible = 0
a2.Visible = 0
b1.Visible = 0
b2.Visible = 0
c1.Visible = 0
c2.Visible = 0
d1.Visible = 0
d2.Visible = 0
e1.Visible = 0
e2.Visible = 0
f1.Visible = 0
f2.Visible = 0
g1.Visible = 1
g2.Visible = 0
h1.Visible = 0
h2.Visible = 2
i1.Visible = 0
i2.Visible = 0
j1.Visible = 0
j2.Visible = 0
k1.Visible = 0
k2.Visible = 0
l1.Visible = 0
l2.Visible = 0
Case "agustus"
hasil = "ramadhan dan syawwal"
a1.Visible = 0
a2.Visible = 0
b1.Visible = 0
b2.Visible = 0
c1.Visible = 0
c2.Visible = 0
d1.Visible = 0
d2.Visible = 0
e1.Visible = 0
e2.Visible = 0
f1.Visible = 0
f2.Visible = 0
g1.Visible = 0
g2.Visible = 0
h1.Visible = 1
h2.Visible = 0
i1.Visible = 0
i2.Visible = 2
j1.Visible = 0
j2.Visible = 0
k1.Visible = 0
k2.Visible = 0
l1.Visible = 0
l2.Visible = 0
Case "september"
hasil = "syawwal dan dzul-qaidah"
a1.Visible = 0
a2.Visible = 0
b1.Visible = 0
b2.Visible = 0
c1.Visible = 0
c2.Visible = 0
d1.Visible = 0
d2.Visible = 0
e1.Visible = 0
e2.Visible = 0
f1.Visible = 0
f2.Visible = 0
g1.Visible = 0
g2.Visible = 0
h1.Visible = 0
h2.Visible = 0
i1.Visible = 0
i2.Visible = 1
j1.Visible = 0
j2.Visible = 0
k1.Visible = 2
k2.Visible = 0
l1.Visible = 0
l2.Visible = 0
Case "oktober"
hasil = "dzul-qaidah dan dzul-hijjah"
a1.Visible = 0
a2.Visible = 0
b1.Visible = 0
b2.Visible = 0
c1.Visible = 0
c2.Visible = 0
d1.Visible = 0
d2.Visible = 0
e1.Visible = 0
e2.Visible = 0
f1.Visible = 0
f2.Visible = 0
g1.Visible = 0
g2.Visible = 0
h1.Visible = 0
h2.Visible = 0
i1.Visible = 0
i2.Visible = 0
j1.Visible = 0
j2.Visible = 0
k1.Visible = 1
k2.Visible = 0
l1.Visible = 0
l2.Visible = 2
Case "november"
hasil = "dzul-hijjah dan muharram"
a1.Visible = 0
a2.Visible = 1
b1.Visible = 0
b2.Visible = 0
c1.Visible = 0
c2.Visible = 0
d1.Visible = 0
d2.Visible = 0
e1.Visible = 0
e2.Visible = 0
f1.Visible = 0
f2.Visible = 0
g1.Visible = 0
g2.Visible = 0
h1.Visible = 0
h2.Visible = 0
i1.Visible = 0
i2.Visible = 0
j1.Visible = 0
j2.Visible = 0
k1.Visible = 0
k2.Visible = 0
l1.Visible = 1
l2.Visible = 0
Case "desember"
hasil = "muharram dan shafar"
a1.Visible = 1
a2.Visible = 0
b1.Visible = 0
b2.Visible = 2
c1.Visible = 0
c2.Visible = 0
d1.Visible = 0
d2.Visible = 0
e1.Visible = 0
e2.Visible = 0
f1.Visible = 0
f2.Visible = 0
g1.Visible = 0
g2.Visible = 0
h1.Visible = 0
h2.Visible = 0
i1.Visible = 0
i2.Visible = 0
j1.Visible = 0
j2.Visible = 0
k1.Visible = 0
k2.Visible = 0
l1.Visible = 0
l2.Visible = 0
End Select
Label1.Caption = hasil
End Sub
Private Sub Command2_Click()
Label1.Caption = ""
Combo1.Text = "bulan"
End Sub
Private Sub Command3_Click()
MsgBox "apakah anda ingin keluar"
End
End Sub
Private Sub Form_Load()
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"
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - 15
If Label1.Left < -3000 Then
Label1.Left = 500
End If
End Sub
selamat mencoba
Read Full...