Cari Hari Lahir Anda

Tahukah hari lahir kamu???berdasarkan pengamatan, kebanyakan orang tuh pada kagak tahu hari lahir masing-masing tetapi kalau tanggal lahir pasti hafal lah. Tutorial kali ini, kita akan membuat aplikasi untuk mencari hari lahir biar pada tahu hari lahir masing-masing hehehe...

Kalau pada aplikasi sebelumnya, toolbox yang sudah kita gunakan yaitu commanbutton, label serta timer dan kali ini kita akan tambahkan satu lagi toolbox yakni textbox. Apa perbedaan label dengan textbox???perbedaan kedua toolbox tersebut ialah kalau label kita tidak akan bisa mengisi sendiri caption kecuali melalui pihak kedua (misal commandbutton atau timer) tetapi kalau textbox tidak ada properties yang bernama caption, yang ada yakni text dan di properties text ini kita bisa mengisi sendiri sesuai dengan keinginan kita.

Langkah pertama, bukalah Microsoft Visual Basic anda dan pilih StandardEXE
Langkah kedua, pada bagian toolbox pilihlah 3 buah label, 3 buah textbox dan satu commandbutton dan atur properties seperti dibawah ini

Form1
Name	frmCari
BorderStyle	1 – Fixed Single
Caption	Cari Hari Lahir Anda
Label 1
Name	lblTanggal
Caption	Tanggal Lahir
Label 2
Name	lblHari
Caption	Hari Lahir
Label 3
Name	lblBintang
Caption	Bintang
TextBox 1
Name	txtTanggal
Text	Dikosongi / Tidak diisi
ToolTipText	contoh : 17 08 1945
TextBox 2
Name	txtHari
Text	Dikosongi / Tidak diisi
TextBox 3
Name	txtBintang
Text	Dikosongi / Tidak diisi
CommandButton
Name	cmdCari
Caption	Cari Hari Lahir Saya

Langkah ketiga, atur seperti gambar di bawah ini


Langkah keempat, masukkan source code di bawah ini pada Code Window

Private Sub cmdCari_Click()
'Mencari hari lahir
Dim KodeHari As Byte
Dim Hari As String
KodeHari = Weekday(txtTanggal.Text)
Select Case KodeHari
Case 1: Hari = "Minggu"
Case 2: Hari = "Senin"
Case 3: Hari = "Selasa"
Case 4: Hari = "Rabu"
Case 5: Hari = "Kamis"
Case 6: Hari = "Jumat"
Case 7: Hari = "Sabtu"
End Select
txtHari.Text = Hari

'Mencari Bintang
Dim Tgl, Bln As Byte
Dim Bintang As String
Tgl = Day(txtTanggal.Text): Bln = Month(txtTanggal.Text)
If (Tgl >= 21 And Bln = 3) Or (Tgl <= 20 And Bln = 4) Then Bintang = "ARIES"
If (Tgl >= 21 And Bln = 4) Or (Tgl <= 21 And Bln = 5) Then Bintang = "TAURUS"
If (Tgl >= 22 And Bln = 5) Or (Tgl <= 21 And Bln = 6) Then Bintang = "GEMINI"
If (Tgl >= 22 And Bln = 6) Or (Tgl <= 22 And Bln = 7) Then Bintang = "CANCER"
If (Tgl >= 23 And Bln = 7) Or (Tgl <= 22 And Bln = 8) Then Bintang = "LEO"
If (Tgl >= 23 And Bln = 8) Or (Tgl <= 22 And Bln = 9) Then Bintang = "VIRGO"
If (Tgl >= 23 And Bln = 9) Or (Tgl <= 22 And Bln = 10) Then Bintang = "LIBRA"
If (Tgl >= 23 And Bln = 10) Or (Tgl <= 21 And Bln = 11) Then Bintang = "SCORPIO"
If (Tgl >= 22 And Bln = 11) Or (Tgl <= 21 And Bln = 12) Then Bintang = "SAGITARIUS"
If (Tgl >= 22 And Bln = 12) Or (Tgl <= 20 And Bln = 1) Then Bintang = "CAPRICORN"
If (Tgl >= 21 And Bln = 1) Or (Tgl <= 19 And Bln = 2) Then Bintang = "AQUARIUS"
If (Tgl >= 20 And Bln = 2) Or (Tgl <= 20 And Bln = 3) Then Bintang = "PISCES"
txtBintang.Text = Bintang
End Sub

Private Sub Form_Load()
cmdCari.Enabled = False
End Sub

Private Sub txtTanggal_Change()
If IsDate(txtTanggal.Text) Then
cmdCari.Enabled = True
Else
cmdCari.Enabled = False
End If
End Sub

Langkah kelima, tekan Run atau F5 dan compile aplikasi ini dengan menekan tombol Alt+F dan pilih make project1.exe(atau tekan huruf “k” pada keyboard).

Dapatkan Source Code nya di bawah ini atau masuk pada halaman Download
 

Ditulis oleh paijo_jr