Cara Membuat Zodiak Games di Visual Basic

Berikut cara membuat Games Zodiak dan berserta Codingnya

Gambar Menu Zodiak

Codingnya Sbb:

Private Sub Timer1_Timer()

Label5.Caption = Time

End Sub

Private Sub txtexit_Click()

y = MsgBox("benar Anda Ingin Keluar ?", vbYesNo + 16, "Perigatan")

If y = 6 Then

Unload Me

Else

Cancel = 7

End If

End Sub

Private Sub txtnew_Click()

txtnama.Text = ""

txttgl.Text = ""

txtbln.Text = ""

txttahun.Text = ""

ckelamin.Text = ""

txtumur.Text = ""

Label8 = ""

Label10 = ""

Label6 = ""

txtnama.SetFocus

End Sub

Private Sub txtzodiak_Click()

Day (txttgl.Text)

Month (txtbln.Text)

Year (txttahun.Text)

If (txttgl.Text >= 20 And txtbln.Text = 1) Or (txttgl.Text <= 18 And txtbln.Text = 2) Then

Label8 = "AQUARIUS"

Label10 = "Peluang yang ada masih bisa diraih dengan seoptimal mungkin.Dihari ini banyak yang bisa anda kerjakan, untuk itu tak baik menunda pekerjaan kalau hanya rasa malas yang menjadi alasan. "

Label6 = "Tidak ada masalah yang berhubungan dengan masalah badan anda, semuanya tanpa baik dan terjaga."

Image1.Picture = LoadPicture(App.Path & "/" & "aquarius.jpg")

ElseIf (txttgl.Text >= 19 And txtbln.Text = 2) Or (txttgl.Text <= 20 And txtbln.Text = 3) Then

Label8 = "PISCES"

Label10 = "Jangan membesar-besarkan masalah, apalagi jika sudah hampir beres,Usaha boleh dibilang lancar dan tidak mengalami hambatan yang terlalu signifikan."

Label6 = "Di kala beristirahat sebaiknya Anda lupakan sejenak urusan di kantor walaupun sebenarnya masalah yang Anda tanggung saat ini lumayan berat"

Image1.Picture = LoadPicture(App.Path & "/" & "pisces.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 3) Or (txttgl.Text <= 20 And txtbln.Text = 4) Then

Label8 = "ARIES"

Label10 = "Di kala beristirahat sebaiknya Anda lupakan sejenak urusan di kantor walaupun sebenarnya masalah yang Anda tanggung saat ini lumayan berat."

Label6 = "Kepala terasa pening walau tak terlalu parah akan tetapi cukup mengganggu kinerja Anda."

Image1.Picture = LoadPicture(App.Path & "/" & "aries.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 4) Or (txttgl.Text <= 20 And txtbln.Text = 5) Then

Label8 = "TAURUS"

Label10 = "Jangan cemas karena masih ada yang mau membantu di kala Anda mengalami kesulitan."

Label6 = "Batuk yang Anda derita bukanlah batuk sepele. Segera pergi ke dokter, jangan menundanya jika tak ingin ada masalah di kemudian hari."

Image1.Picture = LoadPicture(App.Path & "/" & "taurus.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 5) Or (txttgl.Text <= 20 And txtbln.Text = 6) Then

Label8 = "GEMINI"

Label10 = "Jangan ambil resiko jika memang saran yang muncul dari rekan-rekan hanya akan mendatangkan masalah saja."

Label6 = "Flu tampak tidak dapat diajak kompromi sehingga cukup mengganggu."

Image1.Picture = LoadPicture(App.Path & "/" & "gemini.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 6) Or (txttgl.Text <= 20 And txtbln.Text = 7) Then

Label8 = "CANCER"

Label10 = "Buat daftar pekerjaan begitu bangun di pagi hari. Dengan begitu, Anda tak lagi menunda pekerjaan dan mengkhawatirkan pekerjaan setelah jam kerja usai."

Image1.Picture = LoadPicture(App.Path & "/" & "cancer.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 7) Or (txttgl.Text <= 21 And txtbln.Text = 8) Then

Label8 = "LEO"

Label10 = "Jika seseorang terlihat sangat luar biasa, cobalah untuk melihat pada kredibilitasnya."

Label6 = "Memang sulit untuk memulai sesuatu yang positif, akan tetapi setelah berjalan maka semua itu akan terasa ringan."

Image1.Picture = LoadPicture(App.Path & "/" & "leo.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 8) Or (txttgl.Text <= 21 And txtbln.Text = 9) Then

Label8 = "VIRGO"

Label10 = "Bersiaplah untuk melakukan aksi dan katakan apa yang ada dalam pikiran Anda."

Label6 = "Kurangi makan terlalu pedas dan terlalu banyak. Makanlah sesuai dengan porsi yang ada. Jangan sampai melebihi batas."

Image1.Picture = LoadPicture(App.Path & "/" & "virgo.jpg")

ElseIf (txttgl.Text >= 22 And txtbln.Text = 9) Or (txttgl.Text <= 22 And txtbln.Text = 10) Then

Label8 = "LIBRA"

Label10 = "Anda membuat pernyataan atau pergerakan besar pada minggu ini. Anda juga membuat sesuatu yang berbeda dan lebih baik."

Label6 = "Udara segar dan lingkungan yang nyaman akan sangat membantu untuk menghilangkan segala kepenatan yang ada dalam pikiran dan badan Anda, untuk itu mulai dipersiapkan rencana jalan-jalan di daerah yang bebas polusi."

Image1.Picture = LoadPicture(App.Path & "/" & "libra.jpg")

ElseIf (txttgl.Text >= 23 And txtbln.Text = 10) Or (txttgl.Text <= 22 And txtbln.Text = 11) Then

Label8 = "SCORPIO"

Label10 = "Profesionalitas dan cinta kadang sulit untuk berjalan bersamaan tanpa ada usaha yang keras dari dalam diri."

Label6 = "Kurangilah begadang di malam hari karena selain menguras stamina juga biaya yang dikeluarkan untuk itu lumayan besar."

Image1.Picture = LoadPicture(App.Path & "/" & "scorpio.jpg")

ElseIf (txttgl.Text >= 23 And txtbln.Text = 11) Or (txttgl.Text <= 20 And txtbln.Text = 12) Then

Label8 = "SAGITARIUS"

Label10 = "Ada peningkatan, hanya saja semua itu masih butuh kreasi dan inovasi baru sehingga tidak terkesan monoton."

Label6 = "Income di hari ini lumayan tinggi karena ada pemasukan yang tidak Anda sangka sebelumnya."

Image1.Picture = LoadPicture(App.Path & "/" & "sagitarius.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 12) Or (txttgl.Text <= 19 And txtbln.Text = 1) Then

Label8 = "CAPRICON"

Label10 = "Jangan lawan perintah atasan karena posisi Anda masih belum begitu kuat."

Label6 = "Kondisi badan perlu dijaga, hindari keluar malam."

Image1.Picture = LoadPicture(App.Path & "/" & "capricon.jpg")

Else

Label8 = "ERROR"

Label10 = "ERROR"

Label6 = "ERROR"

txtumur = "ERROR"

End If

txtumur = Year(Date) - txttahun.Text

End Sub

Okey. Selamat Mencoba

Download disini