Membuat Aplikasi Mengetahui Hari Lahir dan Bintang Dengan Visual Basic

Hay Sobat Raysoft , Dalam kesempatan kali ini saya akan membuat aplikasi untuk membuat hari lahir dan nama intang.Untuk tutorial kita yang ini saya tidak akan membuat penjelasan secara rinci karena saya rasa anda sudah cukup paham dengan VB.Langsung ke TKP:

1.Tambahkan 3 buah label,3 buah text box,dan dua buah command button

2.desain posisi demi posisi seperti gambar di atas !

3.masukan kode berikut:

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

 

Lalu Lihat Hasilnya Dengan Klik Play atau pencet tombol F5 Sob Oh iya Sob Format Lahirnya TANGGAL-BULAN-LAHIR , Contoh 07-05-1998

 

 Sekian Sob Postingan Tentang Membuat Aplikasi Mengetahui Hari Lahir dan Bintang Dengan Visual Basic Kali Ini Jika ada Keslitan silahkan tinggalkan Pesan di Komentar Atau di Chat Box . Terima Kasih :) Salam Blogwalking

INFO PENTING
Kabar Gembira Untuk Kita Semua !
ada game yang menghasilkan uang, dan jika kita meng-install aplikasi atau ngerjain task akan dibayar 0,1 - 1$ dan juga saat pertama kali mendaftar pakai coupon AE89874 langsung dapat 0,3$ Namun ini khusus bagi pengguna android.
Nama aplikasinya : WHAFF
Masukan coupon : AE89874 (langsung dapat 0,3$)
Downloadnya dimana : Google Playstore atau bisa langsung klik disini

Share :

Tweet

✚

Related Post