Kamis, 17 November 2011

Syiroh Nabi Ibrahim


Alkisah, Nabi Ibrahim as. Memiliki seorang istri bernama Siti Sarah. Selama pernikahan mereka, Nabi Ibrahim tidak dikarunia seorang keturunan. Karena rasa cinta kasihnya Siti Sarah yang begitu besar, beliau mengijinkan Nabi Ibrahim untuk menikah lagi. Siti Sarah mencalonkan Siti Hajar (dayang Siti Sarah) untuk menjadi madunya. Akhirnya Siti Hajar dan Nabi Ibrahim pun menikah.
Selama penantian beberapa tahun Allah belum kunjung memberikan seorang keturunan pada keluarga Nabi Ibrahim. Hingga suatu ketika penantian panjang itu pun berakhir dengan datangnya suatu kabar gembira bahwa Siti Hajar sedang mengandung. Namun, berita gembira tersebut harus disembunyikan dari Siti Sarah. Hal ini dilakukan untuk menjaga perasaan Siti Sarah sebagai istri tua Nabi Ibrahim. Segala cara telah dilakukan oleh Nabi Ibrahim dan Siti Hajar agar berita itu tidak sampai ke telinga Siti Sarah, tapi pada akhirnya apapun yang di sembunyikan toh suatu saat terungkap juga. Benar saja, akhirnya Siti Sarah mengetahui berita kehamilan Siti Hajar. Siti sarah akhirnya mengusir Nabi Ibrahim dan Siti Hajar dari rumah mereka.
Dalam perjalanan panjang Nabi Ibrahim dan Siti Hajar setelah pengusiran itu, mereka hanya di temani dengan seekor unta dan persediaan makanan yang terbatas. Nabi Ibrahim berserah diri kepada Allah, dimana pun unta yang membawanya dan Siti Hajar itu beristirahat (berhenti setelah perjalanan itu) maka disitulah beliau akan menetap dan menjadikan sebuah peradaban (baitullah).
Setelah berbulan-bulan tinggal disana, Nabi Ibrahim menerima perintah dari Allah bahwa beliau harus pergi dari tempat itu (baitullah) kembali lagi ke Yerusalem (rumah Siti Sarah). Dengan begitu beratnya Nabi Ibrahim menerima perintah tersebut karena itu artinya beliau harus meninggalkan Siti Hajar yang sedang mengandung sendirian.
Lalu Nabi Ibrahim memantapkan diri seraya berdoa :
Ya Tuhan kami, sesungguhnya aku telah menempatkan sebahagian keturunanku di lembah yang tidak mempunyai tanam-tanaman di dekat rumah Engkau (Baitullah) yang dihormati, ya Tuhan kami (yang demikian itu) agar mereka mendirikan shalat, maka jadikanlah hati sebagian manusia cenderung kepada mereka dan beri rezkilah mereka dari buah-buahan, mudah-mudahan mereka bersyukur.” (QS. Ibrahim : 37)
Siti Hajar pun merelakan kepergian suaminya. Tinggallah ia sendiri di tengah-tengah gurun pasir yang gersang. Beberapa bulan berlalu, kini Siti Hajar telah melahirkan seorang anak yang kelak akan meneruskan perjuangan ayahnya di jalan Allah, Ismail namanya.
Suatu ketika Siti Hajar mengalami kehausan satelah menyusui Ismail, ia berjalan mencari sumber air dari Bukit Shafa ke Bukit Marwah. Namun hasilnya nihil tak ada sedikitpun air yang ia temukan. Siti Hajar tak putus asa, ia terus mencari sumber air hingga berjalan dari Bukit Shafa ke Bukit Marwah sebanyak tujuh kali. Pada kali ke tujuh ia menemukan sumber air (sekarang dikenal sebagai air zamzam. Dalam beberapa riwayat disebutkan air tersebut muncul karena malaikat Jibril di utus Allah untuk menggali dengan lututnya, dan sebagian riwayat mengatakan air tersebut muncul karena malaikat jibril menggali dengan sayapnya). Lalu dibasuhkanlah air tersebut ke bibir Ismail yang juga sedang ke hausan karena air susu Siti Hajar yang mengering.
Pada saat itu ada sekumpulan orang dari kaum  yang juga kehausan dan sedang mencari sumber air bertemu dengan Siti Hajar yang sedang minum, kaum itu meminta ijin untuk meminum air yang ditemukan oleh Siti Hajar. Kaum tersebut merasakan kenikmatan dan kesegaran yang muncul setelah meminum air tersebut sehingga mereka memutuskan untuk menetap disana. Dan inilah cikal bakal peradaban di Baitullah.
Beberapa tahun berlalu setelah kejadian itu, kini Ismail telah tumbuh besar. Pada suatu ketika Nabi Ibrahim bermimpi tentang anaknya Ismail yang harus disembelih. Lalu Nabi Ibrahim mendatangi anaknya dan menceritakan perihal mimpinya tersebut. Seperti tertulis dalam Al-Qur’an :
“Maka tatkala anak itu sampai (pada umur sanggup) berusaha bersama-sama Ibrahim, Ibrahim berkata: "Hai anakku sesungguhnya aku melihat dalam mimpi bahwa aku menyembelihmu. Maka fikirkanlah apa pendapatmu!" Ia menjawab: "Hai bapakku, kerjakanlah apa yang diperintahkan kepadamu; insya Allah kamu akan mendapatiku termasuk orang-orang yang sabar."”. (QS. Ash Shaaffaat:102).
Lalu dilanjutkan lagi dengan QS. Ash Shaaffaat : 105-110. Inilah asal muasal tentang Penyembelihan hewan qurban (biasa dilakukan saat Idul Adha). Inilah bukti betapa besar kataatan serta kecintaan Nabi Ibrahim terhadap Allah dan betapa ikhlas serta sabarnya Ismail terhadap segala perintah Allah yang disampaikan lewat ayahnya.
Kemudian setelah bertahun-tahun, tempat yang ditinggali oleh Ismail yaitu Baitullah ramai oleh pendatang dari kaum tersebut  yang sengaja memboyong sanak keluarganya untuk tinggal dan menetap disana. Lalu inilah tugas baru yang di emban keduanya yaitu menjadikan Baitullah sebagai tempat peradaban. “Dan (ingatlah), ketika Ibrahim meninggikan (membina) dasar-dasar Baitullah bersama Ismail (seraya berdoa): "Ya Tuhan kami terimalah daripada kami (amalan kami), sesungguhnya Engkaulah Yang Maha Mendengar lagi Maha Mengetahui".” (QS. Al Baqarah:127).







MEMBUAT MENU MENGGUNAKAN GO TO DAN ESCAPE KEY

Mau share nih tentang program membuat MENU dalam bahasa COBOL dengan menggunkan statement GO TO dan ESCAPE KEY. Codingannya :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. MENU.
       AUTHOR. NOVI LATIFAH.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 LUAS SEGITIGA SIKU SIKU.
           02 PANJANG PIC 99V99.
           02 LEBAR PIC 99V99.
           02 LUAS PIC Z(6).99.
       01 SEGITIGA.
           02 ALAS PIC 99V99.
           02 TINGGI PIC 99V99.
           02 LUAS PIC Z(6).99.
       01 SISI MIRING SEGITIGA SIKU SIKU.
           02 SISI1 PIC 99V99.
           02 SISI2 PIC 99V99.
           02 SISI-MIRING PIC Z(6).99.

       77 TEKAN PIC 99.
       77 PILIH PIC X.

       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 LAYAR-MENU.
           02 LINE 3 COLUMN 20 VALUE  '      <<MENU>>      '.
           02 LINE 6 COLUMN 20 VALUE  'F1. LUAS SEGITIGA SIKU-SIKU'.
           02 LINE 8 COLUMN 20 VALUE  'F2. LUAS SEGITIGA'.
           02 LINE 10 COLUMN 20 VALUE 'F3. SISI MIRING SEGITIGA'.
           02 LINE 12 COLUMN 20 VALUE 'ESC SELESAI'.
           02 LINE 20 COLUMN 20 VALUE 'PILIH YANG MANA ? '.
           02 LINE 20 COLUMN 40 PIC X TO PILIH.

       PROCEDURE DIVISION.
       TAMPILKAN-MENU.
           DISPLAY HAPUS-LAYAR.
           MOVE SPACE TO PILIH.
           DISPLAY LAYAR-MENU.
           ACCEPT LAYAR-MENU.
           ACCEPT TEKAN FROM ESCAPE KEY.
           DISPLAY HAPUS-LAYAR.

        SELEKSI-PILIHAN.
           IF TEKAN = 1
              GO TO SELESAI.

           IF TEKAN = 2
              DISPLAY (2,5) 'PANJANG ? '.
              ACCEPT (2, ) PANJANG WITH PROMPT.
              DISPLAY (3,5) 'LEBAR ? '.
              ACCEPT (3, ) LEBAR WITH PROMPT.
              COMPUTE LUAS = 0.5*PANJANG*LEBAR.
              DISPLAY (5,5) 'LUAS SEGITIGA SIKU-SIKU ADALAH = 'LUAS.
              GO TO KEMBALI-KE-MENU.

           IF TEKAN = 3
              DISPLAY (2,5) 'ALAS SEGITIGA ? '.
              ACCEPT (2, ) ALAS WITH PROMPT.
              DISPLAY (3,5) 'TINGGI SEGITIGA ? '.
              ACCEPT (3, ) TINGGI WITH PROMPT.
              COMPUTE LUAS = (ALAS*TINGGI)/2.
              DISPLAY (5,5) 'LUAS SEGITIGA ADALAH = 'LUAS. 
              GO TO KEMBALI-KE-MENU.

           IF TEKAN = 4
              DISPLAY (2,5) 'SISI SIKU-SIKU PERTAMA : ? '.
              ACCEPT (2, ) SISI1 WITH PROMPT.
              DISPLAY (3,5) 'SISI SIKU-SIKU KEDUA : ? '.
              ACCEPT (3, ) SISI2 WITH PROMPT.
              COMPUTE SISI-MIRING =(SISI1**2 + SISI2**2)**(1/2).
              DISPLAY (5,5) 'SISI MIRINGNYA ADALAH = 'SISI-MIRING.
              GO TO KEMBALI-KE-MENU.

           ELSE

              GO TO TAMPILKAN-MENU.
       KEMBALI-KE-MENU.
           DISPLAY (20,5) 'TEKAN SEMBARANG UNTUK KEMBALI KE MENU'.
           MOVE SPACE TO PILIH.
           ACCEPT (20, ) PILIH WITH AUTO-SKIP.
           GO TO TAMPILKAN-MENU.

       SELESAI.
           STOP RUN.   



Perlu diperhatikan yaa, dalam program COBOL letak penulisan berpengaruh pada jalannya suatu program. Mulailah mengetik codingnya dari kolom 8 untuk setiap DIVISI dan LEVEL NUMBER YANG BERDIRI SENDIRI (77), dan kolom 12 untuk setiap LEVEL NUMBER (01). Semakin besar level number maka letaknya akan semakin menjorong ke dalam (bisa dilihat pada contoh program diatas).
contoh program di atas di adaptasi dari contoh yang terdapat dalam buku Teori dan Aplikasi Program Komputer Bahasa Cobol karya Jogiyanto Hartono,MBA,Ph.D.

Selamat mencoba :)...