program Pencari Hari lahir

Nah kali ini saya akan membagikan koding lagi nihh,,sekarang kalian bisa cari tahhu waktu lahir hari apa,,siapa tau ortu kalian lupa,,dengan program dari VB ini kita bisa mencarinya lho…caranya :

Kalian harus Punya dulu software VisualBasic,,maaf yaaah langsung aja ke pembuatan programnya,,

-Masukan 2 label dengan Caption: Masukan Tanggal-Bulan-Tahun, Hari

-Masukan 2 Text

-Masukan 3 commandbutton dengan Caption : Proses, Reset, Keluar

Khusus untuk commandbutton3(Proses) ganti Name nya diproperties dengan ‘cmdproses’

Nah sekarang tinggal masukan deh koding nya , dengan masuk ke View code biasanya di pojok kiri diatas project.

Private Sub cmdproses_Click()

psn = MsgBox("Apakah anda yakin?periksa lagi data yang anda masukan", vbQuestion + vbOKCancel, "Warning")

Text2.Enabled = False

Text2.Text = WeekdayName(Weekday(Text1.Text))

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub bersih()

Text1 = ""

Text2 = ""

End Sub

Private Sub aktiv()

Text1.Enabled = True

Text2.Enabled = True

End Sub

Private Sub nonaktiv()

Text1.Enabled = False

Text2.Enabled = False

End Sub

Private Sub Command2_Click()

aktiv

bersih

Text1.SetFocus

End Sub

Private Sub Form_Activate()

bersih

nonaktiv

End Sub

::segitu dulu aja yaaaa..selamat mencoba !!!

Nah Untuk Programnya yg sudah jadi
 

Download  Disini