02 April 2015

Tasyawuf yang Benar itu Mentaati Fiqh


Malik bin Anas - Ulama besar pendiri mazhab Maliki, juga murid Imam Jafar as Shadiq ra, berkata : “Barangsiapa mempelajari/mengamalkan tasawuf tanpa fiqih maka dia telah zindik, dan barangsiapa mempelajari fiqih tanpa tasawuf dia tersesat, dan siapa yang mempelari tasawuf dengan disertai fiqih dia meraih Kebenaran dan Realitas dalam Islam.” (’Ali al-Adawi dalam kitab Ulama fiqih, juz 2, hal. 195 yang meriwayatkan dari Imam Abul Hasan).

DR. Yusuf Al-Qardhawi - Ketua Ulama Islam Internasional dan juga guru besar Universitas al Azhar berkata, “Mereka para tokoh sufi sangat berhati-hati dalam meniti jalan di atas garis yang telah ditetapkan oleh Al-Qur,an dan As-Sunnah. Bersih dari berbagai pikiran dan praktek yang menyimpang, baik dalam ibadat atau pikirannya. Banyak orang yang masuk Islam karena pengaruh mereka, banyak orang yang durhaka dan lalim kembali bertobat karena jasa mereka. Dan tidak sedikit yang mewariskan pada dunia Islam, yang berupa kekayaan besar dari peradaban dan ilmu, terutama di bidang marifat, akhlak dan pengalaman-pengalaman di alam ruhani, semua itu tidak dapat diingkari.”

Empat imam Madzhab besar berguru kepada seorang sufi, tidak terkecuali Imam Syafi'i (Muhammad bin Idris, 150-205 H) Ulama besar pendiri mazhab Syafi’i tersebut berkata, “Saya berkumpul bersama orang-orang sufi dan menerima 3 ilmu: 1) Mereka mengajariku bagaimana berbicara, 2) Mereka mengajariku bagaimana memperlakukan orang lain dengan kasih sayang dan kelembutan hati, 3) Mereka membimbingku ke dalam jalan tasawuf.” (Riwayat dari kitab Kasyf al-Khafa dan Muzid al Albas, Imam ‘Ajluni, juz 1, hal. 341).

Imam Ahmad bin Hambal (164-241 H) berkata, “Anakku, kamu harus duduk bersama orang-orang sufi, karena mereka adalah mata air ilmu dan mereka selalu mengingat Allah dalam hati mereka. Mereka adalah orang-orang zuhud yang memiliki kekuatan spiritual yang tertinggi. Aku tidak melihat orang yang lebih baik dari mereka” (Ghiza al Albab, juz 1, hal. 120 ; Tanwir al Qulub, hal. 405, Syaikh Amin al Kurdi).

Membagikan Internet dengan Wifi Laptop Sebagai Access Point nya


Berikut ini langkah untuk menjadikan Wifi Laptop sebagai Access Point untuk membagikan internet yang diakses melalui adapter jaringan kabel di lingkungan Windows 7 :
  1. Jalankan Command Prompt sebagai Administrator
  2. Copas perintah berikut ini ke Command Prompt : netsh wlan set hostednetwork mode=allow "ssid=Cahyana" "key=123456789" keyUsage=persistent
  3. Untuk menjalankan Access Point tersebut copas perintah berikut ini ke Command Prompt : netsh wlan start hostednetwork
  4. Buka Properties dari adapter jaringan kabel yang terhubung ke internet, lalu pilih tab Sharing lalu dan beri tanda cek pada Allow other network users to connect thought this computer's Internet connection, pilih Home networking connection nya nama dari adapter Micorosoft Virtual WiFi Miniport. Alamat IP nya akan diberikan oleh Windows, yakni 192.168.137.x
  5. Buka smartphone atau Laptop lain, lalu hubungkan ke SSID Cahyana dengan password 123456789.
  6. Untuk mematikan Access Point, copas perintah berikut ini ke Command Prompt : netsh wlan stop hostednetwork

06 Oktober 2014

Format Uang



type tFormatUang=Record
        Text:String;
        SelStart:Integer;
        end;

function FormatUang(input:string):tFormatUang;
var
  sRupiah: string;
  min,i,c:word; dec:boolean;
begin
        sRupiah:='';
        c:=1;
        dec:=false;

        if length(input)>0 then
        begin
        if input[1]='-' then min:=2 else min:=1;

        for i:=length(input) downto min do
        if input[i]='.' then dec:=true;

        for i:=length(input) downto min do
        begin
                if input[i] in ['0'..'9','.','-'] then
                begin
                        if input[i]='.' then
                        begin
                                dec:=false;
                                c:=0;
                        end;
                        if c=4 then
                        begin
                                if dec=false then sRupiah:=input[i]+','+sRupiah;
                                c:=1;
                        end else sRupiah:=input[i]+sRupiah;
                        if dec=false then inc(c);
                end;
        end;

        if input[1]='-' then sRupiah:='-'+sRupiah;

        end;
        FormatUang.Text := sRupiah;
        FormatUang.SelStart := length(sRupiah);
end;

Contoh :

procedure TForm1.Edit1Change(Sender: TObject);
begin
        Edit1.Text:=FormatUang(Edit1.Text).Text;
        Edit1.SelStart:=FormatUang(Edit1.Text).SelStart;
end;