Fungsi Terbilang untuk VB

bilangan pake plus and minus

Public Function Terbilang(ByVal angka As Double) As String
Dim intPecahan As Integer, strPecahan$, Urai$, Bil1$, strTot$, Bil2$, strJmlHuruf$
Dim x As Integer, y As Integer, z As Integer

If angka = 0 Then
Terbilang = "NOL"
Exit Function
End If

strJmlHuruf = LTrim(CStr(angka))
intPecahan = Val(Right(Mid(CStr(angka), 15, 2), 2))

'Minus dan Pecahan
'------------------
If InStr(strJmlHuruf, "-") > 0 Then
sMinus = "MINUS "
Terbilang = Right(strJmlHuruf, Len(strJmlHuruf) - 1)
End If

If InStr(strJmlHuruf, ".") > 0 Then
intPecahan = Right(strJmlHuruf, Len(strJmlHuruf) - InStr(strJmlHuruf, "."))
strJmlHuruf = Left(strJmlHuruf, InStr(strJmlHuruf, ".") - 1)
End If

'Pecahan, strPecahan
'------------------

If (intPecahan = 0) Then
strPecahan = ""
Else
strPecahan = Terbilang(intPecahan)
strPecahan = "KOMA " & strPecahan
End If
'------------------

x = 0
y = 0
Urai = ""

While (x < Len(strJmlHuruf))
x = x + 1
strTot = Mid(strJmlHuruf, x, 1)
y = y + Val(strTot)
z = Len(strJmlHuruf) - x + 1

Select Case Val(strTot)

Case 1:
If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then
Bil1 = "SATU "
ElseIf (z = 4) Then

If (x = 1) Then
Bil1 = "SE"
Else
Bil1 = "SATU "
End If

ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
x = x + 1
strTot = Mid(strJmlHuruf, x, 1)
z = Len(strJmlHuruf) - x + 1
Bil2 = ""

Select Case Val(strTot)

Case 0: Bil1 = "SEPULUH "
Case 1: Bil1 = "SEBELAS "
Case 2: Bil1 = "DUA BELAS "
Case 3: Bil1 = "TIGA BELAS "
Case 4: Bil1 = "EMPAT BELAS "
Case 5: Bil1 = "LIMA BELAS "
Case 6: Bil1 = "ENAM BELAS "
Case 7: Bil1 = "TUJUH BELAS "
Case 8: Bil1 = "DELAPAN BELAS "
Case 9: Bil1 = "SEMBILAN BELAS "
End Select

Else
Bil1 = "SE"
End If

Case 2: Bil1 = "DUA "
Case 3: Bil1 = "TIGA "
Case 4: Bil1 = "EMPAT "
Case 5: Bil1 = "LIMA "
Case 6: Bil1 = "ENAM "
Case 7: Bil1 = "TUJUH "
Case 8: Bil1 = "DELAPAN "
Case 9: Bil1 = "SEMBILAN "
Case Else: Bil1 = ""

End Select

If (Val(strTot) > 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
Bil2 = "PULUH "
ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
Bil2 = "RATUS "
Else
Bil2 = ""
End If

Else
Bil2 = ""
End If

If (y > 0) Then
Select Case z:
Case 4: Bil2 = Bil2 + "RIBU "
y = 0
Case 7: Bil2 = Bil2 + "JUTA "
y = 0
Case 10: Bil2 = Bil2 + "MILYAR "
y = 0
Case 13: Bil2 = Bil2 + "TRILYUN "
y = 0
End Select
End If
Urai = Urai + Bil1 + Bil2
Wend
Urai = sMinus + Urai + strPecahan

If (intPecahan = 0) Then
Terbilang = Urai & "RUPIAH "
Else
Terbilang = Urai
End If
End Function


bilangan pake plus and minus and sen
ext: -101.11 >> "MINUS SERATUS SATU RUPIAH KOMA SEBELAS SEN"


Public Function Terbilang(ByVal angka As Double) As String
Dim intPecahan As Integer, strPecahan$, Urai$, Bil1$, strTot$, Bil2$, strJmlHuruf$
Dim x As Integer, y As Integer, z As Integer

If angka = 0 Then
Terbilang = "NOL"
Exit Function
End If

strJmlHuruf = LTrim(CStr(angka))
intPecahan = Val(Right(Mid(CStr(angka), 15, 2), 2))

'Minus dan Pecahan
'------------------
If InStr(strJmlHuruf, "-") > 0 Then
sMinus = "MINUS "
Terbilang = Right(strJmlHuruf, Len(strJmlHuruf) - 1)
End If

If InStr(strJmlHuruf, ".") > 0 Then
intPecahan = Right(strJmlHuruf, Len(strJmlHuruf) - InStr(strJmlHuruf, "."))
strJmlHuruf = Left(strJmlHuruf, InStr(strJmlHuruf, ".") - 1)
End If

'Pecahan, strPecahan + Sen
'------------------

If (intPecahan = 0) Then
strPecahan = ""
Else
strPecahan = Terbilang(intPecahan)
strPecahan = "RUPIAH " & "KOMA " & strPecahan
End If
'------------------

x = 0
y = 0
Urai = ""

While (x < Len(strJmlHuruf))
x = x + 1
strTot = Mid(strJmlHuruf, x, 1)
y = y + Val(strTot)
z = Len(strJmlHuruf) - x + 1

Select Case Val(strTot)

Case 1:
If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then
Bil1 = "SATU "
ElseIf (z = 4) Then

If (x = 1) Then
Bil1 = "SE"
Else
Bil1 = "SATU "
End If

ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
x = x + 1
strTot = Mid(strJmlHuruf, x, 1)
z = Len(strJmlHuruf) - x + 1
Bil2 = ""

Select Case Val(strTot)

Case 0: Bil1 = "SEPULUH "
Case 1: Bil1 = "SEBELAS "
Case 2: Bil1 = "DUA BELAS "
Case 3: Bil1 = "TIGA BELAS "
Case 4: Bil1 = "EMPAT BELAS "
Case 5: Bil1 = "LIMA BELAS "
Case 6: Bil1 = "ENAM BELAS "
Case 7: Bil1 = "TUJUH BELAS "
Case 8: Bil1 = "DELAPAN BELAS "
Case 9: Bil1 = "SEMBILAN BELAS "
End Select

Else
Bil1 = "SE"
End If

Case 2: Bil1 = "DUA "
Case 3: Bil1 = "TIGA "
Case 4: Bil1 = "EMPAT "
Case 5: Bil1 = "LIMA "
Case 6: Bil1 = "ENAM "
Case 7: Bil1 = "TUJUH "
Case 8: Bil1 = "DELAPAN "
Case 9: Bil1 = "SEMBILAN "
Case Else: Bil1 = ""

End Select

If (Val(strTot) > 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
Bil2 = "PULUH "
ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
Bil2 = "RATUS "
Else
Bil2 = ""
End If

Else
Bil2 = ""
End If

If (y > 0) Then
Select Case z:
Case 4: Bil2 = Bil2 + "RIBU "
y = 0
Case 7: Bil2 = Bil2 + "JUTA "
y = 0
Case 10: Bil2 = Bil2 + "MILYAR "
y = 0
Case 13: Bil2 = Bil2 + "TRILYUN "
y = 0
End Select
End If
Urai = Urai + Bil1 + Bil2
Wend
Urai = sMinus + Urai + strPecahan
If (intPecahan = 0) Then
Terbilang = Urai & "RUPIAH "
Else
Dim RpSen As String '
RpSen = Left(Urai, Len(Urai) - 7) 'RUPIAH 7 DIGIT
Terbilang = RpSen & "SEN "
End If

End Function

Fungsi Terbilang untuk oracle dev

Fungsi terbilang, ex: -101 terbilangnya "minus seratus satu"

create or replace function ORACLE_TERBILANG(angka number) return varchar2 is

strJmlHuruf number;
terbilang varchar2(32767);
intPecahan varchar2(32767);
strPecahan varchar2(32767);
urai varchar2(32767);
sMinus varchar2(32767);
strTot varchar2(32767);
x varchar2(32767);
y integer;
z integer;
Bil1 varchar2(32767);
Bil2 varchar2(32767);
pNumber varchar2(32767);

begin

/*Cek Panjang input Angka*/
pNumber :=length(angka);

if substr(angka,1,1) <> '-' then
if 16 <= pNumber then terbilang := ''; return(terbilang); end if;
Else
if 17 <= pNumber then terbilang := ''; return(terbilang); end if;
End If;

/*Cek Awal NOL*/
If angka is Null or angka =0 Then terbilang := 'NOL';
return(terbilang);
End If;

strJmlHuruf := LTrim((angka)); intPecahan := 0;

/*Cek Awal Minus*/
If InStr(strJmlHuruf, '-') > 0 Then
sMinus := 'MINUS ';
terbilang := FC_Right(strJmlHuruf, length(strJmlHuruf) - 1);
strTot := terbilang; strJmlHuruf := terbilang;
End If;

/*Sementara Tdak ada pecahan :D*/
If (intPecahan = 0) Then strPecahan := ''; End If;

X := 0;
Y := 0;
Urai := '';

/*::::::::::::LOOP::::::::::::*/
While (X < length(strJmlHuruf)) Loop
X := X + 1;
strTot := FC_MID(strJmlHuruf, X, 1);
Y := Y + (strTot);
z := length(strJmlHuruf) - X + 1;

/*::::::::::::::::::::::::::Select Case Val(strTot)::::::::::::::::::::::::::*/
if (strTot) = 1 then

/*:::::::::::::::::::::::::::*/
If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then Bil1 := 'SATU ';

ElsIf (z = 4) Then
If (X = 1) Then Bil1 := 'SE';
Else Bil1 := 'SATU ';
End If;

ElsIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14 ) Then
X := X + 1;
strTot := FC_Mid(strJmlHuruf, X, 1);
z := length(strJmlHuruf) - X + 1;
Bil2 := '';

if strTot = 0 then Bil1 := 'SEPULUH ';
ElsIf strTot = 1 then Bil1 := 'SEBELAS ';
ElsIf strTot = 2 then Bil1 := 'DUA BELAS ';
ElsIf strTot = 3 then Bil1 := 'TIGA BELAS ';
ElsIf strTot = 4 then Bil1 := 'EMPAT BELAS ';
ElsIf strTot = 5 then Bil1 := 'LIMA BELAS ';
ElsIf strTot = 6 then Bil1 := 'ENAM BELAS ';
ElsIf strTot = 7 then Bil1 := 'TUJUH BELAS ';
ElsIf strTot = 8 then Bil1 := 'DELAPAN BELAS ';
else Bil1 := 'SEMBILAN BELAS ';
end if;
else
Bil1 := 'SE';
end if;
/*:::::::::::::::::::::::::::*/

elsif strTot = 2 then Bil1 := 'DUA ';
elsif strTot = 3 then Bil1 := 'TIGA ';
elsif strTot = 4 then Bil1 := 'EMPAT ';
elsif strTot = 5 then Bil1 := 'LIMA ';
elsif strTot = 6 then Bil1 := 'ENAM ';
elsif strTot = 7 then Bil1 := 'TUJUH ';
elsif strTot = 8 then Bil1 := 'DELAPAN ';
elsif strTot = 9 then Bil1 := 'SEMBILAN ';
else Bil1 := '';
end if;
/*::::::::::::::::::::::::::END Select Case Val(strTot)::::::::::::::::::::::::::*/

If ((strTot) > 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then Bil2 := 'PULUH ';
ElsIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then Bil2 := 'RATUS ';
Else Bil2 := '';
End If;
Else Bil2 := '';
End If;

If (Y > 0) Then
/*::::::Select Case z:::::::*/
if z = 4 then Bil2 := Bil2||'RIBU '; Y := 0;
elsif z = 7 then Bil2 := Bil2||'JUTA '; Y := 0;
elsif z = 10 then Bil2 := Bil2||'MILYAR '; Y := 0;
elsif z = 13 then Bil2 := Bil2||'TRILYUN ';Y := 0;
end if;
End If;

Urai := Urai||Bil1||Bil2;
end loop;
/*::::::::::::END LOOP::::::::::::*/

Urai := sMinus||Urai||strPecahan;
If (intPecahan = 0) Then
Terbilang := Urai||'RUPIAH ';
End If;
return(terbilang);

end ORACLE_TERBILANG;



CREATE OR REPLACE FUNCTION fC_RIGHT(CStr IN VARCHAR2, LEN IN INTEGER) RETURN VARCHAR2 IS
iRight VARCHAR2(32767);
BEGIN
IF ( len >= LENGTH(CStr) ) THEN
RETURN( CStr );
END IF;
iRight := SUBSTR(CStr, LENGTH(CStr) - LEN+1, len);
RETURN ( iRight );
END;


CREATE OR REPLACE FUNCTION FC_MID(CStr IN VARCHAR2, STR IN INTEGER, LEN IN NUMBER DEFAULT 32767) RETURN VARCHAR2 IS
iMID VARCHAR2(32767);
BEGIN
If ( STR > Length(CStr) ) Then
RETURN( NULL );
END IF;
iMID := SUBSTR( CStr, STR, len );
RETURN ( iMID );
END;

Buat Koneksi jaringan

win98
Buka control panel -> network -> Configuration, isinya hrs:
-> Client for Microsoft Networks
-> Dial-Up Adapter
-> Realtek RTL8139/810x Family Fast Ethernet NIC ( Nama Landcardnya)
-> IPX/SPX-compatible Protocol->Dial-Up Adapter (di add kmd di protocol)
-> IPX/SPX-compatible Protocol->Realtek RTL8139/810x Family Fast Ethernet NIC
-> NetBEUI->Dial-Up Adapter
-> NetBEUI->Realtek RTL8139/810x Family Fast Ethernet NIC
-> TCP/IP->Dial-Up Adapter
-> TCP/IP->Realtek RTL8139/810x Family Fast Ethernet NIC
->fILE AND PRINTER SHARING FOR mICROSOFT nETWORKS


-------------- I--------------------------------- II

1 ORANGE-WHITE -----------1 - 3 G \ W
2 ORANGE-----------------------2 - 6 G
3 GREEN-WHITE---------------3 - 1 O \ W
4 BLUE----------------------------4 - 4 B
5 BLUE-WHITE-----------------5 - 5 B \ W
6 GREEN-------------------------6 - 2 O
7 BROWN-WHITE-------------7 - 7 BR \ W
8 BROWN------------------------8 - 8 BR

Gagal Ginjal, Kenali Gejalanya Sejak Dini

> Penyakit ginjal memang tidak
> menular, tetapi menimbulkan kematian dan dibutuhkan
> biaya mahal untuk pengobatan yang terus berlangsung
> seumur hidup pasien. Karenanya peningkatan kesadaran
> dan deteksi dini akan mencegah komplikasi penyakit
> ini menjadi kronis.
>
> Menurut Prof.Dr.dr.Endang Susalit,
> SpPD-KGH, dari Divisi Ginjal Hipertensi FKUI,
> penyakit ginjal disebut kronik jika kerusakannya
> sudah terjadi selama lebih dari tiga bulan dan lewat
> pemeriksaan terbukti adanya kelainan struktur atau
> fungsi ginjal.
>
> Pada penyakit ginjal kronik
> terjadi penurunan fungsi ginjal secara perlahan
> sehingga terjadi gagal ginjal yang merupakan stadium
> terberat penyakit ginjal kronik. Jika sudah sampai
> stadium ini, pasien memerlukan terapi pengganti
> ginjal berupa cuci darah (hemodialisis) atau cangkok
> ginjal yang biayanya mahal.
>
> Berat ginjal yang kita miliki
> memang hanya 150 gram atau sekitar separuh genggaman
> tangan kita. Tetapi fungsi ginjal sangat strategis
> dan mempengaruhi semua bagian tubuh. Selain mengatur
> keseimbangan cairan tubuh, eletrolit, dan asam basa,
> ginjal juga akan membuang sisa metabolisme yang akan
> meracuni tubuh, mengatur tekanan darah dan menjaga
> kesehatan tulang.
>
> Kenali tandanya
>
> Penyakit ginjal sering tanpa
> keluhan sama sekali, tidak jarang seseorang
> kehilangan 90 persen fungsi ginjalnya sebelum mulai
> merasakan keluhan. Pasien sebaiknya waspada jika
> mengalami gejala-gejala seperti: tekanan darah
> tinggi, perubahan jumlah kencing, ada darah dalam
> air kencing, bengkak pada kaki dan pergelangan kaki,
> rasa lemah serta sulit tidur, sakit kepala, sesak,
> dan merasa mual dan muntah.
>
> Setiap orang dapat terkena
> penyakit ginjal, namun mereka yang disarankan
> melakukan pemeriksaan dini adalah orang yang memilik
> faktor risiko tinggi, yakni mereka yang memiliki
> riwayat darah tinggi di keluarga, diabetes, penyakit
> jantung, serta ada anggota keluarga yang dinyatakan
> dokter sakit ginjal.
>
> Ada beberapa pemeriksaan yang bisa
> dilakukan untuk mengetahui kondisi ginjal kita. Yang
> paling umum adalah pemeriksaan urin. Adanya protein
> atau darah dalam kencing menunjukkan kelainan dari
> ginjal.
>
> Selain itu, kita juga bisa
> melakukan pemeriksaan darah untuk mengukur kadar
> kreatinin dan urea dalam darah. Jika ginjal tidak
> bekerja, kadar kedua zat itu akan meningkat dalam
> darah. Pemeriksaan lanjutan untuk mengenali kelainan
> berupa pemeriksaan radiologis dan biopsi ginjal.
> Biasanya pemeriksaan ini atas indikasi tertentu dan
> sesuai saran dokter.
>
> Gaya hidup sehat
>
> Gangguan ginjal bisa dicegah
> dengan berbagai cara, terutama dengan menerapkan
> gaya hidup sehat. Berhenti merokok, memperhatikan
> kadar kolesterol, kendalikan berat badan,
> menghindari kekurangan cairan dengan cukup minum air
> putih tidak lebih dari 2 liter setiap hari. "Minum
> air secara berlebihan justru akan merusak ginjal,"
> kata Dr.David Manuputty, SpBU dari RSCM Jakarta.
>
> Selain gaya hidup sehat, lakukan
> pemeriksaan kesehatan tahunan pada dokter, mintalah
> pula agar urin Anda diperiksa untuk melihat adanya
> darah atau protein dalam urin. Yang tak kalah
> penting, berhati-hatilah dalam menggunakan obat anti
> nyeri khususnya jenis obat anti inflamasi non
> steroid (NSAID).

Penemuan Terbaru Mengenai Kanker Hati! Jangan Tidur Larut Malam

Para dokter di National Taiwan Hospital baru-baru ini mengejutkan dunia
kedokteran karena ditemukannya kasus seorang dokter muda berusia 37 tahun yang selama ini sangat mempercayai hasil pemeriksaan fungsi
hati (GOT,GPT), tetapi ternyata saat menjelang Hari Raya Imlek diketahui
po siti f menderita kanker hati sepanjang 10 cm! Selama ini hampir semua
orang sangat bergantung pada hasil indeks pemeriksaan fungsi hati
(Liver Function Index). Mereka menganggap bila pemeriksaan menunjukkan hasil
index yang normal berarti semua OK. Kesalahpahaman macam ini ternyata
juga dilakukan oleh banyak dokter spesialis. Benar-benar mengejutkan,
para dokter yang seharusnya memberikan pengetahuan yang benar pada
masyarakat umum, ternyata memiliki pengetahuan yang tidak benar.
Pencegahan kanker hati harus dilakukan dengan cara yang benar. Tidak
ada jalan lain kecuali mendeteksi dan mengobatinya sedini mungkin,
demikian kata dokter Hsu Chin Chuan. Tetapi ironisnya, ternyata dokter yang
menangani kanker hati juga bisa memiliki pandangan yang salah, bahkan
menyesatkan masyarakat, inilah penyebab terbesar kenapa kanker hati
sulit untuk disembuhkan.

Penyebab utama kerusakan hati adalah:
1. Tidur terlalu malam dan bangun terlalu siang adalah penyebab paling utama.
2. Tidak buang air di pagi hari.
3. Pola makan yang terlalu berlebihan.
4. Tidak makan pagi.
5. Terlalu banyak mengkonsumsi obat-obatan.
6. Terlalu banyak mengkonsumsi bahan pengawet, zat tambahan, zat
pewarna, pemanis buatan.
7. Minyak goreng yang tidak sehat! Sedapat mungkin kurangi penggunaan
minyak goreng saat menggoreng makanan, hal ini juga berlaku meski
menggunakan minyak goreng terbaik sekalipun seperti olive oil.
Jangan mengkonsumsi makanan yang digoreng bila kita dalam kondisi
penat, kecuali dalam kondisi tubuh yang fit.
8. Mengkonsumsi masakan mentah/sangat matang juga menambah beban hati
Sayur mayur dimakan mentah atau dimasak matang 3/5 bagian. Sayur
yang digoreng harus dimakan habis saat itu juga, jangan disimpan.

Kita harus melakukan pencegahan dengan tanpa mengeluarkan biaya
tambahan. Cukup atur gaya hidup dan pola makanan sehari-hari.
Perawatan dari pola makan dan kondisi waktu sangat diperlukan agar tubuh kita
dapat melakukan penyerapan dan pembuangan zat-zat yang tidak berguna
sesuai dengan jadwalnya

Sebab:
* Malam hari pk 9-11: adalah pembuangan zat- zat tidak berguna/beracun (de-toxin) di bagian sistem antibodi (kelenjar getah bening). Selama
durasi waktu ini seharusnya dilalui dengan suasana tenang atau mendengarkan musik.
Bila saat itu seorang ibu rumah tangga masih dalam kondisi yang tidak santai, seperti misalnya mencuci piring atau
mengawasi anak belajar, hal ini dapat berdampak negatif bagi kesehatan.

* Malam hari pk 11 - dini hari pk 1: saat proses de-toxin di bagian hati, harus berlangsung dalam kondisi tidur pulas.

* Dini hari pk 1-3: proses de-toxin di bagian empedu, juga berlangsung malam kondisi tidur.

* Dini hari pk 3-5: de-toxin di bagian paru-paru. Sebab itu akan
terjadi batuk yang hebat bagi penderita batuk selama durasi waktu ini.
Karena proses pembersihan (de-toxin) telah mencapai saluran
pernafasan, maka tak perlu minum obat batuk agar supaya tidak merintangi proses
pembuangan kotoran.

* Pagi pk 5-7: de-toxin di bagian usus besar, harus buang air di kamar kecil.

* Pagi pk 7-9: waktu penyerapan gizi makanan bagi usus kecil, harus
makan pagi. Bagi orang yang sakit sebaiknya makan lebih pagi yaitu
sebelum pk 6:30. Makan pagi sebelum pk 7:30 sangat baik bagi mereka
yang ingin menjaga kesehatannya.

Bagi mereka yang tidak makan pagi harap merubah kebiasaannya ini,
bahkan masih lebih baik terlambat makan pagi hingga pk 9-10 daripada
tidak makan sama sekali. Tidur terlalu malam dan bangun terlalu siang
akan mengacaukan proses pembuangan zat-zat tidak berguna. Selain itu,
dari tengah malam hingga pukul 4 dini hari adalah waktu bagi sumsum
tulang belakang untuk memproduksi darah. Sebab itu, tidurlah yang
nyenyak dan jangan begadang!!!!

SESUNGGUHNYA MENGINGAT MATI ITU ADALAH BIJAK

> Pesan orang Meninggal untuk orang yang hidup :
>
> 1.Dia minta tolong dimandikan, karena dia tau akan menghadap sang pencipta
> haruslah bersih.
> 2.Dia minta tolong dikafani,mungkin untuk menghidari terbukanya Aurat
> 2.Dia minta di Sholatkan sebagai penghantar berangkat dari Dunia yang Fana
> ini.
> 3.Dia minta tolong diantarkan dan diusung ke liang lahat.
> 4.Dia minta minta tolong dikuburkan untuk menghidari bau apabila tidak
> dikuburkan berikut minta di Adzani.
> 5.Dia minta tolong di Do'a kan.
> 6.Dia memberitahukan bahwa kematian adalah seperti itu
>
> Kitapun tau bahwa kematian adalah janji Allah SWT. "Setiap yang bernyawa
> (pasti) akan merasakan mati." (QS Ali Imran [3]: 185).
>
> Kehidupan manusia juga memiliki muara yang akan menjadi pemberhentian
> terakhirnya. Umar bin Khathab RA pernah berkata, ''Sesungguhnya lautan itu
> ada empat macam. Dosa adalah lautan hawa nafsu, nafsu adalah lautan
> syahwat, kematian adalah lautan umur, dan kubur adalah lautan penyesalan.'
>
> Itulah sebagian pesan dari orang yang meninggal kepada kita-kita yang
> masih
> HIDUP dan yang menjadi pertanyaan dari pesan tersebut adalah apakah kita
> mempunyai kesempatan dan perlakukan yang sama dikemudian hari ??????
>
> SUARA YANG DIDENGAR MAYAT
>
> Yang Akan Ikut Mayat Ada Tiga hal yaitu:
> 1. Keluarga
> 2. Hartanya
> 3. Amalnya
>
> Ada Dua Yang Kembali Dan Satu akan Tinggal Bersamanya, yaitu;
> 1. Keluarga dan Hartanya Akan Kembali
> 2. Sementara Amalnya Akan Tinggal Bersamanya.
> Maka ketika Roh Meninggalkan Jasad...Terdengarlah Suara Dari Langit
> Memekik,
>
> "Wahai Fulan Anak Si Fulan..
> a.Apakah Kau Yang Telah Meninggalkan Dunia, Atau Dunia Yang
> Meninggalkanmu
> b.Apakah Kau Yang Telah Menumpuk Harta Kekayaan atau Kekayaan Yang Telah
> Menumpukmu
> c.Apakah Kau Yang Telah Menumpuk Dunia, Atau Dunia Yang Telah Menumpukmu
> d.Apakah Kau Yang Telah Mengubur Dunia, Atau Dunia Yang Telah Menguburmu.
> "
>
> Ketika Mayat Tergeletak Akan Dimandikan....Terdengar Dari Langit Suara
> Memekik,
> "Wahai Fulan Anak Si Fulan...
> a.Mana Badanmu Yang Dahulunya Kuat, Mengapa Kini Terkulai Lemah
> b.Mana Lisanmu Yang Dahulunya Fasih, Mengapa Kini Bungkam Tak Bersuara
> c.Mana Telingamu Yang Dahulunya Mendengar, Mengapa Kini Tuli Dari Seribu
> Bahasa
> d.Mana Sahabat-Sahabatmu Yang Dahulunya Setia, Mengapa Kini Raib Tak
> Bersuara"
> Ketika Mayat Siap Dikafan...Suara Dari Langit Terdengar Memekik,
> "Wahai Fulan Anak Si Fulan
> a.Berbahagialah Apabila Kau Bersahabat Dengan Ridha
> b.Celakalah Apabila Kau Bersahabat Dengan Murka Allah.
> Wahai Fulan Anak Si Fulan...
> a.Kini Kau Tengah Berada Dalam Sebuah Perjalanan Nun Jauh Tanpa Bekal
> b.Kau Telah Keluar Dari Rumahmu Dan Tidak Akan Kembali Selamanya
> c.Kini Kau Tengah Safar Pada Sebuah Tujuan Yang Penuh Pertanyaan.
>
> " Ketika MayatDiusung.... Terdengar Dari Langit Suara Memekik, "Wahai
> Fulan Anak Si Fulan..
> a.Berbahagialah Apabila Amalmu Adalah Kebajikan
> b.Berbahagialah Apabila Matimu Diawali Tobat
> c.Berbahagialah Apabila Hidupmu Penuh Dengan Taat."
> Ketika Mayat Siap Dishalatkan....Terdengar Dari Langit Suara Memekik,
> "Wahai
> Fulan Anak Si Fulan..
> a.Setiap Pekerjaan Yang Kau Lakukan Kelak Kau Lihat Hasilnya Di Akhirat
> b.Apabila Baik Maka Kau Akan Melihatnya Baik
> c.Apabila Buruk, Kau Akan Melihatnya Buruk."
> Ketika MayatDibaringkan Di Liang Lahat, terdengar Suara Memekik Dari
> Langit,
> "Wahai Fulan Anak Si Fulan...
>
> Apa Yang Telah Kau Siapkan Dari Rumahmu Yang Luas Di Dunia Untuk
> Kehidupan
> Yang Penuh Gelap Gulita Di Sini Wahai Fulan Anak Si Fulan...
> a. Dahulu Kau Tertawa, Kini Dalam Perutku Kau Menangis
> b. Dahulu Kau Bergembira,Kini Dalam Perutku Kau Berduka
> c. Dahulu Kau Bertutur Kata, Kini Dalam Perutku Kau Bungkam Seribu
> Bahasa."
>
> Ketika SemuaManusia Meninggalkannya Sendirian....Allah Berkata Kepadanya,
> "Wahai Hamba-Ku.....
> a. Kini Kau Tinggal Seorang Diri
> b. Tiada Teman Dan Tiada Kerabat
> c. Di Sebuah Tempat Kecil, Sempit Dan Gelap..
> d. Mereka Pergi Meninggalkanmu.. Seorang Diri
> e. Padahal, Karena Mereka Kau Pernah Langgar Perintahku
> f. Hari Ini,....
> g. Akan Kutunjukan Kepadamu
> h. Kasih Sayang-Ku
> i. Yang Akan Takjub Seisi Alam
> j. Aku Akan Menyayangimu
> k. Lebih Dari Kasih Sayang Seorang Ibu Pada Anaknya".
>
> Kepada Jiwa-Jiwa Yang Tenang Allah Berfirman, "Wahai Jiwa Yang Tenang
> a.Kembalilah Kepada Tuhanmu
> b.Dengan Hati Yang Puas Lagi Diridhai-Nya
> c.Maka Masuklah Ke Dalam Jamaah Hamba-Hamba-Ku
> d.Dan Masuklah Ke Dalam Jannah-Ku"
>
> Anda Ingin Beramal Shaleh...?

> Tolong Kirimkan Kepada Rekan-Rekan Muslim Lainnya Yang Anda
> Kenal...!!!Semoga Kematian akan menjadi pelajaran yang berharga bagi kita
> dalam menjalani hidup ini.
> Rasulullah SAW. menganjurkan kita untuk senantiasa mengingat mati (maut)
> Dan dalam sebuah hadithnya yang lain, belau bersabda "wakafa bi almauti
> wa'idha", artinya, cukuplah mati itu akan menjadi pelajaran bagimu!
> Semoga bermanfaat bagi kita semua, Amiin....
> Bahan Renungan Untuk Anda, Sahabatku, yang mungkin terlalu sibuk
> bekerja...

> Luangkanlah waktu sejenak untuk membaca dan merenungkan pesan ini...
> Alhamdulillah, Anda beruntung telah terpilih untuk mendapatkan kesempatan
> membaca email ini.
> Aktifitas keseharian kita selalu mencuri konsentrasi kita. kita seolah
> dengan sesuatu yang kita tak pernah tau kapan kedatangannya. Sesuatu yang
> bagi
> menjemput kita???
> Sebarkan e-mail dakwah ini ke 5 orang terdekat Anda, dan mintalah mereka
> untuk
> melakukan hal yang sama. Cukup lima saja! Ini bukan surat ancaman
> berantai.
> Yang jelas jika Anda tidak meneruskan e-mail ini, maka Anda telah
> menyia2 kan kesempatan untuk saling menasihati dalam kebenaran dan
> beramal
> shalih. Jika Anda lakukan dengan ikhlas insya Allah Anda akan menuai
> kebaikan. Mari berlomba dalam kebaikan.

8 Hal yang Paling Fatal Se habis Makan

Kita tahu makan minum yang tidak sehat mungkin akan menyebabkan penyakit yang menakutkan, namun, acap kali kita juga sering mengabaikan beberapa kebiasaan kecil sehabis makan, dan diluar dugaan kebiasaan hidup yang tidak baik ini besar kemungkinan menjadi "pembunuh" yang sewaktu-waktu menimpa kita.

1 . Makan buah-buahan
Kebiasaan makan buah setelah makan ternyata adalah kebiasaan yang keliru. Setelah makanan masuk ke lambung, lambung membutuhkan waktu 1-2 jam untuk mencerna, jika seusai makan lalu menyantap buah, buah akan terhambat oleh makanan yang telah lebih dulu disantap, akibatnya buah-buahan tidak bisa tercerna secara normal. Jika berlangsung lama, akan menyebabkan gejala perut kembung, diare atau susah buang air besar dan gejala lainnya.

2 . Minum teh kental
Minum teh seusai makan, dapat mengencerkan getah lambung, akibatnya mempengaruhi pencernaan makanan. Selain itu, daun teh banyak mengandung tanin (asam tanat), jika minum teh seusai makan, akan membuat protein yang belum sempat dicerna lambung menyatu dengan asam tanat dan membentuk sedimen yang tidak mudah dicerna, sehingga mempengaruhi serapan protein. Teh juga dapat menghambat serapan zat besi, jika keadaan demikian berlangsung lama dapat terjadi gejala anemia karena kurang zat besi.

3 . Merokok
Bahaya merokok sehabis makan lebih besar 10 kali lipat dibanding hari-hari biasa! Ini dikarenakan peredaran darah pada saluran pencernaan sehabis makan meningkat, akibatnya sejumlah besar kandungan dalam rokok yang tidak baik bagi kesehatan diserap, sehingga bisa merusak hati, otak besar dan pembuluh darah jantung dan menyebabkan penyakit pada aspek-aspek terkait ini.

4 . Mandi
Mandi sehabis makan, volume aliran darah pada permukaan tubuh akan meningkat, dan volume aliran darah pada saluran usus dan lambung akan berkurang, sehingga membuat fungsi pencernaan usus lambung melemah, dan menyebabkan pencernaan buruk.

5 . Mengendorkan ikat pinggang
Mengendorkan ikat pinggang setelah makan, meskipun terasa agak nyaman, tapi hal tersebut dapat mengakibatkan turunnya tekanan dalam rongga perut, memaksa lambung turun (terjuntai). Jika kebiasan tersebut terus dilakukan, akan benar-benar mengidap lambung turun.

6 . Makan angin (berjalan-jalan)
"Makan angin" sehabis makan, bukan saja tidak dapat hidup "99" (panjang umur), bahkan karena meningkatnya volume olahraga sehingga dapat mempengaruhi saluran pencernaan terhadap serapan gizi. Terutama manula, fungsi jantung melemah, penyempitan pembuluh darah, banyak berjalan seusai makan akan timbul gejala tekanan darah menurun dan lain-lain gejala.

7 . Berkaraoke
Seusai makan isi lambung kita membesar, dinding lambung menjadi tipis, volume aliran darah meningkat, saat demikian, bernyanyi dapat membuat sekat ronga badan pindah ke bawah, beban rongga perut bertambah, jika ringan akan menyebabkan pencernaan buruk, sebaliknya dapat menyebabkan gangguan pada lambung dan gejala penyakit lainnya.

8 . Mengemudikan mobil
Rawan terjadi kecelakaan jika habis makan lalu menjalankan kendaraan. Ini dikarenakan sehabis makan lambung dan usus membutuhkan sejumlah besar darah dalam mencerna makanan, mengakibatkan organ otak besar kekurangan darah untuk sementara waktu, sehingga dengan demikian dapat menyebabkan kesalahan operasional.

KISAH KELEBIHAN BERPUASA PADA 10 MUHARRAM DAN PERISTIWA-PERISTIWA YANG BERLAKU PADA HARI TERSEBUT

Dari Ibnu Abbas r.a berkata Rasulullah S.A.W bersabda : " Sesiapa yang berpuasa pada hari Aasyura (10 Muharram) maka Allah S.W.T akan memberi kepadanya pahala 10,000 malaikat dan sesiapa yang berpuasa pada hari Aasyura (10 Muharram) maka akan diberi pahala 10,000 orang berhaji dan berumrah, dan 10,000 pahala orang mati syahid, dan barang siapa yang mengusap kepala anak-anak yatim pada hari tersebut maka Allah S.W.T akan menaikkan dengan setiap rambut satu darjat. Dan sesiapa yang memberi makan kepada orang yang berbuka puasa pada orang mukmin pada hari Aasyura, maka seolah-olah dia memberi makan pada seluruh ummat Rasulullah S.A.W yang berbuka puasa dan mengenyangkan perut mereka."

Lalu para sahabat bertanya Rasulullah S.A.W : " Ya Rasulullah S.A.W, adakah Allah telah melebihkan hari Aasyura daripada hari-hari lain?". Maka berkata Rasulullah S.A.W : " Ya, memang benar, Allah Taala menjadikan langit dan bumi pada hari Aasyura, menjadikan laut pada hari Aasyura, menjadikan bukit-bukit pada hari Aasyura, menjadikan Nabi Adam dan juga Hawa pada hari Aasyura, lahirnya Nabi Ibrahim juga pada hari Aasyura, dan Allah S.W.T menyelamatkan Nabi Ibrahim dari api juga pada hari Aasyura, Allah S.W.T menenggelamkan Fir'aun pada hari Aasyura, menyembuhkan penyakit Nabi Ayyub a.s pada hari Aasyura, Allah S.W.T menerima taubat Nabi Adam pada hari Aasyura, Allah S.W.T mengampunkan dosa Nabi Daud pada hari Aasyura, Allah S.W.T mengembalikan kerajaan Nabi Sulaiman juga pada hari Aasyura, dan akan terjadi hari kiamat itu juga pada hari Aasyura !".

TUJUH MACAM PAHALA YANG DAPAT DINIKMATINYA SELEPAS MATINYA

Dari Anas r.a. berkata bahawa ada tujuh macam pahala yang dapat diterima seseorang itu selepas matinya.

1.Sesiapa yang mendirikan masjid maka ia tetap pahalanya selagi masjid itu digunakan oleh orang untuk beramal ibadat di dalamnya.

2.Sesiapa yang mengalirkan air sungai selagi ada orang yang minum daripadanya.

3.Sesiapa yang menulis mushaf ia akan mendapat pahala selagi ada orang yang membacanya.

4.Orang yang menggali perigi selagi ada orang yang menggunakannya.

5.Sesiapa yang menanam tanam-tanaman selagi ada yang memakannya baik dari manusia atau burung.

6.Mereka yang mengajarkan ilmu yang berguna selama ia diamalkan oleh orang yang mempelajarinya.

7.Orang yang meninggalkan anak yang soleh yang mana ianya selalu mendoakan kedua orang tuanya dan beristighfar baginya

8.yakni anak yang selalu diajari ilmu Al-Qur'an maka orang yang mengajarnya akan mendapat pahala selagi anak itu mengamalkan ajaran-ajarannya tanpa mengurangi pahala anak itu sendiri.

Abu Hurairah r.a. berkata, Rasulullah S.A.W. telah bersabda : "Apabila telah mati anak Adam itu, maka terhentilah amalnya melainkan tiga macam :

1. Sedekah yang berjalan terus (Sedekah Amal Jariah)

2 Ilmu yang berguna dan diamalkan.

3. Anak yang soleh yang mendoakan baik baginya.

10 JENIS SOLAT YANG TIDAK DITERIMA OLEH ALLAH S.W.T

Rasulullah S.A.W. telah bersabda yang bermaksud : "Sesiapa yang memelihara solat, maka solat itu sebagai cahaya baginya, petunjuk dan jalan selamat dan barangsiapa yang tidak memelihara solat, maka sesungguhnya solat itu tidak menjadi cahaya, dan tidak juga menjadi petunjuk dan jalan selamat baginya." (Tabyinul Mahaarim)

Rasulullah S.A.W telah bersabda bahawa : "10 orang solatnya tidak diterima oleh Allah S.W.T, antaranya :

1. Orang lelaki yang solat sendirian tanpa membaca sesuatu.

2. Orang lelaki yang mengerjakan solat tetapi tidak mengeluarkan zakat.

3. Orang lelaki yang menjadi imam, padahal orang yang menjadi makmum membencinya.

4. Orang lelaki yang melarikan diri.

5. Orang lelaki yang minum arak tanpa mahu meninggalkannya (Taubat).

6. Orang perempuan yang suaminya marah kepadanya.

7. Orang perempuan yang mengerjakan solat tanpa memakai tudung.

8. Imam atau pemimpin yang sombong dan zalim menganiaya.

9. Orang-orang yang suka makan riba'.

10. Orang yang solatnya tidak dapat menahannya dari melakukan perbuatan yang keji dan mungkar."

Sabda Rasulullah S.A.W yang bermaksud : "Barang siapa yang solatnya itu tidak dapat menahannya dari melakukan perbuatan keji dan mungkar, maka sesungguhnya solatnya itu hanya menambahkan kemurkaan Allah S.W.T dan jauh dari Allah."

Hassan r.a berkata : "Kalau solat kamu itu tidak dapat menahan kamu dari melakukan perbuatan mungkar dan keji, maka sesungguhnya kamu dianggap orang yang tidak mengerjakan solat. Dan pada hari kiamat nanti solatmu itu akan dilemparkan semula ke arah mukamu seperti satu bungkusan kain tebal yang buruk."