Program VB Membuat Zodiak

Bingung Nih Malem malem iseng Mau posting apaan. Eh kebetulan kami punya Program VB tentang Pembuatan Zodiak, Jadi Langsung Aja Deh.....

Kilk Disini Untuk lihat program zodiak

Langkah pertama


Membuat Tabel Seperti Di bawah ini

OBJECK	PROPERTI	SETTING
Form1	Caption	Bintang Anda
Label1	Caption	TAnggal Lahir Anda
Label2	Caption	DD/MM/YYYY
Label3	Caption	Bintang anda
Label4	Borderstyle	1-Fixed single
Texbox	Name	Txt_Tanggal
Command1	Caption	Kembali

Langkah Kedua

Membuat Desain Tabel Seperti di bawah ini

Listing kode Seperti Di bawah ini

Private Sub txt_tanggal_KeyPress(KeyAscii As Integer)

Dim tgl, new_tgl

Dim ket As String

If KeyAscii = 13 Then

tgl = DateValue(txt_tanggal)

new_tgl = Month(tgl) & "/" & Day(tgl) & "/" & "00"

Select Case new_tgl

Case #12/21/2000# To #1/19/2000#

ket = "CAPRICORNUS"

Case #1/20/2000# To #2/18/2000#

ket = "AQUARIUS"

Case #2/19/2000# To #3/20/2000#

ket = "PISCES"

Case #3/21/2000# To #4/20/2000#

ket = "ARIES"

Case #4/21/2000# To #5/20/2000#

ket = "TAURUS"

Case #5/21/2000# To #6/20/2000#

ket = "GEMINI"

Case #6/21/2000# To #7/20/2000#

ket = "CANCER"

Case #7/21/2000# To #8/20/2000#

ket = "LEO"

Case #8/21/2000# To #9/20/2000#

ket = "VIRGO"

Case #9/21/2000# To #10/20/2000#

ket = "LIBRA"

Case #10/21/2000# To #11/20/2000#

ket = "SCORPIO"

Case #11/21/2000# To #12/20/2000#

ket = "SAGITARIUS"

End Select

lbl_bintang.Caption = ket

End If

End Sub

Oke Deh Segitu aja program Yang  kami buat, Untuk Yang mau Coba praktekan, kami berikan link untuk mendownload program kami, Download Disini saja

Best Regards

(Eliniyan)