Membuat Aplikasi Sederhana Mencari Bintang (Zodiak)

Untuk pencarian bintang / zodiak biasanya dapat kita lihat di majalah dan surat kabar lainya, dalam hal ini kita dapat membuatnya dengan menggunakan Aplikasi Visual Basic / VB, berikut saya akan memberikan langkah-langkah dan besertakan scriptnya untuk membuat aplikasi sederhana mencari bintang / zodiak yang mungkin anda dapat kembangkan lagi logikanya dan dapat menjadi referensi dalam pembuatan aplikasi / program yang anda buat.

Pertama anda letakan 3 komponen textbox dan 1 commandbutton pada form anda, setelah itu masukan script yang ada di bawah ini.

Private Sub Form_Load()

Command1.Enabled = False

End Sub

Private Sub Text1_Change()

If IsDate(Text1) Then

Command1.Enabled = True

Else

Command1.Enabled = False

End If

End Sub

Private Sub Command1_Click()

'MENCARI HARI LAHIR

Dim KodeHari As Byte

Dim Hari As String

KodeHari = Weekday(Text1)

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

Text2 = Hari

'MENCARI BINTANG

Dim Tg, Bl As Byte

Dim Btg As String

Tg = Day(Text1): Bl = Month(Text1)

If (Tg >= 21 And Bl = 3) Or (Tg <= 20 And Bl = 4) Then Btg = "ARIES" If (Tg >= 21 And Bl = 4) Or (Tg <= 21 And Bl = 5) Then Btg = "TAURUS" If (Tg >= 22 And Bl = 5) Or (Tg <= 21 And Bl = 6) Then Btg = "GEMINI" If (Tg >= 22 And Bl = 6) Or (Tg <= 22 And Bl = 7) Then Btg = "CANCER" If (Tg >= 23 And Bl = 7) Or (Tg <= 22 And Bl = 8) Then Btg = "LEO" If (Tg >= 23 And Bl = 8) Or (Tg <= 22 And Bl = 9) Then Btg = "VIRGO" If (Tg >= 23 And Bl = 9) Or (Tg <= 22 And Bl = 10) Then Btg = "LIBRA" If (Tg >= 23 And Bl = 10) Or (Tg <= 21 And Bl = 11) Then Btg = "SCORPIO" If (Tg >= 22 And Bl = 11) Or (Tg <= 21 And Bl = 12) Then Btg = "SAGITARIUS" If (Tg >= 22 And Bl = 12) Or (Tg <= 20 And Bl = 1) Then Btg = "CAPRICORN" If (Tg >= 21 And Bl = 1) Or (Tg <= 19 And Bl = 2) Then Btg = "AQUARIUS" If (Tg >= 20 And Bl = 2) Or (Tg <= 20 And Bl = 3) Then Btg = "PISCES"

Text3 = Btg

End Sub

Source: http://pemogramanvb.blogspot.com/2010/11/contoh-aplikasi-sederhana-mencari.html
Anda ingin mencari refrensi dan contoh program lengkap ? Kami ada. Sekarang Anda bisa mencari Visual Basic 6.0 Program di situs ini : www.panduanSkripsi.net. Koleksi program lengkap di sana, proyek PHP dan MySQL, juga jQuery dan Framework. Bukunya juga ada.