Program dan Kisah

IRONIS,, SYIAH DIBILANG SESAT

2011-12-24T13:43:00.003+07:00

Allah ta’ala berfirman:

يَا أَيُّهَا الَّذِينَ آمَنُوا كُونُوا أَنْصَارَ اللَّهِ كَمَا قَالَ عِيسَى ابْنُ مَرْيَمَ لِلْحَوَارِيِّينَ مَنْ أَنْصَارِي إِلَى اللَّهِ قَالَ الْحَوَارِيُّونَ نَحْنُ أَنْصَارُ اللَّهِ فَآمَنَتْ طَائِفَةٌ مِنْ بَنِي إِسْرَائِيلَ وَكَفَرَتْ طَائِفَةٌ فَأَيَّدْنَا الَّذِينَ آمَنُوا عَلَى عَدُوِّهِمْ فَأَصْبَحُوا ظَاهِرِينَ

Hai orang-orang yang beriman, jadilah kamu penolong-penolong (agama) Allah sebagaimana Isa putra Maryam telah berkata kepada pengikut-pengikutnya yang setia: "Siapakah yang akan menjadi penolong-penolongku (untuk menegakkan agama) Allah?" Pengikut-pengikut yang setia itu berkata: "Kami lah penolong-penolong agama Allah", lalu segolongan dari Bani Israel beriman dan segolongan (yang lain) kafir; maka kami berikan kekuatan kepada orang-orang yang beriman terhadap musuh-musuh mereka, lalu mereka menjadi orang-orang yang menang. (as-shoff : 14)

syi'ah meyakini bahwa imam mereka itu seperti tuhan yang jika mereka berkehendak untuk mengetahui, maka mereka pasti mengetahuinya

Al Kulaini meriwayatkan di Al Kafi : Bab "Sesungguhnya para imam, jika mereka berkehendak untuk mengetahui, maka mereka pastimengetahuinya". Dari Jafar ia berkata : "Sesungguhnya Imam jika ia berkehendak mengetahui, maka ia pasti mengetahui, dan sesungguhnya para imam mengetahui kapan mereka akan mati, dan sesungguhnya mereka tidak akan mati kecuali dengan pilihan mereka sendiri."

Usulul_Kafi, di dalam kitabul Hujjah : (1/258).

atas terbunuhnya Faruq Umar bin Khottob syi'ah rofidhoh didalam kitab mereka memberi nama pembunuh umar yaitu abu Lukluk al Majusi dengan nama "Baba Syujaa'uddin" (bapak) "pemberani dalam agama" (pahlawan agama)

Abbas Al Qummi, (Alkuna wal Alqaab) 2/55.

Kenapa Syi'ah Dinamakan Dengan Rofidhoh ?

Penamaan ini disebutkan oleh syeikh mereka Al Majlisi dalam bukunya "Al
Bihaar"

Ada yang mengatakan : mereka dinamakan rofidhoh, karena mereka datang ke Zaid bin Ali bin Husein, lalu mereka berkata : "Berlepas dirilah kamu dari Abu Bakr dan Umar sehingga kami bisa bersamamu!", lalu beliau menjawab :
"Mereka berdua (Abu Bakr dan Umar) adalah sahabat kakekku, bahkan aku setia kepada mereka". Mereka berkata : "Kalau begitu, kami menolakmu (rofadhnaak) maka dinamakanlah mereka Rofidhoh (yang menolak), dan orang yang membai'at dan sepakat dengan Zaid bin Ali bin Husein disebut Zaidiyah

Lihat buku : Al Bihaar, oleh Al Majlisi, hal : 68-96-97. (Dia ini merupakan salah seorang tempat bertanya orang-orang rafidhah (syi'ah) untuk zaman-zaman terakhir).
dinukil dari : At Ta'liiqaatu 'Ala Matni Lum'atil 'Itiqaad, oleh : Syeikh Alaamah Abdullah bin Abdurrahman Al Jibrin, hal : 108.

SYIAH MELAKNAT PARA SAHABAT DAN ISTRI NABI
Syi'ah meyakini bahwa para Sahabat sepeninggal Nabi shollallahu 'alaihi wasallam, mereka murtad, kecuali beberapa orang saja, seperti: Al-Miqdad bin Al-Aswad, Abu Dzar Al-Ghifary dan Salman Al-Farisy (Ar Raudhah minal Kafi juz VIII hal.245, Al-Ushul minal Kafi juz II hal 244)
Al Kulaini (salah seorang pentolan Syi’ah ) menyebutkan sebuah hadits dari Zurarah dari Abu Abdillah ‘alaihissalaam perihal pernikahan Ummu Kultsum putri 'ali bin abi tholib dengan sahabat umar bin khotthob, ia berkata: “Sesungguhnya itu adalah kemaluan yang telah dirampas dari kami.”

Silahkan baca Al Kafi dalam bab: Furu’ juz 2 halaman 141, edisi India.

pelecehan 'ulama' syi'ah terhadap 'aisyah rodhiallahu 'anha dan keyakinan mereka tentang salah satu sifat imam mahdi :

Berkata Al Majlisi di dalam Kitab "Haqul Yakin" dari Muhammad Al Baqir (berkata) :
"Jika Al Mahdi telah keluar, maka sesungguhnya ia akan menghidupkan 'Aisyah Ummul Mukminin dan ia melaksanakan (menjatuhkan) hukum had (hudud) atas diri Aisyah"

Haqul Yakiin, oleh Muhammad Al Baqir Al Majlisi, hal : 347.

Al-Imam Al-Auza’i rohimahullah berkata:

“Ilmu adalah apa yang telah datang dari shahabat-shahabat Nabi Muhammad shollallahu 'alaihi wasallam. Dan sesuatu yang tidak datang dari mereka tidaklah dinamakan ilmu.”

(Jami’u Bayanil ‘Ilmi wa Fadhlih, 1/29)

maka kita tidak sedikitpun mengatakan syi'ah rofidhoh diatas 'ilmu karena mereka tidak mengambil perkataan dari para sahabat nabi shollallahu 'alaihi wasallam..

ingatkanlah akan saudara-saudara kita yang PKS hari ini, mereka banyak mengagungkan dan memuji ahmadinejad dan memuji iran..

saudara-saudara HAMMAS di palestina bersekongkol dengan iran dan banyak aktivis PKS mengagumi iran...

ingatkan terus bahaya syi'ah ya ikhwan...nyatakan perang terhadap mereka yang mengkafirkan sahabat-sahabat nabi dan melecehkan ahlul bait rosulullah dengan slogan seakan-akan cinta ahlul bait tapi menikam ahlul bait dari dalam..

wahai qoum muslimin betapa banyak para sahabat dikafirkan syi'ah..? masihkah kalian mengakui syi'ah adalah bagian dari Islam..?

WAHABI “ SESAT “

2011-12-24T11:23:00.005+07:00

Berpikir sebelum membaca dan pahami setelahnya agar kita tahu siapa itu wahabi??

إنَّ الحَمْدَ لله، نَحْمَدُه، ونستعينُه، ونستغفرُهُ، ونعوذُ به مِن شُرُورِ أنفُسِنَا، وَمِنْ سيئاتِ أعْمَالِنا، مَنْ يَهْدِه الله فَلا مُضِلَّ لَهُ، ومن يُضْلِلْ، فَلا هَادِي لَهُ. وأَشْهَدُ أنْ لا إلَهَ إلا اللهُ وَحْدَهُ لا شَرِيكَ لَهُ، وأشهدُ أنَّ مُحَمَّدًا عبْدُه ورَسُولُه.
قال الله تعالى:﴿يَاأَيُّهَا الَّذِينَ آمَنُوا اتَّقُوا الله حَقَّ تُقَاتِهِ وَلا تَمُوتُنَّ إِلا وَأَنْتُمْ مُسْلِمُونَ﴾
﴿يَاأَيُّهَا النَّاسُ اتَّقُوا رَبَّكُمُ الَّذِي خَلَقَكُمْ مِنْ نَفْسٍ وَاحِدَةٍ وَخَلَقَ مِنْهَا زَوْجَهَا وَبَثَّ مِنْهُمَا رِجَالا كَثِيرًا وَنِسَاءً وَاتَّقُوا الله الَّذِي تَسَاءَلُونَ بِهِ وَالأرْحَامَ إِنَّ الله كَانَ عَلَيْكُمْ رَقِيبًا﴾
﴿يَاأَيُّهَا الَّذِينَ آمَنُوا اتَّقُوا الله وَقُولُوا قَوْلا سَدِيدًا * يُصْلِحْ لَكُمْ أَعْمَالَكُمْ وَيَغْفِرْ لَكُمْ ذُنُوبَكُمْ وَمَنْ يُطِعِ الله وَرَسُولَهُ فَقَدْ فَازَ فَوْزًا عَظِيمًا﴾
أما بعد,

Sesungguhnya diantara musibah terbesar yang menimpa umat Islam adalah timbulnya perpecahan di antara mereka. Perpecahan seperti ini akan melemahkan kekuatan umat Islam, menyenangkan hati musuh-musuh Islam dan membuat peluang bagi mereka untuk mencabik-cabik persatuan umat Islam yang dengannya mereka dapat menjalankan misi mereka untuk memerangi umat Islam. Rasulullah Shallallahu ‘Alaihi Wasallam yang sangat menginginkan kebaikan kepada umatnya telah memperingatkan umatnya akan hal ini agar mereka menjauhinya sebagaimana

beliau Shallallahu ‘Alaihi Wasallam bersabda yang diriwayatkan oleh ‘Irbath bin Sariyah :

صَلَّى بِنَا رَسُولُ الله r ذَاتَ يَوْمٍ ثُمَّ أَقْبَلَ عَلَيْنَا فَوَعَظَنَا مَوْعِظَةً بَلِيغَةً ذَرَفَتْ مِنْهَا الْعُيُونُ وَوَجِلَتْ مِنْهَا الْقُلُوبُ فَقَالَ قَائِلٌ يَا رَسُولَ الله كَأَنَّ هَذِهِ مَوْعِظَةُ مُوَدِّعٍ فَمَاذَا تَعْهَدُ إِلَيْنَا فَقَالَ «أُوصِيكُمْ بِتَقْوَى الله وَالسَّمْعِ وَالطَّاعَةِ وَإِنْ عَبْدًا حَبَشِيًّا فَإِنَّهُ مَنْ يَعِشْ مِنْكُمْ بَعْدِى فَسَيَرَى اخْتِلاَفًا كَثِيرًا فَعَلَيْكُمْ بِسُنَّتِى وَسُنَّةِ الْخُلَفَاءِ الْمَهْدِيِّينَ الرَّاشِدِينَ تَمَسَّكُوا بِهَا وَعَضُّوا عَلَيْهَا بِالنَّوَاجِذِ وَإِيَّاكُمْ وَمُحْدَثَاتِ الأُمُورِ فَإِنَّ كُلَّ مُحْدَثَةٍ بِدْعَةٌ وَكُلَّ بِدْعَةٍ ضَلاَلَةٌ»

“Pada suatu hari Rasulullah Shallallahu ‘Alaihi Wasallam shalat bersama kami kemudian beliau menghadap kami dan memberikan nasehat yang sangat bagus, berlinang dengannya air mata kami dan bergetar hati-hati kami. Maka seseorang berkata: "Wahai Rasulullah, seakan-akan ini adalah nasihat perpisahan, maka apa yang Anda wasiatkan buat kami?" Maka beliau mengatakan: "Aku mewasiatkan kepada kalian dengan ketakwaan dan tunduk serta patuh walaupun yang memimpin kalian adalah seorang hamba. Maka barangsiapa yang berumur panjang di antara kalian, niscaya dia akan menyaksikan perselisihan yang banyak. Maka atas kalian sunnahku dan sunnah khulafaur rasyidin setelahku. Pegangilah dengannya dan gigitlah dengan gigi geraham. Hati-hatilah kalian dari perkara yang baru di dalam agama, karena setiap yang diada-adakan di dalam agama adalah bid’ah dan setiap bid’ah adalah sesat.” HR. Abu Dawud (4607) dan dihasankan oleh Syeikh Muqbil dalam As-Shahih Al-Musnad (2/21

Dalam hadits ini, Rasulullah Shallallahu ‘Alaihi Wasallam menerangkan tentang akan terjadinya perpecahan di antara umat ini. Setelah menjelaskan hal ini, beliau tidak meninggalkan umatnya begitu saja, akan tetapi menerangkan kepada mereka jalan keluarnya. Barangsiapa mengambilnya, maka sungguh dia telah selamat dunia dan akhirat. Sebaliknya barangsiapa yang mengabaikannya, maka sungguh dia telah celaka dunia dan akhirat. Jalan keluar itu adalah berpegang teguh dengan Al-Qur’an serta As-Sunnah yang shohih dengan pemahaman Salaf.

Al-‘Alim Al-Imam Robi’ bin Hadi –hafidzohulloh- berkata: ”Orang-orang kafir, Nashara dan Yahudi menginginkan kaum muslimin murtad dari agama mereka dan pada ahlul bid’ah bagian yang besar dari niat yang jelek ini. Begitu pula niat yang jelek bagi ahlul khoir. Maka dari sini, wajib bagi kita untuk sangat berhati-hati dari mereka."(Al-Mauqifus Shohih min Ahlil Bida’)

Semua ini menunjukkan bahwa seluruh dakwah ahlul batil tidaklah dibangun di atas ilmu Kitab dan Sunnah begitu pula tidak di atas keikhlasan kepada Alloh sebagaimana yang Alloh perintahkan. Alloh -subhanahu wa ta'ala - berfirman:

﴿قُلْ هَذِهِ سَبِيلِي أَدْعُو إِلَى الله عَلَى بَصِيرَةٍ أَنَا وَمَنِ اتَّبَعَنِي وَسُبْحَانَ الله وَمَا أَنَا مِنَ الْمُشْرِكِينَ﴾

”Katakanlah: "Inilah jalan (agama)ku, aku dan orang-orang yang mengikutiku mengajak (kamu) kepada Alloh dengan hujjah yang nyata. Maha suci Alloh, aku tiada termasuk orang-orang yang musyrik." [QS. Yusuf: 108]

Oleh karena itu, ketika Ahlus Sunnah wal Jama’ah bangkit menyeru manusia agar kembali kepada ajaran Islam yang murni serta memperingatkan mereka dari golongan-gologan yang sesat baik dari kalangan orang-orang kafir ataupun ahlu bida’, mereka (golongan-golongan yang sesat) –ketika tidak memiliki hujjah untuk menghadapi Ahlus Sunnah wal Jama'ah– mulai membuat makar terhadap Ahlus Sunnah wal Jama'ah. Salah satu bentuk makarnya adalahnya menjuluki Ahlus Sunnah wal Jama'ah dengan julukan-julukan yang tidak benar. Bahkan di antara mereka tidak segan-segan menghalalkan darah Ahlus Sunnah wal Jama'ah.

Rasulullah Shallallahu ‘Alaihi Wasallam dituduh oleh kaum musyrikin pada jaman beliau sebagai tukang sihir, orang gila, orang yang celaka dan lain-lain. Bahkan mereka berencana untuk membunuh beliau. Akan tetapi Alloh Robb semesta alam senantiasa menjaga beliau hingga meninggalkan dunia ini

Alloh ta'ala berfirman:

﴿وَإِذْ يَمْكُرُ بِكَ الَّذِينَ كَفَرُوا لِيُثْبِتُوكَ أَوْ يَقْتُلُوكَ أَوْ يُخْرِجُوكَ وَيَمْكُرُونَ وَيَمْكُرُ الله وَالله خَيْرُ الْمَاكِرِينَ﴾

"Ingatlah, ketika orang-orang kafir (Quraisy) memikirkan tipu daya terhadapmu untuk menangkap, membunuh atau mengusirmu. Mereka memikirkan tipu daya dan Alloh menggagalkan tipu daya itu. Alloh Sebaik-baik pembalas tipu daya. (QS. Al-Anfal: 30)

Begitu pula orang-orang yang mengikuti jejak Rasulullah Shallallahu ‘Alaihi Wasallam juga akan diuji. Oleh karena itu, wajib bagi setiap Ahlus Sunnah wal Jama'ah untuk tetap kokoh dalam berjalan di atas jalannya Rasulullah Shallallahu ‘Alaihi Wasallam hingga akhir jaman.

Upaya musuh-musuh Tauhid dan Sunnah dalam memerangi Ahlus Sunnah wal Jama'ah dengan menjuluki mereka dengan julukan-julukan yang tidak sesuai dengan kenyataan, baik pada jaman dahulu atapun sekarang. Diantara julukan-julukan yang mereka lemparkan terhadap Ahlus Sunnah wal Jama'ah pada akhir-akhir ini adalah apa yang kita dengar dengan sebutan Wahhabiyah. Bahkan siapa saja yang mereka lihat mulai berpegang teguh dengan Sunnah, mereka juluki sebagai Wahhabiy, nisbah kepada Syaikh Muhammad bin Abdul Wahab Al-Najdiy. Hal itu dikarenakan, mereka menuduh bahwa dakwah beliau adalah dakwah garis keras, menghalalkan darah kaum muslimin dan lain-lain. Bahkan beliau dituduh semasa hayatnya sebagai penerus dakwah kelompok Wahhabiyah (salah satu kelompok Khawarij yang muncul di Maghrib pada tahun 171 H). Oleh karena itu, setiap yang datang setelah Syaikh Muhammad bin Abdul Wahhab kemudian mendakwahkan kepada tauhid dan Sunnah serta membasmi kesyirikan, kebida’han, khurafat dan kemungkaran-kemungkaran yang lain, mereka menuduhnya sebagai pengekor beliau.

Alloh Ta'ala berfirman:

﴿مَا لَهُمْ بِهِ مِنْ عِلْمٍ وَلَا لِآبَائِهِمْ كَبُرَتْ كَلِمَةً تَخْرُجُ مِنْ أَفْوَاهِهِمْ إِنْ يَقُولُونَ إِلَّا كَذِبًا﴾

"Mereka sekali-kali tidak mempunyai pengetahuan tentang hal itu, begitu pula nenek moyang mereka. Alangkah buruknya kata-kata yang keluar dari mulut mereka. Mereka tidak mengatakan (sesuatu), kecuali kedustaan." (QS. Al-Kahfi: 5)

Semua ini mereka lakukan dalam rangka menjauhkan manusia dari berpegang teguh dengan Sunnah Nabi Shallallahu ‘Alaihi Wasallam. Wala haula wala quwwata illa billah.

Melihat kenyataan yang ada, maka Ahlus Sunnah wal Jama'ah bangkit menjelaskan kepada manusia tentang makar musuh-musuh Tauhid dan Sunnah ini, baik secara lisan maupun tulisan. Sehingga Alloh ta'ala membuka hati-hati manusia terutama umat Islam kepada kebenaran.

Alloh ta'ala berfirman:

﴿إِنَّ الَّذِينَ يُحَادُّونَ اللَّهَ وَرَسُولَهُ أُولَئِكَ فِي الْأَذَلِّينَ﴾

"Sesungguhnya orang-orang yang menentang Alloh dan Rasul-Nya, mereka termasuk orang-orang yang sangat hina." (QS. Al-Mujadalah: 20)

Orang-orang biasa menuduh “wahabi ” kepada setiap orang yang melanggar tradisi, kepercayaan dan bid’ah mereka, sekalipun kepercayaan-kepercayaan mereka itu rusak, bertentangan dengan Al-Qur’anul Karim dan hadits-hadits shahih. Mereka menentang dakwah kepada tauhid dan enggan berdo’a (memohon) hanya kepada Allah semata.

Sebagian orang menuduh salafi orang-orang wahabi. Ini termasuk tanaabuzun bil alqaab (memanggil dengan panggilan-panggilan yang buruk). Allah melarang kita dari hal itu dengan firmanNya,
“Artinya : Dan janganlah kamu panggil-memanggil dengan gelar-gelar yang buruk.” [Al-Hujurat: 11]
Dahulu, musuh Islam menuduh Imam Syafi’i dengan rafidhah. Beliau lalu membantah mereka dengan mengatakan, “Jika rafidah (berarti) mencintai keluarga Muhammad. Maka hendaknya jin dan manusia menyaksikan bahwa sesungguhnya aku adalah rafidhah.”
Maka, kita juga membantah orang-orang yang menuduh salafi itu wahabi,
seorang penyair berkata, “Jika pengikut Ahmad adalah wahabi. Maka aku berikrar bahwa sesungguhnya aku wahabi.”
Musuh-musuh Tauhid dan Sunnah memberi gelar wahabi kepada setiap muwahhid (yang mengesakan Allah), nisbat kepada Muhammad bin Abdul Wahab, Jika mereka jujur, mestinya mereka mengatakan Muhammadi nisbat kepada namanya yaitu Muhammad. Betapapun begitu, ternyata Allah menghendaki nama wahabi sebagai nisbat kepada Al-Wahhab (Yang Maha Pemberi), yaitu salah satu dari nama-nama Allah yang paling baik (Asmaa’ul Husnaa).
Jika shufi menisbatkan namanya kepada jama’ah yang memakai shuf (kain wol) maka sesungguhnya wahabi menisbatkan diri mereka dengan Al-Wahhab (Yang Maha Pemberi), yaitu Allah yang memberikan tauhid dan meneguhkannya untuk berdakwah kepada tauhid.
SIAPA MUHAMMAD BIN ABDUL WAHAB
Beliau dilahirkan di kota ‘Uyainah, Nejed pada tahun 1115 H. Hafal Al-Qur’an sebelum berusia sepuluh tahun. Belajar kepada ayahandanya tentang fiqih Hambali, belajar hadits dan tafsir kepada para syaikh dari berbagai negeri, terutama di kota Madinah. Beliau memahami tauhid dari Al-Kitab dan As-Sunnah. Perasaan beliau tersentak setelah menyaksikan apa yang terjadi di negerinya Nejed dengan negeri-negeri lainnya yang beliau kunjungi berupa kesyirikan, khurafat dan bid’ah. Demikian juga soal menyucikan dan mengkultuskan kubur, suatu hal yang bertentangan dengan ajaran Islam yang benar.
Ia mendengar banyak wanita di negerinya bertawassul dengan pohon kurma yang besar. Mereka berkata, “Wahai pohon kurma yang paling agung dan besar, aku menginginkan suami sebelum setahun ini.”
Di Hejaz, ia melihat pengkultusan kuburan para sahabat, keluarga Nabi (ahlul bait), serta kuburan Rasulullah Shalallaahu alaihi wasalam, hal yang sesungguhnya tidak boleh dilakukan kecuali hanya kepada Allah semata.
Di Madinah, ia mendengar permohonan tolong (istighaatsah) kepada Rasulullah Shalallaahu alaihi wasalam, serta berdo’a (memohon) kepada selain Allah, hal yang sungguh bertentangan dengan Al-Qur’an dan sabda Rasulullah Shalallaahu alaihi wasalam . Al-Qur’an menegaskan:
“Artinya : Dan janganlah kamu menyembah apa-apa yang tidak memberi manfa’at dan tidak (pula) memberi madharat kepadamu selain Allah, sebab jika kamu berbuat (yang demikian) itu, sesungguhnya kamu kalau begitu termasuk orang-orang yang zhalim.” [Yunus : 106]

Ya Rahman ampunilah dosa kami dan berilah hidayah dan petunjuk kepada Umat Islam..amiin

Note: diambil dari beberapa sumber dgn sedikit edit dan ringkasan

Setting Server Gateway di Mikrotik

2011-07-03T00:05:00.002+07:00

Mikrotik-Materi kali ini akan membahas mengenai setting Server Gateway di Mikrotik, materi ini berguna untuk pemula yang sedang mempelajari Mikrotik. Server Gateway seperti sebuah pintu masuk/gerbang tempat lalu lintas data keluar dan masuk. Selamat mempelajari.

Mengenal Jaringan LAN

2011-07-02T23:57:00.003+07:00

untuk pemula yang ingin belajar jaringan network, video ini bagus untuk mendalami dasar-dasar jaringan..silakan menyimak

sumber: http://videobelajar.com/pengenalan-jaringan-lan/

Mengenal Jaringan LAN

2011-07-02T23:57:00.000+07:00

Mengenal Router

2011-07-02T23:15:00.005+07:00

Apa itu router? Router adalah penghubung antara jaringan satu ke jaringan lainnya, yaitu agar host pada jaringan yang satu bisa berkomunikasi dengan host pada jaringan yang lain untuk meneruskan data dari satu jaringan ke jaringan lainnya. Router berbeda dengan switch. Switch merupakan penghubung beberapa alat untuk membentuk suatu Local Area Network (LAN).

Cara meng-konfigurasinya bisa melalui port console atau bisa juga melalui network.

1. Melalui port console
Console port adalah sebuah port pada router. Sebuah kabel Roll Over dibutuhkan untuk menghubungkan serial interface pada PC dan Console port pada router tersebut. Setelah Router terhubung dengan PC, Router dapat dikonfigurasi dengan menjalankan applikasi HyperTerminal dari PC.

2. Melalui Network
Cara ini bisa dikatakan lebih menguntungkan bagi para Network Administrator jaringan,karena router bisa di remote dari luar asalkan network interface routernya sudah diset untuk keperluan telnet.

Tingkat akses perintah pada router:

1.User mode ,biasanya ditandai dengan tanda “>”. pada tingkatan ini user hanya bisa melihat status/konfigurasinya saja tanpa ada hak akses untuk merubah konfigurasi didalamnya.

2.Privileged mode ,user akan masuk ke tingkat akses ini setelah mengetikkan ena di tingkat user mode. biasanya ditandai dengan “#”. jika pada interface ini sudah diberi password maka user harus meng-inputkan password agar bisa masuk dan merubah konfigurasi router. namun untuk memulai konfigurasi baru setelah masuk pada privileged mode ketikkan conf-t.

Cara me-routing router ada beberapa cara,ada dengan cara static dan ada juga dinamic.
Perbedaan antara static dan dinamic :
Static routing dikonfigurasi secara manual. Routing tabelnya diset manual dan disimpan dalam router. Tidak ada informasi sharing diantara sesama router. Hal ini mengakibatkan keterbatasan yang jelas karena ia tidak dapat secara otomatis menentukan route terbaik; ia selalu menggunakan rute yang sama yang kemungkinan bukan rute terbaik. Jika route berubah, static router harus diupdate secara manual. Karena static router menyediakan control penuh pada routing tabelnya, ia lebih aman dibanding dynamic router.
Dynamic routing mampu membuat routing tabelnya sendiri dengan berbicara ke sesama router. Untuk melakukannya ia menemukan route dan route alternatif yang berada pada network. Dynamic router bisa membuat keputusan pada route yang mana sebuah paket mencapai tujuan. Umumnya ia mengirimkan paket ke route yang paling efisien; salah satu yang menghasilkan jumlah hop lebih sedikit. Bagaimanapun, jika route macet,dynamic route dapat mengirimkan paket ke route alternatif.

Jenis-jenis router

Secara umum, router dibagi menjadi dua buah jenis, yakni:

Static router (router statis): adalah sebuah router yang memiliki tabel routing statis yang diset secara manual oleh para administrator jaringan.
Dynamic router (router dinamis): adalah sebuah router yang memiliki dab membuat tabel routing dinamis, dengan mendengarkan lalu lintas jaringan dan juga dengan saling berhubungan dengan router lainnya.

Produsen router

Beberapa produsen router termasuk:

* 2Wire (www.2wire.com)
* 3Com (www.3com.com)
* Adtran (www.adtran.com)
* Alcatel (www.alcatel.com)
* Apple Computer (termed 'AirPort Base Stations')
* Asus (www.asus.com)
* Belkin (www.belkin.com)
* Buffalo Technology (www.buffalotech.com)
* Billion (www.billion.com)
* CANYON (www.canyon-tech.com)
* CISCO SYSTEMS, INC. (www.cisco.com)
* Cyclades Corporation (www.cyclades.com)
* D-Link Systems (www.dlink.com)
* Draytek (www.draytek.com)
* Enterasys Networks (www.enterasys.com)
* Ericsson AB (www.ericsson.com)
* Extreme Networks (www.extremenetworks.com)
* Funkwerk Enterprise Communications GmbH (www.bintec.net)
* Foundry Networks (www.foundrynet.com)
* Hawking Technologies (www.hawkingtech.com)
* Hewlett-Packard (www.hp.com)
* Huawei Technologies (www.huawei.com)
* ImageStream (www.imagestream.com)
* Juniper Networks (www.juniper.net)
* Lightning MultiCom (www.lightning.ch)
* LINKSYS (www.linksys.com)
* Lucent Technologies (www.lucent.com)
* Marconi (www.marconi.com)
* Mikrotik (www.mikrotik.com)
* Motorola (www.motorola.com)
* MRV Communications (www.mrv.com)
* NetComm (www.netcomm.com)
* NETGEAR (www.netgear.com)
* Nortel (www.nortel.com)
* PacketFront (www.packetfront.com)
* Pivotal Networking (global.acer.com)
* Redback Networks (www.redback.com)
* Siemens AG (www.siemens.com)
* SMC Networks (www.smc.com)
* Tellabs (www.tellabs.com)
* U.S. Robotics (www.usr.com)
* Zoom Telephonics (www.zoom.com)
* Trendware (www.trendware.com)
* ZyXEL (www.us.zyxel.com)

Pada kesempatan ini kita coba untuk yang static routing.berikut cara men-setting router seperti gambar di atas:

Router1 :

Press Enter to Start

Router>
Router>ena
Router#conf t
Enter configuration commands, one per line. End with CNTL/Z.
Router(config)#hostname Router1
Router1(config)#int s0
Router1(config-if)#ip addr 202.123.40.21 255.255.255.252
Router1(config-if)#clock rate 9600
Router(config-if)#no shut
%LINK-3-UPDOWN: Interface Serial0, changed state to up
Router1(config-if)#ex
%LINK-3-UPDOWN: Interface Serial0, changed state to down
%LINEPROTO-5-UPDOWN: Line protocol on Interface Serial0, changed state to down
Router1(config)#int e0
Router1(config-if)#ip addr 192.168.1.1 255.255.255.0
Router1(config-if)#no shut
%LINK-3-UPDOWN: Interface Ethernet0, changed state to up
%LINK-3-UPDOWN: Interface Serial0, changed state to up
%LINEPROTO-5-UPDOWN: Line protocol on Interface Serial0, changed state to up
Router1(config-if)#ip route 192.168.2.0 255.255.255.0 202.123.40.21
Router1(config)#end
Route1r#wr mem
Building configuration…
[OK]

Router2:

Press Enter to Start

Router>ena
Router#conf t
Enter configuration commands, one per line. End with CNTL/Z.
Router(config)#hostname Router2
Router2(config)#int s0
Router2(config-if)#ip addr 202.123.40.22 255.255.255.252
Router2(config-if)#no shut
%LINK-3-UPDOWN: Interface Serial0, changed state to up
Router2(config-if)#ex
Router2(config)#int e0
Router2(config-if)#ip addr 192.168.2.1 255.255.255.0
Router2(config-if)#no shut
%LINK-3-UPDOWN: Interface Ethernet0, changed state to up
Router2(config-if)#ip route 192.168.1.0 255.255.255.0 202.123.40.22
Router2(config)#end
Router2#wr mem
Building configuration…
[OK]

PC Client01 :
ip addr 192.168.1.2
netmask 255.255.255.0
gateway 192.168.1.1

PC Client02 :
ip addr 192.168.2.2
netmask 255.255.255.0
gateway 192.168.2.1

kemudian test ping dari PC Client01 ke PC Client02 dan sebaliknya!jika muncul reply berarti konfigurasi sukses,namun jika tidak? dicoba kembali

sumber: http://awibline.wordpress.com/2007/02/03/router-cisco/
http://sopansetiawan.blogspot.com/2008/11/pengenalan-router_24.html

dengan sedikit edit

Javascript Jam Digital Untuk Blog

2011-04-04T11:22:00.013+07:00

Sebelumnya saya mohon maaf, jika terdapat penulisan kode javascript yang salah ataupun jika daftar JavaSriptnya masih sangat kurang. Apa yang saya tuliskan di sini sebagian besar hasil copas dari situs lain. Saya berharap, semoga koleksi JavaScript ini berguna buat sobat-sobat semua. Silahkan copas saja koleksi JavaScript di bawah. Salam kenal sob...

Silahkan copas kode disini ke site anda

kode visual basic

2011-04-04T11:14:00.003+07:00

Jam Analog

‘Buat Form dan 1 Timer

Option Explicit
Dim xgen, ygen, xmin, ymin, xsec, ysec, xhor, yhor As Double
Dim h, m, s As Date
‘control the minute ‘
Function mint()

If s >= 0 And s < 12 Then
Call findminangle(CDbl(m))
ElseIf s >= 12 And s < 24 Then
Call findminangle(CDbl(m) + 0.2)
ElseIf s >= 24 And s < 36 Then
Call findminangle(CDbl(m) + 0.4)
ElseIf s >= 36 And s <= 48 Then
Call findminangle(CDbl(m) + 0.6)
ElseIf s >= 48 And s <= 59 Then
Call findminangle(CDbl(m) + 0.8)
End If
xmin = xgen
ymin = ygen

Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xmin, ymin), RGB(255, 24, 32)
End Function
‘control the second
Function secnd()
Call findminangle(CDbl(s))
xsec = xgen
ysec = ygen
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xsec, ysec), RGB(100, 100, 100)

End Function
‘control the hour
Function hr()

If m >= 0 And m < 12 Then
Call findminangle(CDbl(h) * 5)
ElseIf m >= 12 And m < 24 Then
Call findminangle(5 * (CDbl(h) + 0.2))
ElseIf m >= 24 And m < 36 Then
Call findminangle(5 * (CDbl(h) + 0.4))
ElseIf m >= 36 And m < 48 Then
Call findminangle(5 * (CDbl(h) + 0.6))
ElseIf m >= 48 And m <= 59 Then
Call findminangle(5 * (CDbl(h) + 0.8))
End If
xhor = xgen
yhor = ygen
If xhor >= Form1.ScaleWidth / 2 And yhor >= Form1.ScaleHeight / 2 Then

Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor – 200, yhor – 200), RGB(0, 0, 255)
ElseIf xhor <= Form1.ScaleWidth / 2 And yhor >= Form1.ScaleHeight / 2 Then
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor + 200, yhor – 200), RGB(0, 0, 255)
ElseIf xhor <= Form1.ScaleWidth / 2 And yhor <= Form1.ScaleHeight / 2 Then
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor + 200, yhor + 200), RGB(0, 0, 255)
ElseIf xhor >= Form1.ScaleWidth / 2 And yhor <= Form1.ScaleHeight / 2 Then
Line (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2)-(xhor – 200, yhor + 200), RGB(0, 0, 255)
End If

End Function
‘draw the clock
Function drawdig()
Dim i As Integer
Circle (Form1.ScaleWidth / 2, Form1.ScaleHeight / 2), 1411, RGB(255, 34, 34)
For i = 5 To 60
Call findminangle(CDbl(i))
Form1.CurrentX = xgen – TextWidth(i / 5) / 2
Form1.CurrentY = ygen – TextWidth(i / 5) / 2
Form1.Print i / 5
i = i + 4
Next
End Function
‘find the co-ordinate
Function findminangle(p As Double)
Dim temp As Double

temp = 60 – (p – 15)
temp = temp * 60 * 0.1
temp = (22 * temp) / (7 * 180)

xgen = (Form1.ScaleWidth / 2) + (1000 * Cos(temp))
ygen = (Form1.ScaleHeight / 2) – (1000 * Sin(temp))

End Function

Private Sub Timer1_Timer()

Form1.Cls

Call drawdig
Form1.Caption = Time()
h = Hour(Time())
m = Minute(Time())
s = Second(Time())

Call mint
Call secnd
Call hr
End Sub

Melihat Data Excell dengan VB

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer

j = Val(Text2.Text)
k = Val(Text3.Text)

Set xlBook = GetObject(Text1.Text)

List1.Clear
For i = 1 To k
List1.AddItem xlBook.WorkSheets(1).Cells(i, j).Value
Next
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Text1.Text = File1.Path & “\” & File1.FileName
End Sub

Private Sub Form_Load()
File1.Pattern = “*.xls”
End Sub

Melihat Code Character

Private Function ChrCode(txt As String) As String
Dim x As Long
Dim outstring As String
For x = 1 To Len(txt$)
outstring$ = outstring$ + “Chr(” + CStr(Asc(Mid(txt$, x, 1))) + “) + “
Next x
outstring$ = Trim(outstring$)
outstring$ = Mid(outstring$, 1, Len(outstring$) – 2)
ChrCode$ = outstring$
End Function
Private Sub Command1_Click()
If Text1 = “” Then Exit Sub
Text2.Text = ChrCode(Text1.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = “”
End Sub

Private Sub Command3_Click()
If Text2 = “” Then Exit Sub
Clipboard.SetText Text2.Text
End Sub

Private Sub Command4_Click()
Text2.Text = “”
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End
End Sub
Posted by Administrator in 03:49:08 | Permalink | No Comments »
Friday, March 14, 2008
Belajar Input Teks di List
Private Sub cmdHapus_Click()
LstList.RemoveItem (LstList.ListIndex)

End Sub

Private Sub cmdHapusSemua_Click()
LstList.Clear

End Sub

Private Sub cmdInput_Click()
LstList.AddItem txtInput.Text

txtInput.Text = “”

End Sub

Private Sub cmdKeluar_Click()
End
End Sub
Posted by Administrator in 09:04:21 | Permalink | No Comments »
Monday, March 10, 2008
Counter Time
Private Sub Command1_Click()
intbatas = 5
Me.Timer1.Interval = 1000
Me.Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
intbatas = 5
Dim inttout As Integer
Dim dtm As Date
dtm = DateAdd(“s”, intbatas, Now)

Do Until Now >= dtm
DoEvents
inttout = Second(dtm) – Second(Now)
Me.Caption = “TimeOut:” & inttout
Loop
Unload Me
End Sub

Private Sub Timer1_Timer()
intbatas = intbatas – 1
If intbatas <= 0 Then
Me.Timer1.Enabled = False
Unload Me
Else
Me.Caption = “TimeOut:” & intbatas
End If
End Sub
Posted by Administrator in 08:41:29 | Permalink | Comments (1) »
Program Load Gambar
Private Sub Command1_Click()
With Me.CommonDialog1
.DialogTitle = “Ambil Gambar”
.Filter = “JPEG|*.jpg”
.ShowOpen

If .FileName <> “” Then
Set Me.Picture1.Picture = Nothing
Me.Picture1.Picture = LoadPicture(.FileName)
End If
End With
End Sub

‘Private Sub Form_Load()
‘Me.Picture1.Picture = LoadPicture(“D:\gbr_motor\bikes_honda_01.jpg”)
‘End Sub
Posted by Administrator in 08:31:20 | Permalink | No Comments »
Saturday, March 8, 2008
Radio Tuner Dengan VB
‘Thank’s Mackay for your sharing about Radio Tuner with VB
‘by Peter

Form

Option Explicit
‘Sintonizador de emisoras de radios
‘latinas en internet.
‘Creado por E. Mackay D. feb. 2008
Dim nEmisora As String
Dim nRadioPais As String

Private Sub cmdEscuchar_Click()
On Local Error Resume Next
If cmdEscuchar.Caption = “Escuchar” Then
Image1(0) = Image1(1) ‘Rojo
Tuneador.Enabled = False
cmdEscuchar.Caption = “Detener”
WMPradio.URL = nEmisora
WMPradio.Controls.Play
Else
cmdEscuchar.Caption = “Escuchar”
Image1(0) = Image1(3) ‘Gris
Tuneador.Enabled = True
WMPradio.Controls.Stop
Escuchar.Panels(1).Text = “”
lblRadioPais.Caption = “”
End If
End Sub

Private Sub Form_Load()
Image1(0) = Image1(3) ‘Gris
Escuchar.Panels(1).Width = Me.Width – 100
Call Emisoras
‘Emisora buffer Radio HRN de Honduras
nEmisora = “http://206.17.135.195/VACILON_LIVE”
End Sub

Private Sub Emisoras()
Dim strVar As String

‘Abre archivo para leer
On Local Error Resume Next
’Sept. 2, 2007
Open UnArchivo For Input As #1

Do While Not EOF(1)
Line Input #1, strVar
‘Procesa linea a linea, si la linea es valida
If strVar <> “” Then Call Separar(strVar)
Loop
Close #1
End Sub
Private Sub Separar(sRlinea As String)
Dim sNum, iPos As Long
Dim strFinal, lesStr As String
lesStr = sRlinea
On Local Error Resume Next
For sNum = 1 To 4
iPos = InStr(lesStr, “|”)

strFinal = Trim(Left(lesStr, iPos – 1))

Select Case sNum
’Numero en la lista
Case 1
ListaURL.Add strFinal
’Nombre de emisora
Case 2
ListaURL.Add strFinal
’Pais de origen
Case 3
ListaURL.Add strFinal
’Url de emisora
Case 4
ListaURL.Add strFinal
End Select

lesStr = Right(sRlinea, Len(lesStr) – iPos)
Next sNum
’Programacion
ListaURL.Add lesStr
’
End Sub

Private Sub Tuneador_Scroll()
On Local Error GoTo Fuera

’Muestra instantaneamente la emisora y el pais
Escuchar.Panels(1).Text = ListaURL((Tuneador.Value * 5) + 2) & ” en ” & ListaURL((Tuneador.Value * 5) + 3)
nEmisora = ListaURL((Tuneador.Value * 5) + 4)
nRadioPais = Escuchar.Panels(1).Text
Exit Sub
Fuera:
MsgBox “Solo hay ” & ListaURL.Count / 5 & ” estaciones listadas.”, vbInformation + vbOKOnly, “AVISO”
Tuneador.Value = (ListaURL.Count / 5) – 1
End Sub

Private Sub WMPradio_OpenStateChange(ByVal NewState As Long)
Escuchar.Panels(1).Text = WMPradio.Status
If Left(WMPradio.Status, 3) = “Rep” Then
lblRadioPais.Caption = Trim(nRadioPais)
Image1(0) = Image1(2) ‘Verde
Else
lblRadioPais.Caption = “”
Image1(0) = Image1(1) ‘Rojo
End If

End Sub

Module
Option Explicit
‘Marzo 2008
‘hp1ml@hotmail.com
‘Para escuchar emisoras de radio latinas en internet
‘……………………..
‘Configuracion del string por paises
Public UnArchivo As String
Public Type TVNAME
nIdice As Long
Canal As String
dirURL As String
nBitrate As Integer
namePais As String
nRata As Integer
nStatus As Integer
End Type

Public ListaURL As New Collection
Public CanalPorPais As New Collection
Public Type POINTAPI
x As Long
y As Long
End Type
‘Para desplegar mas lineas en un combobox
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Declare Function SendMessage Lib _
“user32″ Alias “SendMessageA” _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Public Declare Function MoveWindow Lib _
“user32″ (ByVal hWnd As Long, _
ByVal x As Long, ByVal y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal bRepaint As Long) As Long

Public Declare Function GetWindowRect Lib _
“user32″ (ByVal hWnd As Long, _
lpRect As RECT) As Long

Public Const CB_SHOWDROPDOWN = &H14F
Public Const CB_GETITEMHEIGHT = &H154

Sub main()

UnArchivo = App.Path & “\allradio.dat” ‘channelTV.txt” ‘”\get3test.htm”

frmTuner.Show
End Sub

Membuat Animasi Huruf
Private Sub cmdkeluar_Click()
Unload Me

End Sub

Private Sub form_load()
Label1.FontBold = True

Label1.Left = 240
Label1.Top = 240

Timer1.Interval = 200

End Sub

Private Sub Timer1_Timer()
Label1.Top = Label1.Top + 100

If Label1.Top > 3000 Then
Label1.Top = 240
End If

End Sub

Belajar Fungsi VB

Private Sub OK_Click()
Dim userMsg As String
userMsg = InputBox(“What is your message?”, “Message Entry Form”, “Enter your messge here”, 500, 700)
If userMsg <> “” Then
message.Caption = userMsg
Else
message.Caption = “No Message”
End If

End Sub

Posted by Administrator in 07:54:24 | Permalink | No Comments »
Saturday, February 23, 2008
Program Menghitung Lama Parkir
Dim awal, akhir As Date
Dim lama As Double

Private Sub cmd_keluar_Click()
End
End Sub

Private Sub txt_bg_change()
Ado_parkir.RecordSource = “Select*from tb_parkir where no_polisi=” ‘”&txt_bg.text&”‘”
Ado_parkir.Refresh
With Ado_parkir.Recordset
If .PageCount <> 0 Then
If !Status = “T” Then
TXT_MULAI.Text = !jam_masuk
cmd_mulai.Caption = “&Stop”
cmd_mulai.SetFocus
Else
MsgBox “Nomor Polisi Yang Telah tersimpan Silahkan Anda Tekan Tombol Mulai”, vbInformation + vbOKOnly, “BG”
cmd_mulai.SetFocus
End If
Else
TXT_MULAI.Text = “”
TXT_SELESAI.Text = “”
TXT_TOTAL.Text = “”
TXT_BIAYA.Text = “”
cmd_mulai.Caption = “&Mulai”
End If
End With
End Sub
Private Sub txt_bg_keypress(KeyASCII As Integer)
If KeyASCII = 13 Then cmd_mulai.SetFocus
End Sub
Private Sub cmd_mulai_Click()
Dim biaya As Integer

If TXT_BG.Text = “” Then
MsgBox “Masukkan Nomor BG Terlebih Dahulu”, vbInformation + vbOKOnly, “Information”
TXT_BG.SetFocus
Else
If cmd_mulai.Caption = “&Mulai” Then
awal = Time
TXT_MULAI.Text = awal
cmd_mulai.Caption = “&Simpan”
ElseIf cmd_mulai.Caption = “&Simpan” Then
Ado_parkir.RecordSource = “Select*from tb_parkir”
Ado_parkir.Refresh
With Ado_parkir.Recordset
.AddNew
!no_polisi = TXT_BG.Text
!jam_masuk = TXT_MULAI.Text
.Update
End With
cmd_mulai.Caption = “&Mulai”
TXT_MULAI.Text = “”
TXT_BG.Text = “”
TXT_BG.SetFocus

ElseIf cmd_mulai.Caption = “&Stop” Then
akhir = Time
TXT_SELESAI.Text = akhir
cmd_mulai.Caption = “&Lama”

ElseIf cmd_mulai.Caption = “&Lama” Then
Ado_parkir.RecordSource = “Select jam_masuk from”
tb_parkir where no_polisi=’”&txt_bg.text&”‘”
Ado_parkir.Refresh
lama = akhir – Ado_parkir.Recordset!jam_masuk
TXT_TOTAL.Text = Format(lama, “hh:mm:ss”)
cmd_mulai.Caption = “&Biaya”

ElseIf cmd_mulai.Caption = “&Biaya” Then
biaya = 50000 * lama
TXT_BIAYA.Text = Format(biaya, “Rp #,#”)
Ado_parkir.RecordSource = “select*from tb_parkir”
where ado_parkir=’”&txt_bg.text&”‘”
Ado_parkir.Refresh
With Ado_parkir.Recordset
!jam_keluar = TXT_SELESAI.Text
!biaya = biaya
!Status = “Y”
.Update
End With
cmd_mulai.Caption = “&Parkir”

ElseIf cmd_mulai.Caption = “&Parkir” Then
TXT_MULAI.Text = “”
TXT_SELESAI.Text = “”
TXT_TOTAL.Text = “”
TXT_BG.Text = “”
TXT_BIAYA.Text = “”
TXT_BG.SetFocus
cmd_mulai.Caption = “&Mulai”
End If
End If
End Sub
Private Sub cmd_cari_click()
On Error GoTo Error:

Cari = InputBox(“Masukkan Nomor Polisi Yang Akan Dicari:”, “Cari No.Polisi”)

If Cari <> Empty Then
ado_parkir.RecordSource=”Select*from tb_parkir where no_polisi=’”&Cari”‘”
Ado_parkir.Refresh
With Ado_parkir.Recordset
If !Status = “T” Then
TXT_BG.Text = !no_polisi
TXT_MULAI.Text = !jam_masuk
cmd_mulai.Caption = “&Stop”
TXT_SELESAI.Text = “”
TXT_BIAYA.Text = “”
TXT_TOTAL.Text = “”
Else
TXT_BG.Text = !no_polisi
TXT_MULAI.Text = “”
TXT_SELESAI = “”
TXT_BIAYA = “”
TXT_TOTAL = “”
cmd_mulai.Caption = “&Mulai”
End If

Exit Sub
Error:
MsgBox “No.Polisi Yang Anda Cari Tidak Ada!”, vbQuestion + vbOKOnly, “Pencarian”
TXT_BG.SetFocus
End With
End If
End Sub

kode visual basic

2011-04-04T11:02:00.003+07:00

Public Function FileExist(asPath as string) as Boolean
If UCase(Dir(asPath))=Ucase(trimPath(asPath)) then
FileExist=true
Else

FileExist=False
End If
End Function

Public Function TrimPath(ByVal asPath as string) as string

if Len(asPath)=0 then Exit Function
Dim x as integer
Do

x=Instr(asPath,”\”)
if x=0 then Exit Do
asPath=Right(asPath,Len(asPath)-x)
Loop
TrimPath=asPath
End Function

Private sub command1_Click()
if fileExist(Text1.text) then
Label1=”YES”
else
Label1=”NO”
End if
End Sub

Private sub form_Load()
End sub

Low and Upper Case

‘add 2 command buttons and 1 text

Private Sub Command1_Click()
Text1.Text = CapFirst$(Text1.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = LCase$(Text1.Text)
End Sub

‘add 1 module
Declare Function CapFirst$ Lib “CAPFIRST.DLL” Alias “CAPFIRST” (ByVal St$)

Show Your IP Address

Add Microsoft Winsock Control 6.0 component
Insert 1 Textbox
Insert 2 Command Buttons Rename Caption as Display and Clear

Private Sub Command1_Click()
If Text1.Text = “” Then
Command1.Enabled = False
Text1.Text = Winsock1.LocalIP
Else
Command1.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Text1.Text = “”
If Text1.Text = “” Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub

Private Sub Form_Load()
Text1.Text = “”
If Text1.Text = “” Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
Text1.Text = Winsock1.LocalIP
End Sub

Permutasi

Option Explicit

Dim id As Integer
Dim N As Integer
Dim perm() As Integer

Function Engine(i As Integer)
Dim t As Integer
Dim j As Integer

id = id + 1
perm(i) = id
If (id = N) Then stampaj
For j = 1 To N
If (perm(j) = 0) Then
Engine (j)
End If
DoEvents
Next j
id = id – 1
perm(i) = 0
End Function

Private Sub cmdClear_Click()
List1.Clear
End Sub

Private Sub cmdGen_Click()
If Val(txtLength.Text) > Len(txtChar.Text) Then
MsgBox “Jumlah Permutasi Salah”
Exit Sub
End If

If Len(txtChar.Text) = 0 Or (Val(txtLength.Text) = 0) Then Exit Sub

Dim i As Integer
N = Val(txtLength.Text)
ReDim perm(N)
For i = 1 To N
perm(i) = 0
Next i
If ChSave.Value = 1 Then
MsgBox “Disimpan pada hasil.txt”
Open App.Path + “\hasil.txt” For Output As #1
End If
Engine 0
If ChSave.Value = 1 Then Close #1

End Sub

Sub Form_Load()
On Error Resume Next
id = -1

End Sub

Sub stampaj()
Dim i As Integer
Dim result As String
result = “”
For i = 1 To N
result = result & CStr(Mid$(txtChar.Text, perm(i), 1))
Next i
List1.AddItem result
If ChSave.Value = 1 Then Print #1, result
End Sub

Enkripsi Searah

Public Function Hash(ByVal text As String) As String
a = 1
For i = 1 To Len(text)
a = Sqr(a * i * Asc(Mid(text, i, 1))) ‘Numeric Hash
Next i
Rnd (-1)
Randomize a ‘seed PRNG

For i = 1 To 16
Hash = Hash & Chr(Int(Rnd * 256))
Next i
End Function

Private Sub Form_Load()
MsgBox Hash(“EmZ-2509″) ‘Yang dihasilkan: ‰°’r¿¾ ©Ì¿ÂX*¤W
End
End Sub

Enkripsi

Function EncDec(inData As Variant, Optional inPW As Variant = “”) As Variant
On Error Resume Next
Dim arrSBox(0 To 255) As Integer
Dim arrPW(0 To 255) As Integer
Dim Bi As Integer, Bj As Integer
Dim mKey As Integer
Dim i As Integer, j As Integer
Dim x As Integer, y As Integer
Dim mCode As Byte, mCodeSeries As Variant

EncDec = “”
If Trim(inData) = “” Then
Exit Function
End If

If inPW <> “” Then
j = 1
For i = 0 To 255
arrPW(i) = Asc(Mid$(inPW, j, 1))
j = j + 1
If j > Len(inPW) Then
j = 1
End If
Next i
Else
For i = 0 To 255
arrPW(i) = 0
Next i
End If

For i = 0 To 255
arrSBox(i) = i
Next i

j = 0
For i = 0 To 255
j = (arrSBox(i) + arrPW(i)) Mod 256
x = arrSBox(i)
arrSBox(i) = arrSBox(j)
arrSBox(j) = x
Next i

mCodeSeries = “”
Bi = 0: Bj = 0
For i = 1 To Len(inData)
Bi = (Bi + 1) Mod 256
Bj = (Bj + arrSBox(Bi)) Mod 256
‘ Tukar
x = arrSBox(Bi)
arrSBox(Bi) = arrSBox(Bj)
arrSBox(Bj) = x

‘siapkan kunci untuk XOR
mKey = arrSBox((arrSBox(Bi) + arrSBox(Bj)) Mod 256)

‘gunakan operasi XOR
mCode = Asc(Mid$(inData, i, 1)) Xor mKey
mCodeSeries = mCodeSeries & Chr(mCode)
Next i
EncDec = mCodeSeries
End Function

Private Sub Form_Load()
Dim Encrypt As String, Decrypt As String

Encrypt = EncDec(“admin”, “win”)
Decrypt = EncDec(“™D`>”, “win”)
MsgBox “Hasil enkripsi : ” & Encrypt & _
vbCrLf & “Hasil dekripsi : ” & Decrypt
End
End Sub
Posted by Administrator in 04:55:41 | Permalink | No Comments »
Wednesday, May 14, 2008
Menu Pop Up

Option Explicit

Private Declare Function SendMessage Lib “user32″ Alias _
“SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Const LB_GETITEMRECT = &H198
Private Const LB_ERR = (-1)

Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Function GetRClickedItem(MyList As Control, _
X As Single, Y As Single) As Long

‘PURPOSE: Determine which item was right clicked in a list
‘box, from the list_box’s mouse down event. YOU MUST CALL THIS
‘FROM THE MOUSEDOWN EVENT, PASSING THE X AND Y VALUES FROM THAT
‘EVENT TO THIS FUNCTION

‘MYLIST: ListBox Control
‘X, Y: X and Y position from MyList_MouseDown

‘RETURNS: ListIndex of selected item, or -1 if
‘a) There is no selected item, or b) an error occurs.

Dim clickX As Long, clickY As Long
Dim lRet As Long
Dim CurRect As RECT
Dim l As Long

‘Control must be a listbox
If Not TypeOf MyList Is ListBox Then
GetRClickedItem = LB_ERR
Exit Function
End If

‘get x and y in pixels
clickX = X Screen.TwipsPerPixelX
clickY = Y Screen.TwipsPerPixelY

‘Check all items in the list to see if it was clicked on
For l = 0 To MyList.ListCount – 1

‘get current selection as rectangle
lRet = SendMessage(MyList.hwnd, LB_GETITEMRECT, l, CurRect)

‘If the position of the click is in the this list item
‘then that’s our Item

If (clickX >= CurRect.Left) And (clickX <= CurRect.Right) _
And (clickY >= CurRect.Top) And _
(clickY <= CurRect.Bottom) Then

GetRClickedItem = l
Exit Function
End If
Next l
End Function

Private Sub Form_Load()
List1.AddItem “Merah”
List1.AddItem “Kuning”
List1.AddItem “Hijau”
mnuPopUp.Visible = False
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lItem As Long

If Button = vbRightButton Then
lItem = GetRClickedItem(List1, X, Y)

If lItem <> -1 Then
List1.ListIndex = lItem
PopupMenu mnuPopUp
End If
End If

End Sub

Load Picture

Private Sub Command1_Click()
With Me.CommonDialog1
.DialogTitle = “Ambil Gambar”
.Filter = “JPEG|*.jpg”
.ShowOpen

If .FileName <> “” Then
Set Me.Picture1.Picture = Nothing
Me.Picture1.Picture = LoadPicture(.FileName)
End If
End With
End Sub

‘Private Sub Form_Load()
‘Me.Picture1.Picture = LoadPicture(“D:\gbr_motor\bikes_honda_01.jpg”)
‘End Sub

Sleep With Visual Basic

Option Explicit

Private Declare Sub Sleep Lib “kernel32″ (ByVal dwMilliseconds As Long)

Private Sub Form_Click()
Me.Caption = “Sleeping”
Call Sleep(20000)
Me.Caption = “Awake”
End Sub

Private Sub Label1_Click()
Me.Caption = “Sleeping”
Call Sleep(20000)
Me.Caption = “Awake”
End Sub
Posted by Administrator in 08:18:13 | Permalink | No Comments »
Find Something

Form

Option Explicit

Private Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Sub cmdActivate_Click()
Dim nRet As Long
Dim Title As String

nRet = AppActivatePartial(Trim(txtTitle.Text), _
Val(frmMethod.Tag), CBool(chkCase.Value))
If nRet Then
lblResults.Caption = “Found: &&H” & Hex$(nRet)
Title = Space$(256)
nRet = GetWindowText(nRet, Title, Len(Title))
If nRet Then
lblResults.Caption = lblResults.Caption & _
“, “”" & Left$(Title, nRet) & “”"”
End If
Else
lblResults.Caption = “Search Failed”
End If
End Sub

Private Sub Form_Load()

txtTitle.Text = “”
lblResults.Caption = “”
optMethod(0).Value = True
End Sub

Private Sub optMethod_Click(Index As Integer)

frmMethod.Tag = Index
End Sub

Module

Option Explicit

Private Declare Function EnumWindows Lib “user32″ (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function GetClassName Lib “user32″ Alias “GetClassNameA” (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA” (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function IsIconic Lib “user32″ (ByVal hWnd As Long) As Long
Private Declare Function IsWindowVisible Lib “user32″ (ByVal hWnd As Long) As Long
Private Declare Function ShowWindow Lib “user32″ (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetForegroundWindow Lib “user32″ (ByVal hWnd As Long) As Long

Private Const SW_RESTORE = 9

Private m_hWnd As Long
Private m_Method As FindWindowPartialTypes
Private m_CaseSens As Boolean
Private m_Visible As Boolean
Private m_AppTitle As String

Public Enum FindWindowPartialTypes
FwpStartsWith = 0
FwpContains = 1
FwpMatches = 2
End Enum

Public Function AppActivatePartial(AppTitle As String, Optional Method As FindWindowPartialTypes = FwpStartsWith, Optional CaseSensitive As Boolean = False) As Long
Dim hWndApp As Long

hWndApp = FindWindowPartial(AppTitle, Method, CaseSensitive, True)
If hWndApp Then

If IsIconic(hWndApp) Then
Call ShowWindow(hWndApp, SW_RESTORE)
End If
Call SetForegroundWindow(hWndApp)
AppActivatePartial = hWndApp
End If
End Function

Public Function FindWindowPartial(AppTitle As String, _
Optional Method As FindWindowPartialTypes = FwpStartsWith, _
Optional CaseSensitive As Boolean = False, _
Optional MustBeVisible As Boolean = False) As Long

m_hWnd = 0
m_Method = Method
m_CaseSens = CaseSensitive
m_AppTitle = AppTitle

If m_CaseSens = False Then
m_AppTitle = UCase$(m_AppTitle)
End If

Call EnumWindows(AddressOf EnumWindowsProc, MustBeVisible)
FindWindowPartial = m_hWnd
End Function

Private Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
Static WindowText As String
Static nRet As Long

If lParam Then
If IsWindowVisible(hWnd) = False Then
EnumWindowsProc = True
Exit Function
End If
End If

WindowText = Space$(256)
nRet = GetWindowText(hWnd, WindowText, Len(WindowText))
If nRet Then

WindowText = Left$(WindowText, nRet)
If m_CaseSens = False Then
WindowText = UCase$(WindowText)
End If

Select Case m_Method
Case FwpStartsWith
If InStr(WindowText, m_AppTitle) = 1 Then
m_hWnd = hWnd
End If
Case FwpContains
If InStr(WindowText, m_AppTitle) <> 0 Then
m_hWnd = hWnd
End If
Case FwpMatches
If WindowText = m_AppTitle Then
m_hWnd = hWnd
End If
End Select
End If

EnumWindowsProc = (m_hWnd = 0)
End Function

Bermain Animasi Dengan VB

Dim FrameCount As Long

Private Sub Command1_Click()
Timer1.Enabled = False
If LoadGif(Text1, Image1) Then
FrameCount = 0
Timer1.Interval = CLng(Image1(0).Tag)
Timer1.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()

Text1.Text = App.Path & IIf(Right(App.Path, 1) = “\”, “”, “\”) & “clip.gif”
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If FrameCount < TotalFrames Then
Image1(FrameCount).Visible = False
FrameCount = FrameCount + 1
Image1(FrameCount).Visible = True
Timer1.Interval = CLng(Image1(FrameCount).Tag)
Else
FrameCount = 0
For i = 1 To Image1.Count – 1
Image1(i).Visible = False
Next i
Image1(FrameCount).Visible = True
Timer1.Interval = CLng(Image1(FrameCount).Tag)
End If
End Sub
Posted by Administrator in 07:38:13 | Permalink | Comments (5)
Animasi Bola

Dim FrameCount As Long

Private Sub Command1_Click()
Timer1.Enabled = False
If LoadGif(Text1, Image1) Then
FrameCount = 0
Timer1.Interval = CLng(Image1(0).Tag)
Timer1.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()

Text1.Text = App.Path & IIf(Right(App.Path, 1) = “\”, “”, “\”) & “ball.gif”
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
If FrameCount < TotalFrames Then
Image1(FrameCount).Visible = False
FrameCount = FrameCount + 1
Image1(FrameCount).Visible = True
Timer1.Interval = CLng(Image1(FrameCount).Tag)
Else
FrameCount = 0
For i = 1 To Image1.Count – 1
Image1(i).Visible = False
Next i
Image1(FrameCount).Visible = True
Timer1.Interval = CLng(Image1(FrameCount).Tag)
End If
End Sub
Posted by Administrator in 04:48:26 | Permalink | Comments (1) »
Saturday, April 26, 2008
Mouse Limit
Option Explicit Private Type RECT left As Integer top As Integer right As Integer bottom As Integer End Type Private Type POINT x As Long y As Long End Type Private Declare Sub ClipCursor Lib “user32″ (lpRect As Any) Private Declare Sub GetClientRect Lib “user32″ (ByVal hWnd As _ Long, lpRect As RECT) Private Declare Sub ClientToScreen Lib “user32″ (ByVal hWnd As _ Long, lpPoint As POINT) Private Declare Sub OffsetRect Lib “user32″ (lpRect As RECT, _ ByVal x As Long, ByVal y As Long) Public Sub LimitCursorMovement(ctl As Object) Dim client As RECT Dim upperleft As POINT Dim lHwnd As Long On Error Resume Next lHwnd = ctl.hWnd If lHwnd = 0 Then Exit Sub GetClientRect ctl.hWnd, client upperleft.x = client.left upperleft.y = client.top ClientToScreen ctl.hWnd, upperleft OffsetRect client, upperleft.x, upperleft.y ClipCursor client End Sub Public Sub ReleaseLimit() ‘Releases the cursor limits ‘Be sure to call on unloading the form ClipCursor ByVal 0& End Sub Private Sub cmdNormal_Click() ReleaseLimit End Sub Private Sub cmdSetLimit_Click() LimitCursorMovement Me End Sub Private Sub Form_Load() ReleaseLimit End Sub Private Sub Form_Unload(Cancel As Integer) ReleaseLimit End Sub
Posted by Administrator in 05:59:00 | Permalink | Comments (3)
Spash Screen

Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub

Private Sub Form_Load()
‘ lblVersion.Caption = “Version ” & App.Major & “.” & App.Minor & “.” & App.Revision
‘ lblProductName.Caption = App.Title
End Sub

Private Sub Frame1_Click()
Unload Me
End Sub

Private Sub Timer1_Timer()
Dim counter As Double
counter = 0
Do
counter = counter + 0.005
Label2.Width = counter
Loop While Not (Label1.Width = Label2.Width)
frmSplash.Hide
Form5.Show
Timer1.Enabled = False
End Sub
Posted by Administrator in 04:10:21 | Permalink | No Comments »
Folder Customizer

Dim opcolor As String
Dim opcolor2 As String

Private Sub cmdfolder_Click()
folder = BrowseForFolder(folder, Me.hwnd, “&Select a directory:”)
Command4_Click
End Sub
Private Sub Command1_Click()
folder = BrowseForFolder(folder, Me.hwnd, “&Select a directory:”)
If folder = “” Then
Exit Sub
End If
wrt$ = “{BE098140-A513-11D0-A3A4-00C04FD706EC}”
r% = WritePrivateProfileString(wrt$, “IconArea_Image”, vbNullString, (folder.Text) + “\desktop.ini”)
r% = WritePrivateProfileString(wrt$, “IconArea_text”, vbNullString, (folder.Text) + “\desktop.ini”)
If r% = 1 Then
FileAttribHide folder.Text & “\desktop.ini”
setFolderRead folder.Text
Label18.Caption = “XXXXXXXXXXXXXXXXXXXXXXXXXXXXX”
End If
End Sub

Private Sub Command2_Click()
If Command2.Caption <> “&Finish” Then
If MsgBox(“Exit the wizard without completion !”, 64 + vbYesNo) = vbYes Then
End
End If
Else
MsgBox “This Wizard has been developed by Ramky for more goodies visit http://www.programmervb.wordpress.com “, 64
End
End If
End Sub

Private Sub Command3_Click()
If folder.Text = “” Then
cmdfolder_Click
Else
wrt$ = “{BE098140-A513-11D0-A3A4-00C04FD706EC}”
r% = WritePrivateProfileString(wrt$, “IconArea_Image”, (img.Text), (folder.Text) + “\desktop.ini”)
r% = WritePrivateProfileString(wrt$, “IconArea_text”, opcolor, (folder.Text) + “\desktop.ini”)
If r% = 1 Then
FileAttribHide folder.Text & “\desktop.ini”
setFolderRead folder.Text
Command3.Enabled = False
Command2.Caption = “&Finish”
Label14.Visible = False
Label9.Visible = False
Label10.Visible = False
Label11.Visible = False
Label14.Visible = False
textcolor.Visible = False
img.Visible = False
folder.Visible = False
Command5.Visible = False
Command4.Visible = False
Line3.Visible = False
cmdfolder.Visible = False
Label18.Visible = True
Label19.Visible = True
Label13.Visible = True
End If
If r% <> 1 Then MsgBox “Error in writing”, vbCritical
GoTo nex
back = 1
nex:
If back = 1 Then
Command1.Enabled = True
cmdfolder.Enabled = True
Frame1.Visible = False
Frame2.Top = -120
Frame2.Left = -120
Frame2.Visible = True
back = 2
End If
End If
End Sub

Private Sub Command4_Click()
CommonDialog1.CancelError = False
CommonDialog1.DialogTitle = “Select Your Picture”
CommonDialog1.Filter = “jpeg(*.jpg)|*.jpg|png(*.png)|*.png|Gif(*.Gif)|*.Gif|Bitmap(*.bmp)|*.bmp” ‘|MID(*.mid)|*.mid|AU(*.au)|*.au|”
CommonDialog1.FileName = “”
CommonDialog1.ShowOpen
img = CommonDialog1.FileName
Command5_Click
End Sub

Private Sub Command5_Click()
CommonDialog1.CancelError = False
CommonDialog1.Flags = 3
CommonDialog1.ShowColor
opcolor = CommonDialog1.Color
textcolor.ForeColor = CommonDialog1.Color
End Sub

Private Sub Command6_Click()
CommonDialog1.CancelError = False
CommonDialog1.Flags = 3
CommonDialog1.ShowColor
opcolor2 = CommonDialog1.Color
End Sub

Private Sub Form_Load()
Height = 6330
Width = 8160
End Sub

Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)

End Sub
Posted by Administrator in 03:44:10 | Permalink | No Comments »
Friday, April 25, 2008
Create Domain

Private Sub Check1_Click()
If Check1.Value = 1 Then
lblDomainName.Visible = True
txtDomainName.Visible = True
End If
If Check1.Value = 0 Then
lblDomainName.Visible = False
txtDomainName.Visible = False
End If
End Sub

Private Sub cmdGenerate_Click()
Dim responce
Dim i As Integer
If Check1.Value = 1 Then
responce = MsgBox(“Do you want to create ” & txtDomainName.Text & ” DOMAIN user”, vbYesNo)
If responce = vbYes Then

For i = Val(txtUserStart.Text) To Val(txtUserEnd.Text)
Shell “net user ” & txtUserPrefix & Format(i, “0000″) & txtUserPostfix & ” ” & txtPassPrefix & Format(i, “0000″) & txtPassPostfix & ” /ADD ” & txtDomainName.Text & ” /DOMAIN”, vbHide
Next i
End If
Else
responce = MsgBox(“Do you want to create LOCAL user”, vbYesNo)
If responce = vbYes Then

For i = Val(txtUserStart.Text) To Val(txtUserEnd.Text)
Shell “net user ” & txtUserPrefix & Format(i, “0000″) & txtUserPostfix & ” ” & txtPassPrefix & Format(i, “0000″) & txtPassPostfix & ” /ADD”, vbHide
Next i
End If
End If
End Sub

Private Sub Label11_Click()

End Sub

Private Sub txtUserEnd_Change()
txtPassEnd.Text = txtUserEnd.Text
End Sub

Private Sub txtUserStart_Change()
txtPassStart.Text = txtUserStart.Text
End Sub
Posted by Administrator in 05:49:57 | Permalink | No Comments »
Saturday, April 19, 2008
Change Your Desktop

Private Declare Function SystemParametersInfo Lib “user32″ Alias “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long

‘constants to be used with the above api
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1

‘will hold the path to the image
Private imagePath As String

Private Sub cmdBrowse_Click()

‘just your basic code to get a dialog box open to
‘select a image and get the path
‘
‘the picture must be a BITMAP Image File
‘
dlg.Filter = “Image Files (*.bmp)|*.bmp”

‘set a custom title to the dialog
dlg.DialogTitle = “Select the image to load.”

‘show the dialog
dlg.ShowOpen

‘the path to get the image from
imagePath = dlg.FileName

‘view the selected picture into the picturebox
‘control
pic.Picture = LoadPicture(imagePath)

End Sub

Private Sub cmdSetWallPaper_Click()

‘set the parameters to change the wallpaper to
‘the image you selected
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE

End Sub

Posted by Administrator in 05:14:27 | Permalink | Comments (1) »
Thursday, April 17, 2008
Create Domain With VB

Private Sub Check1_Click()
If Check1.Value = 1 Then
lblDomainName.Visible = True
txtDomainName.Visible = True
End If
If Check1.Value = 0 Then
lblDomainName.Visible = False
txtDomainName.Visible = False
End If
End Sub

Private Sub cmdGenerate_Click()
Dim responce
Dim i As Integer
If Check1.Value = 1 Then
responce = MsgBox(“Do you want to create ” & txtDomainName.Text & ” DOMAIN user”, vbYesNo)
If responce = vbYes Then

For i = Val(txtUserStart.Text) To Val(txtUserEnd.Text)
Shell “net user ” & txtUserPrefix & Format(i, “0000″) & txtUserPostfix & ” ” & txtPassPrefix & Format(i, “0000″) & txtPassPostfix & ” /ADD ” & txtDomainName.Text & ” /DOMAIN”, vbHide
Next i
End If
Else
responce = MsgBox(“Do you want to create LOCAL user”, vbYesNo)
If responce = vbYes Then

For i = Val(txtUserStart.Text) To Val(txtUserEnd.Text)
Shell “net user ” & txtUserPrefix & Format(i, “0000″) & txtUserPostfix & ” ” & txtPassPrefix & Format(i, “0000″) & txtPassPostfix & ” /ADD”, vbHide
Next i
End If
End If
End Sub

Private Sub Label11_Click()

End Sub

Private Sub txtUserEnd_Change()
txtPassEnd.Text = txtUserEnd.Text
End Sub

Private Sub txtUserStart_Change()
txtPassStart.Text = txtUserStart.Text
End Sub
Posted by Administrator in 09:12:53 | Permalink | No Comments »
VbFtp

Module:

Option Explicit

Declare Function GetProcessHeap Lib “kernel32″ () As Long
Declare Function HeapAlloc Lib “kernel32″ (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long
Declare Function HeapFree Lib “kernel32″ (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long
Public Const HEAP_ZERO_MEMORY = &H8
Public Const HEAP_GENERATE_EXCEPTIONS = &H4

Declare Sub CopyMemory1 Lib “kernel32″ Alias “RtlMoveMemory” ( _
hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Declare Sub CopyMemory2 Lib “kernel32″ Alias “RtlMoveMemory” ( _
hpvDest As Long, hpvSource As Any, ByVal cbCopy As Long)

Public Const MAX_PATH = 260
Public Const NO_ERROR = 0
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
Public Const FILE_ATTRIBUTE_OFFLINE = &H1000

Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Public Const ERROR_NO_MORE_FILES = 18

Public Declare Function InternetFindNextFile Lib “wininet.dll” Alias “InternetFindNextFileA” _
(ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long

Public Declare Function FtpFindFirstFile Lib “wininet.dll” Alias “FtpFindFirstFileA” _
(ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _
lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long

Public Declare Function FtpGetFile Lib “wininet.dll” Alias “FtpGetFileA” _
(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, _
ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Public Declare Function FtpPutFile Lib “wininet.dll” Alias “FtpPutFileA” _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, _
ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Public Declare Function FtpSetCurrentDirectory Lib “wininet.dll” Alias “FtpSetCurrentDirectoryA” _
(ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
‘ Initializes an application’s use of the Win32 Internet functions
Public Declare Function InternetOpen Lib “wininet.dll” Alias “InternetOpenA” _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

‘ User agent constant.
Public Const scUserAgent = “vb wininet”

‘ Use registry access settings.
Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const INTERNET_INVALID_PORT_NUMBER = 0

Public Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Const FTP_TRANSFER_TYPE_BINARY = &H1
Public Const INTERNET_FLAG_PASSIVE = &H8000000

‘ Opens a HTTP session for a given site.
Public Declare Function InternetConnect Lib “wininet.dll” Alias “InternetConnectA” _
(ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, _
ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long

Public Const ERROR_INTERNET_EXTENDED_ERROR = 12003
Public Declare Function InternetGetLastResponseInfo Lib “wininet.dll” Alias “InternetGetLastResponseInfoA” ( _
lpdwError As Long, _
ByVal lpszBuffer As String, _
lpdwBufferLength As Long) As Boolean

‘ Number of the TCP/IP port on the server to connect to.
Public Const INTERNET_DEFAULT_FTP_PORT = 21
Public Const INTERNET_DEFAULT_GOPHER_PORT = 70
Public Const INTERNET_DEFAULT_HTTP_PORT = 80
Public Const INTERNET_DEFAULT_HTTPS_PORT = 443
Public Const INTERNET_DEFAULT_SOCKS_PORT = 1080

Public Const INTERNET_OPTION_CONNECT_TIMEOUT = 2
Public Const INTERNET_OPTION_RECEIVE_TIMEOUT = 6
Public Const INTERNET_OPTION_SEND_TIMEOUT = 5

Public Const INTERNET_OPTION_USERNAME = 28
Public Const INTERNET_OPTION_PASSWORD = 29
Public Const INTERNET_OPTION_PROXY_USERNAME = 43
Public Const INTERNET_OPTION_PROXY_PASSWORD = 44

‘ Type of service to access.
Public Const INTERNET_SERVICE_FTP = 1
Public Const INTERNET_SERVICE_GOPHER = 2
Public Const INTERNET_SERVICE_HTTP = 3

‘ Opens an HTTP request handle.
Public Declare Function HttpOpenRequest Lib “wininet.dll” Alias “HttpOpenRequestA” _
(ByVal hHttpSession As Long, ByVal sVerb As String, ByVal sObjectName As String, ByVal sVersion As String, _
ByVal sReferer As String, ByVal something As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long

‘ Brings the data across the wire even if it locally cached.
Public Const INTERNET_FLAG_RELOAD = &H80000000
Public Const INTERNET_FLAG_KEEP_CONNECTION = &H400000
Public Const INTERNET_FLAG_MULTIPART = &H200000

Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000

‘ Sends the specified request to the HTTP server.
Public Declare Function HttpSendRequest Lib “wininet.dll” Alias “HttpSendRequestA” (ByVal _
hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal sOptional As _
String, ByVal lOptionalLength As Long) As Integer

‘ Queries for information about an HTTP request.
Public Declare Function HttpQueryInfo Lib “wininet.dll” Alias “HttpQueryInfoA” _
(ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, ByRef sBuffer As Any, _
ByRef lBufferLength As Long, ByRef lIndex As Long) As Integer

‘ The possible values for the lInfoLevel parameter include:
Public Const HTTP_QUERY_CONTENT_TYPE = 1
Public Const HTTP_QUERY_CONTENT_LENGTH = 5
Public Const HTTP_QUERY_EXPIRES = 10
Public Const HTTP_QUERY_LAST_MODIFIED = 11
Public Const HTTP_QUERY_PRAGMA = 17
Public Const HTTP_QUERY_VERSION = 18
Public Const HTTP_QUERY_STATUS_CODE = 19
Public Const HTTP_QUERY_STATUS_TEXT = 20
Public Const HTTP_QUERY_RAW_HEADERS = 21
Public Const HTTP_QUERY_RAW_HEADERS_CRLF = 22
Public Const HTTP_QUERY_FORWARDED = 30
Public Const HTTP_QUERY_SERVER = 37
Public Const HTTP_QUERY_USER_AGENT = 39
Public Const HTTP_QUERY_SET_COOKIE = 43
Public Const HTTP_QUERY_REQUEST_METHOD = 45
Public Const HTTP_STATUS_DENIED = 401
Public Const HTTP_STATUS_PROXY_AUTH_REQ = 407

‘ Add this flag to the about flags to get request header.
Public Const HTTP_QUERY_FLAG_REQUEST_HEADERS = &H80000000
Public Const HTTP_QUERY_FLAG_NUMBER = &H20000000
‘ Reads data from a handle opened by the HttpOpenRequest function.
Public Declare Function InternetReadFile Lib “wininet.dll” _
(ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

Public Declare Function InternetWriteFile Lib “wininet.dll” _
(ByVal hFile As Long, ByVal sBuffer As String, _
ByVal lNumberOfBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

Public Declare Function FtpOpenFile Lib “wininet.dll” Alias _
“FtpOpenFileA” (ByVal hFtpSession As Long, _
ByVal sFileName As String, ByVal lAccess As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function FtpDeleteFile Lib “wininet.dll” _
Alias “FtpDeleteFileA” (ByVal hFtpSession As Long, _
ByVal lpszFileName As String) As Boolean
Public Declare Function InternetSetOption Lib “wininet.dll” Alias “InternetSetOptionA” _
(ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As Any, ByVal lBufferLength As Long) As Integer
Public Declare Function InternetSetOptionStr Lib “wininet.dll” Alias “InternetSetOptionA” _
(ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer

‘ Closes a single Internet handle or a subtree of Internet handles.
Public Declare Function InternetCloseHandle Lib “wininet.dll” _
(ByVal hInet As Long) As Integer

‘ Queries an Internet option on the specified handle
Public Declare Function InternetQueryOption Lib “wininet.dll” Alias “InternetQueryOptionA” _
(ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As Any, ByRef lBufferLength As Long) As Integer

‘ Returns the version number of Wininet.dll.
Public Const INTERNET_OPTION_VERSION = 40

‘ Contains the version number of the DLL that contains the Windows Internet
‘ functions (Wininet.dll). This structure is used when passing the
‘ INTERNET_OPTION_VERSION flag to the InternetQueryOption function.
Public Type tWinInetDLLVersion
lMajorVersion As Long
lMinorVersion As Long
End Type

‘ Adds one or more HTTP request headers to the HTTP request handle.
Public Declare Function HttpAddRequestHeaders Lib “wininet.dll” Alias “HttpAddRequestHeadersA” _
(ByVal hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, _
ByVal lModifiers As Long) As Integer

‘ Flags to modify the semantics of this function. Can be a combination of these values:

‘ Adds the header only if it does not already exist; otherwise, an error is returned.
Public Const HTTP_ADDREQ_FLAG_ADD_IF_NEW = &H10000000

‘ Adds the header if it does not exist. Used with REPLACE.
Public Const HTTP_ADDREQ_FLAG_ADD = &H20000000

‘ Replaces or removes a header. If the header value is empty and the header is found,
‘ it is removed. If not empty, the header value is replaced
Public Const HTTP_ADDREQ_FLAG_REPLACE = &H80000000

Form:

Dim bActiveSession As Boolean
Dim hOpen As Long, hConnection As Long
Dim dwType As Long

Dim EnumItemNameBag As New Collection
Dim EnumItemAttributeBag As New Collection

Private Sub Form_Load()
bActiveSession = False
hOpen = 0
hConnection = 0
chkPassive.Value = 1
optBin.Value = 1
dwType = FTP_TRANSFER_TYPE_BINARY
Dim imgI As ListImage
Set imgI = ImageList1.ListImages.Add(, “open”, LoadPicture(“open.bmp”))
Set imgI = ImageList1.ListImages.Add(, “closed”, LoadPicture(“closed.bmp”))
Set imgI = ImageList1.ListImages.Add(, “leaf”, LoadPicture(“leaf.bmp”))
Set imgI = ImageList1.ListImages.Add(, “root”, LoadPicture(“root.bmp”))
TreeView1.ImageList = ImageList1
TreeView1.Style = tvwTreelinesPictureText
EnableUI (False)
End Sub

Private Sub Form_Unload(Cancel As Integer)
cmdClosehOpen_Click
End Sub

Private Sub cmdInternetOpen_Click()
If Len(txtProxy.Text) <> 0 Then
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PROXY, txtProxy.Text, vbNullString, 0)
Else
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
End If
If hOpen = 0 Then ErrorOut Err.LastDllError, “InternetOpen”
EnableUI (True)
End Sub

Private Sub cmdClosehOpen_Click()
If hConnection <> 0 Then InternetCloseHandle (hConnection)
If hOpen <> 0 Then InternetCloseHandle (hOpen)
hConnection = 0
hOpen = 0
If bActiveSession Then TreeView1.Nodes.Remove txtServer.Text
bActiveSession = False
ClearTextBoxAndBag
EnableUI (False)
End Sub

Private Sub cmdConnect_Click()
If Not bActiveSession And hOpen <> 0 Then
If txtServer.Text = “” Then
MsgBox “Please enter a server name!”
Exit Sub
End If
Dim nFlag As Long
If chkPassive.Value Then
nFlag = INTERNET_FLAG_PASSIVE
Else
nFlag = 0
End If
hConnection = InternetConnect(hOpen, txtServer.Text, INTERNET_INVALID_PORT_NUMBER, _
txtUser, txtPassword, INTERNET_SERVICE_FTP, nFlag, 0)
If hConnection = 0 Then
bActiveSession = False
ErrorOut Err.LastDllError, “InternetConnect”
Else
bActiveSession = True
EnableUI (CBool(hOpen))
FillTreeViewControl (txtServer.Text)
FtpEnumDirectory (“”)
If EnumItemNameBag.Count = 0 Then Exit Sub
FillTreeViewControl (txtServer.Text)
End If
End If
End Sub

Private Sub cmdDisconnect_Click()
bDirEmpty = True
If hConnection <> 0 Then InternetCloseHandle hConnection
hConnection = 0
ClearBag
TreeView1.Nodes.Remove txtServer.Text
bActiveSession = False
EnableUI (True)
End Sub

Private Sub ClearTextBoxAndBag()
txtServer.Text = “”
txtUser.Text = “”
txtPassword.Text = “”
txtProxy.Text = “”
ClearBag
End Sub

Private Sub ClearBag()
Dim Num As Integer
For Num = 1 To EnumItemNameBag.Count
EnumItemNameBag.Remove 1
Next Num
For Num = 1 To EnumItemAttributeBag.Count
EnumItemAttributeBag.Remove 1
Next Num
End Sub

Private Sub FillTreeViewControl(strParentKey As String)
Dim nodX As Node
Dim strImg As String
Dim nCount As Integer, i As Integer
Dim nAttr As Integer
Dim strItem As String

If EnumItemNameBag.Count = 0 And strParentKey = txtServer.Text Then
Set nodX = TreeView1.Nodes.Add(, tvwFirst, txtServer.Text, txtServer.Text, “root”)
Exit Sub
End If
nCount = EnumItemAttributeBag.Count
If nCount = 0 Then Exit Sub
For i = 1 To nCount
nAttr = EnumItemAttributeBag.Item(i)
strItem = EnumItemNameBag(i)
If nAttr = FILE_ATTRIBUTE_DIRECTORY Then
strImg = “closed”
Else
strImg = “leaf”
End If
Set nodX = TreeView1.Nodes.Add(strParentKey, tvwChild, strParentKey & “/” & strItem, _
strParentKey & “/” & strItem, strImg)
Next
nodX.EnsureVisible
End Sub

Private Sub cmdGet_Click()
Dim bRet As Boolean
Dim szFileRemote As String, szDirRemote As String, szFileLocal As String
Dim szTempString As String
Dim nPos As Long, nTemp As Long
Dim nodX As Node
Set nodX = TreeView1.SelectedItem
If bActiveSession Then
If nodX Is Nothing Then
MsgBox “Please select the item to GET!”
Exit Sub
End If
szTempString = TreeView1.SelectedItem.Text
szFileRemote = szTempString
nPos = 0
nTemp = 0
Do
nTemp = InStr(1, szTempString, “/”, vbBinaryCompare)
If nTemp = 0 Then Exit Do
szTempString = Right(szTempString, Len(szTempString) – nTemp)
nPos = nTemp + nPos
Loop
szDirRemote = Left(szFileRemote, nPos)
szFileRemote = Right(szFileRemote, Len(szFileRemote) – nPos)
szFileLocal = File1.Path
rcd szDirRemote
bRet = FtpGetFile(hConnection, szFileRemote, szFileLocal & “/” & szFileRemote, False, _
INTERNET_FLAG_RELOAD, dwType, 0)
File1.Refresh
If bRet = False Then ErrorOut Err.LastDllError, “FtpGetFile”
Else
MsgBox “Not in session”
End If
End Sub

Private Sub cmdPut_Click()
Dim bRet As Boolean
Dim szFileRemote As String, szDirRemote As String, szFileLocal As String
Dim szTempString As String
Dim nPos As Long, nTemp As Long
Dim nodX As Node
Set nodX = TreeView1.SelectedItem

If bActiveSession Then
If nodX Is Nothing Then
MsgBox “Please select a remote directory to PUT to!”
Exit Sub
End If
If nodX.Image = “leaf” Then
MsgBox “Please select a remote directory to PUT to!”
Exit Sub
End If
If File1.FileName = “” Then
MsgBox “Please select a local file to put”
Exit Sub
End If
szTempString = nodX.Text
szDirRemote = Right(szTempString, Len(szTempString) – Len(txtServer.Text))
szFileRemote = File1.FileName
szFileLocal = File1.Path & “\” & File1.FileName
If (szDirRemote = “”) Then szDirRemote = “\”
rcd szDirRemote

bRet = FtpPutFile(hConnection, szFileLocal, szFileRemote, _
dwType, 0)
If bRet = False Then
ErrorOut Err.LastDllError, “FtpPutFile”
Exit Sub
End If

Dim nodChild As Node, nodNextChild As Node
Set nodChild = nodX.Child
Do
If nodChild Is Nothing Then Exit Do
Set nodNextChild = nodChild.Next
TreeView1.Nodes.Remove nodChild.Index
If nodNextChild Is Nothing Then Exit Do
Set nodChild = nodNextChild
Loop
If nodX.Image = “closed” Then
nodX.Image = “open”
End If
FtpEnumDirectory (nodX.Text)
FillTreeViewControl (nodX.Text)
End If
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error GoTo ErrProc
Dir1.Path = Drive1.Drive
Exit Sub
ErrProc:
Drive1.Drive = “c:”
Dir1.Path = Drive1.Drive
End Sub

Private Sub rcd(pszDir As String)
If pszDir = “” Then
MsgBox “Please enter the directory to CD”
Exit Sub
Else
Dim sPathFromRoot As String
Dim bRet As Boolean
If InStr(1, pszDir, txtServer.Text) Then
sPathFromRoot = Mid(pszDir, Len(txtServer.Text) + 1, Len(pszDir) – Len(txtServer.Text))
Else
sPathFromRoot = pszDir
End If
If sPathFromRoot = “” Then sPathFromRoot = “/”
bRet = FtpSetCurrentDirectory(hConnection, sPathFromRoot)
If bRet = False Then ErrorOut Err.LastDllError, “rcd”
End If
End Sub

Function ErrorOut(dError As Long, szCallFunction As String)
Dim dwIntError As Long, dwLength As Long
Dim strBuffer As String
If dError = ERROR_INTERNET_EXTENDED_ERROR Then
InternetGetLastResponseInfo dwIntError, vbNullString, dwLength
strBuffer = String(dwLength + 1, 0)
InternetGetLastResponseInfo dwIntError, strBuffer, dwLength

MsgBox szCallFunction & ” Extd Err: ” & dwIntError & ” ” & strBuffer

End If
If MsgBox(szCallFunction & ” Err: ” & dError & _
vbCrLf & “Close Connection and Session?”, vbYesNo) = vbYes Then
If hConnection Then InternetCloseHandle hConnection
If hOpen Then InternetCloseHandle hOpen
hConnection = 0
hOpen = 0
If bActiveSession Then TreeView1.Nodes.Remove txtServer.Text
bActiveSession = False
ClearTextBoxAndBag
EnableUI (False)
End If
End Function

Private Sub EnableUI(bEnabled As Boolean)
txtServer.Enabled = bEnabled
txtUser.Enabled = bEnabled
txtPassword.Enabled = bEnabled
cmdConnect.Enabled = bEnabled And Not bActiveSession
cmdDisconnect.Enabled = bEnabled And bActiveSession
chkPassive.Enabled = bEnabled
cmdClosehOpen.Enabled = bEnabled
cmdInternetOpen.Enabled = Not bEnabled
txtProxy.Enabled = Not bEnabled
optBin.Enabled = bEnabled
optAscii.Enabled = bEnabled
cmdGet.Enabled = bEnabled And bActiveSession
cmdPut.Enabled = bEnabled And bActiveSession
End Sub

Private Sub FtpEnumDirectory(strDirectory As String)

ClearBag
Dim hFind As Long
Dim nLastError As Long
Dim dError As Long
Dim ptr As Long
Dim pData As WIN32_FIND_DATA

If Len(strDirectory) > 0 Then rcd (strDirectory)
pData.cFileName = String(MAX_PATH, 0)
hFind = FtpFindFirstFile(hConnection, “*.*”, pData, 0, 0)
nLastError = Err.LastDllError

If hFind = 0 Then
If (nLastError = ERROR_NO_MORE_FILES) Then
MsgBox “This directory is empty!”
Else
ErrorOut nLastError, “FtpFindFirstFile”
End If
Exit Sub
End If

dError = NO_ERROR
Dim bRet As Boolean
Dim strItemName As String

EnumItemAttributeBag.Add pData.dwFileAttributes
strItemName = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) – 1)
EnumItemNameBag.Add strItemName
Do
pData.cFileName = String(MAX_PATH, 0)
bRet = InternetFindNextFile(hFind, pData)
If Not bRet Then
dError = Err.LastDllError
If dError = ERROR_NO_MORE_FILES Then
Exit Do
Else
ErrorOut dError, “InternetFindNextFile”
InternetCloseHandle (hFind)
Exit Sub
End If
Else
EnumItemAttributeBag.Add pData.dwFileAttributes
strItemName = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) – 1)
EnumItemNameBag.Add strItemName
End If
Loop

InternetCloseHandle (hFind)
End Sub

Private Sub optAscii_Click()
dwType = FTP_TRANSFER_TYPE_ASCII
End Sub

Private Sub optBin_Click()
dwType = FTP_TRANSFER_TYPE_BINARY
End Sub

Private Sub TreeView1_DblClick()
Dim nodX As Node
Set nodX = TreeView1.SelectedItem
If Not bActiveSession Then
MsgBox “No in session!”
Exit Sub
End If
If nodX Is Nothing Then
MsgBox “no Selection to enumerate”
End If
If nodX.Image = “closed” Then
nodX.Image = “open”
FtpEnumDirectory (nodX.Text)
FillTreeViewControl (nodX.Text)
Else
If nodX.Image = “open” Then
nodX.Image = “closed”
Dim nodChild As Node, nodNextChild As Node
Set nodChild = nodX.Child
Do
Set nodNextChild = nodChild.Next
TreeView1.Nodes.Remove nodChild.Index
If nodNextChild Is Nothing Then Exit Do
Set nodChild = nodNextChild
Loop
End If
End If
End Sub

Posted by Administrator in 07:28:56 | Permalink | No Comments »
Ping Network dgn VB

Option Explicit

Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF
Const WAIT_OBJECT_0 = 0
Const WAIT_TIMEOUT = &H102

Dim stopflag As Boolean
Dim errorflag As Boolean

Dim mindelay As Integer
Dim maxdelay As Integer
Dim totaldelay As Long
Dim avgdelay As Integer
Dim lcount As Long
Dim pingMessage(26) As String
Dim ctrl
Private Declare Function SendMessage Lib “User32″ Alias “SendMessageA” (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function OpenProcess Lib “kernel32″ (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib “kernel32″ (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib “kernel32″ (ByVal hObject As Long) As Long

Private Sub cmdClear_Click()
Open “C:\log.txt” For Output As #1
Close #1
txtoutput.Text = “”
txtpinglog.Text = “”
End Sub

Private Sub chklog_Click()

End Sub

Private Sub cmdExit_Click()
Unload Me
End
End Sub

Private Sub cmdlog_Click()
Load frmlog
frmlog.Show 1
End Sub

Private Sub cmdPing_Click()
DoEvents
If cmdPing.Caption = “Ping” Then
lblstatus.Caption = “Pinging ” & txtIP.Text & ” with ” & txtbuffer.Text & “KB of data”
txtIP.Locked = True
cmdPing.BackColor = &HFF&
cmdlog.Enabled = False
cmdPing.Caption = “Stop”
stopflag = False
Else
stopflag = True
cmdPing.Caption = “Ping”
txtIP.Locked = False
cmdPing.BackColor = &H80FF80
cmdlog.Enabled = True
lblstatus.Caption = “Stopped”
End If

While stopflag = False
DoEvents

Dim ShellX As String
Dim lPid As Long
Dim lHnd As Long
Dim lRet As Long
Dim VarX As String
Dim Ptime As Integer
Dim pttl As Integer
Dim pbyte As Integer
Dim i As Integer
Dim pingresult As String
Dim tmin As Integer
Dim tmax As Integer
Dim tavg As Integer

If txtIP.Text <> “” Then
DoEvents
ShellX = Shell(“command.com /c ping -n 1 -l ” & txtbuffer.Text & ” ” & txtIP.Text & ” > C:\log.txt”, vbHide)
lPid = ShellX
If lPid <> 0 Then
lHnd = OpenProcess(SYNCHRONIZE, 0, lPid)
If lHnd <> 0 Then
lRet = WaitForSingleObject(lHnd, INFINITE)
CloseHandle (lHnd)
End If

frmmain.MousePointer = 0
Open “C:\log.txt” For Input As #1
txtoutput.Text = Input(LOF(1), 1)

pingresult = Trim(Mid(txtoutput.Text, InStr(1, txtoutput.Text, “:”) + 1, Len(txtoutput.Text) – (InStr(1, txtoutput.Text, “:”) + Len(Mid(txtoutput.Text, InStr(1, txtoutput.Text, “Ping “))))))

‘check for error
If InStr(1, pingresult, “Reply”) = 0 Then
Dim message As String
If InStr(1, pingresult, “Hardware”) <> 0 Then
message = “HARDWARE FAULT”
Else
If InStr(1, pingresult, “Request”) <> 0 Then
message = “Request time out”
Else
If InStr(1, pingresult, “Destination”) <> 0 Then
message = “Destination Computer is not reachable”
Else
message = pingresult
End If

End If
End If
pingresult = “ERROR with ” & txtIP.Text & “:” & message

‘pingmessage
txtpinglog.Text = “”
For i = 0 To 22
pingMessage(i) = pingMessage(i + 1)
If pingMessage(i + 1) <> “” Then
If txtpinglog.Text <> “” Then
txtpinglog.Text = txtpinglog.Text & vbCrLf
End If
txtpinglog.Text = txtpinglog.Text & pingMessage(i + 1)
End If
Next

pingMessage(23) = pingresult
If txtpinglog.Text <> “” Then
txtpinglog.Text = txtpinglog.Text & vbCrLf
End If
txtpinglog.Text = txtpinglog.Text & pingresult

For i = 0 To 31
pbrtime(i).Value = pbrtime(i + 1).Value
Next
pbrtime(32).Value = 0

‘loging
If chklog.Value = 1 Then
If errorflag = False Then
errorflag = True
Open “c:\pinglog.txt” For Append As #2
Print #2, Now
Print #2, pingresult
Print #2, String(91, “*”)
Close #2
End If
End If
lcount = 0
mindelay = 0
maxdelay = 0
avgdelay = 0
totaldelay = 0

lblmin = mindelay
lblmax = maxdelay
lblavg = avgdelay

Else
lcount = lcount + 1
Ptime = CInt(Mid(txtoutput.Text, InStr(1, txtoutput.Text, “time”) + 5, InStr(1, txtoutput.Text, “ms “) – InStr(1, txtoutput.Text, “time”) – 5))
pbyte = CInt(Mid(txtoutput.Text, InStr(1, txtoutput.Text, “bytes=”) + 6, InStr(1, txtoutput.Text, ” time”) – InStr(1, txtoutput.Text, “bytes=”) – 6))
pttl = CInt(Mid(pingresult, InStr(1, pingresult, “TTL=”) + 4, Len(pingresult) – InStr(1, pingresult, “TTL=”) – 5))

tmin = CInt(Mid(txtoutput.Text, InStr(1, txtoutput.Text, “Minimum = “) + 10, InStr(InStr(1, txtoutput.Text, “Minimum = “), txtoutput.Text, “ms,”) – InStr(1, txtoutput.Text, “Minimum = “) – 10))
tmax = CInt(Mid(txtoutput.Text, InStr(1, txtoutput.Text, “Maximum = “) + 10, InStr(InStr(1, txtoutput.Text, “Maximum = “), txtoutput.Text, “ms,”) – InStr(1, txtoutput.Text, “Maximum = “) – 10))
tavg = CInt(Mid(txtoutput.Text, InStr(1, txtoutput.Text, “Average = “) + 10, InStr(InStr(1, txtoutput.Text, “Average = “), txtoutput.Text, “ms”) – InStr(1, txtoutput.Text, “Average = “) – 10))

If mindelay = 0 Then mindelay = tmin

If tmin < mindelay Then
mindelay = tmin
End If
If tmax > maxdelay Then
maxdelay = tmax
End If
totaldelay = totaldelay + tavg
avgdelay = CInt(totaldelay / lcount)

lblmin = mindelay
lblmax = maxdelay
lblavg = avgdelay

If avgdelay > 0 Then
For Each ctrl In frmmain
If TypeOf ctrl Is ProgressBar Then
ctrl.Max = avgdelay * 10
End If
Next
End If

pingresult = “Reply from ” & txtIP.Text & “: bytes=” & pbyte & ” time=” & Ptime & “ms TTL=” & pttl
txtpinglog.Text = “”
For i = 0 To 22
pingMessage(i) = pingMessage(i + 1)
If pingMessage(i + 1) <> “” Then
If txtpinglog.Text <> “” Then
txtpinglog.Text = txtpinglog.Text & vbCrLf
End If
txtpinglog.Text = txtpinglog.Text & pingMessage(i + 1)
End If
Next
pingMessage(23) = pingresult
If txtpinglog.Text <> “” Then
txtpinglog.Text = txtpinglog.Text & vbCrLf
End If
txtpinglog.Text = txtpinglog.Text & pingresult

‘loging
If chklog.Value = 1 Then
If errorflag = True Then
errorflag = False
Open “c:\pinglog.txt” For Append As #2
Print #2, Now
Print #2, “Reconnected with ” & txtIP.Text
Print #2, String(91, “*”)
Close #2
End If
End If

On Error Resume Next
Ptime = CInt(Mid(txtoutput.Text, InStr(1, txtoutput.Text, “time=”) + 5, InStr(1, txtoutput.Text, “ms “) – InStr(1, txtoutput.Text, “time=”) – 5))
For i = 0 To 31
pbrtime(i).Value = pbrtime(i + 1).Value
Next
pbrtime(32).Value = Ptime

End If
Close #1
End If
Else
frmmain.MousePointer = 0
VarX = MsgBox(“You have not entered an ip address or the number of times you want to ping.”, vbCritical, “Error has occured”)
End If
Wend
End Sub

Private Sub Command1_Click()
Load frmAbout
frmAbout.Show 1
End Sub

Private Sub Form_Load()

errorflag = False
totaldelay = 0
mindelay = 0
maxdelay = 0
avgdelay = 0
lcount = 0

Open “C:\log.txt” For Output As #1
Close #1
End Sub

Private Sub SelectText(ByRef textObj As RichTextBox)
textObj.SelStart = 0
textObj.SelLength = Len(textObj)
End Sub

Private Sub Label6_Click()

End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Label2_Click()

End Sub

Private Sub Slider1_Change()
Select Case Slider1.Value
Case 0: txtbuffer.Text = 1000
Case 1: txtbuffer.Text = 2000
Case 2: txtbuffer.Text = 3000
Case 3: txtbuffer.Text = 4000

End Select

lcount = 0
mindelay = 0
maxdelay = 0
avgdelay = 0
totaldelay = 0

lblmin = mindelay
lblmax = maxdelay
lblavg = avgdelay

End Sub

Private Sub Timer1_Timer()

End Sub

Private Sub txtIP_GotFocus()
Call SelectText(txtIP)
End Sub

Private Sub txtOutput_GotFocus()
‘ Call SelectText(txtoutput)
End Sub

Private Sub txtStatus_Click()
txtIP.SetFocus
End Sub

Posted by Administrator in 05:37:03 | Permalink | No Comments »

Keutamaan Surat Al-Fatihah

2011-04-04T10:54:00.002+07:00

Pertama: Membaca Al-Fatihah Adalah Rukun Shalat

Nabi shallallahu ‘alaihi wa sallam bersabda yang artinya, “Tidak ada shalat bagi orang yang tidak membaca Fatihatul Kitab (Al Fatihah).” (HR. Bukhari dan Muslim dari Ubadah bin Shamit radhiyallahu ‘anhu)

Dalam sabda yang lain beliau mengatakan yang artinya, “Barangsiapa yang shalat tidak membaca Ummul Qur’an (surat Al Fatihah) maka shalatnya pincang (khidaaj).” (HR. Muslim)

Makna dari khidaaj adalah kurang, sebagaimana dijelaskan dalam hadits tersebut, “Tidak lengkap”. Berdasarkan hadits ini dan hadits sebelumnya para imam seperti imam Malik, Syafi’i, Ahmad bin Hanbal dan para sahabatnya, serta mayoritas ulama berpendapat bahwa hukum membaca Al Fatihah di dalam shalat adalah wajib, tidak sah shalat tanpanya.

Kedua: Al Fatihah Adalah Surat Paling Agung Dalam Al Quran

Dari Abu Sa’id Rafi’ Ibnul Mu’alla radhiyallahu ‘anhu, beliau mengatakan: Rasulullah shallallahu ‘alaihi wa sallam berkata kepadaku, “Maukah kamu aku ajari sebuah surat paling agung dalam Al Quran sebelum kamu keluar dari masjid nanti?” Maka beliau pun berjalan sembari menggandeng tanganku. Tatkala kami sudah hampir keluar maka aku pun berkata; Wahai Rasulullah, Anda tadi telah bersabda, “Aku akan mengajarimu sebuah surat paling agung dalam Al Quran?” Maka beliau bersabda, “(surat itu adalah) Alhamdulillaahi Rabbil ‘alamiin (surat Al Fatihah), itulah As Sab’ul Matsaani (tujuh ayat yang sering diulang-ulang dalam shalat) serta Al Quran Al ‘Azhim yang dikaruniakan kepadaku.” (HR. Bukhari, dinukil dari Riyadhush Shalihin cet. Darus Salam, hal. 270)

Penjelasan Tentang Bacaan Ta’awwudz dan Basmalah

Makna bacaan Ta’awwudz

أَعُوْذُ بِاللِه مِنَ الشََّيْطَانِ الرَّجِيْمِ

Artinya: “Aku berlindung kepada Allah dari godaan syaitan yang terkutuk.”

Maknanya: “Aku berlindung kepada Allah dari kejelekan godaan syaitan agar dia tidak menimpakan bahaya kepadaku dalam urusan agama maupun duniaku.” Syaitan selalu menempatkan dirinya sebagai musuh bagi kalian. Oleh sebab itu maka jadikanlah diri kalian sebagai musuh baginya. Syaitan bersumpah di hadapan Allah untuk menyesatkan umat manusia. Allah menceritakan sumpah syaitan ini di dalam Al Quran,

قَالَ فَبِعِزَّتِكَ لَأُغْوِيَنَّهُمْ أَجْمَعِينَ إِلَّا عِبَادَكَ مِنْهُمُ الْمُ

“Demi kemuliaan-Mu sungguh aku akan menyesatkan mereka semua, kecuali hamba-hamba-Mu yang terpilih (yang diberi anugerah keikhlasan).” (QS. Shaad: 82-83)

Dengan demikian tidak ada yang bisa selamat dari jerat-jerat syaitan kecuali orang-orang yang ikhlas.

Isti’adzah/ta’awwudz (meminta perlindungan) adalah ibadah. Oleh sebab itu ia tidak boleh ditujukan kepada selain Allah. Karena menujukan ibadah kepada selain Allah adalah kesyirikan. Orang yang baik tauhidnya akan senantiasa merasa khawatir kalau-kalau dirinya terjerumus dalam kesyirikan. Sebagaimana Nabi Ibrahim ‘alaihis salam yang demikian takut kepada syirik sampai-sampai beliau berdoa kepada Allah,

ً وَاجْنُبْنِي وَبَنِيَّ أَن نَّعْبُدَ الأَصْنَامَ

“Dan jauhkanlah aku dan anak keturunanku dari penyembahan berhala.” (QS. Ibrahim: 35)

Ini menunjukkan bahwasanya tauhid yang kokoh akan menyisakan kelezatan di dalam hati kaum yang beriman. Yang bisa merasakan kelezatannya hanyalah orang-orang yang benar-benar memahaminya. Syaitan yang berusaha menyesatkan umat manusia ini terdiri dari golongan jin dan manusia. Hal itu sebagaimana disebutkan oleh Allah di dalam ayat yang artinya,

وَكَذَلِكَ جَعَلْنَا لِكُلِّ نِبِيٍّ عَدُوّاً شَيَاطِينَ الإِنسِ وَالْجِنِّ يُوحِي بَعْضُهُمْ إِلَى بَعْضٍ زُخْرُفَ الْقَوْلِ غُرُوراً

“Dan demikianlah Kami jadikan musuh bagi setiap Nabi yaitu (musuh yang berupa) syaithan dari golongan manusia dan jin. Sebagian mereka mewahyukan kepada sebagian yang lain ucapan-ucapan yang indah untuk memperdaya (manusia).” (QS. Al An’aam: 112) (Diringkas dari Syarhu Ma’aani Suuratil Faatihah, Syaikh Shalih bin Abdul ‘Aziz Alus Syaikh hafizhahullah).

Makna bacaan Basmalah

بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ

Artinya: “Dengan menyebut nama Allah yang Maha Pemurah lagi Maha Penyayang.”

Maknanya; “Aku memulai bacaanku ini seraya meminta barokah dengan menyebut seluruh nama Allah.” Meminta barokah kepada Allah artinya meminta tambahan dan peningkatan amal kebaikan dan pahalanya. Barokah adalah milik Allah. Allah memberikannya kepada siapa saja yang dikehendaki-Nya. Jadi barokah bukanlah milik manusia, yang bisa mereka berikan kepada siapa saja yang mereka kehendaki (Syarhu Ma’aani Suratil Fatihah, Syaikh Shalih bin Abdul ‘Aziz Alus Syaikh hafizhahullah).

Allah adalah satu-satunya sesembahan yang berhak diibadahi dengan disertai rasa cinta, takut dan harap. Segala bentuk ibadah hanya boleh ditujukan kepada-Nya. Ar-Rahman dan Ar-Rahiim adalah dua nama Allah di antara sekian banyak Asma’ul Husna yang dimiliki-Nya. Maknanya adalah Allah memiliki kasih sayang yang begitu luas dan agung. Rahmat Allah meliputi segala sesuatu. Akan tetapi Allah hanya melimpahkan rahmat-Nya yang sempurna kepada hamba-hamba yang bertakwa dan mengikuti ajaran para Nabi dan Rasul. Mereka inilah orang-orang yang akan mendapatkan rahmat yang mutlak yaitu rahmat yang akan mengantarkan mereka menuju kebahagiaan abadi. Adapun orang yang tidak bertakwa dan tidak mengikuti ajaran Nabi maka dia akan terhalangi mendapatkan rahmat yang sempurna ini (lihat Taisir Lathifil Mannaan, hal. 19).

Penjelasan Kandungan Surat

Makna Ayat Pertama

الْحَمْدُ للّهِ رَبِّ الْعَالَمِ

Artinya: “Segala puji bagi Allah Rabb seru sekalian alam.”

Makna Alhamdu adalah pujian kepada Allah karena sifat-sifat kesempurnaan-Nya. Dan juga karena perbuatan-perbuatanNya yang tidak pernah lepas dari sifat memberikan karunia atau menegakkan keadilan. Perbuatan Allah senantiasa mengandung hikmah yang sempurna. Pujian yang diberikan oleh seorang hamba akan semakin bertambah sempurna apabila diiringi dengan rasa cinta dan ketundukkan dalam dirinya kepada Allah. Karena pujian semata yang tidak disertai dengan rasa cinta dan ketundukkan bukanlah pujian yang sempurna.

Makna dari kata Rabb adalah Murabbi (yang mentarbiyah; pembimbing dan pemelihara). Allahlah Zat yang memelihara seluruh alam dengan berbagai macam bentuk tarbiyah. Allahlah yang menciptakan mereka, memberikan rezeki kepada mereka, memberikan nikmat kepada mereka, baik nikmat lahir maupun batin. Inilah bentuk tarbiyah umum yang meliputi seluruh makhluk, yang baik maupun yang jahat. Adapun tarbiyah yang khusus hanya diberikan Allah kepada para Nabi dan pengikut-pengikut mereka. Di samping tarbiyah yang umum itu Allah juga memberikan kepada mereka tarbiyah yang khusus yaitu dengan membimbing keimanan mereka dan menyempurnakannya. Selain itu, Allah juga menolong mereka dengan menyingkirkan segala macam penghalang dan rintangan yang akan menjauhkan mereka dari kebaikan dan kebahagiaan mereka yang abadi. Allah memberikan kepada mereka berbagai kemudahan dan menjaga mereka dari hal-hal yang dibenci oleh syariat.

Dari sini kita mengetahui betapa besar kebutuhan alam semesta ini kepada Rabbul ‘alamiin karena hanya Dialah yang menguasai itu semua. Allah satu-satunya pengatur, pemberi hidayah dan Allah lah Yang Maha kaya. Oleh sebab itu semua makhluk yang ada di langit dan di bumi ini meminta kepada-Nya. Mereka semua meminta kepada-Nya, baik dengan ucapan lisannya maupun dengan ekspresi dirinya. Kepada-Nya lah mereka mengadu dan meminta tolong di saat-saat genting yang mereka alami (lihat Taisir Lathiifil Mannaan, hal. 20).

Makna Ayat Kedua

الرَّحْمـنِ الرَّحِيمِ

Artinya: “Yang Maha Pemurah lagi Maha Penyayang.”

Ar-Rahman dan Ar-Rahiim adalah nama Allah. Sebagaimana diyakini oleh Ahlusunnah wal Jama’ah bahwa Allah memiliki nama-nama yang terindah. Allah ta’ala berfirman,

“Milik Allah nama-nama yang terindah, maka berdo’alah kepada Allah dengan menyebutnya.” (QS. Al A’raaf: 180)

Setiap nama Allah mengandung sifat. Oleh sebab itu beriman kepada nama-nama dan sifat-sifat Allah merupakan bagian yang tak terpisahkan dari keimanan kepada Allah. Dalam mengimani nama-nama dan sifat-sifat Allah ini kaum muslimin terbagi menjadi 3 golongan yaitu: (1) Musyabbihah, (2) Mu’aththilah dan (3) Ahlusunnah wal Jama’ah.

Musyabbihah adalah orang-orang yang menyerupakan sifat-sifat Allah dengan sifat makhluk. Mereka terlalu mengedepankan sisi penetapan nama dan sifat dan mengabaikan sisi penafian keserupaan sehingga terjerumus dalam tasybih (peyerupaan). Adapun Mu’aththilah adalah orang-orang yang menolak nama atau sifat-sifat Allah. Mereka terlalu mengedepankan sisi penafian sehingga terjerumus dalam ta’thil (penolakan). Ahlusunnah berada di tengah-tengah. Mereka mengimani dalil-dalil yang menetapkan nama dan sifat sekaligus mengimani dalil-dalil yang menafikan keserupaan. Sehingga mereka selamat dari tindakan tasybih maupun ta’thil. Oleh sebab itu mereka menyucikan Allah tanpa menolak nama maupun sifat. Mereka menetapkan nama dan sifat tapi tanpa menyerupakannya dengan makhluk. Inilah akidah yang dipegang oleh Rasulullah shallallahu ‘alaihi wa sallam dan para sahabatnya serta para imam dan pengikut mereka yang setia hingga hari ini. Inilah aqidah yang tersimpan dalam ayat yang mulia yang artinya,

“Tidak ada sesuatupun yang serupa dengan-Nya, dan Dia Maha Mendengar lagi Maha Melihat.” (QS. Asy Syuura: 11) (silakan baca Al ‘Aqidah Al Wasithiyah karya Syaikhul Islam Ibnu Taimiyah dan juga ‘Aqidah Ahlis Sunnah wal Jama’ah karya Syaikh Ibnu Utsaimin rahimahumallahu ta’ala).

Allah Maha Mendengar dan juga Maha Melihat. Akan tetapi pendengaran dan penglihatan Allah tidak sama dengan pendengaran dan penglihatan makhluk. Meskipun namanya sama akan tetapi hakikatnya berbeda. Karena Allah adalah Zat Yang Maha Sempurna sedangkan makhluk adalah sosok yang penuh dengan kekurangan. Sebagaimana sifat makhluk itu terbatas dan penuh kekurangan karena disandarkan kepada diri makhluk yang diliputi sifat kekurangan. Maka demikian pula sifat Allah itu sempurna karena disandarkan kepada sosok yang sempurna. Sehingga orang yang tidak mau mengimani kandungan hakiki nama-nama dan sifat-sifat Allah sebenarnya telah berani melecehkan dan berbuat lancang kepada Allah. Mereka tidak mengagungkan Allah dengan sebagaimana semestinya. Lalu adakah tindakan jahat yang lebih tercela daripada tindakan menolak kandungan nama dan sifat Allah ataupun menyerupakannya dengan makhluk? Di dalam ayat ini Allah menamai diri-Nya dengan Ar-Rahman dan Ar-Rahiim. Di dalamnya terkandung sifat Rahmah (kasih sayang). Akan tetapi kasih sayang Allah tidak serupa persis dengan kasih sayang makhluk.

Makna Ayat Ketiga

مَالِكِ يَوْمِ الدِّينِ

Artinya: “Yang Menguasai pada hari pembalasan.”

Maalik adalah zat yang memiliki kekuasaan atau penguasa. Penguasa itu berhak untuk memerintah dan melarang orang-orang yang berada di bawah kekuasaannya. Dia juga yang berhak untuk mengganjar pahala dan menjatuhkan hukuman kepada mereka. Dialah yang berkuasa untuk mengatur segala sesuatu yang berada di bawah kekuasaannya menurut kehendaknya sendiri. Bagian awal ayat ini boleh dibaca Maalik (dengan memanjangkan mim) atau Malik (dengan memendekkan mim). Maalik maknanya penguasa atau pemilik. Sedangkan Malik maknanya raja.

Yaumid diin adalah hari kiamat. Disebut sebagai hari pembalasan karena pada saat itu seluruh umat manusia akan menerima balasan amal baik maupun buruk yang mereka kerjakan sewaktu di dunia. Pada hari itulah tampak dengan sangat jelas bagi manusia kemahakuasaan Allah terhadap seluruh makhluk-Nya. Pada saat itu akan tampak sekali kesempurnaan dari sifat adil dan hikmah yang dimiliki Allah. Pada saat itu seluruh raja dan penguasa yang dahulunya berkuasa di alam dunia sudah turun dari jabatannya. Hanya tinggal Allah sajalah yang berkuasa. Pada saat itu semuanya setara, baik rakyat maupun rajanya, budak maupun orang merdeka. Mereka semua tunduk di bawah kemuliaan dan kebesaran-Nya. Mereka semua menantikan pembalasan yang akan diberikan oleh-Nya. Mereka sangat mengharapkan pahala kebaikan dari-Nya. Dan mereka sungguh sangat khawatir terhadap siksa dan hukuman yang akan dijatuhkan oleh-Nya. Oleh karena itu di dalam ayat ini hari pembalasan itu disebutkan secara khusus. Allah adalah penguasa hari pembalasan. Meskipun sebenarnya Allah jugalah penguasa atas seluruh hari yang ada. Allah tidak hanya berkuasa atas hari kiamat atau hari pembalasan saja (lihat Taisir Karimir Rahman, hal. 39).

Makna Ayat Keempat

إِيَّاكَ نَعْبُدُ وإِيَّاكَ نَسْتَعِينُ

Artinya: “Hanya kepada-Mu lah Kami beribadah dan hanya kepada-Mu lah Kami meminta pertolongan.”

Maknanya: “Kami hanya menujukan ibadah dan isti’anah (permintaan tolong) kepada-Mu.” Di dalam ayat ini objek kalimat yaitu Iyyaaka diletakkan di depan. Padahal asalnya adalah na’buduka yang artinya Kami menyembah-Mu. Dengan mendahulukan objek kalimat yang seharusnya di belakang menunjukkan adanya pembatasan dan pengkhususan. Artinya ibadah hanya boleh ditujukan kepada Allah. Tidak boleh menujukan ibadah kepada selain-Nya. Sehingga makna dari ayat ini adalah, ‘Kami menyembah-Mu dan kami tidak menyembah selain-Mu. Kami meminta tolong kepada-Mu dan kami tidak meminta tolong kepada selain-Mu.

Ibadah adalah segala sesuatu yang dicintai dan diridhai oleh Allah. Ibadah bisa berupa perkataan maupun perbuatan. Ibadah itu ada yang tampak dan ada juga yang tersembunyi. Kecintaan dan ridha Allah terhadap sesuatu bisa dilihat dari perintah dan larangan-Nya. Apabila Allah memerintahkan sesuatu maka sesuatu itu dicintai dan diridai-Nya. Dan sebaliknya, apabila Allah melarang sesuatu maka itu berarti Allah tidak cinta dan tidak ridha kepadanya. Dengan demikian ibadah itu luas cakupannya. Di antara bentuk ibadah adalah do’a, berkurban, bersedekah, meminta pertolongan atau perlindungan, dan lain sebagainya. Dari pengertian ini maka isti’anah atau meminta pertolongan juga termasuk cakupan dari istilah ibadah. Lalu apakah alasan atau hikmah di balik penyebutan kata isti’anah sesudah disebutkannya kata ibadah di dalam ayat ini?

Syaikh Abdurrahman bin Nashir As-Sa’di rahimahulah berkata, “Didahulukannya ibadah sebelum isti’anah ini termasuk metode penyebutan sesuatu yang lebih umum sebelum sesuatu yang lebih khusus. Dan juga dalam rangka lebih mengutamakan hak Allah ta’ala di atas hak hamba-Nya….”

Beliau pun berkata, “Mewujudkan ibadah dan isti’anah kepada Allah dengan benar itu merupakan sarana yang akan mengantarkan menuju kebahagiaan yang abadi. Dia adalah sarana menuju keselamatan dari segala bentuk kejelekan. Sehingga tidak ada jalan menuju keselamatan kecuali dengan perantara kedua hal ini. Dan ibadah hanya dianggap benar apabila bersumber dari Rasulullah shallallahu ‘alaihi wa sallam dan ditujukan hanya untuk mengharapkan wajah Allah (ikhlas). Dengan dua perkara inilah sesuatu bisa dinamakan ibadah. Sedangkan penyebutan kata isti’anah setelah kata ibadah padahal isti’anah itu juga bagian dari ibadah maka sebabnya adalah karena hamba begitu membutuhkan pertolongan dari Allah ta’ala di dalam melaksanakan seluruh ibadahnya. Seandainya dia tidak mendapatkan pertolongan dari Allah maka keinginannya untuk melakukan perkara-perkara yang diperintahkan dan menjauhi hal-hal yang dilarang itu tentu tidak akan bisa tercapai.” (Taisir Karimir Rahman, hal. 39).

Makna Ayat Kelima

اهدِنَــــا الصِّرَاطَ المُستَقِيمَ

Artinya: “Tunjukilah Kami jalan yang lurus.”

Maknanya: “Tunjukilah, bimbinglah dan berikanlah taufik kepada kami untuk meniti shirathal mustaqiim yaitu jalan yang lurus.” Jalan lurus itu adalah jalan yang terang dan jelas serta mengantarkan orang yang berjalan di atasnya untuk sampai kepada Allah dan berhasil menggapai surga-Nya. Hakikat jalan lurus (shirathal mustaqiim) adalah memahami kebenaran dan mengamalkannya. Oleh karena itu ya Allah, tunjukilah kami menuju jalan tersebut dan ketika kami berjalan di atasnya. Yang dimaksud dengan hidayah menuju jalan lurus yaitu hidayah supaya bisa memeluk erat-erat agama Islam dan meninggalkan seluruh agama yang lainnya. Adapun hidayah di atas jalan lurus ialah hidayah untuk bisa memahami dan mengamalkan rincian-rincian ajaran Islam. Dengan begitu do’a ini merupakan salah satu do’a yang paling lengkap dan merangkum berbagai macam kebaikan dan manfaat bagi diri seorang hamba. Oleh sebab itulah setiap insan wajib memanjatkan do’a ini di dalam setiap rakaat shalat yang dilakukannya. Tidak lain dan tidak bukan karena memang hamba begitu membutuhkan do’a ini (lihat Taisir Karimir Rahman, hal. 39).

Makna Ayat Keenam

صِرَاطَ الَّذِينَ أَنعَمتَ عَلَيهِمْ

Artinya: “Yaitu jalannya orang-orang yang Engkau berikan nikmat atas mereka.”

Siapakah orang-orang yang diberi nikmat oleh Allah? Di dalam ayat yang lain disebutkan bahwa mereka ini adalah para Nabi, orang-orang yang shiddiq/jujur dan benar, para pejuang Islam yang mati syahid dan orang-orang salih. Termasuk di dalam cakupan ungkapan ‘orang yang diberi nikmat’ ialah setiap orang yang diberi anugerah keimanan kepada Allah ta’ala, mengenal-Nya dengan baik, mengetahui apa saja yang dicintai-Nya, mengerti apa saja yang dimurkai-Nya, selain itu dia juga mendapatkan taufik untuk melakukan hal-hal yang dicintai tersebut dan meninggalkan hal-hal yang membuat Allah murka. Jalan inilah yang akan mengantarkan hamba menggapai keridhaan Allah ta’ala. Inilah jalan Islam. Islam yang ditegakkan di atas landasan iman, ilmu, amal dan disertai dengan menjauhi perbuatan-perbuatan syirik dan kemaksiatan. Sehingga dengan ayat ini kita kembali tersadar bahwa Islam yang kita peluk selama ini merupakan anugerah nikmat dari Allah ta’ala. Dan untuk bisa menjalani Islam dengan baik maka kita pun sangat membutuhkan sosok teladan yang bisa dijadikan panutan (lihat Aisarut Tafaasir, hal. 12).

Makna Ayat Ketujuh

غَيرِ المَغضُوبِ عَلَيهِمْ وَلاَ الضَّالِّينَ

Artinya: “Bukan jalannya orang-orang yang dimurkai dan bukan pula jalan orang-orang yang tersesat.”

Orang yang dimurkai adalah orang yang sudah mengetahui kebenaran akan tetapi tidak mau mengamalkannya. Contohnya adalah kaum Yahudi dan semacamnya. Sedangkan orang yang tersesat adalah orang yang tidak mengamalkan kebenaran gara-gara kebodohan dan kesesatan mereka. Contohnya adalah orang-orang Nasrani dan semacamnya. Sehingga di dalam ayat ini tersimpan motivasi dan dorongan kepada kita supaya menempuh jalan kaum yang shalih. Ayat ini juga memperingatkan kepada kita untuk menjauhi jalan yang ditempuh oleh orang-orang yang sesat dan menyimpang (lihat Aisarut Tafaasir, hal. 13 dan Taisir Karimir Rahman hal. 39).

Kesimpulan Isi Surat

Surat yang demikian ringkas ini sesungguhnya telah merangkum berbagai pelajaran yang tidak terangkum secara terpadu di dalam surat-surat yang lain di dalam Al Quran. Surat ini mengandung intisari ketiga macam tauhid. Di dalam penggalan ayat Rabbil ‘alamiin terkandung makna tauhid rububiyah. Tauhid rububiyah adalah mengesakan Allah dalam hal perbuatan-perbuatanNya seperti mencipta, memberi rezeki dan lain sebagainya. Di dalam kata Allah dan Iyyaaka na’budu terkandung makna tauhid uluhiyah. Tauhid uluhiyah adalah mengesakan Allah dalam bentuk beribadah hanya kepada-Nya. Demikian juga di dalam penggalan ayat Alhamdu terkandung makna tauhid asma’ wa sifat. Tauhid asma’ wa sifat adalah mengesakan Allah dalam hal nama-nama dan sifat-sifatNya. Allah telah menetapkan sifat-sifat kesempurnaan bagi diri-Nya sendiri. Demikian pula Rasul shallallahu’alaihi wa sallam. Maka kewajiban kita adalah mengikuti Allah dan Rasul-Nya dalam menetapkan sifat-sifat kesempurnaan itu benar-benar dimiliki oleh Allah. Kita mengimani ayat ataupun hadits yang berbicara tentang nama dan sifat Allah sebagaimana adanya, tanpa menolak maknanya ataupun menyerupakannya dengan sifat makhluk.

Selain itu surat ini juga mencakup intisari masalah kenabian yaitu tersirat dari ayat Ihdinash shirathal mustaqiim. Sebab jalan yang lurus tidak akan bisa ditempuh oleh hamba apabila tidak ada bimbingan wahyu yang dibawa oleh Rasul. Surat ini juga menetapkan bahwasanya amal-amal hamba itu pasti ada balasannya. Hal ini tampak dari ayat Maaliki yaumid diin. Karena pada hari kiamat nanti amal hamba akan dibalas. Dari ayat ini juga bisa ditarik kesimpulan bahwa balasan yang diberikan itu berdasarkan prinsip keadilan, karena makna kata diin adalah balasan dengan adil. Bahkan di balik untaian ayat ini terkandung penetapan takdir. Hamba berbuat di bawah naungan takdir, bukan terjadi secara merdeka di luar takdir Allah ta’ala sebagaimana yang diyakini oleh kaum Qadariyah (penentang takdir). Dan menetapkan bahwasanya hamba memang benar-benar pelaku atas perbuatan-perbuatanNya. Hamba tidaklah dipaksa sebagaimana keyakinan kaum Jabriyah. Bahkan di dalam ayat Ihdinash shirathal mustaqiim itu terdapat intisari bantahan kepada seluruh ahli bid’ah dan penganut ajaran sesat. Karena pada hakikatnya semua pelaku kebid’ahan maupun penganut ajaran sesat itu pasti menyimpang dari jalan yang lurus; yaitu memahami kebenaran dan mengamalkannya. Surat ini juga mengandung makna keharusan untuk mengikhlaskan ketaatan dalam beragama demi Allah ta’ala semata. Ibadah maupun isti’anah, semuanya harus lillaahi ta’aala. Kandungan ini tersimpan di dalam ayat Iyyaka na’budu wa iyyaaka nasta’iin (disadur dari Taisir Karimir Rahman, hal. 40).

Allaahu akbar, sungguh menakjubkan isi surat ini. Maka tidak aneh apabila Rasulullah shallallahu ‘alaihi wa sallam menyebutnya sebagai surat paling agung di dalam Al Quran.

Ya Allah, karuniakanlah kepada kami ilmu yang bermanfaat. Jauhkanlah kami dari jalan orang yang dimurkai dan sesat. Sesungguhnya Engkau Maha Mendengar lagi Mengabulkan do’a. Wallahu a’lam bish shawaab.

***

Penyusun: Abu Muslih Ari Wahyudi
Artikel www.muslim.or.id

http://www.alquran-sunnah.com/artikel/murajaa/351-tafsir-surat-al-fatihah.html

Adakah Sholat Sunnah Qobliyah Jum'at?

2011-04-04T10:36:00.003+07:00

Ibadah merupakan suatu perkara yang sangat urgen dalam kehidupan seorang muslim, sebab jika seseorang melazimi suatu ibadah, itu menunjukkan adanya alamat dan tanda kebaikan pada dirinya. Namun yang sangat perlu diperhatikan dalam ibadah ada dua perkara. Dua perkara ini merupakan syarat terpenuhinya dan terkabulnya ibadah seseorang di hadapan Allah -Azza wa Jalla-, yaitu:

* Pertama : Mengikhlaskan (Mengkhususkan) Ibadah Hanya kepada Allah

Jika seorang ingin diterima amalnya di sisi Allah, maka ia harus mengikhlaskan amalnya dari noda-noda syirik dengan mengharapkan pahala kepada Allah dalam beribadah kepada-Nya saja. Namun jika ia menodainya dengan riya’ (mau dipuji dan diperhatikan), maka ia terkena firman Allah -Ta`ala-,
“Dan sesungguhnya telah diwahyukan kepadamu dan orang-orang sebelum kamu: Apabila kamu berbuat syirik(tidak ikhlas), maka amalanmu benar-benar akan hilang dan akan menjadi orang-orang yang merugi.Bahkan sembahlah Allah saja, dan menjadilah orang-orang yang bersyukur”. (QS.Az-Zumar : 65-66)

Allah -Ta`ala- berfirman:
“Sembahlah Allah,dan janganlah kalian memperserikatkan sesuatu dengan-Nya”. (QS. An-Nisaa’: 36)

Syaikh Al-AllamahAbdur Rahman bin Hasan Alusy-Syaikh -rahimahullah- berkatadalam mengomentari ayat di atas, ”Ayat ini menerangkan tentang ibadah yang mereka diciptakan karenanya. Sungguh Allah -Ta`ala- menggandengkan perintah ibadah yang diwajibkan dengan larangan berbuat syirik yang telah diharamkan,yaitu kesyirikan dalam beribadah. Maka ayat ini menunjukkan bahwa menjauhi kesyirikan merupakan syarat sahnya suatu ibadah. Maka pada asalnya,tidaklah sah suatu ibadah tanpa adanya syarat tersebut”. [Lihat Fathul Majid (hal.24), cet. Darus Salam]

* Kedua : Mutaba`ah (Mengikuti) Sunnah Rosululloh Shallallahu 'Alaihi Wasallam

Ibadah yang dilakukan oleh seorang muslim, selain harus ikhlas, juga harus mutaba’ah (mengikuti) sunnah Nabi Shollallahu alaihi wa sallam-. Jika sekedar ikhlas, namun tidak mengikuti sunnah, maka ibadah itu tertolak. Nabi -Shollallahu alaihi wa sallam- bersabda,

مَنْ أَحْدَثَ فِيْ أَمْرِنَا هَذَا مَا لَيْسَ مِنْهُ فَهُوَ رَدٌّ

“Barang siapa yang mengadakan suatu perkara (baru) dalam urusan (agama) kami ini yang bukan termasuk darinya,maka perkara itu tertolak”. [HR. Al-Bukhory dalam Ash- Shohih (2697)]

Al-Imam Ibnu Daqiq Al-Ied-rahimahullah- berkata,“Hadits ini merupakan kaidah yang sangat agung diantara kaidah-kaidah agama. Dia termasuk "Jawami’ Al-Kalim"

(Ucapan yang ringkas, padat maknanya) yang diberikan kepada Al-Mushthofa -Shollallahu ‘alaihi wasallam-, karena hadits ini jelas sekali dalam menolak segala bentuk bid`ah dan perkara-perkara baru”.[Lihat Syarah Al-Arba`in An-Nawawiyah (hal.43), Cet.Dar Ibnu Hazm]
Jadi, seorang muslim yang memiliki perhatian terhadap segala amalan dan ibadahnya, akan senantiasa menjaga dua perkara tersebut, yaitu mengikhlashkan ibadahnya semata kepada Allah Robbul alamin dan mutaba`ah (mengikuti) sunnah Rasulullah -Shollallahu alaihi wa sallam- . Dengan ini, dia akan selalu berusaha mengilmui dan mengetahui sejauh mana tingkat keikhlasan dan mutaba`ah-nya kepada Nabi -Shollallahu ‘alaihi wasallam-.

Artinya, ia selalu mengilmui suatu amalan ibadahnya sebelum ia mengerjakannya, apakah ikhlas dan sudah cocok dengan sunnah Nabi -Shollallahu ‘alaihi wasallam-. Bukan hanya sekedar mengerjakan suatu ibadah, tanpa berusaha lebih dahulu untuk mengilmuinya !!
Betapa banyak orang yang mengerjakan ibadah -sedangkan ia tidak memiliki ilmu tentang ibadah tersebut- lalu ia menyangka bahwa dirinya telah memperoleh pahala di sisi Allah -Ta’ala-, padahal ia tidak mendapatkan sesuatu apapun di sisi-Nya, kecuali penyesalan.

Dirinya laksana orang kehausan melihat fatamorgana disangkanya air, bisa menghilangkan dahaganya. Ternyata setelah ia menghampirinya, tiada lain kecuali bayangan semu yang tiada artinya. Oleh karena itu, diantara ciri khas Ahlis Sunnah adalah menggabungkan antara ilmu dan ibadah. Yaitu mereka tidak mengerjakan suatu ibadah, kecuali setelah mereka mengetahui dan megilmui urusan ibadah tersebut.

Syaikh Muhammad ibnu Ibrohim Al-Hamed -hafizhohullah- berkata, “Diantara ciri khas Ahlis Sunnah, (mereka) menggabungkan antara ilmu dan ibadah. Berbeda dengan kelompok diluar mereka, adakalanya mereka sibuk ibadah, akan tetapi melalaikan ilmu; atau adakalanya sibuk dengan ilmu, akan tetapi lalai beribadah . Adapun Ahlis Sunnah wal Jama`ah, mereka itu menggabungkan antara dua perkara tersebut”.[Lihat Aqidah Ahlis Sunnah wal Jama`ah (hal.46), Cet Dar Ibnu Khuzaimah]

Jalan dan manhaj beginilah yang seyogyanya ditempuh oleh setiap muslim;

Selain ia beribadah, ia juga menyibukkan dan menghiasi dirinya dengan ilmu yang bermanfaat dari Al-Kitab dan Sunnah berdasarkan bimbingan para salaf. Jangan seperti sebagian orang jahil yang sibuk dengan ibadah, namun ibadahnya tidak dilandasi dengan ilmu, bahkan berdasarkan perasaan dan taqlid buta kepada sebagian orang yang dianggap berilmu alias kiyai !!
Ini banyak terjadi di kalangan para ahli ibadah dan orang-orang sufi. Ibnul Jauzy -rahimahullah- berkata, ”Diantara tipu daya iblis atas orang-orang zuhud, mereka meremehkan dan mencela para ulama`.Mereka mengatakan, "Tujuan yang paling utama sebenarnya adalah beramal". Mereka ini tidak memahami bahwa ilmu itulah pelita hati.” [Lihat Al Muntaqo An-Nafis min Talbis Iblis (hal.204) karya Syaikh Ali bin Hasan Al-Halaby As-Salafy,Cet 3 Dar Ibnil Jauzy 1419H ]

Diantara fenomena seperti ini, yaitu beribadah, tanpa dasar ilmu, apa yang dilakukan oleh sebagian orang pada hari ini saat mereka menghadiri shalat jum’at, maka kita akan menyaksikan mereka melaksanakan 2 raka’at qobliyyah jum’at,
selain shalat sunnat tahiyatul masjid. Ketika mu’adzdzin berkumandang pada adzan pertama atau kedua, ada sebagian orang bangkit dengan keyakinan ia akan melaksanakan shalat 2 raka’at qobliyyah jum’at.

Padahal semua itu tak ada asalnya dalam sunnah. Karenanya, para ulama’ kita berikut ini mengingkari hal ini:
Al-Hafizh Abu Syamah Abdur Rahman bin Isma’il Al-Maqdisiy -rahimahullah- berkata, “Ini-yakni hadits Ibnu Umar-merupakan dalil yang membuktikan bahwa jum’at menurut mereka bukan zhuhur. Kalaulah tidak demikian, maka beliau-Ibnu Umar- tak perlu menyebutkan jum’at, karena sudah masuk definisi zhuhur. Kemudian tatkala beliau tidak menyebutkan shalat sunnah qobliyah jumat, hanya ba`diyahnya saja, maka ini membuktikan bahwa tak ada shalat sunnah qobliyah jumat”. [Lihat Al-Ba`its ala Inkaril Bida wal Hawadits ( hal.159)]

Syaikhul Islam Ahmad bin Abdul Halim Al Harrony -rahimahullah- berkata, ”Oleh karena ini, jumhur ulama sepakat tidak adanya shalat sunnah yang ditentukan waktu dan bilangannya. Karena semua itu harus ditetapkan berdasarkan sabda dan perbuatan Nabi -Shollallahu Alaihi Wasallam-. Beliau tak pernah menetapkan sunnahnya hal itu (sunnah qobliyyah Jum’at), baik berdasarkan ucapan ataupun perbuatan beliau.Inilah madzhab Malik, Asy Syafi’i, dan sebagian besar pengikutnya serta pendapat yang masyhur dalam madzhab Ahmad”. [Lihat Majmu’ Fatawa (1/136), dan Majmu’ah Ar Rosa’il Al Kubro (2/167-168)]

Al-Allamah Abdur Rahim Ibnul Husain Al-Iroqy Al-Atsariy -rahimahullah- berkata, “Saya belum pernah menjumpai di dalam pendapat para fuqoha` dari kalangan madzhad Hanafi, Maliki , dan Hanbali adanya sunnah qobliyah jumat. Yang lain berpendapat adanya qobliyah jumat, diantaranya An-Nawawy”. [Lihat Thorh At-Tatsrib (3/41)]

Syaikh Muhammad bin Ahmad bin Muhammad Abdus Salam Asy-Syuqoiriy -rahimahullah- berkata, “Sesungguhnya pada asalnya, tak ada dalil yang menunjukkan shalat sunnah rowatib qobliyyah Jum’at. Paling tinggi yang ada pada mereka adalah qiyas yang tertolak tersebut. Dia (Fairuz Abadiy) berkata dalam Safar As-Sa’adah, “Dulu Bilal apabila selesai adzan, maka Nabi -Shollallahu alaihi wa sallam- mulai berkhutbah, dan tak ada seorangpun yang bangkit melaksanakan shalat sunnah. Sebagian ulama’ berpendapat tentang shalat sunnah qobliyyah Jum’at dengan mengqiyaskannya dengan shalat Zhuhur. Penetapan shalat sunnah berdasarkan qiyas merupakan perkara yang tidak boleh.
Para ulama’ yang memiliki perhatian dengan sunnah, mereka tidaklah meriwayatkan sesuatu apapun tentang shalat sunnah qobliyyah Jum’at”.”. [Lihat As-Sunan wa Al-Mubtada’at (hal.161), cet. Dar Ar-Royyan]

Al-Lajnah Ad-Da’imah li Al-Buhuts Al-‘Ilmiyyah wa Al-Ifta’

(Komite Tetap Riset Ilmiah dan Fatwa) di sebuah negeri Timur Tengah mengeluarkan fatwa tentang tidak adanya shalat qobliyyah jum’at, “Shalat Jum’at tidak memiliki shalat sunnah qobliyyah dan tidak ada dari Nabi -Shollallahu alaihi wa sallam- (sepanjang pengetahuan kami) sesuatu yang menunjukkan tentang disyari’atkannya. Adapun hadits Ibnu Mas’ud, maka ia diriwayatkan oleh At-Tirmidziy secara mu’allaq dengan bentuk “tamridh”(istilah lemahnya hadits, pen), dan mauquf (terhenti) pada Ibnu Mas’ud. Dinukil dalam Kitab Tuhfah Al-Ahwadziy
(3/79- cet. Dar Ihya’ At-Turots Arobiy, pen) dari Al-Hafizh, bahwa Abdur Rozzaq dan Ath-Thobroniy telah mengeluarkan hadits ini secara marfu’, sedang pada sanadnya terdapat kelemahan dan keterputusan.
Hadits sejenis ini tidak bisa dijadikan hujjah. Adapun hadits Abu Hurairah tentang perkara Sulaik, maka haditsnya shohih. Akan tetapi, hadits itu dalam perkara tahiyyatul masjid, bukan sunnah qobliyyah Jum’at. Adapun hadits, “Diantara dua adzan ada shalat”,

maka ini tidak cocok pada shalat Jum’at, karena Rasulullah -Shollallahu alaihi wa sallam- dulu memulai dengan khutbah, setelah usai adzan.
Tidak boleh melaksanakan shalat sunnah, sedang imam berkhutbah, kecuali tahiyyatul masjid. Adapun qiyas, maka itu terlarang dalam ibadah-ibadah, karena ibadah terbangun di atas tauqif (penetapan berdasarkan dalil). Kemudian, ia merupakan “qiyas ma’al fariq”(qiyas batil). Akan tetapi bagi orang yang datang ke masjid untuk shalat Jum’at, disyari’atkan untuk shalat (sunnah muthlaq,pen) sebagaimana yang telah ditetapkan (ditaqdirkan) baginya, tanpa ada pembatasan dengan bilangan tertentu, karena shohihnya hadits-hadits dalam perkara itu”.[Lihat Fatawa Al-Lajnah Ad-Da’imah (8/260-261) (no. fatwa:7798), kumpulan Syaikh Ahmad bin Abdur Razzaq Ad-Duwaisy, cet. Dar Balansia, 1421 H. Lajnah ketika itu beranggotakan:

Syaikh Abdul Aziz bin Baz (ketua), Abdur Razzaq ‘Afifi (wakil), dan

Abdullah Al-Ghudayyan (anggota)]
Muhaddits Negeri Syam, Syaikh Abu Abdir Rahman Muhammad Nashiruddin Al-Albany -rahimahullah- berkata ketika mengomentari ucapan Al-Iroqy di atas, “Karenanya shalat sunnah ini tidak tersebut dalam kitab Al-Umm karya Al-Imam Asy-Syafi’i, tidak juga dalam kitab-kitab Al-Masa’il yang berisi pertanyaan kepada Imam Ahmad, ataupun ulama-ulama mutaqoddimin selain mereka berdasarkan pengetahuan saya.Karena ini saya katakan, "Sesungguhnya orang-orang yang mengerjakan shalat sunnah ini, bukanlah Rosulullah -Shollallahu alaihi wasallam- yang mereka ikuti,

dan bukan pula para ulama yang mereka taklidi, bahkan mereka taklid kepada orang-orang mutakhirin, bukan mujtahidin, sama-sama bertaklid.
Maka sungguh heran orang-orang bertaklid mengikuti sesamanya”.[Lihat Al-Ajwibah An-Nafi’ah (hal.32)]

Syaikh Masyhur Hasan Salman-hafizhohullah- berkata, “Berangkat dari pembahasan sebelumnya, maka jelaslah bagi anda kekeliruan orang-orang yang mengerjakan shalat sunnah antara dua adzan di hari jumat, baik itu dua rokaat, empat rakaat, dan seterusnya, karena meyakini bahwa itu merupakan shalat sunnah qobliyah jumat -seperti halnya mereka melaksanakan shalat qobliyah zhuhur- dan mereka meniatkan dalam hati mereka bahwa itu adalah shalat qobliyah Jum’at.!!
Sesungguhnya nas-nas sangat gamblang menjelaskan bahwa yang benar adalah Jumat itu tak ada shalat sunnah qobliyahnya dan tak ada lagi setelah kebenaran itu kecuali kesesatan…”.[Lihat Al-Qoul Al-Mubin (hal.361)]

Setelah kita mendengarkan fatwa-fatwa para ulama’ di atas, maka kita mengetahui bahwa tak ada tuntunannya seorang muslim melakukan shalat sunnah 2 raka’at qobliyyah jum’at. Namun jika seorang masuk ke masjid, boleh baginya shalat 2 raka’at walaupun sebelum dan sesudah adzan jum’at atau khotib sedang khutbah. Tapi tentunya ini bukan shalat qobliyah jum’at, tapi disebut "shalat tahiyyatul masjid". Demikian pula disyari’atkan shalat sebanyak-banyaknya sebelum datangnya naik mimbar, tanpa terbatas dan terikat dengan bilangan tertentu. Ini yang disebut "shalat sunnat muthlaq", bukan shalat Sunnah qobliyah jum’at !!

Sumber : Buletin Jum’at Al-Atsariyyah edisi 57 Tahun I. Penerbit : Pustaka Ibnu Abbas. Alamat : Pesantren Tanwirus

http://www.alquran-sunnah.com/artikel/murajaa/350-adakah-sholat-sunnah-qobliyah- jumat.html

Cara menggunakan Slash

2011-04-02T05:24:00.004+07:00

ketika nama anda memasukan input yang menggunakan quarte ( ' ) atau tanda kutip maka akan ditampilkan dengan tanda backslash ( / ).

tentu saja hal yang kita inginkan keluaran atau hasilnya tidak sama sehingga membuat kita jengkel atau kesel. seperti contoh de'dy tetapi setelah terjadi proses hasilnya seperti de\'dy sehingga membuat kita jengkel.

nah ini ada cara memperbaiki keadaan tersebut dengan menggunakan stripslashes(), ini untuk membantu mengembalikan data yang asli dan yang kita inginkan

ini adalah kodenya :

<?
echo "<form action='$PHP_SELF'method='POST'>
Masukkan nama anda ...<br>
<input type='text'name='nama'size=30><br><br>
<input type='submit'name='submit'value='PROSES'>
</form>";

if ($submit) {
if (empty($nama)) {
echo "Anda harus mengisikan nama..!!";
} else {

$escape=stripslashes($nama);
echo "Data Asli : $nama";
echo "<br>";
echo "Hasil :$escape";
}
}
?>

jika anda ingin menambahkan sesuatu yang menarik dengan menggunakan PHP, untuk tidak enggan mengirim dan membagi ilmunya kepada semua khususnya kepada saya. amat sangat berartinya dan berharganya, saya ucapkan terima kasih sedalam-dalamnya.

Code for restart/shut down PC

2011-04-02T04:13:00.003+07:00

tambahkan 5 command buttons
lalu ganti nama command buttons tersebut sesuai dengan yang tertera: 'cmdRestart; cmdLogOff; cmdForceLogOff; cmdShutdown; cmdForceShutdown

Option Explicit
Private Const EWX_LogOff As Long = 0
Private Const EWX_SHUTDOWN As Long = 1
Private Const EWX_REBOOT As Long = 2
Private Const EWX_FORCE As Long = 4
Private Const EWX_POWEROFF As Long = 8

Private Declare Function ExitWindowsEx Lib "user32" _
(ByVal dwOptions As Long, _
ByVal dwReserved As Long) As Long

Private Type LUID
UsedPart As Long
IgnoredForNowHigh32BitPart As Long
End Type

Private Type LUID_AND_ATTRIBUTES
TheLuid As LUID
Attributes As Long
End Type
Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
TheLuid As LUID
Attributes As Long
End Type

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Private Declare Function OpenProcessToken Lib "advapi32" _
(ByVal ProcessHandle As Long, _
ByVal DesiredAccess As Long, _
TokenHandle As Long) As Long

Private Declare Function LookupPrivilegeValue Lib "advapi32" _
Alias "LookupPrivilegeValueA" _
(ByVal lpSystemName As String, _
ByVal lpName As String, _
lpLuid As LUID) As Long

Private Declare Function AdjustTokenPrivileges Lib "advapi32" _
(ByVal TokenHandle As Long, _
ByVal DisableAllPrivileges As Long, _
NewState As TOKEN_PRIVILEGES, _
ByVal BufferLength As Long, _
PreviousState As TOKEN_PRIVILEGES, _
ReturnLength As Long) As Long

Private Declare Sub SetLastError Lib "kernel32" _
(ByVal dwErrCode As Long)

Private Sub AdjustToken()

Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2

Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long

SetLastError 0

hdlProcessHandle = GetCurrentProcess()

OpenProcessToken hdlProcessHandle, _
(TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle

LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid

tkp.PrivilegeCount = 1
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED

AdjustTokenPrivileges hdlTokenHandle, _
False, _
tkp, _
Len(tkpNewButIgnored), _
tkpNewButIgnored, _
lBufferNeeded
End Sub

Private Sub cmdForceShutdown_Click()
AdjustToken
ExitWindowsEx (EWX_SHUTDOWN Or EWX_FORCE), &HFFFF
End Sub

Private Sub cmdLogoff_Click()
ExitWindowsEx (EWX_LogOff), &HFFFF
End Sub

Private Sub cmdForceLogoff_Click()
ExitWindowsEx (EWX_LogOff Or EWX_FORCE), &HFFFF
End Sub

Private Sub cmdRestart_Click()
AdjustToken
ExitWindowsEx (EWX_REBOOT), &HFFFF
End Sub

Private Sub cmdShutdown_Click()
AdjustToken
ExitWindowsEx (EWX_SHUTDOWN), &HFFFF
End Sub

Private Sub Form_Load()

End Sub]

catatan: belum dicoba,,semoga berhasil...

good luck..!!

Dayyuts

2011-04-02T03:37:00.009+07:00

Istilah "suami takut istri" bukan hanya ada di televisi. Saat ini banyak kita jumpai seorang suami yang bertekuk lutut di bawah ketiak istri. Alih-alih mengarahkan dan membimbing istrinya, malahan dia selalu di bawah instruksi dan arahannya. Akibatnya dia tak berani melarang ketika istrinya bermaksiat. Misalnya, dia membiarkan istrinya bergaul bebas dengan teman lakinya, membiarkannya nongkrong di pinggir jalan bersama laki-laki lain, membiarkannya keluar rumah tanpa berjilbab, dan bentuk pelanggaran syari’at lainnya.

Sungguh tak layak suami berperilaku dan bermental seperti ini. Karena Allah telah menetapkannya sebagai pemimpin dalam rumah tangganya, pemimpin atas anak dan istrinya, dan kelak dia akan dimintai pertanggungjawaban atas apa yang dipimpinnya.

Dari Ibnu Umar radliyallah 'anhuma, dari Nabi shallallahu 'alaihi wasallam, bersabda:

كُلُّكُمْ رَاعٍ فَمَسْئُولٌ عَنْ رَعِيَّتِهِ، فَالأَمِيرُ الَّذِى عَلَى النَّاسِ رَاعٍ وَهْوَ مَسْئُولٌ عَنْهُمْ، وَالرَّجُلُ رَاعٍ عَلَى أَهْلِ بَيْتِهِ وَهْوَ مَسْئُولٌ عَنْهُمْ،

"Setiap kalian ra'in (penanggung jawab) dan masing-masing akan ditanya tentang tanggungjawabnya. Penguasa adalah penanggung jawab atas rakyatnya, dan akan ditanya tentangnya. Suami menjadi penanggung jawab dalam keluarganya, dan akan ditanya tentangnya." (Muttafaq 'Alaih)

Makna ra’in adalah seorang penjaga, yang diberi amanah, yang harus memegangi perkara yang dapat membaikkan amanah yang ada dalam penjagaannya. Ia dituntut untuk berlaku adil dan menunaikan perkara yang dapat memberi maslahat bagi apa yang diamanahkan kepadanya. (Al-Minhaj 12/417, Fathul Bari, 13/140)

Dalam sebuah hadits marfu', dari Ibnu Umar radliyallahu ‘anhuma, Rasulullah shallallahu ‘alaihi wasallam bersabda,

ثَلاَثَةٌ لاَ يَدْخُلُوْنَ الْجَنَّةَ : اَلْعَاقُ لِوَالِدَيْهِ ، وَالدَّيُّوْثُ ، وَرَجْلَةُ النِّسَاءِ

“Ada tiga golongan yang tidak akan dilihat oleh Allah pada hari kiamat nanti, yaitu orang yang durhaka kepada kedua orangtuanya, perempuan yang menyerupai laki-laki, dan ad-dayyuts . . . “ (HR. an-Nasa’i dan lainnya, dishahihkan oleh Al-Albani).

Makna ad-dayyuts adalah seorang suami atau ayah yang membiarkan kemaksiatan terjadi dalam keluarganya. Yaitu ketika dia melihat kemungkaran oleh anggota keluarganya, dia hanya diam saja dan tidak merubahnya.

Makna ad-dayyuts adalah seorang suami atau ayah yang membiarkan kemaksiatan terjadi dalam keluarganya.

Yaitu ketika dia melihat kemungkaran oleh anggota keluarganya, dia hanya diam saja dan tidak merubahnya.

Lawannya adalah al-ghayyur, yaitu orang yang memiliki kecemburuan besar terhadap keluarganya sehingga dia tidak membiarkan mereka berbuat maksiat.

Ancaman keras dalam hadits di atas menunjukkan bahwa perbuatan ini termasuk dosa besar yang dimurkai Allah. Salah satu ciri dosa besar adalah apabila perbuatan tersebut diancam akan mendapatkan balasan di akhirat berupa siksaan, kemurkaan, atau ancaman keras lainnya.

Imam Ad-Dzahabi dalam kitabnya, Al Kabair (kumpulan dosa-dosa besar) menempatkan perilaku diyatsah/ dayyuts dalam urutan dosa besar ketiga puluh empat.

Beliau mengatakan dalam bab liwath, "jika dia mengetahui istrinya telah berselingkuh (berzina) dan dia hanya diam saja (membiarkannya), maka Allah telah haramkan surga atasnya karena Allah telah menulis di pintu surga: 'Kamu haram dimasuki seorang dayyuts'. Yaitu orang yang mengetahui perbuatan buruk (zina) pada istrinya, tapi dia diam saja dan tidak cemburu."

Seorang suami yang dayyuts akan menyebabkan rusaknya agama dan akhlak anggota keluarga, sehingga layaklah suami dayyuts ini mendapatkan ancaman keras sebagaimana yang disebutkan dalam hadits di atas.

Imam Ibnul Qayyim rahimahullah ketika menjelaskan dampak buruk perbuatan maksiat di antaranya perbuatan ad-diyatsah/ad-dayyuts (membiarkan perbuatan buruk dalam keluarga) yang timbul karena lemah atau hilangnya sifat ghiirah (cemburu dan marah ketika syariat Allah dilanggar) dalam hati pelakunya. Beliau berkata, “. . . . oleh karena itulah, ad-dayyuts adalah makhluk Allah yang paling buruk dan diharamkan masuk surga. Demikian juga orang yang membolehkan dan menganggap baik perbuatan dzalim dan melampaui batas bagi orang lain. Maka perhatikanlah akibat yang ditimbulkan karena lemahnya sifat ghiirah (dalam diri seseorang)."

. . . . oleh karena itulah, ad-dayyuts adalah makhluk Allah yang paling buruk dan diharamkan masuk surga.

Beliau melanjutkan, "ini semua menunjukkan bahwa asal pokok agama seseorang adalah sifat ghiirah. Barangsiapa yang tidak memiliki sifat ghiirah maka berarti dia tidak memiliki agama (iman). Karena sifat ghiirah inilah yang akan menghidupkan hati (manusia) yang kemudian akan menghidupkan anggota tubuhnya, sehingga anggota tubuhnya akan menolak perbuatan buruk dan keji. Sebaliknya, hilangnya sifat ghiirah akan mematikan hatinya, yang kemudian akan mematikan kebaikan anggota tubuhnya, sehingga sama sekali tak ada penolakan terhadap keburukan dalam dirinya. . . “ (kitab Ad-Da-u wad Dawaa’, hal. 84).

Sifat ghiirah di dalam hati ibarat anti bodi bagi tubuh yang berfungsi melawan penyakit dan memperkuat tubuh. Jika anti bodi ini hilang maka badan akan hancur.

Ad-Dayuts akan membiarkan keburukan pada agama istri dan anak-anaknya. Yaitu dengan membiarkan atau menuruti kemauan mereka dalam perkara yang bertentangan dengan syari’at. Ini berarti menjerumuskan mereka ke dalam jurang kehancuran.

Seorang istri, bagaimanapun baik sifat asalnya, tetap saja dia seorang perempuan yang lemah dan susah untuk diluruskan. Maka seseorang yang keadaannya sedemikian ini tentu sangat membutuhkan bimbingan dan pengarahan dari seorang laki-laki yang memiliki akal, kekuatan, kesabaran, dan kasih sayang. Karena itu, jangan pernah bosan menasihati istrimu.

“Jagalah dirimu dan keluargamu dari api neraka . . .” (QS. At-Tahrim: 6)

Wahai para suami, janganlah kalian menjadi ad-Dayyuts!!. (PurWD/voa-islam.com).

Al Wala` Wal Bara

2011-04-02T03:19:00.003+07:00

'' Pandangan ulama ahlusunnah tentang perdebatan ''

Perdebatan yang Tercela
Kaidah kedua dalam beramal dengan sunnahadalah ditampakkannya sunnah tersebut dan jangan diperdebatkan. Yang dimaksud dengan diperdebatkan di siniadalah debat yang mewarisi kebencian dan dendam. Kebanyakan perdebatan dalam masalah ilmu (agama) itu mengantarkan kepada permusuhan, (semata-mata) berbantahan, riya`, kedengkian, dendam danberprasangka buruk kepada ' ulama , mencelanya dan menuduhnya dengan kebathilan dan akibat jelek lainnya dari perkara-perkara yang diharamkan. Dan tidakragu lagi, bahwa debat ini adalah siksaan (balasan jelek) dari Allah subhanahu wa ta'ala.
Karena alasan inilah, Rasulullah memperingatkan dari berdebat apabila tidakdengan cara yang lebih baik, sebagaimana beliau telah bersabda:
"Tidaklah suatu kaum menjadi sesat setelah mendapatkan petunjuk yang mereka dulu berada di atasnya, kecuali setelah didatangkan jidal ( perdebatan ) kepada mereka." (HR. Ahmad 5/252, 256, At-Tirmidziy no.3250 dan dia berkata: hasan shahih dan Ibnu Majah no.48 dari Abu Umamah)
Banyak sekali ungkapan para imam dalam memperingatkan manusia dari perdebatan dan penjelasan tentang kerusakannya. Hingga Al-Imam Malik rahimahullah mengatakan: " Perdebatan dalam masalah agama akan menumbuhkan sifat riya`, menghilangkan cahaya ilmu dari hati dan mengeraskannya serta mewariskan dendam." (Siyar A'laamin Nubalaa` 8/106 dan semisalnya dari Asy-Syafi'iy sebagaimana dalam As-Siyar 10/28)
Berkata sebagian ' ulama Salaf: "Apabila Allah menghendaki kebaikan terhadap seorang hamba maka akan dibukakan baginya pintu amal dan akan ditutup darinya pintu perdebatan , dan (sebaliknya) apabila Allah menghendaki kejelekan terhadap seorang hamba, maka akan ditutup darinya pintu amal dan akan dibukakan untuknya pintu perdebatan ." (Fadhlu 'Ilmis Salaf 'alal Khalaf hal. 86, Ibnu Rajab Al-Hambaliy)
Al-Hasan Al-Bashriy mendengar suatu kaum saling berdebat, maka beliau berkata:"Mereka ini adalah suatu kaum yang sudah bosan akan ibadah dan telah menjadi ringan atas mereka perkataan dan telah sedikit wara' mereka lalu mereka pun berkata (sukaberdebat -pent.)." (Ibid hal.89)
Berkata Al-Imam Ibnu Rajab Al-Hambaliy:"Sungguh telah terfitnah kebanyakan dari kalangan orang-orang belakangan dengan permasalahan ini ( perdebatan ), lalu mereka menyangka bahwa orang yang banyak pembicaraannya, perdebatannya dan perselisihannya dalam masalah-masalah agama maka dia adalah orang yang lebih tahu daripada orang yang keadaannya tidak demikian, dan ini (sebenarnya) adalah kebodohan yang murni � maka bukanlah ilmu itu dengan banyaknya riwayat dan bukan pula dengan banyaknya ucapan, akan tetapi (ilmu itu adalah) cahaya yang dimasukkan ke dalam hati, yang seorang hamba akan memahami kebenaran dengan ilmu tersebut dan dia akan bisa membedakan dengan ilmu tersebut antara Al-Haq (kebenaran) dengan kebathilan." (Ibid hal.93-94)
Berkata Al-Imam Abu Bakr Al-Ajurriy setelah memperingatkan dari perbantahan dalam masalah ilmu dan banyak berdebat padanya:"Maka apabila ada orang yang berkata: lalu apa yang akan bisa diperbuat pada ilmu yang telah menjadi samar atasnya?" Dikatakan untuknya: "Apabila keadaannya demikian dan dia menginginkan kemantapan dalam ilmu yang masih samar atasnya (hendaklah dia) menyengaja mendatangi seorang 'alim dari golongan orang-orang yang mengetahui (dan katakankepadanya) bahwasanya dia menginginkan dengan ilmunya tersebut (ridha) Allah ... laludia mempelajarinya sebagaimana orang yang mencari faidah mempelajarinya dan beritahukan kepadanya bahwasanya perdebatanku kepadamu adalah perdebatannya orang yang mencari kebenaran, bukan perdebatannya orang yang ingin pertengkaran, perselisihan dan mencari kemenangan, kemudian ikatlah dirinya dengan sifat keadilan untuknya dalam perdebatannya itu." (Akhlaaqul 'Ulamaa` hal.41)
Al-Imam Ibnul Jauziy telah memperingatkan dari talbiis (tipu daya/makar/pengkaburannya) Iblis terhadap ' ulama dan para penuntut 'ilmu dalam masalah-masalah perdebatan , lalu beliau berkata:"Sesungguhnya salah seorang di antara mereka telah jelas baginya bahwa kebenaran itu berada pada lawan bicaranya dan dia tidak ruju' (kembali kepada Al-Haq) dan dadanya menjadi sempit (dengan mengatakan) bagaimana tampak kebenaran itu bersama lawan bicaranya dan kadang-kadang ia bersungguh-sungguh dalam membantahnya bersamaan pengetahuannyabahwasanya (lawannya itu) benar, maka ini adalah dari sejelek-jeleknya kejelekan, karena sesungguhnya perdebatan itu digunakan untuk menerangkan kebenaran, dan sungguh berkata Al-Imam Asy-Syafi'i:"Tidaklah aku mendebat seorangpun, lalu dia mengingkari hujjah kecuali telah terputus dari kedua mataku (artinya aku tinggalkan dia -pent.) dan tidaklah dia menerimanya kecuali karena ketajamannya."(Talbiisu Ibliis hal. 120) [Lihat Aadaabu Thaalibil 'Ilm hal.58-60]
Maka kewajiban bagi seorang yang mencari hidayah (petunjuk) untuk menjelaskan sunnah kepada manusia dan menegakkan hujjah-hujjah atasnya, serta menggunakan di jalan tersebut cara-cara yang memuaskan,walaupun tidak diterima darinya (yang penting sunnah tersebut sudah diterangkan dan dijelaskan kepada manusia-pent.). Tidakada kewajiban bagi seorang rasul, kecuali menyampaikan dengan jelas.
Al-Imam Ahmad berkata: "Kabarkan sunnah dan jangan saling berbantahan di atasnya." (Thabaqaat Al-Hanaabilah, Ibnu Abi Ya'la 1/236)
Al-Haitsam bin Jamil berkata: "Aku berkata kepada Malik bin Anas: "Wahai Aba 'Abdillah, seseorang yang berilmu (mengerti) tentang sunnah, bolehkah didebat?" Ia berkata:"Tidak. Akan tetapi hendaknya ia diberitahu tentang sunnah, jika diterima darinya (itulah yang diharapkan -pent.) dan jika tidak, diam saja." (Jaami' Bayaanil 'Ilmi wa Fadhlih 2/94)
Semua ini adalah perdebatan yang tercela, yang akan tumbuh darinya sekian kerusakansampai musnah kemaslahatan dari sisinya.
Perdebatan yang Terpuji
Adapun beradu pendapat (argumen) dengancara yang baik, yaitu dengan tujuan mencari kebenaran dan tidak terkandung maksud yang akan mengeluarkannya dari tujuan tersebut, maka sangatlah baik hal itu, (yakni) diterangkannya kebenaran, pengarahan kepada jalan yang lurus serta bimbingan kepada tempat-tempat yang benar. (Al-Faqiih wal Mutafaqqih hal.222)
Maka ketika terjadi adu pendapat, berhati-hatilah agar tidak menjadi sebab perpecahan, pertentangan dan permusuhan antara sesama saudara sesama muslim. Dan sedikit sekali suatu perdebatan yang bisa lepas dari akibat yang seperti itu. Kita memohon kepada Allah kesehatan dan keselamatan.
Berkata Al-Imam Asy-Syafi'i: "Tidaklah aku berbicara kepada seorangpun begitu saja kecuali aku menyukai kalau dia menunjuki aku, meluruskanku dan membantuku dan hal itu merupakan perhatian dan penjagaan dari Allah atasnya dan tidaklah aku berbicarakepada seorangpun begitu saja kecuali saya tidak peduli apakah Allah menjelaskan kebenaran melalui lisanku atau lisannya." (Al-Faqiih wal Mutafaqqih 2/26 dari AadaabuThaalibil 'Ilm hal.60)
Berkata Yunus Ash-Shafadiy: "Tidak pernah saya melihat seorang yang lebih berakal dariAsy-Syafi'iy. Suatu hari saya mendebatnya dalam suatu masalah, kemudian kami berpisah. Lalu ia menemuiku dan memegangtanganku kemudian berkata: "Wahai Abu Musa, tidakkah salah kita menjadi saudara, walaupun kita tidak sepakat dalam satu masalah?"
Adz-Dzahabiy berkata dalam mengomentari kejadian tersebut: "Saya berkata: Hal ini menunjukkan kesempurnaan akal dan kefaqihan imam ini, yang mana para ahli debat itu (biasanya) senantiasa berselisih." (Siyar A'laamin Nubalaa` 10/16-17)
Ibnu 'Abdil Barr mengeluarkan (riwayat): Dari Al-'Abbas bin 'Abdil 'Azhim Al-'Anbariy, ia berkata: "Pernah aku berada di tempat Al-Imam Ahmad bin Hambal, lalu datang 'Ali ibnul Madiniy kepadanya dengan mengendarai tunggangannya." Dia (Al-'Anbariy) berkata: "Keduanya saling berdebat tentang asy-syahaadah (persaksian). Meninggi suara keduanya, sehingga aku khawatir akan terjadi kekerasan di antara mereka berdua. Al-Imam Ahmad berpendapat, bahwa asy-syahaadah itu ada, sedangkan 'Ali Ibnul Madiniy menolak dan menentangnya. Maka ketika Ibnul Madiniy hendak pergi, Al-Imam Ahmad bangkit lalu memegang kendaraannya (Ibnul Madiniy)." (Jaami' Bayaanil 'Ilmi wa Fadhlih 2/107)
Berkata Syaikhul Islam: "Demikianlah para ' ulama dari kalangan shahabat, tabi'in dan orang setelah mereka, jika sedang bertentangan dalam suatu masalah, mereka mengikuti perintah Allah subhanahu wa ta'ala: "Kemudian jika kalian berlainan pendapat tentang sesuatu, maka kembalikanlah ia kepada Allah (Al-Qur`an) dan Rasul (Sunnahnya)." (An-Nisaa`:59)
Mereka berdebat dalam suatu masalah secara musyawarah dan saling menasehati yang mungkin saja terjadi perselisihan pendapat dalam suatu masalah 'ilmiyyah atau 'amaliyyah, namun mereka tetap menjaga kerukunan, kehormatan dan persaudaraan dalam agama.
Tidak Boleh Menyelisihi Dalil yang Jelas
Memang benar, barangsiapa yang menyelisihi Al-Kitab dan As-Sunnah serta Ijma' As-Salafush Shalih dengan bentuk penyelisihan yang tidak diberi 'udzur di dalamnya, maka diperlakukan baginya sebagaimana ahli bid'ah. (Majmu' Fatawa 24/172)
Yaitu bagi orang yang sudah jelas baginya dalil baik dari Al-Qur`an, As-Sunnah ataupun Ijma'nya ' ulama ahlus sunnah namun ia menolaknya dikarenakan fanatik atau taqlid (membebek) terhadap madzhabnya atau pendapat gurunya, maka orang ini tidak dimaafkan, tidak boleh dihormati sedikitpunpendapatnya tersebut bahkan kita gabungkan dia dengan kelompok ahlul bid'ah.
Tidak Boleh Fanatik terhadap Madzhab
Dan Syaikhul Islam mencela orang-orang yang fanatik terhadap sunnah ijtihadiyyah yang mereka pegangi dan memusuhi orang yang menyelisihi mereka dalam masalah tersebut. Beliau mengatakan: "Adapun fanatik terhadap permasalahan tersebut dansemisalnya merupakan syi'ar perpecahan dan perselisihan yang kita telah dilarang darinya. Dan orang yang menyeru untuk itu, berarti dia lebih mengunggulkan syi'ar perpecahan di tengah-tengah ummat. Jika tidak, maka masalah-masalah ini termasuk masalah khilaf yang paling ringan, andai syaithan tidak menyeru kepadanya untuk menampakkan syi'ar-syi'ar perpecahan tersebut." (Majmu' Fatawa 22/405)
Artinya dalam permasalahan ijtihad fiqhiy yaitu perkara yang tidak nampak padanya sebuah dalil disertai dengan salah satu dari dua perkataan, bahkan kedua ucapan ini memungkinkan (untuk diambil -pent). Yang demikian ini tidak diingkari dalam perkara-perkara ijtihad, selama belum ada sesuatu yang merajihkan, tidak boleh mengingkari orang yang mengambil salah satu dari pendapat yang ada, dengan syarat tidak terdapat padanya sifat ta'ashshub (fanatik) atau hawa nafsu, tapi semata-mata tujuannya adalah kebenaran. (Syarh Masaa`ilAl-Jaahiliyyah, Al-Fauzan hal.46). Wallaahu A'lamu bish Shawaab.
Maraji': Dharuuratul Ihtimaam bis Sunanin Nabawiyyah; Aadaabu Thaalibil 'Ilmi dan Syarh Masaa`il Al-Jaahiliyyah.
Hukum Orang yang Berbuat Syirik
Pertanyaan:
Apa hukum orang yang beribadah kepada selain Allah dalam keadaan dia hidup di tengah-tengah kaum muslimin dan Al-Qur`an telah sampai kepadanya, maka apakah orang ini muslim yang bercampur dengan kesyirikan ataukah dia itu musyrik?
Jawaban:
Orang ini adalah musyrik, karena sesungguhnya dia tidak ma'dzur (dimaafkan) apabila dia hidup di tengah-tengah kaum muslimin karena firman Allah Ta'ala: "Dan telah diwahyukan Al-Qur`an ini kepadaku agar dengannya aku memberi peringatan kepada kalian dan kepada orang-orang yang telah sampai Al-Qur`an (kepadanya)" (Al-An'am:19). Maka barangsiapa yang telah sampai kepadanya Al-Qur`an maka sungguh telah tegak hujjah atasnya, dan Allah Ta'ala berfirman: "Dan Kami tidak akan mengadzab sebelum Kami mengutus seorang rasul." (Al-Isra`:15)
Maka barangsiapa yang telah sampai kepadanya Al-Qur`an dan juga dakwah (Islam) telah sampai kepadanya dan dia berbuat syirik dalam keadaan dia hidup di tengah-tengah kaum muslimin maka sesungguhnya dia adalah musyrik. Dan berkata sebagian Ahlul 'Ilmi: Sesungguhnya orang ini apabila tersembunyi atasnya terhadap apa yang terjadi padanya dari kesyirikan dengan sebab para da'i kesesatan dan kesyirikan dan dengan sebab banyaknyapara penyesat di sekitarnya dan tersembunyi atasnya perkara tersebut maka sesungguhnya dia dalam keadaan (seperti) ini, perkaranya diserahkan kepada Allah maka hukumnya adalah (sebagaimana) hukum ahlul fatrah (orang-orang yang belum sampai kepadanya rasul ataupun dakwah Islam) apabila dia tidak mengetahui(perkara tersebut). Akan tetapi apabila dia meninggal (sebelum dia bertaubat dari kesyirikannya) maka dia diperlakukan sebagaimana kita memperlakukan kaum musyrikin maka dia tidak boleh dimandikan, tidak boleh dishalati dan tidak boleh dikuburkan di pekuburan kaum muslimin.
Maka maksud (dari penjelasan di atas) adalah bahwasanya hukum asal (orang ini) adalah sesungguhnya dia tidak dimaafkan, akan tetapi seandainya didapati sebagian manusia tersembunyi atasnya (perkara kesyirikan tersebut) dengan sebab da'i-da'i kesyirikan dan kesesatan dan dia tidak mengetahui (perkara tersebut) maka kadang-kadang dikatakan: "dia ma'dzur (dimaafkan) pada keadaan ini dan perkaranya diserahkan kepada Allah Ta'ala, dan bagaimanapun juga wajib atasnya untuk mencari Al-Haq dan mengetahuinya serta berusaha untuk mendapatkannya sebagaimana dia mampu untuk berusaha dalam mencari ma'isyah (penghidupan)nya dan bertanya tentang jalan-jalan mencari usaha, maka wajib atasnya untuk bertanya tentang agamanya dan bertanya tentang perkara yang masih samar atasnya, sedangkan keadaannya tidak mendengar Al-Haq dan tidak menerima Al-Haq dan pura-pura tuli dari mendengar Al-Haq maka orang ini tidak ma'dzur, inilah hukum asal (permasalahan tersebut). Wallaahu A'lamu bish Shawaab.
(Diambil dari kitab As`ilah wa Ajwibah 'anil iimaan wal Kufr)

ADAKAH YANG SALAH DALAM WUDHU KITA?

2011-04-02T02:52:00.004+07:00

Sebagaimana telah diketahui bahwa Allah Subhana Wa Ta’ala mewajibkan shalat lima waktu kepada kita. Di antara kita ada yang baik dalam menunaikannya dan ada pula yang buruk. Oleh sebab itu, wajib bagi setiap muslim untuk bersungguh-sungguh dalam menunaikannya semaksimal mungkin, supaya sempurna amalannya, dan penuh pahalanya.

Salah satu sebab berkurangnya pahala shalat adalah apa yang terjadi pada sebagian orang yang shalat berupa perkara-perkara yang menyelisihi shalat Nabi Shallallahu Alaihi Wa Sallam, padahal beliau telah bersabda, “Shalatlah kalian sebagaimana kalian melihatku shalat.” (HR. Bukhari)

Demikian juga apa yang terjadi dari sebagian mereka berupa kesalahan dan kekurangan dalam wudhu, dan tidak membaguskannya, padahal Nabi Shallallahu Alaihi Wa Sallam bersabda : “Barang siapa yang berwudhu seperti apa yang diperintahkan, diampuni dosanya yang telah lalu.”(HR.Ahmad dan an-Nasa’i).

Oleh karena itu pentingnya setiap muslim memperhatikan kesalahan-kesalahan yang biasa dilakukan dalam thaharah (bersuci), menjauhinya dan menasehati orang-orang yang terjerumus ke dalamnya supaya meninggalkannya dan agar kita semua meraih pahalanya. Rasulullah Shallallahu Alaihi wa Sallam bersabda, “Barangsiapa yang menunjukkan kepada kebaikan, maka baginya pahala seperti pahala orang yang mengamalkannya.”

Renung

2009-02-18T14:55:00.009+07:00

Pernah sekali gue membayangkan gimana rasanya punya mimpi yang bisa menjadi kenyataan???? karena gue pengen banget impian ini bisa tercapai.
tapi memang butuh pengorbanan dan niat,dengan niat kita punya keyakinan,dan pengorbanan adalah jalan hidup yang berliku-liku panjang.
pikir gue "apa bisa mimpi menjadi kenyataan?"
dengan perasaan penasaran gue tetap optimis karena suatu saat harus menjadi kenyataan,kata bathin gue tidak untuk berkata tidak,tapi berkata iya tuk terus mencapai mimpi gue yang harus diabadikan hingga akhir hayat masih dikandung badan.

dulu gue pengen banget orang tua pergi haji,karena itulah mimpi yang selama ini terus ada dipikiran gue dan itu adalah cita-cita yang gue harapkan.
karena gue gak pernah bercita-cita atau memimpikan menjadi orang sukses atau terkenal.
pikiran gue selalu tertuju pada dua manusia yang telah memperjuangkan seluruh jiwa dan raga untuk anaknya,dibenak gue hanya bagaimana bisa membahagiakan keduanya walau diri gue ini hanyalah manusia yang terhina dimata dunia tapi gue akan berusaha tidak terhina dimata Allah SWT dan menjadi hamba sebaik-baiknya.
hanya merenung dan berpikir bagaimana bisa memberangkatkan haji tuk keduanya sedangkan gue belum dapat kerja???

walau ibu gue sudah berangkat haji tapi tetap keinginan gue tuk memberangkatkan salah satunya,yaitu bapak gue.

"Ya Allah jika kau mendengar dan merasakan perasaan hambaMu.
berilah kebaikan pada kedua orang tuaku.
jadikan doa dan ibadahku selimut mereka di alam kubur.
jadikanlah aku perisai mereka saat di akhirat nanti
jika Kau menghukum mereka gantilah dengan diriku.
biar...biarlah aku yang menanggung.
aku sadar dan aku tahu neraka itu lebih panas.
lebih panas dari api didunia
dan aku juga menyadari bahwa aku juga punya dosa
aku pun pasti juga terhukum
tapi jangan Engkau biarkan mereka orang tuaku terhukum
biarlah aku yang menanggung semua kesalahan mereka..".

gue dah berusaha sana-sini lewat media koran, internet
tapi hasilnya hanya dipanggil tuk interview dan test
tak kurang 2 tahun gue kerja sambilan dengan menjaga warnet
tapi itu pun belum seberapa gajinya tuk membahagiakan mereka

hari demi hari berlalu, dimana bapak gue sakit dan harus dirawat dirumah sakit
dengan biaya yang tidak sedikit,dimana gue sedang diuji kesabaran.
pusying dan bingung harus cari duit dimana?sedang gaji gue belum ada.
gue hanya bisa bersedih dan merenung,kenapa bapak gue sakit saat gue belum dapat kerja?kata hati gue.
memang kita tidak bisa lepas dari sakit apalagi kematian.
karena gue gak mau terbawa kesedihan yang mendalam,gue basuh muka tuk berwudhu dan melanjutkan dengan shalat,supaya hati gue tenang dan berharap memohon agar diberi ketabahan atas musibah yang menimpa gue.selesai shalat gak henti-hentinya gue berdoa.

Tapi yang namanya takdir semua sudah ditentukan lain walau kita berharap diberi kesembuhan dan sehat kembali.

Hari ke hari gue lalui tanpa aluan yang pasti, karena bapak gue berangsur-angsur kesehatannya semakin memburuk,semakin sedih gue karena cita-cita tuk memberangkatkan kedua orang tua pergi haji yang selama ini gue tanam dihati tidak menjadi kenyataan.

hancur sudah harapan gue,apa yang selama ini gue dambakan sirna sudah dengan kesedihan ini,gue sedih karena cita-cita gue ini terbawa dengan selimut putih yang menutupi jenazah bapak gue,hari itu bener-bener sedih banget sampe mengeluarkan air mata.

tapi gue tetap tegar agar suatu saat gue bisa membuat yang terbaik tuk mereka.
gua gak akan menyia-nyiakan nafas dan jiwa gue selama didunia ini tuk mereka.

Hampa

2008-08-02T16:28:00.003+07:00

wahai jiwa yang mengarungi raga
ku tak bisa sempurna tanpamu
engkau anugerah dari Tuhanku
tanpamu ku tak berdaya

Tuhan yang memiliki jiwa
bantu aku menyebut namaMu
jangan biarkan ku tersiksa
ku hanya ingin bersamaMu

Ku sadari hidup ini indah
dengan ayat-ayat qur'an yang bertakbir
mengagungkan nama besarMu Ya Rabb
ijinkan aku menggapai ridhaMu

Hampa hatiku jauh dariMu
gelap dan sunyi menghantui
ingin rasanya ku berlari
mengejar cahyaMu Ya Rabb

Hidup dan matiku ditanganMu
mengikat perjanjian dengan rohku
kasih dan sayangMu menyejukkan hati
ku tak tahu berkata-kata indah

Ya Rabb ku malu diri ini
lemah malas terhina dan bodoh
malu dengan keagunganMu
yang selalu mengawasi disetiap waktu

Terasa hampa sekali kuberjalan
mengarungi kesunyian hidup
tanpa cahaya Rabb...

Jalanku tak Panjang

2008-07-28T18:48:00.003+07:00

dinginnya malam mengusik tidurku
mengingatkanku pada masa lalu
masa lalu yang suram menjemukkan
karena tidak ada cinta dan kasih sayang
tuk ku bertahan hidup

ku merenung meratap sebuah bulan
begitu indah menutup bola mataku
kau disana bahagia ditemani bintang
menyinari dunia tanpa kesombongan
kau tidak terhina dan ternoda

kusadari semua yang terjadi pada diriku
bahwa hidup didunia pasti berlalu
karena hidup dan jalanku tak panjang
menyusuri gemerlapnya dunia

Kelambu Hatiku Berkata

2008-07-26T14:21:00.002+07:00

Hari ku lalui dengan hambar
Tanpa ada rasa senang dan suka cita
Hidup dan dunia ini menyiksa batinku
Mengurung dan memuakkan tubuh kurusku

Bangkitlah jiwa dan ragaku
Lawanlah sekuat tenaga dan pikiranmu
Tuntaskanlah masalah dengan hati nuranimu
Berjuang dengan ketidak putus asaanmu

Berucap belum tentu bertindak
Bertindak tentu sama dengan berucap
Hati dan pikiran bersatulah
Musnahkan kebodohan dunia ini

Wahai jiwa yang mengarungi raga
Kuatkanlah hati dan pikiranku
Wahai jiwa yang mengikat hatiku
Berilah cinta dan kasih sayangmu

Jeritan tangis menyesakkan kalbu
Tak peduli kau siapa diriku
Karena dunia tak mengenal kasih
Begitulah hidup yang kujalani

Semua itu Takdir

2008-07-25T15:59:00.007+07:00

Pagi hari yang cerah membuat ku terperanjak bangun dari tempat tidur, ku buka jendela dan sinar mentari pagi menyambut diriku yang belum mandi. Dengan sedikit malas karena badan masih lemas, kuberusaha menggapai handuk yang berada di pintu kamar tidurku.

Jam menunjuk pukul delapan pagi, bergegas aku kekamar mandi dan mandi. Ku pakai baju kemudian mengeluarkan motor, bergegasku kerumah orang tuaku tanpa ada pikiran dan perasaan apa-apa, tiba-tiba setelah sampai kakakku menceritakan sesuatu kejadian dimana bapakku masuk rumah sakit.

Yang tadinya hatiku senang mendadak berubah drastis menjadi kesedihan, ku hanya merenung dan sedih mendengar semua ini, bagai mimpi yang menjadi kenyataan, aku bingung melamun apa yang sedang terjadi, karena selama ini dalam keluargaku semuanya pada baik-baik saja tiba-tiba berubah menjadi kesedihan.

Hatiku sedih dan pikiranku kosong seakan tak percaya dengan takdir yang diberikan Sang Khalik, kutegar dan kukuatkan hatiku dengan beristighfar semua yang ada dipikiranku kucoba untuk kualihkan dengan berdoa kepada Rabb-Nya semesta alam agar aku diberikan hidayah dan kekuatan supaya hati ini tegar dan sabar.

Ku terus berdzikir dan berdoa sambil mengendarai motor tak kuasa kumenahan pedih hati ini dan terasa pula air mata menetes membasahi pipi, sambil menahan rasa sedih karena ku mengendarai motor agar tidak terjadi hal-hal yang tidak diinginkan, Alhamdulillah aku selamat sampai rumah sakit dimana bapakku dibawa dengan tegar ku berjalan dengan terus menyebut nama Allah agar semua yang terjadi padaku menjadikan aku menjadi hamba yang sabar.

Tak kubayangkan dan tak kuduga, bapak yang dulu sehat dan kuat sekarang terbaring lemah tak berdaya ditempat tidur, hatiku masih tak percaya bahwa semua yang terjadi pada bapakku itu adalah benar-benar terjadi dan hatiku masih saja tidak mau mengikhlaskan semua itu terjadi. kucoba tuk terus beristighfar dan membimbing bapakku yang koma, sedih dan menyesal diri ini karena aku begitu egois dan membangkang waktu bapakku memerintahkan diriku walau hanya sepele semasa sehatnya bapakku sekarang yang ada hanyalah penyesalan dan kebodohan yang kubawa mati dalam diriku.

Kulihat wajah yang dulu bagiku galak berangsur-angsur punah dengan keceriaan, seperti tidak ada lagi beban yang ditanggungnya, dan kulihat bibirnya yang dulu kulihat sering mengomeli diriku kini berubah dengan tersenyum seakan-akan menyambut malaikat dengan salam dan ikhlas untuk membawanya pergi ketempat dimana para tabiin-tabiin terdahulu ditempatkan yaitu surganya Allah SWT.

Jam menunjukkan pukul sebelas siang dimana inilah akhirku melihat seorang bapak yang membesarkan, mendidik dan menasehatiku dengan kata-kata bijak yang selalu terngiang sampai sekarang didalam pikiranku.

Rasa penyesalan pasti ada dan selalu belakangan, kutak tahu harus berbuat apa dan bagaimana lagi untuk membuat orang tuaku senang dan bahagia karena bapakku sudah tidak lagi ada disisiku walau perasaanku masih merasakan rasa kasih sayangnya.

Ku berdoa dan ku yakin bahwa ini adalah takdir yang harus kuterima, karena tidak ada yang abadi kecuali Allah SWT. semoga ini menjadikan aku menjadi lebih sabar dan taat beribadah.

Bapak kau adalah perisai bagi keluargamu, bekerja membanting tulang tuk sesuap nasi tanpa lelah menghampiri dirimu, kau hiraukan udara dingin dan panas matahari menyentuh kulit tubuhmu, besar perjuangan yang telah kau berikan terhadapku, kata-kata bijak yang kau ucapkan menjadi tuntunan bagi diriku, semoga apa yang membuat kau kesal kepadaku berubah menjadi doa sepanjang hidupku menjagamu dialam kubur dan membawamu ke surga yang diidam-idamkan umat muslim. Amien.

Ya Allah kau penguasa langit dan bumi, ijinkan aku memohon, meminta untuk menjadikan aku hamba yang selalu tunduk kepadaMu, bersujud dan mendekatkan diri setiap waktu. Ya Allah kau yang membangkitkan dan mematikan semua makhluk, kabulkanlah permohonan hambaMu yang hina dan bodoh serta lemah dihadapanMu, ampunilah dosaku, dosa ibu-bapakku, dosa saudara-saudaraku baik yang dekat maupun saudara sesama muslim, tempatkanlah mereka kedalam surgaMu karena mereka telah berjuang bersemangat dan berbakti serta tunduk kepadaMu, Jadikanlah mereka semua umat-umat Nabi Muhammad yang Islam cintai. Ya Allah Kau adalah pelindung bagi umat Nabi Muhammad, maafkan ucapanku dan terimalah doaku. Amien.

Semua Akan Kembali

2008-03-17T13:46:00.006+07:00

Inna lillahi Wa inna illahi Raji'un

Banyak sekali kemewahan, kemegahan, keindahan didalam dunia yang kita tempati ini.
sungguh indah nan rupawan jika kita melihat pemandangan alam yang Allah SWT ciptakan, sehingga kita terlupa akan siapa dan dari mana kita tercipta?

Melihat semua kemewahan yang tiada berhenti, membuat kita terus berpacu mengejar mimpi yang tak pasti jelas untuk bisa mendapatkannya?
kemegahan dunia yang begitu luar biasa kita memandangnya, membuat kita bernafsu untuk memburunya.

Sadarkah kita semua bahwa dunia yang megah, indah, dan mewah akan sirna begitu saja mengikuti waktu akan datangnya ajal.

Sungguh tak ku sangka dan tak ku duga ternyata apa-apa yang dekat denganku hilang tuk selama-lamaya, bagai mimpi tapi nyata yang tak kupercaya bahwa semua apa yang di alami orang lain pasti akan ku alami sendiri, apa yang dirasakan oleh orang lain pasti akan kurasakan sendiri.

Sedih, terharu hatiku begitu mendengar kabar dari kakakku bahwa tidak ada keabadian dan kesempurnaan didunia ini yang kekal dan semuanya akan musnah kecuali Allah SWT.

Hatiku runtuh remuk walau tegar dengan keimananku, bahwa yang bernyawa pasti mengalami mati, itulah yang terlintas dalam pikiranku.

Pernah aku membaca bahwa orang yang meninggal itu tidak mati selamanya melainkan hanya berganti tempat ketempat yang baru.

Cita-cita yang begitu aku muliakan dan agungkan sirna tanpa bekas terkubur dengan jasad yang begitu mulia untuk seorang ayah yang begitu bertanggung jawab terhadap keluarganya dan juga saudara-saudaranya, aku sedih bukan karena ditinggal seorang ayah melainkan aku sedih karena cita-cita yang begitu aku utamakan tak kesampaian, sungguh diluar daya pikirku cita-cita satu-satunya yang kuharapkan ternyata tidak terkabul dan hilang dengan terkuburnya seorang ayah.

Dengan cita-cita yang aku agungkan mungkin bisa membalas budi baik dari seorang ayah walau takkan bisa aku melunasinya, walau sedikit untuk membahagiakannya tapi itu sangat berharga dan berartinya untukku, karena tidak ada lagi yang bisa kuberbalas budi untuknya melainkan cita-citaku itu. mungkin dengan doa-doa yang ku panjatkan setiap habis shalat atau pun ku terbangun malam untuk shalat tahajjud tetapi itu tidak bisa hatiku tuk puas diri.

Semua itu kusadari bahwa apa yang telah Allah kehendaki apapun yang ada dibumi maupun yang ada dilangit untuk diambil-Nya tidak bisa kita cegah, karena semua itu milik Allah SWT.

Kini diriku hanya bisa berdoa untuk ayahku di alam sana agar doa yang kupanjatkan diterima oleh Allah supaya ayahku dimasukkan kedalam surga-Nya dan di jadikan umat nabi terakhir umat Islam yaitu Nabi Besar Muhammad SAW nanti.Amin. Ya Rabb ampunilah dosa kedua orangtuaku jadikanlah dia sebagai hamba yang selalu sujud dan tunduk kepada-Mu dan jadikanlah dia sebagai umat Nabi-Mu,jauhkanlah dia dari api neraka,dan berilah dia tempat yang layak disurga-Mu.Amin.

JANGAN DURHAKAI ORANG TUA

2008-02-04T11:05:00.001+07:00

Berbakti kepada orang tua disebut dengan istilah “Birrul Walidaini” sedangkan durhaka kepada orang tua disebut dengan istilah “Uququl Walidaini”. Durhaka kepada orang tua itu bisa berupa tidak mematuhi perintahnya, mengabaikan, menyakiti, meremehkan, memandang dengan pandangan buruk, mengucapkan kata-kata kotor atau kasar dan lain sebagainya.

Sebagai seorang anak dilarang mengucapkan kata-kata “ah”. Hal ini sesuai dengan firman Allah SWT. Dalam surat Al-Isra’ : 23.

Artinya : “Maka sekali-kali janganlah kamu mengatakan kepada keduanya perkataan “ah” dan janganlah kamu membentak mereka dan ucapkanlah kepada mereka perkataan yang mulia”.

Islam sangat membenci perbuatan atau sikap durhaka kepada orang tua, sehingga Allah SWT mengancam kepada anak yang durhaka kepada orang tua dengan siksaan yang sangat memilukan.
Hal ini dijelaskan dalam Al-Qur’an surat Al-Ahqaf : 18.

Artinya : “Mereka itulah orang-orang yang tidak pasti ketetapan (adzab) atas mereka bersama umat-umat yang telah berlalu sebelum mereka dari jin dan manusia. Sesungguhnya mereka adalah orang-orang yang merugi”.

Adapun contoh dari seorang anak yang durhaka kepada orang tua adalah putra Nabi Nuh as yang bernama Kan’an. Sewaktu banjit bah telah mulai dating dan bahtera berlayar membawa mereka menembus gelombang yang bagaikan gunung. Nabi Nuh as mengajak anaknya seraya berkata : “ Wahai anakku, naiklah ke atas kapal bersama kami dan janganlah kamu berada bersama orang-orang yang kafir”.

Kan’an berpikir bahwa kapal buatan ayahnya tidak mungkin bisa menyelamatkan dari amukan gelombang yang sangat besar. Maka dia menjawab ayahnya : “Akan mencari perlindungan ke gunung yang dapat memelihara (menyelamatkan) aku dari bah”.

Mendengar ucapan Kan’an, Nabi Nuh as sekali lagi mengingatkan kepada anaknya : “Tidak ada yang melindungi hari ini dari azab Allah selain Allah saja, Yang Maha Penyayang”.

Kan’an pun tetap pada pendiriannya, ia tetap mengikuti alur logikanya dan gelombang besar pun menjadi pemisah antara ayah dan dengan anaknya, dan Kan’an pun termasuk golongan orang yang ditenggelamkan oleh Allah SWT. Lantaran tidak beriman, durhaka kepada orang tuanya.

SORGA NERAKA ADA PADA ORANG TUA

2008-02-02T16:45:00.001+07:00

Merenungi Pengorbanan Orang Tua

"Dan Tuhanmu telah memerintahkan supaya kamu jangan menyembah selain Dia dan hendaklah kamu berbuat baik pada ibu bapakmu dengan sebaik-baiknya. Jika salah seorang di antara keduanya atau kedua-duanya sampai berumur lanjut dalam pemeliharaanmu, maka janganlah sekali-kali kamu mengatakan 'ah' dan janganlah kamu membentak mereka dan ucapkanlah kepada mereka perkataan yang baik." (QS al-Isra` [17]: 23)
Begitu santunnya Islam mengajarkan penghormatan kepada orang tua.

Bukan saja dari raut muka, bahkan perkataan "ah!" saja sudah terlarang. Apalagi menghardik dan bersikap keras atau kasar. Bahkan kita dilarang untuk memaki ibu bapak orang lain, sebab setiap kali kita memaki-maki orang tua orang lain, maka bisa jadi akan mengundang orang itu untuk memaki orang tua kita. Dan itu adalah kezaliman bagi orang tua. Harusnya kata-kata yang mulia saja yang keluar dari lisan kita.

Kalau saja kita mau secara jujur merenungi jasa dan pengorbanan orang tua, terlebih ibu kita, niscaya akan kita temui betapa tidak ternilainya kasih sayang mereka. Bayangkan! Sewaktu di perut ibu, sembilan bulan kita menghisap darahnya. Saat itu, ibu sulit berdiri dan berjalan pun berat, bahkan berbaringpun sakit. Tiga bulan pertama mual dan muntah karena ada kita di perutnya. Ketika kita akan terlahir ke dunia, ibu meregang nyawa antara hidup dan mati. Meskipun bersimbah darah dan sakit tiada terperi, tapi ibu tetap rela dengan kehadiran kita. Setelah lahir, satu persatu jari kita dihitungnya dan dibelainya. Di tengah rasa sakit, beliau tiba-tiba tersenyum dengan lelehan air mata bahagia melihat kita terlahir. Dan saat itu pula ibu menyangka akan lahir anak yang saleh yang memuliakannya.

Coba kita renungkan kembali! Pada waktu kita masih bayi, tidak kenal siang dan malam kita berbaring dan bangun sesuka hati. Padahal ibu kita hampir tidak tidur semalam suntuk. Rasanya, beliau tidak rela bila ada satu ekor nyamuk pun yang mengigit tubuh kita. Ketika kita mulai kecil mulai nakal, ibu bahagia memamerkan diri kita kepada tetangga-tetangganya.

Walaupun untuk itu beliau begitu direpotkan, berutang sana sini agar kita punya sepatu dan berpakaian layak. Ketika menjelang sekolah, ibu dan ayah sungguh-sungguh membanting tulang mencari nafkah, agar kita bisa sekolah seperti anak-anak yang lain. Walaupun mereka harus menahan lapar, namun puas asal anak-anaknya bisa kenyang.

Dalam kenyataannya, seiring pertumbuhan kita, tidak sebaik itu bakti kita kepada mereka. Semakin lama kita semakin besar, mata jadi sering sinis kepada orang tua. Jangankan mencium tangan ibunda, untuk sebuah senyum pun kita terkadang berat untuk melakukannya. Bahkan ucapan dan tindakan kita seakan seperti pisau yang sering mengiris hatinya. Lebih dari itu, sering seorang anak begitu mudah menyuruh-nyuruh orang tuanya. Tak ubahnya seperti pesuruh yang dihormati sekadarnya. Padahal tenaga, keringat, dan darah mereka habis untuk membela kita.

Lebih parah lagi, ada sebagian anak yang tidak mau memuliakan orang tuanya. Manakala orang tua semakin jompo dan si anak tidak mau mengurusnya, maka dititipkan orang tuanya di panti jompo, astagfirullah. Ini adalah perbuatan yang sangat tercela. Padahal dulu kita sangat menyusahkannya. Harusnya semua itu diingat-ingat.

Maka tak heran jika ada anak yang durhaka, anak yang tidak tahu balas budi, hidupnya di dunia ini akan diliputi penderitaan. Kita sering mendengar, betapa hukuman-hukuman Allah langsung diberikan pada anak-anak yang sering menzalimi orang tuanya. Oleh karena itu, marilah kita berusaha untuk selalu mengenang kembali semua untaian pengorbanan orang tua.

Beruntunglah bagi siapapun yang orang tuanya masih ada, karena jika orang tua sudah terbungkus kain kafan, kita tidak bisa lagi mencium tangannya atau menatap wajahnya. Karena itu kita harus memiliki tekad yang sangat kuat untuk berbakti pada orang tua. Minimal kita berhenti menyakiti hati orang tua hingga tidak ada luka yang ditoreh di hatinya. Syukur kalau kita sudah bisa menyenangkannya dan diberkahi manfaat besar bagi dunia dan juga akhiratnya.

Dalam hal ini, yang paling penting dalam menghormati mereka bukan hanya dengan memberi harta. Namun yang paling dibutuhkan adalah akhlak dari anaknya. Apalah artinya anak kaya, anak bergelar, anak berpangkat, tetapi tidak berakhlak kepada ibu bapaknya? Dan akhlak inilah sebenarnya kekayaan termahal yang bisa membuat sang anak doanya diijabah oleh Allah Azza wa Jalla, sehingga bisa menyelamatkan serta memuliakan ibu bapaknya.

Betapa yang dirindukan orang tua itu senyum manis yang tulus dari anaknya serta ketawadhuan. Wallahu a`lam. dr/mns/mqp
(KH. Abdullah Gymnastiar)

ADIRA MULTIFINANCE MEMBOSANKAN

2008-01-08T18:25:00.001+07:00

Pagi menunjukkan pukul 09.30, hari selasa, gue menyalakan motor kemudian bergegas pergi ke depok untuk mengambil BPKB di suatu perusahaan dengan nama ADIRA MULTIFINANCE. Karena bokap gue gak bisa pergi jauh karena sakit akhirnya diwakilkan sama gue dengan surat kuasa yang sudah gue buat sebelumnya dengan materai senilai 6000, berangkatlah gue dengan motor Yamaha Mio yang angsuran kreditnya sudah lunas. dengan penuh keyakinan dan senangnya karena motor yang gue pakai itu sudah tidak ada lagi angsuran yang menurut gue sangat memberatkan bagi kebutuhan hidup gue.

dengan kecepatan yang lumayan cepat akhirnya sampai juga ketempat tujuan, gue masuk dengan mengambil nomor antrian yang agak lama untuk menunggu dengan perasaan senang dan gembira dengan harapan BPKB yang sudah lama gak ada di genggaman gue akhirnya selesai dan berada ditangan gue.

Tapi apa yang terjadi, setelah nomor antrian gue terpanggil lalu gue datang ke customer service yang gue lupa menanyakan siapa namanya?

Dengan ramah wanita customer service bertanya:

cs: selamat pagi ada yang bisa kami bantu?
gue: ini saya mau ngambil BPKB
cs: boleh saya lihat surat-surat lunas?
gue: (gue keluarin surat-surat lunas dan surat kuasa)
cs: boleh saya minta KTP yang memberi kuasa?
gue: (gue keluarin KTP pemilik)
cs: boleh saya minta KTP bapak?
gue: (gue keluarin KTP gue)
cs: nanti yah bapak tunggu aja!
gue: ??????

setelah beberapa menit gue menunggu akhirnya wanita customer service ADIRA
MULTIFINANCE datang.

cs: maaf bapak tanda tangan di surat kuasa dan di KTP beda.
gue: beda apanya?
cs: tanda tangan di surat kuasa dan KTP beda di lekukannya.
gue: mba, ini tanda tangan asli dari bapak saya.
cs: tapi pihak dari BPKB tidak mau terima.
gue: mba, ini bukti-bukti sudah ada, kenapa tidak bisa?(dengan mulai jengkel,
kesal dan marah)
cs: itu sudah prosedur dari atasan.
gue: kayaknya bukan suatu alasan kenapa BPKB ditahan sedang bukti-bukti sudah ada.
cs: tetap gak bisa. kalo mau tanya aja langsung sama pihak BPKB.

begitulah percakapan gue dengan wanita cantik customer service tapi membosankan.

Kemudian gue bergegas menuju bagian BPKB.

PB: tanda tangannya beda di lekukannya.
gue: tapi ini bener tanda tangan asli.
PB: tetap ga bisa.
gue: terus apa lagi yang salah?
PB: tanggal tidak tertera.
gue: kayaknya gak ada masalah!
PB: iya, tapi sudah begitu peraturannya.
gue: ( jengkel dan kesal) terus BPKB ga bisa di ambil?
PB: ga bisa.

dimana dijelaskan bahwa tanda tangan pemilik di KTP dengan tanda tangan di surat kuasa berbeda padahal itu tanda tangan asli dari bokap gue, ok gue maklumin. yang jadi pertanyaan gue kenapa bukti-bukti sudah ada dan surat lunas pun ada? apa dengan disusah-susahin dia pengen duit? atau BPKB gue belum ditebus di bank? kenapa tanda tangan beda sedikit saja ga bisa ngambil BPKB? kenapa alamat rumah salah sedikit tidak bisa diambil? cuma karena ga ada angka "1" aja di bikin repot.
apa semua ini hanya permainan dan sandiwara dari pihak perusahaan ADIRA FINANCE?
sungguh tidak mengerti dan tidak dinyangka ternyata berurusan dengan perusahaan seperti ADIRA FINANCE membosankan dan mengesalkan, seharusnya kalo sudah ada bukti bisa diambil dan tidak dipersulit, karena kalo ada bukti-bukti yang ada dan komplit pastinya sudah benar. karena yang Hak itu benar dan yang bathil walaupun dibenar-benarkan tetap aja salah.

Terus juga ada seorang ibu pemilik sendiri atas namanya ditemani dengan seorang anaknya datang untuk mengambil BPKB yang masa angsurannya sudah selesai atau lunas, tetapi apa yang terjadi? ibu itu disuruh tanda tangan sesuai dengan tanda tangan yang sebelumnya dia tanda tangan. Yang jelas-jelas setahu gue ibu itu tidak bisa menulis dan membaca karena beliau tidak mengenyam pendidikan walau hanya sebatas sekolah dasar. dengan ditemani anaknya ibu itu dituntun untuk membuat tanda tangan yang sama. sungguh tidak disangka olehnya ternyata dengan dipermudahnya berkredit dan dipersulitnya ibu itu hanya bisa pasrah dan membuat tanda tangan dengan dibantu anaknya. Ibu itu hanya ingin anaknya bahagia karena dibelikan motor walau dengan kredit. ternyata yang pemilik sendiri aja di persulit apalagi yang diberi kuasa?

sungguh terlalu pihak dari BPKB atau instansi terkait didalamnya? kenapa tidak dari awal waktu kredit dipersulit lalu dipermudah pengambilan BPKB, pasti tidak ada yang mau, tapi alangkah bagusnya kalau begitu daripada sudah berjalan malah tambah dosa dan makian serta kutukan dari orang yang sudah terlalu benci dan kesal. bayangkan saja berapa orang yang sudah jadi korban yang mengutuk perusahaan finance itu? betapa dosa yang harus ditanggung oleh semua karyawan perusahaan itu? apakah semua perusahaan leasing seperti ADIRA MULTIFINANCE seperti itu? mempermudah persyaratan untuk kredit dan mempersulit untuk mengambil yang jelas-jelas itu milik gue dan masyarakat yang merasa di rugikan.

jujur sejujurnya sebenarnya gue benci dan mengutuk semua perusahaan seperti itu yang memper mudah untuk meminjam uang dan mempersulit masyarakat untuk mengambil akan haknya. apakah tidak sadar bahwa perusahaan finance itu sudah meraup keuntungan yang besar tetapi masih mempersulit masyarakat yang masih kesulitan untuk bertahan hidup. adakah perusahaan finance yang mengerti akan kehidupan masyarakat di Indonesia yang kehidupannya masih digaris kemiskinan, ataukah perusahaan finance ingin melihat masyarakat di Indonesia menderita dan mati dalam kebingungan dan kelaparan? sungguh tidak berprikemanusiaan perusahaan yang ingin membantu tapi didalamnya hendak menyengsarakan masyarakat Indonesia.

Kalo gue nanti mau beli kredit apa aja harus tanya dulu, dari perusahaan leasing apa bukan? trus kalo pake surat kuasa dipersulit apa ga? kalo bisa sudah lunas barang diantar langsung surat-surat kwitansi atau surat penting ke pemiliknya agar pemilik juga senang dengan kinerja dari perusahaan itu dan mau menjadi pelanggan tetapnya, dan tidak masalah dengan ongkos kirim asal jangan keterlaluan!!!.

komentar gue kepada semua karyawan yang bekerja di perusahaan itu mohon sadar karena di dunia ini gak ada yang kekal?maka sadarlah sebelum ajal memanggil, karena jika semua itu sudah terjadi yang ada hanya penyesalan di akherat nanti. kiamat sudah dekat?

Buku Harianku

2008-01-07T12:35:00.001+07:00

Hidup,matiku,ibadahku,hanya milik Allah.

Allah menciptakan manusia dari saripati tanah dan akan kembali ketanah, begitu juga aku.

Aku terlahir karena adanya bapak dan ibuku, dan Allah memasukkan Rohku kedalam Rahim seorang ibu yang aku sayangi dan kucintai, betapa ketidak tahuan diriku didalam rahim. dan betapa ketidak tahuannya diriku bagaimana merasa sakitnya seorang wanita sholeha melahirkan diriku, sungguh mulia dirimu ibuku, betapa terpujinya bapakku yang selalu setia menemani ibu dan menjagaku diwaktu ku terlahir.

Hari demi hari aku disayang, aku dijaga, aku ditimang, hingga tak ada satu pun binatang kecil seperti semut dan nyamuk menghampiri diriku, betapa diriku terjaga oleh kasih sayang dari kedua orang tuaku.

Tak terasa waktu terus berjalan dimana diriku membutuhkan air yang begitu suci, air yang membuat diriku ini tumbuh dan berkembang, air yang tidak bisa diganti dengan air yang lain, air yang bersumber dari darah dan kasih sayang ibuku yang membuat diriku merasakan kehangatan dan kasih sayang dari ibu yang ku sayangi.

Siang dan malam berganti dimana bapakku mencari nafkah untuk anak dan keluarganya agar suatu saat nanti anaknya tumbuh dan berkembang menjadi anak yang berguna.membanting tulang dan memeras keringat untuk menghidupi diriku yang polos yang belum mengerti kehidupan dunia serta keluarganya.

Siang dan malam berganti dimana ibuku selalu menjagaku dan merawatku dengan penuh kasih sayang yang tidak akan bisa diriku untuk membalas semua jasanya kecuali surga Mu Ya Rabb.

memberiku makan dan minum padahal dirimu lupa bahwa kau juga merasa lapar dan haus dan kau hiraukan semua itu untuk aku agar diriku merasa nyaman. tiada kata lelah yang kau ucapkan untuk membuat diriku bahagia, tiada kau hiraukan dirimu disaat tubuhmu menderita sakit. kau membuat masakan yang lezat untuk suami dan kau mencuci bajuku yang kotor dengan air seni dan sisa kotoran. kau tak peduli betapa mual dan jijiknya aku membayangkan kotoran manusia, tetapi dirimu ibuku tidak kau hiraukan dan pedulikan karena kau lupakan dengan kasih sayang yang begitu besar.walaupun gunung besar samudra luas, tetap saja kasih sayangmu orang tuaku yang lebih besar.

Ya Allah pantaskah Bapak dan Ibuku masuk neraka? ataukah surga yang diidam-idamkan oleh orang yang soleh dan sholeha yang selalu mengikuti perintahmu dan menjauhi segala laranganMu.