Rabu, 13 April 2011

Programmer Menjemput Surga

Ga sengaja, pas lagi searching tugas Algoritma, nemu postingan keren dari blog http://insansains.wordpress.com..ini isinya :)


*----------------------------------------------------------------------*
* PMHG.PRG *
* Program Melewati Hari dengan Gemilang *
* Keterangan : Program membuat diri selamat dunia dan akhirat *
* : Function dan Procedure tidak terlampir *
* Dibuat oleh : Insan Sains *
* Tanggal : 20 Oktober 2008 *
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
* INISIALISASI VARIABLE DAN KONSTANTA
* Set alarm pada 03:00 am
* Set kalimat pembuka aktifitas dengan basmallah
* Set kalimat penutup dengan hamdalah
* Dapatkan variable lainnya yang dapat membantu
*----------------------------------------------------------------------*
Alarm_Bangun = 03:00
Membuka_Aktifitas = "bismillah"
Menutup_Aktifitas = "alhamdulillah"
Masih_bernyawa = [undefined] //Tergantung anugrah nafas dari Allah
Hari_Ini = date()

*----------------------------------------------------------------------*
* Lakukan sepanjang hayat
*
do while (Masih_bernyawa)

* Jika alarm berbunyi atau engkau dijamu terbangun tengah malam
if (Alarm_Bangun == on) .or. (Automatic_wake_up == on)

* Bersyukurlah atas kehidupan yang dianugerahkan
* Bersyukur pula karena engkau dipilih-Nya sebagai
* hamba yang mendapat jamuan di sepertiga malam terakhir
@lisan say kalimat(Membuka_Akfitas)

* Lengkapi syukurmu dengan mengambil air wudhu
* Basahi wajahmu dengan air mata taubat
* Hadirkan kerinduanmu untuk berjumpa dengan Tuhanmu
do Ambil_Wudhu // silahkan baca prosedur Ambil_Wudhu yang tepat

* Sempurnakan syukur & wudhumu dengan berdiri, menghampar sajadah
* Hadapkan wajahmu kepada Tuhan Semesta Alam
* Biarkanlah lambungmu jauh dari tempat tidur
* Disaat manusia lain lelap hangat tertidur
* Karena tentu ada ganti yang lebih baik bagimu kelak
do Tahajjud

* DIA senang bila hambanya meminta
* Maka berdoa dan mohon ampunlah kepada-Nya
* DIA pasti mengabulkan doa dan permohonanmu
do Munajat

* Jika hari Senin atau Kamis maka bersahurlah agar berkah
* Berpuasa sunnahlah, agar jasad, ruh, dan akalmu terjaga
* Bukankah ini sunnah yang paling dicintai oleh kekasih-Nya?
if (Hari_Ini == Senin) .or. (Hari_Ini == Kamis)
do Sahur
endif

* Jika masih ngantuk, tidurlah sejenak hingga terdengar adzan shubuh
* Manusia memiliki keterbatasan, jasadmu memiliki hak
* jangan memaksakan beribadah yang tidak mampu jasadmu memangkunya
if (Status_badan = ngantuk)
do Tidur_sejenak
endif

endif

* Dirikan shalat shubuh berjamaah
* Para malaikat turun ke bumi untuk memberkahi dan mendoakan
* para pecinta yang mencari kecintaan kepada Tuhannya.
* Tambahi dengan dengan tilawah
* Agar permulaan harimu basah dengan kalimat suci-Nya
do Shalat_Shubuh
do Tilawah

* Olah ragakan jasad sejenak
* DIA mencintai hamba-hamba-Nya yang kuat
* Kuat fisik, juga kuat ruhaninya.
do riyadhah

* Bersihkan badan, persiapkan diri mencari maisyah
* Jangan pernah meminta, jangan pernah menjadi beban
* Jangan pernah mengeluh, jangan sia-siakan harimu
do bersih_bersih
do persiapan_maisyah

* Bila cobaan, musibah dan ujian menghadang
* maka bersabar, ikhlaskan, dan tetaplah bertawakkal
* Bukankah Allah itu Maha Mengatur? Dia yang Maha Menggenggam
do case
case (Cobaan == Datang)
do Sabar

case (Musibah == Merintang)
do Iklaskan

case (Keinginan .not. Terpenuhi)
do Tawakkal

endcase

* Kamu hidup di zaman yang banyak hal syubhat merajalela
* Maka carilah yang halal-halal saja
* Selama engkau berpapasan dengan perempuan bukan mukhrim
* Tundukan pandangan, segera hisab diri
do while (Berpapasan == Perempuan_bukan_Muhrim)
do Tundukkan_Pandangan

* Cek kemampuan
* Jika sudah mampu dan siap, menikahlah
* Jika belum, istiqamahlah dalam berpuasa sunnah
Kemampuanku = Check_Kemampuan(saat_ini)

if (Kemampuanku == OK)
do nikah // Menuju keluarga sakinah mawaddah warahmah

else
do puasa_sunnah

endif

enddo

* Tunaikanlah kewajiban-kewajibanmu kepada Allah
do tugas_khalifah

* Penuhi hak-hak saudara-saudaramu yang lain
* Beri dan jawablah salam untuk saudaramu seiman
* Doakan saudaramu bila ia bersin
* Berilah nasihat kepada saudaramu baik diminta maupun tidak
* Penuhi undangannya, bila ia mengundang
* [Coba baca kembali prosedur ber-amal sosial]
do penuhi_hak_manusia

* Bersedekahlah...!
* Baik disaat lapang, maupun disaat kurang
* Tak akan pernah berkurang harga yang disedekahkan
* Justru Allah akan melipatgandakannya 10 hingga 700 kali
do sedekah

* Buatlah agar hatimu merasakan selalu diawasi Tuhanmu
* dengan demikian segala sikap dan ucapmu senantiasa lurus
do Muraqabah

* Jika kau berbuat khilaf, maka segeralah bertaubatlah
* Sesali, bertekad tidak mengulangi
* serta melakukan kebaikan untuk menutupi
* Silahkan baca prosedure taubatan nasuha
do Taubat

* Shalehkan diri, tebar manfaat untuk umat,
* siapkan amal untuk bekal saat perjumpaan dengan ajal
* Setelah engkau memperbaiki diri, jangan lupa untuk beramal
* Setelah salam terucap, engkau dititah untuk bertebaran
* Maka penuhilah dunia dengan amal terbaikmu
do Tarbiyah_dzatiyah
do Amal_Prestatif

* Tutup harimu dengan muhasabah diri
* Sesali dan minta maaflah kepada orang-orang yang kau dzalimi
if (Hari_Ini == malam)
do Muhasabah
endif

@lisan say kalimat(Penutup_Aktifitas)

enddo // Lakukan semuanya sepanjang hayat
*----------------------------------------------------------------------*

Programmer Menjemput Surga

Ga sengaja, pas lagi searching tugas Algoritma, nemu postingan keren dari blog http://insansains.wordpress.com..ini isinya :)


*----------------------------------------------------------------------*
* PMHG.PRG *
* Program Melewati Hari dengan Gemilang *
* Keterangan : Program membuat diri selamat dunia dan akhirat *
* : Function dan Procedure tidak terlampir *
* Dibuat oleh : Insan Sains *
* Tanggal : 20 Oktober 2008 *
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
* INISIALISASI VARIABLE DAN KONSTANTA
* Set alarm pada 03:00 am
* Set kalimat pembuka aktifitas dengan basmallah
* Set kalimat penutup dengan hamdalah
* Dapatkan variable lainnya yang dapat membantu
*----------------------------------------------------------------------*
Alarm_Bangun = 03:00
Membuka_Aktifitas = "bismillah"
Menutup_Aktifitas = "alhamdulillah"
Masih_bernyawa = [undefined] //Tergantung anugrah nafas dari Allah
Hari_Ini = date()

*----------------------------------------------------------------------*
* Lakukan sepanjang hayat
*
do while (Masih_bernyawa)

* Jika alarm berbunyi atau engkau dijamu terbangun tengah malam
if (Alarm_Bangun == on) .or. (Automatic_wake_up == on)

* Bersyukurlah atas kehidupan yang dianugerahkan
* Bersyukur pula karena engkau dipilih-Nya sebagai
* hamba yang mendapat jamuan di sepertiga malam terakhir
@lisan say kalimat(Membuka_Akfitas)

* Lengkapi syukurmu dengan mengambil air wudhu
* Basahi wajahmu dengan air mata taubat
* Hadirkan kerinduanmu untuk berjumpa dengan Tuhanmu
do Ambil_Wudhu // silahkan baca prosedur Ambil_Wudhu yang tepat

* Sempurnakan syukur & wudhumu dengan berdiri, menghampar sajadah
* Hadapkan wajahmu kepada Tuhan Semesta Alam
* Biarkanlah lambungmu jauh dari tempat tidur
* Disaat manusia lain lelap hangat tertidur
* Karena tentu ada ganti yang lebih baik bagimu kelak
do Tahajjud

* DIA senang bila hambanya meminta
* Maka berdoa dan mohon ampunlah kepada-Nya
* DIA pasti mengabulkan doa dan permohonanmu
do Munajat

* Jika hari Senin atau Kamis maka bersahurlah agar berkah
* Berpuasa sunnahlah, agar jasad, ruh, dan akalmu terjaga
* Bukankah ini sunnah yang paling dicintai oleh kekasih-Nya?
if (Hari_Ini == Senin) .or. (Hari_Ini == Kamis)
do Sahur
endif

* Jika masih ngantuk, tidurlah sejenak hingga terdengar adzan shubuh
* Manusia memiliki keterbatasan, jasadmu memiliki hak
* jangan memaksakan beribadah yang tidak mampu jasadmu memangkunya
if (Status_badan = ngantuk)
do Tidur_sejenak
endif

endif

* Dirikan shalat shubuh berjamaah
* Para malaikat turun ke bumi untuk memberkahi dan mendoakan
* para pecinta yang mencari kecintaan kepada Tuhannya.
* Tambahi dengan dengan tilawah
* Agar permulaan harimu basah dengan kalimat suci-Nya
do Shalat_Shubuh
do Tilawah

* Olah ragakan jasad sejenak
* DIA mencintai hamba-hamba-Nya yang kuat
* Kuat fisik, juga kuat ruhaninya.
do riyadhah

* Bersihkan badan, persiapkan diri mencari maisyah
* Jangan pernah meminta, jangan pernah menjadi beban
* Jangan pernah mengeluh, jangan sia-siakan harimu
do bersih_bersih
do persiapan_maisyah

* Bila cobaan, musibah dan ujian menghadang
* maka bersabar, ikhlaskan, dan tetaplah bertawakkal
* Bukankah Allah itu Maha Mengatur? Dia yang Maha Menggenggam
do case
case (Cobaan == Datang)
do Sabar

case (Musibah == Merintang)
do Iklaskan

case (Keinginan .not. Terpenuhi)
do Tawakkal

endcase

* Kamu hidup di zaman yang banyak hal syubhat merajalela
* Maka carilah yang halal-halal saja
* Selama engkau berpapasan dengan perempuan bukan mukhrim
* Tundukan pandangan, segera hisab diri
do while (Berpapasan == Perempuan_bukan_Muhrim)
do Tundukkan_Pandangan

* Cek kemampuan
* Jika sudah mampu dan siap, menikahlah
* Jika belum, istiqamahlah dalam berpuasa sunnah
Kemampuanku = Check_Kemampuan(saat_ini)

if (Kemampuanku == OK)
do nikah // Menuju keluarga sakinah mawaddah warahmah

else
do puasa_sunnah

endif

enddo

* Tunaikanlah kewajiban-kewajibanmu kepada Allah
do tugas_khalifah

* Penuhi hak-hak saudara-saudaramu yang lain
* Beri dan jawablah salam untuk saudaramu seiman
* Doakan saudaramu bila ia bersin
* Berilah nasihat kepada saudaramu baik diminta maupun tidak
* Penuhi undangannya, bila ia mengundang
* [Coba baca kembali prosedur ber-amal sosial]
do penuhi_hak_manusia

* Bersedekahlah...!
* Baik disaat lapang, maupun disaat kurang
* Tak akan pernah berkurang harga yang disedekahkan
* Justru Allah akan melipatgandakannya 10 hingga 700 kali
do sedekah

* Buatlah agar hatimu merasakan selalu diawasi Tuhanmu
* dengan demikian segala sikap dan ucapmu senantiasa lurus
do Muraqabah

* Jika kau berbuat khilaf, maka segeralah bertaubatlah
* Sesali, bertekad tidak mengulangi
* serta melakukan kebaikan untuk menutupi
* Silahkan baca prosedure taubatan nasuha
do Taubat

* Shalehkan diri, tebar manfaat untuk umat,
* siapkan amal untuk bekal saat perjumpaan dengan ajal
* Setelah engkau memperbaiki diri, jangan lupa untuk beramal
* Setelah salam terucap, engkau dititah untuk bertebaran
* Maka penuhilah dunia dengan amal terbaikmu
do Tarbiyah_dzatiyah
do Amal_Prestatif

* Tutup harimu dengan muhasabah diri
* Sesali dan minta maaflah kepada orang-orang yang kau dzalimi
if (Hari_Ini == malam)
do Muhasabah
endif

@lisan say kalimat(Penutup_Aktifitas)

enddo // Lakukan semuanya sepanjang hayat
*----------------------------------------------------------------------*