Kitab Zuhud Dan Kelembutan Hati

a.. Hadis riwayat Anas bin Malik ra., ia berkata:
Rasulullah bersabda: Tiga perkara yang akan mengiringi mayit, yang dua akan kembali dan yang satu akan menetap. Ia akan diiringi oleh keluarganya, hartanya dan amal perbuatannya. Keluarga dan hartanya akan kembali dan tinggallah amal perbuatannya. (Shahih Muslim No.5260)

a.. Hadis riwayat Amru bin Auf ra., ia berkata:
Bahwa Rasulullah mengutus Abu Ubaidah bin Jarrah ke Bahrain untuk memungut jizyahnya (upeti), karena Rasulullah telah mengadakan perjanjian damai dengan penduduk Bahrain dan mengangkat Alaa' bin Hadhrami sebagai gubernurnya. Kemudian Abu Ubaidah kembali dengan membawa harta dari Bahrain. Orang-orang Ansar mendengar kedatangan Abu Ubaidah lalu melaksanakan salat Subuh bersama Rasulullah. Setelah salat, beliau beranjak lalu mereka menghalanginya. Ketika melihat mereka beliau tersenyum dan bersabda: Aku tahu kalian telah mendengar bahwa Abu Ubaidah telah tiba dari Bahrain dengan membawa harta upeti. Mereka berkata: Benar, wahai Rasulullah. Beliau bersabda: Bergembiralah dan berharaplah agar mendapatkan sesuatu yang menyenangkan kamu sekalian. Demi Allah, bukan kefakiran yang aku khawatirkan terhadap kalian, tetapi yang aku khawatirkan adalah jika kekayaan dunia dilimpahkan kepada kalian sebagaimana telah dilimpahkan kepada orang-orang sebelum kalian, kemudian kalian akan berlomba-lomba mendapatkannya sebagaimana mereka berlomba-lomba dan akhirnya dunia itu membinasakan kalian sebagaimana ia telah membinasakan mereka. (Shahih Muslim No.5261)

a.. Hadis riwayat Abu Hurairah ra., ia berkata:
Bahwa Rasulullah bersabda: Ketika seorang dari kalian memandang orang yang melebihi dirinya dalam harta dan anak, maka hendaklah ia juga memandang orang yang lebih rendah darinya, yaitu dari apa yang telah dilebihkan kepadanya. (Shahih Muslim No.5263)

a.. Hadis riwayat Abu Hurairah ra., ia berkata:
Bahwa ia mendengar Nabi bersabda: Sungguhnya ada tiga orang Bani Israel, seorang berkulit belang, seorang berkepala botak dan yang lain matanya buta. Allah ingin menguji mereka, maka Dia mengirim malaikat. Malaikat ini mendatangi orang yang berkulit belang dan bertanya: Apa yang paling kamu sukai? Orang itu menjawab: Warna (kulit) yang bagus, kulit yang indah dan sembuhnya penyakit yang membuat orang jijik kepadaku. Malaikat tersebut mengusap tubuhnya, maka penyakitnya sembuh dan ia diberi warna yang bagus dan kulit yang indah. Malaikat bertanya lagi: Harta apa yang paling kamu senangi? Orang itu menjawab: Unta. Atau: Ia menjawab: Sapi. (Ishak ragu-ragu tentang itu). Lalu ia diberi unta yang hampir melahirkan lalu malaikat berkata: Semoga Allah memberkahinya untukmu. Kemudian ia mendatangi orang yang botak lalu bertanya: Apa yang paling kamu sukai? Orang itu berkata: Rambut yang indah dan sembuhnya penyakit yang membuat orang jijik kepadaku. Malaikat mengusapnya, maka penyakitnya sembuh dan ia diberi rambut yang indah. Malaikat bertanya lagi: Harta apa yang paling kamu senangi? ia menjawab: Sapi. Maka ia diberi sapi bunting lalu malaikat berkata: Semoga Allah memberkahinya untukmu. Kemudian malaikat mendatangi yang buta, lalu bertanya: Apa yang paling kamu sukai? Ia menjawab: Allah mengembalikan penglihatanku, sehingga aku dapat melihat manusia. Maka Malaikat mengusapnya, sehingga penglihatannya kembali normal. Malaikat itu bertanya lagi: Harta apa yang paling kamu sukai? Ia menjawab: Kambing. Maka ia diberi kambing yang beranak. Selanjutnya semua binatang yang diberikan itu beranak-pinak sehingga orang yang berpenyakit belang dapat mempunyai unta satu lembah, yang botak mempunyai sapi satu lembah dan yang asalnya buta memiliki kambing satu lembah. Pada suatu ketika malaikat kembali mendatangi orang yang berpenyakit belang dalam bentuk dan cara seperti ia dahulu lalu berkata: Aku orang miskin yang telah terputus seluruh sumber rezeki dalam perjalananku, maka pada hari ini tidak ada lagi pengharapan, kecuali kepada Allah dan kamu. Demi Tuhan yang telah menganugerahimu warna yang bagus, kulit yang indah serta harta benda, aku minta seekor unta untuk membantuku dalam perjalanan. Orang itu berkata: Masih banyak sekali hak-hak yang harus kupenuhi. Maka malaikat itu berkata kepadanya: Aku seperti mengenal kamu, bukankah kamu yang dahulu berpenyakit kulit belang yang manusia jijik kepadamu, serta yang dahulu fakir lalu diberi harta oleh Allah? Orang itu berkata: Aku mewarisi harta ini secara turun-temurun. Malaikat berkata: Kalau kamu berdusta, semoga Allah menjadikan kamu seperti dahulu lagi. Setelah itu malaikat tadi mendatangi orang yang dahulu botak dalam bentuknya seperti dahulu lalu berkata kepadanya seperti apa yang dikatakannya kepada orang yang berkulit belang, dan orang itu menjawabnya seperti jawaban orang yang belang tadi. Maka malaikat berkata: Jika kamu berdusta, semoga Allah menjadikan kamu seperti dahulu lagi. Kemudian sesudah itu malaikat mendatangi orang yang dahulu buta dalam bentuk dan cara seperti dahulu lalu berkata: Aku orang miskin yang mengembara dan telah terputus seluruh sumber rezeki dalam perjalananku, maka pada hari ini tidak ada lagi pengharapan, kecuali kepada Allah dan kamu. Demi Tuhan yang telah memulihkan penglihatanmu, aku minta seekot kambing untuk membantuku dalam perjalanan. Orang itu berkata: Dahulu aku buta, lalu Allah memulihkan penglihatanku, maka ambillah apa yang kamu inginkan dan tinggalkanlah apa yang tidak kamu inginkan. Demi Allah aku tidak akan membebani kamu untuk mengembalikan sesuatu yang telah kamu ambil untuk Allah. Maka malaikat berkata: Peganglah hartamu itu semua, karena kamu sekalian hanya sekedar diuji, kamu telah diridai Tuhan, sedangkan kedua sahabatmu telah dimurkai Allah. (Shahih Muslim No.5265)

Wassalam,

Iip Syaiful Rahman
dari
syiarislam@yahoogroup.com

Hikmat Secangkir Coklat Panas

Sekolompok alumni, yang sudah mapan dalam karirnya, sedang
berbincang-bincang pada saat reuni dan memutuskan untuk pergi
mengunjungi profesor universitas mereka yang sekarang sudah pensiun.
Pada waktu mereka berkunjung, pembicaraan mereka berubah menjadi keluhan
mengenai stres pada kehidupan dan pekerjaan mereka.

Professor itu menyajikan coklat panas pada tamu-tamunya, ia pergi ke
dapur dan kembali dengan coklat panas di teko yang besar dan beberapa
macam cangkir - porselen, gelas, kristal, dan beberapa cangkir yang
biasa-biasa saja, ada beberapa yang mahal, ada beberapa yang cantik -
dan mengatakan kepada mereka untuk mengambil sendiri coklat panas
tersebut.
Ketika mereka semua memegang secangkir coklat panas di tangan mereka,
professor itu berkata:
"Lihatlah semua cangkir yang bagus, mahal semuanya telah diambil, yang
tertinggal hanyalah yang biasa dan yang murah."

Adalah normal bagi kalian untuk menginginkan yang terbaik bagi kalian
semua, itu adalah sumber dari masalah dan stress kalian.

Cangkir yang kalian minum tidak menambahkan kualitas dari coklat panas
tersebut.
Pada kebanyakan kasus itu hanya menambah mahal dan bahkan menyembunyikan
apa yang kita minum.
Apa yang kalian inginkan sebenarnya adalah coklat panas, bukan
cangkirnya; tetapi secara tidak sadar kalian menginginkan cangkir yang
terbaik dan kemudian kalian mulai saling melihat dan membandingkan
cangkir kalian masing-masing.

Kemudian dia berhenti dan berkata, "Sekarang pikirkan ini:

Kehidupan adalah coklat panas; pekerjaan, uang, dan kedudukan di
masyarakat adalah cangkirnya.

Itu hanyalah alat untuk memegang dan memuaskan kehidupan.

Cangkir yang kau miliki tidak akan menggambarkan, atau mengubah
kualitas kehidupan yang kalian miliki.

Terkadang, dengan memusatkan perhatian kita hanya pada cangkirnya, kita
gagal untuk menikmati coklat panas yang telah Tuhan sediakan bagi kita.

Tuhan membuat coklat panasnya, tetapi manusia memilih cangkirnya.

Orang-orang yang paling bahagia tidak memiliki semua yang terbaik

Mereka hanya berbuat yang terbaik dari apa yang mereka miliki.

Hiduplah dengan sederhana. Mengasihilah dengan murah hati.
Memperhatikanlah sesama dengan sungguh-sungguh. Berbicaralah dengan
ramah.

Dan nikmatilah coklat panas kalian!

di kutip dari
syiar-islam@yahoogroups.com
mary.susaktiani@ge.com

TENTANG CINTA

1. Bila kata cinta itu sebuah pengorbanan, mengapa pengorbanan itu bukan nokhtah sebuah cinta? Bila derita itu harga sebuah cinta, tapi mengapa cinta itu semakin sukar dimiliki? Cinta bagaikan kota kristal indah di penglihatan ,tapi derita di dalam hati.

2. Ada seseorang yang awalnya malu untuk jatuh cinta ,tapi bila perasaan menjadi rindu padanya, tiba-tiba perasaan malu itu menjadi hilang dengan sendirinya dan terpaksa menerima kenyataan yang sebenarnya bahwa dia telah jatuh cinta.

3. Bahasa tubuh mengungkapkan maksud dalam hati yang tidak mampu terucap oleh kata-kata.

4. Cinta yang di semaikan tidak mungkin layu. Hati yang remuk akan kembali kokoh selagi ketenangan di dapati. Jiwa yang pasrah akan berubah haluan selagi esok masih ada. Luka yang lama pasti akan sembuh selagi iman terselit di dada.

5. Cinta yang datang bagaikan pelangi cerah dengan 7 warna ,memukau saat bayu berlagu riang, ketika itulah cinta hadir. Apabila mata melihat seseorang yang akan mewarnai hidupnya.

6. Cinta bukan paksaan. Ia lahir dari dua perasaan, kehadirannya tidak diundang, perginya tiada yang merelakan karena ia terlalu sukar untuk dimengertikan.

7. Persahabatan biasanya berakhir dengan percintaan tetapi percintaan akan sukar untuk berakhir dengan persahabatan.

8. Cinta bukan mengajarkan kita menjadi lemah tetapi membangkitkan kekuatan. Cinta bukan mengajar menghinakan diri tetapi menghembuskan kegagahan. Cinta bukan melemahkan semangat tetapi membangkitkan semangat.Cinta bukan petaka tapi kenikmatan.

9. Apakah sebenarnya cinta itu? Coba katakan. Tak lain tak bukan adalah dua jiwa dalam satu fikiran dan dua hati dalam satu debaran.

10. Ucapan cinta pertama merupakan suatu getaran yg sangat menggoncangkan jiwa.

11. Kadangkala kita baru menyadari betapa dalamnya kita mencintai seseorang, disaat kita sedang kehilangannya. Dan kadangkala kita juga baru akan menyadari betapa perlunya cinta seseorag terhadap kita, disaat kita sendiri dan amat memerlukannya.

12. Cinta yang lahir dari pandangan pertama adalah cinta suci, manakala perasaan cinta yang lahir dari kemesraan persahabatan adalah cinta sejati. Namun sukar untuk membedakan yg mana lebih abadi, cinta suci atau cinta sejati ?

APAKAH CINTA MENYAKITKAN ...?

Setiap orang mempunyai makna cinta yang tersendiri. Ada yang bilang, cinta itu menyakitkan dan jangan kau hampirinya. Tetapi, ada juga yang bilang, cinta itu mengasyikkan sehingga kau akan terhanyut oleh ombak asmaranya. Dan ada juga yang bilang, cinta itu indah dan tiada ungkapan yang dapat menyatakan maksud cinta yang sebenar.

Bagi yang mengatakan bahwa cinta itu menyakitkan, mereka memang benar. Walau bagaimanapun sepasang kekasih itu, akan ada juga masalah yang timbul. Mereka dapat diibaratkan, langit tak semestinya sentiasa cerah. Dalam hidup ini, kita memang tidak dapat lari dari masalah. Bahkan, kita sendiri yang perlu menghadapinya dan juga menyelesaikan masalah tersebut.

Sakit dalam cinta ini makin terasa ngilunya apabila sebuah pasangan itu hancur musnah. Apa yang telah dijanjikan selama ini, menjadi dusta belaka. Ketika baru saja berselisih, semuanya menjadi salah. Semuanya dipersalahkan. Itu tak betul, ini tak betul. Terasa diri ini dihimpit oleh sebuah kereta api dan tak seorangpun yang ingin menolong.

Jadi, sekiranya kamu ingin bercinta dengan seseorang, ingatlah. Cinta ini tak semuanya indah. Dan kamu perlu bersedia untuk menghadapi segala kemungkinan yang terjadi. Yang pasti, dalam percintaan akan ada pasang surutnya perhubungan. Cuma kita tidak tahu, kapan hal itu kan terjadi. Mungkin hari ini, esok, lusa dan kapanpun.

KEJUJURAN ADALAH BUKTI CINTA SEJATI

PERCINTAAN bukan hanya berakhir dengan pernikahan, bahkan ada pasangan yang bercinta bagai Laila dan Majnun tetapi akhirnya putus di pertengahan jalan.

Justru, apabila mengingatkan kisah percintaan lama, pasti ramai di antara kita yang tersenyum sendiri. Bagi lelaki dan wanita, mereka tentu mempunyai kisah percintaan sendiri yang kadangkala jika ditulis dapat dibuat menjadi novel.

Ada yang kecewa akibat bercinta dan mengambil keputusan untuk terus membujang sampai tua, seolah-olah cinta pertama itu terlalu agung dan tidak dapat diganti dengan percintaan lain.

Namun, bagi kebanyakan kita, jodoh pertemuan ketentuan Ilahi. Justru, apabila gagal dalam percintaan pertama, kedua dan seterusnya, masih ada ruang untuk merubah kedukaan itu.

Apabila menjadi suami isteri, kadangkala teringat juga kisah percintaan lama. Ada di antara kita yang berani untuk memberitahu pasangannya mengenai cerita cinta yang pernah ditempuh dan bagi yang lain menyimpan dalam memori sendiri.

Setiap orang pasti memiliki kisah masa lalu, sama ada buruk atau indah. Timbul persoalan, adakah kisah masa lalu yang buruk itu perlu diceritakan kepada kekasih kita?

Adakah jika diceritakan akan membuktikan betapa dalamnya cinta kamu dan pasangan? Atau adakah dengan membuka cerita cinta lama itu akan merusak dan memporak-porkamukan hubungan kamu?

Ada yang berkata, jika kamu tidak menyampaikan kisah cinta masa lalu, maka kamu akan menjadi seorang pembohong di hadapan orang yang kamu cintai dan kamu tidak mungkin dapat mencintainya dengan sepenuh hati.

Ini terjadi terutama kepada pasangan yang berkomitmen untuk bersama-sama selamanya, justru setiap orang berhak mengetahui kisah pasangan yang dicintainya itu.

Namun, sebelum kamu ingin menceritakan kisah percintaan masa lalu, pastikan pasangan kamu bersedia menerima segala masa lalu kamu dan melupakannya!

BIKIN KONVERSI DENGAN VB 6.0 DAN SOURCH CODE

LANGKAH MEMBUAT PROGAM KONVERSI DENGAN VISUAL BASIC 6.0

Oleh M YANTO

Syarat : Telah Terinstal Progam VB 6.0 pada komputer

1. Pertama-tama anda klik progam VB pada menu STAR => All Progam = > Visual Studio => Visual Basic 6.0 , maka akan tampilan windows sebagai berikut :

2. Pilih icon Standart.EXE (double klik) untuk memulai membuat progam (project) baru dengan Visual Basic.

Maka tampilan gambarnya akan berubah menjadi Form berikut :

bagian sebagai berikut :

Windows	Keterangan
Form	Tempat untuk membuat tampilan program secara grafis
Toolbox	Toolbox berisi tool yang biasa disebut dengan control.
Project	Berisi daftar type file yang digunakan dalam aplikasi. Aplikasi dalam Visual Basic dinamakan project
roperties	Digunakan untuk mengatur tampilan dari form atau control/toolbox yang digunakan dalam aplikasi.
Code	Tempat yang digunakan untuk menulis program visual basic. Ketika program dijalankan maka tampilan akan mengikuti seperti instruksi yang di berikan pada window code tersebut.

1.KONVERSI BINER KE DESIMAL

'Deskripsi: Mengkonversi dari bilangan Binary ke bilangan Desimal.

'Pembuat : M YANTO (m_okrek86@yahoo.co.id)

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form Anda.

'----------------------------------------------------------------

Private Function BinaryToDecimal(ByVal BinValue As String) As Long

Dim lngValue As Long

Dim x As Long

Dim k As Long

k = Len(BinValue) ' will only work with 32 or fewer "bits"

For x = k To 1 Step -1 ' work backwards down string

If Mid$(BinValue, x, 1) = "1" Then

If k - x > 30 Then ' bit 31 is the sign bit

lngValue = lngValue Or -2147483648# ' avoid overflow error

Else

lngValue = lngValue + 2 ^ (k - x)

End If

End If

Next x

BinaryToDecimal = lngValue

End Function

Contoh penjumlahan biner dengan hasil decimal :

1. Buat sebuah project exe dengan 1 form yang berisi 3 text box dan 1 command botton

2. Double klik pada command botton , hapus semua karakter (tulisan di halaman tersebut dan ketikkan kode fungsi di atas

3. Tambahkan code di bawah ini :

Private Sub Command1_Click()

okrek1 = BinaryToDecimal(Text1)

okrek2 = BinaryToDecimal(Text2)

Text3 = Val(okrek1) + Val(okrek2)

End Sub

Contoh lain untuk menampilkam massage boxpada form , ketikkan kode di bawah ini :

Private Sub Form_Load()

'Ganti "11001" di bawah dengan bilangan binary yang Anda inginkan untuk

'dikonversi ke bilangan desimal.

MsgBox BinaryToDecimal("11001") 'contoh ini menghasilkan 25

End Sub

2.KONVERSI DESIMAL KE BINER

'Deskripsi: Mengkonversi bilangan desimal menjadi bilangan binary.

' (kelipatan 2).

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box

' 2. Copy-kan coding berikut ke dalam editor Form Anda.

'-------------------------------------------------------------------

Public Function dec2bin(mynum As Variant) As String

Dim loopcounter As Integer

If mynum >= 2 ^ 31 Then

dec2bin = "Bilangan terlalu besar!"

Exit Function

End If

Do

If (mynum And 2 ^ loopcounter) = 2 ^ loopcounter Then

dec2bin = "1" & dec2bin

Else

dec2bin = "0" & dec2bin

End If

loopcounter = loopcounter + 1

Loop Until 2 ^ loopcounter > mynum

End Function

Contoh pengurangan decimal dengan hasl biner :

1. Buat sebuah project exe dengan 1 form yang berisi , 3 text box dan 1 command botton

2. Double klik pada command botton , hapus semua karakter (tulisan di halaman tersebut dan ketikkan kode fungsi di atas ,Tambahkan code di bawah ini :

Private Sub Command1_Click()

okrek = Text1 - Text2

Text3 = dec2bin(okrek)

End Sub

CONTOH jika ingin merubah huruf bilangan decimal di text1 menjadi bilangan biner di text2

Ketikkan kode berikut

'Masukkan bilangan ke dalam Text1.

'Lihat hasilnya di Label1...

Private Sub Text1_Change()

Text2 = dec2bin(Text1.Text)

End Sub

3.KONVERSI heksa ke desimal

Jika kamu ingin membuat konversi Bilangan HEKSAmenjadi bilangan DESIMAL

Contoh pembagian heksa hasil decimal :

1. Buat sebuah project exe dengan 1 form yang berisi , 3 text box dan 1 command botton

2. Double klik pada command botton , hapus semua karakter (tulisan) di halaman tersebut dan ketikkan kode fungsi di bawah ini :

'Deskripsi: Mengkonversi bilangan Hexa ke bilangan Desimal.

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form.

Private Sub command1_click()

strHexOkrek1 = Text1

strHexOkrek2 = Text2

Text3 = Val("&H" + strHexOkrek1) / Val("&H" + strHexOkrek2)

End Sub

4.KONVERSI decimal ke heksa

Jika kamu ingin membuat konversi Bilangan Desimal menjadi bilangan Heksa

Buatlah Form Project seperti di atas dan ketikan kode berikut :

Contoh perkalian bilangan Desimal hasil Heksa

'Deskripsi: Mengkonversi bilangan Desimal ke bilangan Hexa

'Pembuat : M YANTO (m_okrek86@yahoo.co.id)

'Persiapan: 1. Buat 1 Project baru dengan Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form.

'-------------------------------------------------------------------

Private Sub Command1_Click ()

Okrek = val(text1) * val(text2)

Text3 = hex(Okrek)

End Sub

5.KONVERSI okta ke desimal

Jika kamu ingin membuat konversi Bilangan OKTA menjadi bilangan DESIMAL

Contoh pengurangan okta hasil decimal :

1. Buat sebuah project exe dengan 1 form yang berisi , 3 text box dan 1 command botton

2. Double klik pada command botton , hapus semua karakter (tulisan) di halaman tersebut dan ketikkan kode fungsi di bawah ini :

'Deskripsi: Mengkonversi bilangan Okta ke bilangan Desimal.

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form.

Private Sub command1_click()

strOctOkrek1 = Text1

strOctOkrek2 = Text2

Text3 = Val("&O" + strOctOkrek1) - Val("&O" + strOctOkrek2)

End Sub

6.KONVERSI decimal ke okta

Jika kamu ingin membuat konversi Bilangan Desimal menjadi bilangan Okta

Buatlah Form Project seperti di atas dan ketikan kode berikut :

Contoh penjumlahan bilangan Desimal hasil Okta

'Deskripsi: Mengkonversi bilangan Desimal ke bilangan Hexadesimal

'Persiapan: 1. Buat 1 Project baru dengan 1 Form 1 commamd dan 3 text box.

' 2. Copy-kan coding berikut ke dalam editor form.

'-------------------------------------------------------------------

Private Sub Command1_Click ()

Okrek = val(text1) + val(text2)

Text3 = Oct(Okrek)

End Sub

Untuk Project yang lain silahkan kamu kreasikan sendiri , or hubungi Mr.Okrek

SELAMAT MENCOBA !!!!