Membuat Program Zodiak Menggunakan Visual Basic

Hello programmer sekalian,,,,

gimana kabarnya nie hari, masih bingung, pusing, atau kesal.
oya,, pda kali ini kita (saya dan kamu) akan bersama belajar cara membuat program dengan visual basic (VB)

kali ini kita akan bersama-sama biki program zodiak pake VB
1. Siapkan dulu Komputer yang ada Program VB Nya
2. terus,,, kita buka deh programnya, pilih standar exe,
3. masukkan kontrol Label, Textbox, Combo box, control image N picture tak lupa + Command Button.
4. masukkan kodenya seperti yang di bawah ini:
Private Sub Form_Load()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
Tgl = Str(Day(Date))
Bln = Str(Month(Date))
Thn = Str(Year(Date))
Label6.Caption = "EDISI HARI INI:" + Tgl + "-" + Bln + "-" + Thn
Timer1.Interval = 10000
End Sub


Private Sub Timer1_Timer()
BackColor = QBColor(Rnd * 15)
ForeColor = QBColor(Rnd * 10)
End Sub

Private Sub Keluar_Click()
Form2.Show
End Sub

Private Sub Proses_Click()
If Nama.Text = "" Then
MsgBox "Anda Belum Memasukkan Nama Anda"
Label5.Visible = False
Bintang.Text = ""
End If
Gambar1.Visible = False
If Bintang.ListIndex = 0 Then
Image1.Visible = True
Label5.Visible = True
Label5.Caption = "Cowok: Hobi mengagumi kecantikan cewek-cewek, Betah ngobrol berjam-jam, Bisa gaul sama siapa aja dengan enak, Luwes ngadepin apa saja. Cewek: Nggak bisa diem, haus kegiatan, Daya tariknya tinggi bak magnet, Pintar membujuk en ngerayu, Pintar memberi nasihat yang pas. (Sohib: Leo en Libra. Yayang: Aries en Sagitarius)"
ElseIf Bintang.ListIndex = 1 Then
Image2.Visible = True
Label5.Visible = True
Label5.Caption = "Cowok: Rendah hati, Tampangnya oke, Mendambakan keharmonisan en keindahan, Suka barang bagus, musik en kesenian. Cewek: Sexy en feminim, Punya loleransi tinggi, Perasaannya stabil, Mendambakan,, kenyamanan dan kemewahan. (Sohib: Cancer en Capricorn. Yayang: Pisces en Scorpio)"
ElseIf Bintang.ListIndex = 2 Then
Image3.Visible = True
Label5.Visible = True
Label5.Caption = "Cowok: Atensinya gedhe en sangat emosional, Romantis banget en suka~ nunjukin hal itu pada doinya, Senang kencan, Suka kehidupan rumah. Cewek: Hatinya paling lembut diantara zodiak lain, Mendambakan rasa aman dengan doinya, Penampilan sangat feminim, Kehangatannya selalu terpancar ke sekelilingnya. (Sohib: Taurus en Pisces. Yayang: Capricorn en Scorpio)"
ElseIf Bintang.ListIndex = 3 Then
Image4.Visible = True
Label5.Visible = True
Label5.Caption = "Cowok: Ambisius, Suka barang bagus, Suka kerja keras en bisa ngeliat kenyataan, Mendambakan kekuasaan Cewek: Berbakat memimpin, Punya banyak kejutan, Terbuka buat hal-hal baru dan belum dikenal, Sangat optimis. (Sohib: Sagitarius en Aquarius. Yayang: Libra atau Gemini)"
ElseIf Bintang.ListIndex = 4 Then
Image5.Visible = True
Label5.Visible = True
Label5.Caption = "Cowok: Suka Kerja Keras, Bisa Dipercaya dan Cerdas, Cenderung mau berkorban apa saja buat mengejar cinta sejati, Ahli berorganisasi end Andai Soai detail, Suka telat kalau janji. Cewek: Standarmu tentang apa sa|a sangattinggi, Kamu seiaiu menganggap senus apa saja, Suka kerapian dan keteraturan. (Sohib: Scorpio end Taurus. Yayang. Capricorn And Pisces)"
ElseIf Bintang.ListIndex = 5 Then
Image6.Visible = True
Label5.Visible = True
Label5.Caption = "Cowok: Berjrwa pemimpin, Suka manjain cewek, Materialises Cewek: Happy kalau jadi pusat perhatian, Cerdas dan seialu berfikir positif, Bisa Gaul dengan siapa saja. (Sohib: Gemini and Sagitarius. Yayang: Libra dan Aquarius)"
ElseIf Bintang.ListIndex = 6 Then
Image7.Visible = True
Label5.Visible = True
Label5.Caption = "Cowok: Daya Tariknya tinggi, Seialu berfikir positif tentang orang lain, Senang Main Mata, Mau kerja sama en kompromi, Cewek: Seialu berusaha berfikir en bersikap seimbang, Pendengarannya baik, gaya uniknya narik atensi orang, penampilan cool en pede. (Sohib: Leo en Gemini, Yayang: Aries en Aquarius)"
ElseIf Bintang.ListIndex = 7 Then
Image8.Visible = True
Label5.Visible = True
Label5.Caption = "Cowok: Daya tariknya bak magnet, berani sama siapa saja an tentang apa saja, Semangat tinggi meraih sukses, Intensitasnya tinggi soal apa saja. Cewek: Rada misterius, tapi justru itu daya tariknya, Nggak segan nantang resiko, cerdas en tajam intunisinya, Suka penampilan ala binatang. (Sohib: Virgo en Pisces. Yayang: Taurus en cancer)"
ElseIf Bintang.ListIndex = 8 Then
Image9.Visible = True
Label5.Visible = True
Label5.Caption = "Cowok: Selera humornya yang brilyan sangat memikat. Kharismanya memancar ke mana-mana. Kalo udah percaya sama seseorang, apapun bakal dibelanya. Suka bertualang ,nggak betah di rumah. Cewek: Petualangan en hal-hal menantang menarik hatinya. Sangat Optimis. Pintar, jujur en cerdas. Suka hura-hura. (Sohib: Aries en Libra. Yayang: Aquarius en Leo)"
ElseIf Bintang.ListIndex = 9 Then
Image10.Visible = True
Label5.Visible = True
Label5.Caption = "Cowok: Perasaan en pemikirannya bisa dipercaya. Kedisiplinan en usahanya lebih dari yang lain. Sangat Kuat kemampuannya. Cewek: Seialu ingat hal istimewa, misalnya ultah. Setia, bisa dipercaya en bertanggung jawab. Suka jalan en nantang persaingan. (Sohib: Taurus dan Cancer. Yayang: Virgo en Pisces)"
ElseIf Bintang.ListIndex = 10 Then
Image11.Visible = True
Label5.Visible = True
Label5.Caption = "Cowok: Penampilannya tenang tapi menghanyutkan. Peka en romantis. Mau belajar dari setiap kesalahan. Mendambakan semua berjalan damai en nyaman. Cewek: Lembut penuh atensi. Mau ngertiin problem orang lain. Seialu punya waktu buat tempat curhat. Daya khayal en imajinasimu menarik lawan jenismu. (Sohib: Cancer en Scorpio, Yayang: Virgo en Taurus)"
ElseIf Bintang.ListIndex = 11 Then
Image12.Visible = True
Label5.Visible = True
Label5.Caption = "Cowok: Tampilannya Cool. Area persohibannya sangat luas. Sangat ketarik dengan hal-hal kemanusiaan. Doi jujur en apa adanya. Cewek: Tampilannya ngikutin tren. Bebas en sulit terikat. Lincah en populer di antara teman. Setia en integritasnya tinggi. (Sohib: Aries en Gemini. Yayang: Libra en Leo)"
End If
End Sub

5. kalau udah selesai, udah tinggal kita jalanin programnya, tekan j F5
6. selamat mencoba