Jumat, 10 Juli 2009

puisi

Sebuah Tanya

“akhirnya semua akan tiba
pada suatu hari yang biasa
pada suatu ketika yang telah lama kita ketahui
apakah kau masih berbicara selembut dahulu?
memintaku minum susu dan tidur yang lelap?
sambil membenarkan letak leher kemejaku”

(kabut tipis pun turun pelan-pelan di lembah kasih, lembah mendala wangi
kau dan aku tegak berdiri, melihat hutan-hutan yang menjadi suram
meresapi belaian angin yang menjadi dingin)

“apakah kau masih membelaiku semesra dahulu
ketika ku dekap kau, dekaplah lebih mesra, lebih dekat”

(lampu-lampu berkelipan di jakarta yang sepi, kota kita berdua, yang tua dan terlena dalam mimpinya. kau dan aku berbicara. tanpa kata, tanpa suara ketika malam yang basah menyelimuti jakarta kita)

“apakah kau masih akan berkata, kudengar derap jantungmu. kita begitu berbeda dalam semua
kecuali dalam cinta?”

(haripun menjadi malam, kulihat semuanya menjadi muram. wajah2 yang tidak kita kenal berbicara dalam bahasa yang tidak kita mengerti. seperti kabut pagi itu)

“manisku, aku akan jalan terus
membawa kenangan-kenangan dan harapan-harapan
bersama hidup yang begitu biru”

Minggu, 05 Juli 2009

Mencoba bertahan…

Dari cobaan hidup…….

Yang bisa membuat kita terjatuh…..

Kedalam dunia kehidupan yang hitam…

Jika kamu tidak mampu..

Jangan coba-coba mengikuti...

Gaya hidup manusia sekarang..

Karena bisa membuat mu menjadi gila...

Jika kamu ingin mencapai cita-citamu...

Raihlah itu dengan sungguh-sungguh..

Jika kamu tiak mau..

Janganlah kamu berharap lagi..

Karena itu tidak akan datang lagi pada dirimu....

Yang SOMBONG dalam kehidupan ini....

story of love

Cinta……………

Apakah begini rasanya jika sedang jatuh cinta, hati seakan tidak menentu.

Ketika seorang perempuan yang telah mulai aku lupakan kini mulai memberi respon kepadaku.apakah itu tanda-tandanya apakah dia suka kepadaku atau sebaliknya aku yang mulai berharap,tapi jujur dihati ini aku masih menyayanginya.

Tapi kenapa tanda itu dia berikan ketika aku mulai ada perasaan suka terhadap seseorang perempuan yang lain.

Tapi bagaimana caranya supaya aku bisa mengungkapkan perasaanku pada perempuan?

Aku harus memilih yang mana?

Keduanya aku suka ,bukan maksud aku bersifat serakah, tapi yang satu sudah punya pacar, sedangkan satu lagi masih tanda tanya besar bagiku.

Apakah aku bisa mendapatkannya satu diantara keduanya??

Aku yang selama ini masih tidak menentu, perasaan hati ini apakah bisa mendapatkan orang yang aku kasihi dan aku sayangi, yang aku masi risaukan adalah apakah dia menyayangi aku apa adanya karena aku banyak kekurangannya

Masih adakah seseorang perempuan yang akan datang, karena aku selalu menunggu…..menunggu………dan terus menunggu………….

Apakah mereka yang aku sayangi dapat mengetahui perasaan aku yang sangat menyayanginya….

Kapan rasa ini akan hilang dariku, aku sudah tidak mampu menahannya tapi aku tidak bisa berbuat apa-apa, karena semua yang aku lakukan serba salah, tapi apakah tidak ada suatu cara untuk mengakhiri penderitaan ini, mungkin memang aku yang salah yang cepat merasakan suka terhadap seseorang,tapi apakah ini salah..??untuk suka terhadap seseorang yang menurutku dia baik tapi kapankah datang keberanian dihati untuk ungkapkan semua perasaan dihati.

Mampukah aku melewati hari-hari yang penuh derita ini, ketika aku sedang menanti seorang kekasih.

YA..ALLAH....bantu aku untuk menimbulkan keberanian dihati....

Hari-hari terus berganti mengapa semua ini terjadi begitu cepat membuat aku semakin takut menghadapi hidup ini yang penuh banyak dilema dan banyak ujian

Rabu, 06 Mei 2009

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.....

Jumat, 01 Mei 2009

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...........????

Minggu, 19 April 2009

kuteriakan dalam hati...
emosi yang membara....
terdengar suara-suara samar..
menakutkan...
aku terjaga dalam hati..
jiwa yang sunyi...
berselimut amarah akan dunia...
yang seolah-olah menertawakan aku dengan gembira...
lihat aku dunia....

Rabu, 08 April 2009

ketika hati berbicara

ketika semua rasa menjadi hilang diterpa angin kencang
aku berpegangan dengan rasa takutku..
ketika hati ini mulai goyah..
aku menunduk sembari membaca doa..
ketika aku angkat kepalaku..
semua terlihat kosong...
putih...
di ujung terlihat sedikit cahaya...
mungkin cahaya..???


carilah jawaban pada diri anda...
merenung sejenak...

Senin, 06 April 2009

membacalah

anda akan menyesal ketika anda merasa membaca itu PENTING...