Membuat kalender islam (hijriah) dengan vb.06

Langkah pertama
1.Buatlah sebuah objek seperti diatas yang terdiri dari,2 label,1 combo box,1 text,3 command button
2.Pada command 1(proses) masukan program di bawah ini:
Private Sub Command1_Click()
If Combo1.Text = "januari" Then
Text1.Text = "muharram dan shafar"
ElseIf Combo1.Text = "februari" Then
Text1.Text = "shafar dan rabiul al-awwal"
ElseIf Combo1.Text = "maret" Then
Text1.Text = "rabiul al-awal dan rabiul al-akhir"
ElseIf Combo1.Text = "april" Then
Text1.Text = "rabiul al-akhir dan jumadil al-awwal"
ElseIf Combo1.Text = "mei" Then
Text1.Text = "jumadil al-awwal dan jumadil al-akhir"
ElseIf Combo1.Text = "juni" Then
Text1.Text = "jumadil al-akhir dan rajab"
ElseIf Combo1.Text = "juli" Then
Text1.Text = "rajab dan sya'ban"
ElseIf Combo1.Text = "agustus" Then
Text1.Text = "ramadhan dan syawwal"
ElseIf Combo1.Text = "september" Then
Text1.Text = "syawwal dan dzul-qaidah"
ElseIf Combo1.Text = "oktober" Then
Text1.Text = "dzul-qaidah dan dzul-hijjah"
ElseIf Combo1.Text = "november" Then
Text1.Text = "dzul-hijjah dan muharram"
ElseIf Combo1.Text = "desember" Then
Text1.Text = "muharram dan shafar"
End If
End Sub
3.Pada command 2(clear) masukan program dibawah ini:
Private Sub Command2_Click()
Combo1.Text = ""
Text1.Text = ""
End Sub
4.Pada command 3(exit) masukan program dibawah ini:
Private Sub Command3_Click()
Unload Me
End Sub

5.Pada form load masukan nama-nama dibawah ini agar muncul pilihan pada combo 1:

Private Sub Form_Load()
MsgBox "selamat datang"
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

SELAMAT MENCOBA…….!




















+