Zikir

2/8/2006 ·

14. yüzyıl Yesevî şeyhlerinden İsmâil Ata bir mürîdine zikir telkîn ettikten sonra şöyle derdi: “Ey derviş! Tarîkat kardeşi olduk. Benden bir nasîhat kabul et: Bu dünyâyı yeşil bir kubbe olarak düşün, farz et ki âlemde sâdece sen varsın, bir de Hak Teâlâ var. O kadar zikret ki, tevhîdin galebesi ile sâdece Hak Teâlâ kalsın, sen aradan çık!”

http://www.geocities.com/tasavvufiliteratur/lit3.htm den alınmıştır.

 

PROGRAMLARIM

 

E-kitap: Mevlana Celaleddin Rumi Şiirleri

54 adet Mevlana Celaleddin Rumi şiirini size e-kitap olarak sunuyoruz. Aşağıda yer alan linke tıklayarak bu e-kitabı bilgisayarınıza indirip (download edip), kayıt edebilir ve internete bağlı olmaksızın bu şiirleri dilediğiniz gibi okuyabilirsiniz. Dilerseniz bu e-kitabı Palm veya Notebook'unuza aktarıp istediğiniz yerde ve istediğiniz anda şiir okumanın keyfini sürün.

E-kitap Tipi (formatı) PDF - Acrobat Reader
İçeriği 54 adet Mevlana Celaleddin Rumi şiiri
Dosya Büyüklüğü 120 kB
Yaklaşık Download Süresi Yavaş İnternette: 34 saniye
Hızlı İnternette: 17 saniye  

Şiirlerden oluşan e-kitap dosyasını indirmek için buraya tıklayın
1. Yukarıdaki linke mouse sağ tuşla tıklayın
2. Save Target As / Hedefi Farklı Kaydet seçeneğini seçerek dosyayı bilgisayarınıza kaydedin.
3. Bilgisayarınıza kayıt ettiğiniz PDF dosyasını mouse ile çift tıklayıp açın.

EkleBunu Sosyal Paylaşım Butonu

Kalıcı Bağlantı Yorum (0) Yorum yaz!

« Önceki :: Sonraki »

Yorum yaz! :: Arkadaşına Gönder!

0 yorum yazılmıştır

Yorum yaz!

<% Sub LogActiveUser Dim strActiveUserList Dim intUserStart, intUserEnd Dim strUser Dim strDate strActiveUserList = Application("ActiveUserList") If Instr(1, strActiveUserList, Session.SessionID) > 0 Then Application.Lock intUserStart = Instr(1, strActiveUserList, Session.SessionID) intUserEnd = Instr(intUserStart, strActiveUserList, "|") strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart) strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & ":" & Now()) Application("ActiveUserList") = strActiveUserList Application.UnLock Else Application.Lock Application("ActiveUsers") = CInt(Application("ActiveUsers")) + 1 Application("ActiveUserList") = Application("ActiveUserList") & Session.SessionID & ":" & Now() & "|" Application.UnLock End If End Sub Sub ActiveUserCleanup Dim ix Dim intUsers Dim strActiveUserList Dim aActiveUsers Dim intActiveUserCleanupTime Dim intActiveUserTimeout intActiveUserCleanupTime = 1 intActiveUserTimeout = 20 If Application("ActiveUserList") = "" Then Exit Sub If DateDiff("n", Application("ActiveUsersLastCleanup"), Now()) > intActiveUserCleanupTime Then Application.Lock Application("ActiveUsersLastCleanup") = Now() Application.Unlock intUsers = 0 strActiveUserList = Application("ActiveUserList") strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1) aActiveUsers = Split(strActiveUserList, "|") For ix = 0 To UBound(aActiveUsers) If DateDiff("n", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), ":") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then aActiveUsers(ix) = "XXXX" Else intUsers = intUsers + 1 End If Next strActiveUserList = Join(aActiveUsers, "|") & "|" strActiveUserList = Replace(strActiveUserList, "XXXX|", "") Application.Lock Application("ActiveUserList") = strActiveUserList Application("ActiveUsers") = intUsers Application.UnLock End If End Sub %>