Rabu, 10 November 2010

Contoh Aplikasi Sederhana Mencari Bintang / Zodiak dengan VB

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


Artikel yang berkaitan



6 komentar:

  1. Sob link blognya sudah saya pasang.. silahkan dicheck DISINI

    BalasHapus
  2. Wah ketemu nich sesama programer salam kenal dari Tangerang, mau coba dulu nich scriptnya thanks

    BalasHapus
  3. kak kog bleh buat juga donk gambarannya sebelum lgsg ke input data..

    BalasHapus
  4. terimakasih banyak infonya sobat.. sangat membantu sekali

    BalasHapus
  5. infonya sangat bermanfat dan menambah wawasan,, thanks gan..

    BalasHapus

Silahkan tulis komentar jika ada yang ingin ditanyakan dari artikel ini, komentar kalian sangat berarti bagi saya.

Format untuk komentar:
1) Pilih profil sebagai Name/URL
2) Isikan nama anda
3) Isikan URL (Blog/Website/Facebook/Twitter/Email/Kosongkan)
4) Isikan Komentar
5) Postkan Komentar anda.

Maaf untuk komentar ANONIM tidak akan saya RESPON.