pertempuran hati

• dalam setiap kehidupan nyata........
  terjdi pertempuran hati.......
  semuanya menjadi tak berarti..
  ketika semua terjadi tanpa pernah kita sadari...
  sedikit waktu begitu terasa di hati....
  memerangi jiwa yang sepi...
  lihat apa yang terjadi...
  semua akan berperang memperebutkan segala hal...
  hingga akan terjadi di suatu massa...
  massa yamg tak pernah kita hendakin...
  sedikitpun terasa banyak....
  banyak terasa sedikit........
  apa arti jika tak berarti...
  dan engkau yang akan mengerti..
  tentang pertempuran hati...
  semua bajingan bersiap memaki...
  seperti gonggongan anjing....
  lihat dan rasakan...
  dan semua akan bearti.....
  

tugas zodiak
ketika dirun programnya dan ditekan login........ maka akan menampilkan message box....




ketika dimasukkan nama zodiaknya maka akan muncul isi dari zodiak tersebut





ketika login ditekan kembali dan diisi dengan zodiak yang baru,, maka akan muncul seluruh keterangan tentang zodiak yang baru dan zodiak yang lama akan hilang





jika salah memasukkan nama zodiak,, maka akan muncul message box bahwa anda salah mengaksesnya







isi coding dari login ialah :

Private Sub Command1_Click()
Form1.Refresh
Command1.SetFocus

Label3.Caption = ""
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
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Image19.Visible = False
Image20.Visible = False
Image21.Visible = False
Image22.Visible = False
Image23.Visible = False
Image24.Visible = False

username = InputBox("Tuliskan zodiak kamu.....???")
If username = "aquarius" Then
Label3.Caption = " Aquarius (20 Jan - 17 Feb)" & vbNewLine & " " & vbNewLine & " Astrology Kamu : " & vbNewLine & "Kesedihan kamu bisa jadi irama yang yang indah lho, ingat kan lagunya Harmoni milik Padi??" & vbNewLine & " " & vbNewLine & " Cinta : " & vbNewLine & "Asal kamu tahu nih, ada seseorang yang sudah lama memperhatikan kamu.." & vbNewLine & " " & vbNewLine & " Keuangan : " & vbNewLine & "Untuk saat ini kamu seret banget.."
Image1.Visible = True
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
Image13.Visible = True
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Image19.Visible = False
Image20.Visible = False
Image21.Visible = False
Image22.Visible = False
Image23.Visible = False
Image24.Visible = False

ElseIf username = "pisces" Then
Label3.Caption = " Pisces (18 Feb - 19 Mar)" & vbNewLine & " " & vbNewLine & " Astrology Kamu :" & vbNewLine & "Turunin volume yang kenceng abis, kasihan tenggorokan kamu yang saat ini sedang mengalmi masalah. Coba deh minum vitamin.." & vbNewLine & " " & vbNewLine & " Cinta : " & vbNewLine & "Hatimu lagi berbunga-bunga. Kelihatan kok dari cara kamu berpakaian. Hehe,," & vbNewLine & "" & vbNewLine & " Keuangan: " & vbNewLine & "Ingat.. Sisihkan sedikit ung saku mu buat nabung . Masalahnya minggu depan ada pengeluaran yang tak terduga.. " & vbNewLine & " " & vbNewLine & " Kesehatan : " & vbNewLine & "Radang tenggorokan menyerang.." & vbNewLine & " " & vbNewLine & " Warna: " & vbNewLine & "Biru muda"
Image1.Visible = False
Image2.Visible = True
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
Image13.Visible = False
Image14.Visible = True
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Image19.Visible = False
Image20.Visible = False
Image21.Visible = False
Image22.Visible = False
Image23.Visible = False
Image24.Visible = False


ElseIf username = "aries" Then
Label3.Caption = " Aries (20 Mar - 19 April)" & vbNewLine & " " & vbNewLine & " Astrology Kamu :" & vbNewLine & "Masalah itu-itu lagi. Sudah banyak yang nasehatin kamu, jangan mau dimanfaatin ama teman, tapi kamu nya kok masih nyantai aja.." & vbNewLine & " " & vbNewLine & " Cinta : " & vbNewLine & "Hatimu lagi dimainin ama dia. Boleh juga usahamu yang sampai detik ini di bilang bakal sia-sia ujungnya.." & vbNewLine & " " & vbNewLine & " Keuangan : " & vbNewLine & "PR-mu sekarang adalah membuat skala prioritas dan catatan pengeluaran yang jelas supaya nggak kecolongan lagi.." & vbNewLine & " " & vbNewLine & " Kesehatan: " & vbNewLine & "Cukupin deh tidur kamu.."
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
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
Image13.Visible = False
Image14.Visible = False
Image15.Visible = True
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Image19.Visible = False
Image20.Visible = False
Image21.Visible = False
Image22.Visible = False
Image23.Visible = False
Image24.Visible = False


ElseIf username = "taurus" Then
Label3.Caption = " Taurus (20 April - 19 Mei)" & vbNewLine & " " & vbNewLine & " Astrology Kamu :" & vbNewLine & "Selama di hidupmu nggak ada masalah, ya jalanin aja.." & vbNewLine & " " & vbNewLine & " Cinta : " & vbNewLine & "Ketulusannya membuat kamu salah tingkah. Lain kali sebelum ngomelin orang, pikir dulu.." & vbNewLine & " " & vbNewLine & " Keuangan : " & vbNewLine & "Tuh kan, ada tagihan mendadak yang bikin kamu pusing. hati-hati kalau menggunakan fasilitas dari ortu.." & vbNewLine & " " & vbNewLine & " Kesehatan : " & vbNewLine & "Ayo bangun pagi, lari-lari kecil di dalam komplek rumah udah cukup kok.."
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = True
Image17.Visible = False
Image18.Visible = False
Image19.Visible = False
Image20.Visible = False
Image21.Visible = False
Image22.Visible = False
Image23.Visible = False
Image24.Visible = False



ElseIf username = "gemini" Then
Label3.Caption = " Gemini (20 Mei - 20 Juni)" & vbNewLine & " " & vbNewLine & " Astrology Kamu : " & vbNewLine & "Ekspresikan Dirimu, Jangan ragu tampil up to date saat hang-out ama temen-temen loe..ini saatnya mengekspresikan dirimu" & vbNewLine & " " & vbNewLine & " Cinta : " & vbNewLine & "Nggak semua yang kamu dengar itu benar. Ketika cinta datang, siapa yang bisa menolaknya?? Pura-pura benci itu sulit lho.." & vbNewLine & " " & vbNewLine & " Keuangan : " & vbNewLine & "Jangan belanja mulu donk, ingat pesan ortu yang nyuruh kamu beli alat tulis.." & vbNewLine & " " & vbNewLine & " Kesehatan : " & vbNewLine & "Rajin olah-raga..jangan bermalas-malasan"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = True
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = True
Image18.Visible = False
Image19.Visible = False
Image20.Visible = False
Image21.Visible = False
Image22.Visible = False
Image23.Visible = False
Image24.Visible = False

ElseIf username = "cancer" Then
Label3.Caption = " Cancer (21 Juni - 21 Juli)" & vbNewLine & " " & vbNewLine & " Astrology Kamu : " & vbNewLine & "Usaha kerasmu untuk mengakurkan temen-temanmu satu kelas, ada hasilnya kok.." & vbNewLine & " " & vbNewLine & " Cinta : " & vbNewLine & "Beda selera dan warna kulit, itu sih biasa. Jujur aja deh, kalau kamu suka ama dia.." & vbNewLine & " " & vbNewLine & " Keuangan :" & vbNewLine & "Sedikit mengalah buat saudara sendiri, nggak apa-apa kan??" & vbNewLine & " " & vbNewLine & " Kesehatan :" & vbNewLine & "Jangan terlalu banyak di pikirkan ...santai saja" & vbNewLine & " " & vbNewLine & " Warna: " & vbNewLine & "Kuning muda"
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = True
Image7.Visible = False
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = True
Image19.Visible = False
Image20.Visible = False
Image21.Visible = False
Image22.Visible = False
Image23.Visible = False
Image24.Visible = False


ElseIf username = "leo" Then
Label3.Caption = " Leo (22 Juli - 22 Agust)" & vbNewLine & " " & vbNewLine & " Astrology Kamu : " & vbNewLine & "Atur waktu lebih baik donk, supaya nggak sering telat kuliah.." & vbNewLine & " " & vbNewLine & " Cinta : " & vbNewLine & "Peluang kamu untuk dapetin dia masih ada kok, jadi jangan pernah putus asa.." & vbNewLine & " " & vbNewLine & " Keuangan :" & vbNewLine & "Ada seseorang yang sedang memanfaatkan uangmu.." & vbNewLine & " " & vbNewLine & " Kesehatan :" & vbNewLine & "Sedikit flu karena sering kehujanan.."
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = True
Image8.Visible = False
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Image19.Visible = True
Image20.Visible = False
Image21.Visible = False
Image22.Visible = False
Image23.Visible = False
Image24.Visible = False

ElseIf username = "virgo" Then
Label3.Caption = " Virgo (23 Agust - 21 Sept)" & vbNewLine & " " & vbNewLine & " Astrology Kamu : " & vbNewLine & "Lagi bete sama teman satu kelas, karena dia kamu di hukum ama dosen.." & vbNewLine & " " & vbNewLine & " Cinta :" & vbNewLine & "Berbung-bunga truzzzzzz, Kamu lagi meletakkan dia di posisi teratas.." & vbNewLine & " " & vbNewLine & " Keuangan : " & vbNewLine & "Cek dahulu keuangan untuk bulan ini sebelum membeli sesuatu.."
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
Image8.Visible = True
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Image19.Visible = False
Image20.Visible = True
Image21.Visible = False
Image22.Visible = False
Image23.Visible = False
Image24.Visible = False



ElseIf username = "libra" Then
Label3.Caption = " Libra (22 Sept - 22 Okt)" & vbNewLine & " " & vbNewLine & " Astrology Kamu : " & vbNewLine & "Besuk Temen, Sekali-kali boleh dong besuk temen loe yang lagi sakit ...kedatangan loe bisa bikin temen happy.." & vbNewLine & " " & vbNewLine & " Cinta : " & vbNewLine & "Hubungan loe ama si dia makin serius nih.." & vbNewLine & " " & vbNewLine & " Keuangan : " & vbNewLine & "Barang yang udah lama kamu incer, akhirnya kebeli juga.." & vbNewLine & " " & vbNewLine & " Kesehatan :" & vbNewLine & "Kurangi porsi makanmu,," & vbNewLine & " " & vbNewLine & " Warna: " & vbNewLine & "Putih"
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 = True
Image10.Visible = False
Image11.Visible = False
Image12.Visible = False
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Image19.Visible = False
Image20.Visible = False
Image21.Visible = True
Image22.Visible = False
Image23.Visible = False
Image24.Visible = False


ElseIf username = "scorpio" Then
Label3.Caption = " Scorpio (23 Okt - 21 Nov)" & vbNewLine & " " & vbNewLine & " Astrology Kamu : " & vbNewLine & "Traveling, Saat yang tepat untuk traveling...kunjungan dari temen-temen deket loe membuat loe senang.." & vbNewLine & " " & vbNewLine & " Cinta : " & vbNewLine & "Jangan terlalu percaya diri..siapa tau dia hanya butuh temen" & vbNewLine & " " & vbNewLine & " Keuangan : " & vbNewLine & "Banyak pengeluaran yang ngga terduga" & vbNewLine & " " & vbNewLine & " Kesehatan :" & vbNewLine & "Butuh istirahat yang cukup" & vbNewLine & " " & vbNewLine & " Warna: " & vbNewLine & "abu -abu"
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 = True
Image11.Visible = False
Image12.Visible = False
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Image19.Visible = False
Image20.Visible = False
Image21.Visible = False
Image22.Visible = True
Image23.Visible = False
Image24.Visible = False


ElseIf username = "sagitarius" Then
Label3.Caption = " Sagitarius (22 Nov - 21 Des)" & vbNewLine & " " & vbNewLine & " Astrology Kamu :" & vbNewLine & "Be Creative, Ajak temen-temen loe untuk melakukan kegiatan yang kreatif ..Pasti seru .." & vbNewLine & " " & vbNewLine & " Cinta :" & vbNewLine & "Siap-siap di ajak menikah ...loe udah siap ??" & vbNewLine & " " & vbNewLine & " Keuangan :" & vbNewLine & "Lunasi kartu kredit yang jatuh tempo..jangan sampai kena denda" & vbNewLine & " " & vbNewLine & " Kesehatan:" & vbNewLine & "Segar bugar" & vbNewLine & " " & vbNewLine & " Warna:" & vbNewLine & "Merah Muda"
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 = True
Image12.Visible = False
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Image19.Visible = False
Image20.Visible = False
Image21.Visible = False
Image22.Visible = False
Image23.Visible = True
Image24.Visible = False


ElseIf username = "capricorn" Then
Label3.Caption = " Capricorn (22 Des - 19 Jan)" & vbNewLine & " " & vbNewLine & " Astrology Kamu :" & vbNewLine & "Adventure, Ada undangan reuni dari teman-teman lama loe..Isi weekend dengan kegiatan Adventure yang menantang seperti hiking, offroad atau berpetualang di hutan" & vbNewLine & " " & vbNewLine & " Cinta :" & vbNewLine & "Hati-hati, hubungan kamu terancam oleh teman dekat dia.." & vbNewLine & " " & vbNewLine & " Keuangan :" & vbNewLine & "Prediksi loe tepat ..tapi tetap loe harus hemat.."
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 = True
Image13.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image18.Visible = False
Image19.Visible = False
Image20.Visible = False
Image21.Visible = False
Image22.Visible = False
Image23.Visible = False
Image24.Visible = True





Else
MsgBox ("maaf.... Kamu memasuki wilayah terlarang...!!!!")
End
End If

teriakan dalam-dalam tentang hidup ini...
teriakan pada rasa tentang rasa hidup ini..........
berpikirlah sejenak.................
dan engkau akan mengerti tentang apa yang terjadi diluar sana...........
ceritakan kepada mereka tentang kemunafikan hidup....
hidup...........????
hidup...........????