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
*----------------------------------------------------------------------*
Rabu, 13 April 2011
Langganan:
Posting Komentar (Atom)
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
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* 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
*----------------------------------------------------------------------*
Bismillah,
BalasHapuskeren nih sampai2 bahasa pemograman juga bisa dimodif kayak gini..
lucu2..
dek, ajarin ngedesign blogspot dong..
nemu dari blog orang mba tc :)
BalasHapushayu atuh mba, ajarin design di multiply juga ya ^^
Bismillah
BalasHapusHehehe,
Subhanallah..
lucunya.. keren, ukh!