My Program

1. Download game tebak kata

    klik disini


2. Download Ramalan Zodiak me
    klik disini


   Untuk Program lain Klik disini

3. Download cerita-cerita menarik
    klik disini

Mengubah Foto Hitam Putih Jadi Berwarna dengan photoshop CS 3

Pada tutorial Photoshop kali ini, kita akan belajar cara membuat foto yang hitam putih menjadi berwarna. Karena dalam versi 7, CS3 atau berapapun, Photoshop itu hanyalah sebuah program, maka tentunya tidak akan bisa mengetahui seperti apa warna yang ada sesungguhnya. Berbeda dengan cara untuk membuat foto menjadi hitam putih, kita tinggal menggunakan Photoshop untuk menghilangkan informasi warnanya saja. Untuk membuat foto jadi berwarna lagi, kita harus manual saat memberikan warna.
Ada dua cara yang bisa kita lakukan untuk mewarnai foto, cara yang lebih sederhana (yang akan saya bahas lagi kapan-kapan), dan cara yang lebih panjang namun bisa diperoleh hasil yang lebih bagus. Cara yang lebih panjang ini yang akan saya bahas pada tutorial kali ini. Cara ini dulu pernah juga saya bahas di dewo.web.id namun dalam bahasa inggris (tidak usah dicari blognya, karena sudah tidak saya lanjutkan lagi).

Langkah mewarnai foto hitam putih menjadi berwarna

Langkah 1
Bukalah sebuah foto Anda yang berwarna hitam putih. Jika ingin latihan namun tidak mempunyai yang hitam putih, buat saja dulu dengan menerapkan pengaturan warna pada menu Image > Adjustment > Desaturate, atau dengan cara lain misalnya seperti yang ini.
Pada tutorial Photoshop kali ini, saya gunakan sebuah foto saya dan teman-teman saya waktu sedang pergi ke pantai Baron, Yogyakarta (sekitar tahun 1996). Foto ini memang aslinya hitam putih, karena saat itu yang motret memang sedang memperdalam kemampuannya dalam fotografi dengan film hitam putih. Foto-foto pada saat itu diambil dengan dua kamera, yang satu hitam putih (milik Mas Aqim) dan satunya lagi berwarna (milik Mas Rafit).

Sayangnya hasil pindai foto ini agak buram, karena ini dipindai pada sekitar tahun 1997. Waktu itu di Yogyakarta masih sangat sulit untuk mencari persewaan scanner. Dan saya sendiri masih awal mempelajari Photoshop, sama sekali belum tahu dengan resolusi. Seandainya waktu itu saya ditanya resoLusi itu apa, pasti saya jawab itu nama mahasiswi cakep, seorang adik angkatan yang asalnya dari Solo.

Langkah 2
Kliklah icon New Adjustment Layer, icon ini terletak pada sebelah bawah dari palet layer. Pada gambar dibawah ini saya beri tanda lingkaran merah. Kemudian pilihlah Levels. Silahkan dibaca tutorial yang ini untuk mengetahui lebih lanjut tentang pengaturan Levels.

Setelah memilih Levels, maka akan muncul kotak dialog pengaturannya. Aturlah agar gambar menjadi lebih terang warnanya. Ubahlah agar warna putih pada foto menjadi tidak begitu putih. Anda bisa mengacu pada pengaturan dibawah ini, namun tidak perlu persis. Aturlah sesuai dengan kondisi foto yang sedang Anda edit.

Tujuan langkah ini adalah untuk membuat agar gambar lebih terang, sehingga kita bisa melihat bagian-bagian gambar yang warnanya gelap dengan lebih detil. Kenapa saya menggunakan Adjustment Layer dan bukan dari menu Image > Adjustment? Karena kita bisa menghilangkan pengaturan Levels itu dengan mudah dan mengembalikannya ke kondisi warna semula. Lebih lanjut, silahkan dibaca pada tutorial tentang Adjustment Layer.
Langkah 3
Sekarang buatlah seleksi pada bagian kulit dari semua orang yang ada pada foto tersebut. Baik itu pada bagian wajah, tangan dan lainnya. Tentang pembuatan seleksi ini, Anda bisa menggunakan banyak cara. Seleksi kalau bisa dilakukan secara detil, namun karena kondisi foto ini sendiri sangat kurang dan tidak jelas hasil pindainya, maka untuk membuat seleksi saya gunakan pen tool.
Dengan pen tool, saya bisa membuat garis path yang bisa saya sesuaikan sendiri bentuknya. Jadi apabila ada bagian yang tidak jelas, maka saya tentukan sendiri bentuknya seperti apa. Misalnya pada gambar tangan dari Bagyo dan Udin. Karena berada pada bagian hitam yang sudah tidak jelas lagi, maka saya mengkira-kira sendiri seperti apa bentuk tangannya.
Berikut ini gambar foto yang diseleksi pada bagian kulitnya.

Langkah 4
Setelah seleksinya jadi, sekarang tekan Ctrl + J pada keyboard. Tujuan langkah in adalah untuk membuat sebuah layer baru yang merupakan hasil potongan seleksi tadi. Sekarang pada palet layer akan muncul layer baru dengan nama Layer 1. Kemudian pastikan icon gambar mata palet Adjutment layer dalam kondisi tidak aktif (lihat gambar lingkaran hijau dibawah ini).

Agar tidak membingungkan pada langkah-langkah berikutnya, ubahlah nama palet ini dengan nama yang sesuai. Misalnya pada layer ini saya beri nama Kulit.

Dengan cara seperti ini, maka kita bisa mengolah bagian warna kulit saja, tanpa mempengaruhi bagian lain dari gambar. Bahkan gambar aslinya juga tidak akan terpengaruh, karena berada pada layer yang berbeda.
Langkah 5
Sekarang pilih menu Image > Adjustment > Hue/Saturation. Kita akan mengatur warna kulit ini agar nampak seperti warna kulit sesungguhnya. Caranya dengan memberi tanda cek pada pilihan Colorize dulu, kemudian menggeser-geser slider pada Hue, Saturation, dan Lightness. Lebih lanjut tentang Hue / Saturation, bisa dibaca pada tutorial ini.

Jika warna yang kita atur ini dirasakan kurang sesuai, tidak jadi masalah karena masih bisa diatur ulang lagi nantinya.
Langkah 6
Sekarang pilihlah lagi layer background, pastikan icon mata pada Layer Adjustment dalam kondisi aktif lagi. Kemudian ulangilah mulai langkah ke-3 hingga ke-5, kita buat seleksi lagi, namun kali ini kita seleksi bagian lain dari foto. Misalnya kita seleksi dulu bagian baju dari per orang yang ada dalam foto. Ubahlah warnanya menggunakan Hue / Saturation juga.

Ulang-ulang langkah diatas pada setiap bagian dari gambar yang ingin kita beri warna. Berikut ini gambar yang sudah sebagian diberi warna. Perhatikan juga jumlah layer berikut nama-namanya.

Pada setiap bagian saya buat dalam layer yang berbeda dengan Photoshop, dengan nama layer yang berbeda pula.
Langkah 7
Pilih / aktifkan lagi layer background. Bisa dilihat pada gambar berikut ini, ada beberapa bagian dari gambar rambut yang warnanya agak putih. Bagian tepi dari rambut tersebut akan kita buat menjadi berwarna lebih hitam. Cara yang saya gunakan untuk membuatnya menjadi hitam adalah dengan menggunakan Burn tool (lihat tanda lingkaran merah pada gambar dibawah ini).

Burn tool saya pilih dengan melakukan pengaturan pada Range dan Exposure-nya (lihat tanda lingkaran biru pada gambar diatas). Range bisa dipilih-pilih antara Midtone dan Highlight, sedangkan Exposure diatur pada nilai yang rendah. Sapukan Burn tool pada bagian tepi rambut tersebut (lihat tanda lingkaran biru pada gambar tutorial diatas).
Langkah 8
Jika sudah semua bagian Anda beri warna, maka bisa dikatakan bahwa gambarnya sudah jadi. Jika ada warna yang ingin diubah lagi, tinggal diubah saja. Karena masing-masing berada pada layer yang berbeda, pengaturannya akan lebih mudah dilakukan. Berikut ini gambar layer yang saya gunakan untuk mewarnai foto tersebut.

Berikut ini gambar foto yang sudah diberi warna.

Catatan:
Untuk memberi warna pada foto ini, saya mengacu pada foto-foto lain yang ada foto saya dan teman-teman saya tersebut. Jadi bisa mengingat warna baju-baju mereka.
Selamat mencoba langkah-langkah tersebut, buatlah foto-foto kenangan Anda agar jadi berwarna dengan Photoshop.

Ramalan Zodiak Hari Ini

 Download Programnya Cara Membuatnya  "Klik disini" free

Atau dengan program Ke dua "Klik disini"

Ramalan Bintang Capricorn
Pendiam, Rajin dan Ambisius, Materialis, Gengsi Tinggi, Suka Memerintah, Suka memperalat Orang Lain.

Situasi hati Anda saat ini sepertinya sedang tidak ingin membicarakan urusan asmara. Namun, Anda tidak dapat membohongi hati, Anda sedang jatuh cinta. Kalkulasi ternyata salah karena kedatangan tamu tak terduga yang berarti pengeluaran bertambah. Namun, tidak sampai menguras isi tabungan, jadi tidak ada yang perlu dikhawatirkan. Jangan terpengaruh oleh perilaku rekan Anda yang kurang bertanggung jawab. Hendaknya Anda sadari, untuk memperoleh pekerjaan apalagi posisi seperti sekarang sangat sulit. Saat ini, Anda sedang alergi terhadap makanan dan udara laut. Untuk itu, ajakan teman untuk pergi ke pinggir pantai sebaiknya tidak diikuti. Akan berbahaya bagi kulit.
Asmara: kalau bertengkar anggap saja bumbu cinta
Keuangan: lebih banyak menabung
Kesehatan: saatnya santai
Karier: impian Anda terpenuhi

Pasangan Serasi : Cancer, Taurus, Virgo, Scorpio, Pisces
Pasangan Tidak Serasi : Gemini, Leo, Sagittarius, Aquarius
Hari Keberuntungan : Sabtu

---

Ramalan Bintang Sagitarius

Berjiwa Petualang, Pandai, Suka Kebebasan, Mandiri, Pandai Berdiplomasi, Berpandangan Luas

Saat ini bukan saat yang tepat untuk membuat keputusan seputar kehidupan asmara Anda. Banyaknya pesan dari ponsel yang berbau romantis membuat Anda bingung. Buang jauh-jauh rasa gengsi, saat ini Anda sedang membutuhkan bantuan dana. Tidak ada salahnya Anda menerima tawaran bantuan pinjaman dari kekasih. Prestasi Anda mengagumkan, Anda berhasil melaksanakan tugas dengan pencapaian target dan hasil yang brilian. Atasan puas dengan kinerja yang Anda berikan. Waktunya Anda untuk lebih
mengontrol emosi. Saat ini waktu yang tepat untuk Anda untuk mengurangi luapan emosi, lakukanlah meditasi.
Asmara: masih pasang surut
Keuangan: harus cari sumber baru
Kesehatan: jangan terlalu stres
Karir: harus lebih relaks

Pasangan Serasi : Aries, Leo, Libra, Aquarius
Pasangan Tidak Serasi : Taurus, Cancer, Scorpio, Capricorn
Hari Keberuntungan :kamis

---

Ramalan Bintang Scorpio

Panjang Akal, Pendiam, Pendendam, Gigih, Tekun

Anda terlalu banyak memperhatikan hal yang kecil sehingga terkadang pasangan menjadi tidak sabaran dan kesal. Sikap ini perlu diubah, berikanlah pengertian padanya. Hilangkan segala keinginan Anda untuk membeli berbagai macam barang yang kurang begitu penting manfaatnya. Demi kelancaran keuangan, tahan diri Anda! Hari ini Anda mendapatkan sesuatu yang sudah lama diidamkan, karir Anda mulai mendapatkan sinyal positif. Pertahankan prestasi Anda dan perkuat kerja tim. Waspadai cuaca yang akhir-akhir ini kurang bersahabat, sepertinya Anda adalah tipe orang yang mudah terserang penyakit. Jangan melakukan aktivitas yang berlebihan.
Asmara: seseorang yang dinanti datang juga
Keuangan: jangan terlalu boros
Kesehatan: jangan terlalu lelah
Karir: peluang baru menanti

Pasangan Serasi : Cancer, Virgo, Capricorn, Pisces
Pasangan Tidak Serasi : Aries, Gemini, Libra, Sagittarius
Hari Keberuntungan : jumat

---

Ramalan Bintang Libra Penuh Keraguan, Bimbang, Adil Pandai Bermuka Dua, Memiliki Naluri Yang Kuat, MempesonaCobalah untuk meminta maaf terlebih dahulu, walaupun perasaan menyatakan Anda benar. Sikap ini akan membuat pasangan Anda tersadar akan kesalahan yang diperbuat. Ciptakan hal yang baru untuk menarik perhatian orang. Kondisi usaha Anda saat ini perlu dijalani bersama dan penuh tanggung jawab. Kedewasaan Anda dalam berpikir membuat setiap persoalan yang ada dapat diselesaikan dengan bijak dan adil. Hal ini membuat Anda menjadi pusat perhatian. Cobalah untuk makan dengan teratur, hal ini akan mempengaruhi maag yang sedang Anda derita. Jangan konsumsi makanan yang dilarang. Asmara: ada prasangka buruk yang tak terbukti
Keuangan: ada tambahan baru
Kesehatan: jangan lupa olahraga
Karier: ada rekanan baru
Pasangan Tidak Serasi : Taurus, Virgo, Scorpio, Pisces
Hari Keberuntungan : minggu

---

Ramalan Bintang Leo

Suka Memimpin, Dermawan Dan Murah Hati, Penuh Gaya, Aristokratik, Congkak, Percaya Diri Tinggi
Kebiasaan keluar daerah membuat Anda menemukan seseorang yang sesuai kriteria. Hati-hati dalam bertindak dan perhatikan apakah dia mempunyai pasangan atau tidak. Anda memiliki keahlian di bidang bisnis, namun Anda cenderung untuk menghabiskan uang dan menghambur-hamburkan aset secara sembrono. Keuangan Anda lumpuh. Fokuslah pada pekerjaan, tidak selamanya Anda harus mengikuti perkataan orang lain. Akan ada kesalahpahaman yang memicu pertentangan dengan rekan, segera atasi. Anda akan mengalami sakit, karena kurang memerhatikan setiap gejala kecil yang dirasakan. Waspada terhadap penyakit yang berkepanjangan, segera ke dokter spesialis.
Asmara: sedang merasa nyaman di samping dia
Keuangan: kurang spekulasi
Kesehatan: kurangi makanan yang berminyak
Karier: ucapkan terima kasih pada rekan yang membantu
Pasangan Serasi : Aries, Gemini, Libra, Sagittarius
Pasangan Tidak Serasi : Cancer, Virgo, Capricorn, Pisces
Hari Keberuntungan : Rabu

---

Ramalan Bintang Cancer

Suasana Hati Tidak Menentu, Sentimentil, Setia, Penuh Perhatian, Sulit Memaafkan, Memiliki Daya Ingat Yang Kuat
Anda mempunyai perasaan yang lain dengan dia, jangan bertindak gegabah. Keinginan Anda untuk berselingkuh hanya akan membuat Anda frustasi. Manfaatkan waktu bersama. Sebaiknya Anda menuda dulu keinginan Anda untuk melakukan investasi, pengetahuan Anda belum cukup untuk memulainya. Hati-hati jangan sampai keuangan Anda terkuras. Hal yang Anda lakukan hari ini, semua sudah terprogram dengan terstruktur. Anda hanya harus menjalaninya dengan baik tanpa mengubah yang telah disepakati. Kondisi kesehatan Anda cukup baik dan stamina sedang prima. Ini dikarenakan Anda selalu memerhatikan pola hidup serta makan dengan teratur. Asmara: harus jalani penyegaran
Keuangan: Tunda Investasi
Karier: akhirnya ambisi Anda terpenuhi
Kesehatan: jangan lupa makan siang
Pasangan Tidak Serasi : Gemini, Leo, Sagittarius, Aquarius
Hari Keberuntungan : Sabtu

---

Ramalan Bintang Gemini

Lincah, Pandai berbicara, Tidak Stabil, Mudah Berubah-Ubah, Mudah Gugup, Sangat Peka
Saat ini Anda merasa sangat dekat dengan pasangan, waktu yang ada selalu dimanfaatkan dengan penuh kemesraan. Hati-hati jangan sampai Anda berdua kelewat batas. Anda perlu menentukan prioritas dalam melakukan pengeluaran, hal ini karena kondisi keuangan Anda sangat pas-pasan dan membutuhkan penghematan yang ketat. Jangan cepat puas dengan karir Anda, ada jabatan kosong yang mesti diisi. Tunjukkan bahwa Anda pantas untuk posisi tersebut, hati-hati dengan orang yang berbuat curang. Akibat dari banyaknya aktivitas yang dilakukan, serta kurang berisitirahat, membuat Anda mendadak jatuh sakit. Sebaiknya segera periksakan ke dokter, jangan ditunda.
Asmara: coba mengalah untuk cinta
Keuangan: tahan dulu untuk belanja
Karier: butuh teman yang sepemikiran
Kesehatan: sering masuk angin
Pasangan Serasi : Aries, Leo, Libra, Aquarius
Pasangan Tidak Serasi : Taurus, Cancer, Scorpio, Capricorn
Hari Keberuntungan : kamis

---

Ramalan Bintang Taurus

Keras Kepala, Materialistis, Pasif, Ramah & Sabar, Praktis dan Setia, Memiliki Jiwa Toleransi

Anda begitu bangga dengan pasangan yang sekarang ini, namun hal ini jangan sampai membuat Anda menjadi sombong. Anda akan menelan pil pahit dari kelakuan Anda selama ini. Anda memerlukan penghasilan tetap, ini agar kondisi keuangan Anda seimbang dan efisien. Sikap spekulasi Anda jangan dulu diterapkan, keuangan Anda belum aman. Sebuah masalah akan terjadi di tempat kerja. Cukup serius dan butuh perhatian yang lebih. Cari pemecahannya, sehingga masalahnya tidak meluas dan membahayakan posisi Anda. Kondisi badan kelihatan lelah, ini disebabkan bila malam hari Anda selalu tidur terlambat. Akibatnya, Anda selalu kurang fit dalam melakukan pekerjaan.
Asmara: sedikit ada keraguan
Keuangan: kalau pinjam jangan lupa kembalikan
Karier: harus sabar kalau tidak mau berantakan
Kesehatan: perbanyak makan sayuran agar lebih fit

Pasangan Serasi : Cancer, Virgo, Capricorn, Pisces
Pasangan Tidak Serasi : Aries, Gemini, Libra, Sagittarius
Hari Keberuntungan : Rabu

---

Ramalan Bintang Aries

Agresif, Energik, Impulsif, Berjiwa Pemimpin, Tidak Sabaran, Egois, Cepat Emosi
Anda harus diberikan selamat atas keberhasilan meredam emosi pasangan yang sering meledak-ledak. Kuncinya adalah kesabaran dan ketenangan dalam bertindak. Pembayaran utang yang dilakukan oleh teman pada Anda mungkin sedikit mundur. Jangan risau, Anda tidak akan kekurangan karenanya dan hindari menerapkan bunga. Jangan terpengaruh oleh perilaku rekan Anda yang kurang bertanggung jawab. Perhatikan daya tahan tubuh Anda, sepertinya terdeteksi adanya virus pada tubuh. Hal ini membuat Anda
sangat mudah mendapatkan penyakit dikarenakan virus.
Asmara: harus sering bersama dia
Keuangan: meningkat pesat
Karier: harus lebih bijak
Kesehatan: jangan keasyikan kerja
Pasangan Serasi : Gemini, Leo, Aquarius, Sagittarius
Pasangan Tidak Serasi : Taurus, Virgo, Scorpio, Pisces
Hari Keberuntungan : Sabtu

---

Ramalan Bintang Pisces

Memiliki Sisi Manusiawi Yang Besar, Penuh Cinta, Praktis, Suka Mengkhayal
Hubungan Anda harus lebih dipererat lagi, hal ini karena banyak cobaan yang akan Anda dapatkan. Sebisa mungkin untuk tidak lepas komunikasi, walau sedikit. Jangan ragu berinvestasi. Bila Anda memang ingin mendapatkan hasil yang besar, maka Anda harus rela berkorban cukup besar pula. Ini merupakan aturan yang ada. Anda yang sedang meniti karier disarankan untuk mawas diri, jangan mudah terhasut. Suara sumbang jangan dihiraukan karena akan mengacaukan konsentrasi pekerjaan Anda. Jangan mendekati tempat yang menurut Anda cukup kotor dan rentan penyakit menular, hal ini agar kondisi tubuh selalu fit. Jangan lupa untuk selalu minum vitamin.
Asmara: tingkatkan komunikasi yang ada
Keuangan: jangan sembrono menyimpan uang
Kesehatan: harus periksa ke dokter untuk lebih diteliti
Karier: jangan terlalu percaya dengan orang yang suka marahPasangan Serasi : Taurus, Cancer, Scorpio, Capricorn
Pasangan Tidak Serasi : Aries, Leo, Libra, Aquarius
Hari Keberuntungan : selasa

---

Ramalan Bintang Aquarius

Tenang, Obyektif (Tidak Memihak), Jenius, Penuh Ide, Cepat Mengerti

Hubungan yang ada sepertinya akan berlanjut ke arah yang lebih serius. Anda dan pasangan sudah saling cocok dan mengerti satu sama lain. Sebaiknya abaikan masalah sepele. Kondisi keuangan stabil, sesekali Anda perlu memanjakan diri dan mengajak orang terdekat untuk makan malam bersama di luar. Namun, jangan sampai
lepas kendali. Sebuah masalah akan terjadi di tempat kerja. Cukup serius dan butuh perhatian yang lebih. Cari pemecahannya hingga masalahnya tidak meluas dan membahayakan posisi Anda. Mudahnya Anda mempercayai informasi yang di dapat dari orang lain, membuat penyakit yang Anda derita tidak kunjung sembuh. Hal
ini karena Anda sering gonta-ganti obat.
Asmara: memang Anda berdua saling mengisi
Keuangan: kembali seperti semula
Kesehatan: harus olahraga terus
Karier : sedikit mengalami kesulitan

Pasangan Serasi : Aries, Gemini, Libra, Sagittarius
Pasangan Tidak Serasi : Cancer, Virgo, Capricorn, Pisces
Hari Keberuntungan : minggu

---

Ramalan Bintang Virgo

Praktis, Analistis, Kritis, Berkepala Dingin Dan Logis, Rajin, Sederhana
Anda tak perlu bersedih dengan penolakan yang dilakukan oleh si dia, mungkin dia bukanlah jodoh terbaik buat Anda. Tunjukkan bahwa keputusannya adalah salah besar. Rencana Anda kelihatan sangat meyakinkan, namun jangan sampai membuat Anda jatuh miskin, lihat dulu kondisi keuangan Anda. Sementara, jangan mengambil resiko. Anda yang sedang meniti karier disarankan untuk mawas diri, jangan mudah terhasut. Suara sumbang jangan dihiraukan karena akan mengacaukan konsentrasi pekerjaan Anda. Banyaklah mengkonsumsi karbohidrat. Aktivitas Anda yang padat membuat tubuh Anda memerlukan banyak energi. Namun, secara umum kesehatan Anda tidak ada masalah.
Asmara: jangan terbawa emosi
Keuangan: masih aman
Kesehatan: jogging, dong!
Karier: mendapatkan pilihan sulitPasangan Tidak Serasi : Aries, Leo, Libra, Aquarius
Hari Keberuntungan : kamis

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