projek mambuat kalender masehi dalam vb 6.0

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

0 komentar:

Posting Komentar

 

Free Blog Templates

Powered By Blogger

Blog Tricks

Powered By Blogger
Powered By Blogger
© Grunge Theme Copyright by h3ro7 | Template by Blogger Templates | Blog Trick at Blog-HowToTricks