مشروع برنامج القران الكريم

السلام عليكم

اقتباس

أنا أنجزت الكثير من البرنامج ... ومستمر به إن شاء الله تعالى حتى يرى النور ...

سوف أضع البرنامج هاليومين للاطلاع وأخذ رأي الأخوة الأكارم

أين الجماعية في المشروع ؟

من الواضح جدا أن المشروع أحادي .. وأوصي المشرف بتحريره من المواضيع المثبتة التي كثرت وأصبحت مع المواضيع الجماعية تأخذ جزء كبير من الشاشة مما يستدعي التدخل الفوري للتقليل منها .

تحياتي .

بارك الله فيكم جميعاً وانه لمشروع عظيم

اسأل الله تعالى ان يوفقكم ويسدد خطاكم لما فيه المصلحة العامة

ورقي الامة وخدمة الشريعة الاسلامية .

نحن معك اخي ابوهادي نحن تلاميذك ورهن اشارتك آمر ننفذ !

ولا أظن أن احداً سيقصر في خدمة هذا المشروع بل الكل يرغب في المشاركة

والله ولي التوفيق

السلام عليكم

اقتباس

نحن تلاميذك ورهن اشارتك آمر ننفذ !

أشكرك أخي ولكن هو مجرد رأي أدلي به صائبا كان أو خاطئا وليس أمرا .. وليس من حق أي منا تصدير أوامر على غيره .

عموما أود أن أشير إلى أن الموضوع ليس بجديد على الأمة أو الأمة الإسلامية الآن في حاجة ماسة لهذا المشروع فما أكثر برامج القرآن الكريم التي ترى فيها العجب العجاب وهي ميسرة للجميع ، تباع أحيانا بمبلغ رمزي لا يتجاوز 50 ريالا سعوديا وكثير من الأحيان توزع مجانا . أذكر على سبيل المثال وهي ليست بدعاية برنامج القرآن الكريم من صخر "العالمية" .

ومع ذلك فالموضوع جديد على منتدانا ويستحق الإهتمام به من الجميع وأنا كنت أحد الذين علقوا على الموضوع في بداياته . فبه قد يفتح لنا أبواب جديدة للتفكير في عمل برامج دينية مشابهة ننفع بها لسد أي نقص إن وجد بعد أن نتعلم المزيد في البرمجة من خلاله . ولكن الأخ الفاضل صاحب الموضوع في واد وكل المشاركين في واد ولا يوجد من ينسق بين الإثنين .

أنا أعتقد أن الموضوع أخذ أكبر من حجمه لفقدانه الجماعية .. وأقترح إما أن يتنازل الأخ الكريم بإشراك من تبرع معه أو يعامل على أنه فكرة مشروع فردي يؤجل التصويت والتعليق عليه حتى يرى النور .

تحياتي .

أعزائي أعضاء المنتدى ، تحية طيبة ، لقد تمكن أحد زملائي من عمل طريقة لعرض القرآن الكريم وهي طريقة في غاية الروعة ، بإمكانكم دراستها ومعرفة كيفية عملها .

لقد بحثنا عن طريقة للبحث عن كلمة أو آية معينة في القرآن الكريم ولكننا لم نتمكن ، لأنه يطلب الكلمة كما هي مكتوبة بالحركات أي عندما نضع كلمة ( أعبد ) فإنه لا يتعرف على الكلمة ولكن عندما نكتبها بالحركات ( أَعْبُدُ ) يتعرف عليها وهذا يتعب المستخدم ويجب عليه أن يكون ملما بمعرفة جميع كلمات القرآن بحركاتها ،،، :(

نأمل من لديه طريقة للبحث عن كلمة بدون وضع الحركات وضعها في نفس المثال ، وذلك لكي تعم الفائدة للجميع ،،،،، :)

شكر خاص لمن توصل لهذه الطريقة وهو الأستاذ / علي خواهر ، أثابه الله وأحسن إليه وزاده من نعيمه وجعله في ميزان حسناته ،،،

ملاحظة : سورة البقرة وسورة النساء في مثال أكسس ( XP ) لا يتم عرضهم بينما على أكسس ( 97 ) يتم عرض جميع السوّر بدون استثناء . أرجو ملاحظة ذلك ،،، :rolleyes:

ملاحظة : في حالة التنقل بين الآيات استخدم الأسهم . :D

طلب : نأمل من الإخوان الخبراء والمحترفين إيجاد عملية بحث سريع عن آية معينة أو كلمة معينة دون اللجوء إلى كتابة الحركات ،،،،،،،،،، (clock)

مع تحيات : أبو عقيل (f)(f)(f)

quran_xp.zip

وهذه نسخة من البرنامج على أكسس (97)

مع تحيات: أبو عقيل (f) (f)(f)

quran_97.zip

السلام عليكم

الاخ aboaqeel2001

اقتباس

نأمل من لديه طريقة للبحث عن كلمة بدون وضع الحركات وضعها في نفس المثال

يوجد في الملف المرفق في المشاركات السابقة نسخة كامله من القران الكريم في ملف اكسس

في هذا الملف يوجد نص بالتشكيل وفي عمود آخر يوجد النص بدون تشكيل وذلك تسهيلا لعملية البحث .

السلام عليكم

الأخ أبو عقيل .. هل هذا هو نفسه برنامج الأخ عمران ؟

إذا لم يكن هو فأنا أقترح عليك فتح موضوع آخر بإسمك ولتدع للأخ عمران هذا الموضوع حتى يتم برنامجه .

لقد اطلعت على المثال فهو ممتاز جدا ويستحق الإهتمام . وعملية البحث ممكنة بعمل دالة بسيطة جدا وهي باعتقادي أفضل من احتياجنا لمساحة مضاعفة كما اقترح أخينا فيصل ولكن ستكون على حساب السرعة وحاليا مع الأجهزة السريعة يذوب الفرق ويكاد أن يتلاشى .

الدالة تحتاج من الوقت 10 دقائق بالكثير .

أنا بانتظار ردكم بخصوص الإقتراح .

تحياتي .

السلام عليكم

تم عمل دالة للحصول على النص بدون تشكيل وبدون همزات . راجعتها بشكل سريع ، قد يكون هناك مشاكل في نطاق الحروف العربية ، مطلوب مراجعتها بشكل دقيق .

تحياتي .

quran_97.zip

أخي العزيز / أبو هادي :)

تحية طيبة وبعد

اقتباس

لقد اطلعت على المثال فهو ممتاز جدا ويستحق الإهتمام . وعملية البحث ممكنة بعمل دالة بسيطة جدا وهي باعتقادي أفضل من احتياجنا لمساحة مضاعفة كما اقترح أخينا فيصل ولكن ستكون على حساب السرعة وحاليا مع الأجهزة السريعة يذوب الفرق ويكاد أن يتلاشى .

شكرا لك على الاطلاع وتقديره بتقدير ( ممتاز ) ، أما عن الاستفسار فيما

إذا كان هو برنامج الاخ / عمران ، فهو ليس هو ،،،، هو لأخي / علي خواهر !

اقتباس

الدالة تحتاج من الوقت 10 دقائق بالكثير .

ما هو قصدك بهذه الدالة ،،،، لو تكرمت أن تضعها في مثال ،،،،، :rolleyes:

بالنسبة لاقتراحك أخي فقد وضعت موضوعي في البداية بإسمي ولكن تم

دمجه في نفس هذا الموضوع من قبل المشرفين والقائمين على هذا المنتدى

و الآن من باب الأدب لا أستطيع فصله ووضعه في موضوع مستقل ،،،،،،

بدون زعل أخي ، أستبيحك عذرا ،،،،،، :o

مع خالص تحياتي وتقديري لشخصكم الكريم

أبو عقيل (f)(f)(f)

ان شاء الله استطيع المشاركة معكم

ماهي لغة البرمجة المستخدمة

السلام عليكم

اقتباس

ماهي لغة البرمجة المستخدمة

أخي العزيز khwlani

المستخدم هنا فقط برمجة قواعد بيانات ميكروسوفت أكسس . فقط

ما اقصده عند عمل الواجهه هل سوف تستخدمون لغة برمجة معينة ام لا

فالبحث وما شابه ذلك يفضل استخدام لغة برمجة مثل VB,VC++,Java

السلام عليكم

بالنسبة للسور التي لا تعرض فهي لمحدودية مساحة الـ Text Box حيث الطول الأقصى للنص هو 32768 حرفا وقد فحصت طول النص لسورة البقرة مع الأقواس والمسافات وبلغ 56694 حرفا .

لذا كحل مؤقت أرى أن يوضع صندوقين نص ويكون هناك زر للتحويل بين الصفحة الأولى والصفحة الثانية حيث تكون إحداهما مرئية والأخرى مخفية .

والسؤال الذي يطرح نفسه هنا هل يوجد صندوق نص يقبل نصا أطول من 32768 حرفا لحل هذه المشكلة .

تحياتي .

أخي العزيز / أبو هادي :)

تحية طيبة ،،،، وبعد

هل جربت تشغيل البرنامج على أكسس 97 ؟؟؟؟؟

إنه يعرض جميع السوّر بدون إستثناء ،، حتى سورة البقرة وسورة النساء .

بينما على أكسس xp يعرض جميع السوّر بإستثناء سورة البقرة

و سورة النساء !!!!!!

هنا السؤال لماذا ؟؟؟؟؟؟ :(:(:(

مع تحيات : أبو عقيل (f)(f)(f)

السلام عليكم

أخي أبو عقيل .. لم أجرب ومعلومة غريبة صراحة .

ولكن هناك سؤال آخر لك هل قرأت ردي الأخير في الصفحة السابقة رقم 4 ، أعتقد لم تلحظ ذلك . :)

تحياتي .

أخي العزيز / أبو هادي :D

تحية طيبة وبعد (f)(f)(f)

اقتباس

تم عمل دالة للحصول على النص بدون تشكيل وبدون همزات . راجعتها بشكل سريع ، قد يكون هناك مشاكل في نطاق الحروف العربية ، مطلوب مراجعتها بشكل دقيق .

هل هذا ما تقصده أخي ، لقد تم وضع ما أنت توصلت إليه على نموذج

للبحث عن أي كلمة في جميع إيات القرآن الكريم ، وسوف أضعها لدراستها

من قبلكم ،،،، وفي إنتظار ملاحظاتكم ،،، شكرا لك على هذه الدالة التي

أتحفتنا بها ،، نشكرك أنا و زملائي من أعماق قلوبنا ،،، ونسأل الله أن يجعل

هذا العمل في ميزان حسناتك ،،،،،،،، (gift)(f)(gift)(f)(gift)

تحياتي : أبو عقيل

quran_97.zip

لو وضعت الداتا في اكسس 97 والبرنامج ككل باكسس 2002 هل سكون هناك اي تعارض؟؟

السلام عليكم

أخي الكريم أبو عقيل .. لقد قمت بإضافات بسيطة على فورم البحث .

الأخ abu mohammed .. المشكلة ليست مع الجداول بل مع صندوق النص لأكسس 2002 .

الملف المرفق يحتوي على فورم البحث فقط وقد قمت بإزالة الجداول والفورم الرئيس حيث فشلت مرتين في إرفاقه مع هذه المشاركة .

تحياتي .

qrnadd_2002.zip

السلام عليكم

لقد تم حل مشكلة عدم عرض السور الطويلة بنفس إقتراحي السابق .

يوجد زر تبديل الصفحات بجانب زر الخروج .

تحياتي .

form.zip

الاخوة الاعزاء :D

تم تحديث شاشة عرض القرآن الكريم ، وذلك بإضافة عرض إسم السورة

وعدد آياتها ،،،،،،،،،، (gift)(f)(gift)

تحياتي : أبو عقيل (f)(f)(f)

form_97.zip

السلام عليكم

أخي أبو عقيل .. أشكرك على قبول فكرة الحل المؤقت لصندوق النص ولكن مع الفحص لاحظت أنه يحتاج إلى إضافة بسيطة في نهاية كود الحدث li1_AfterUpdate وذلك كالتالي :

If Not Me.CmdPage.Enabled And Me.CmdPage.Caption = "2" Then

  Call CmdPage_Click

End If

كما لاحظت أثناء فحص البحث كلمة أعتقد أن كتابتها غير صحيح آمل التأكد منها وهي :

"يجرم نكم" من سورة المائدة .

ولي اقتراح كذلك بعرض رقم الآية في نتائج البحث (رقمها في السورة) إذا تيسر ذلك .

تحياتي .

السلام عليكم

عمل طيب بارك الله فيكم وإن شاء الله إلى الأمام .. وعذرا على المتابعة المتقطعة منى ...

تحياتى

السلام عليكم

واجهتني مشكلة غريبة حيث أنه بعد أن ضغطت قاعدة البيانات Compacting في أكسس 97 لم تعد دالة التحويل تعمل مما عطل معها البحث !! فهل هذا فقط معي أم مع الجميع ؟ وهل هذا يحدث مع أكسس 2002 أيضا ؟ .

آمل منكم التجربة وموافاتنا بالنتيجة .

تحياتي .

السلام عليكم

لقد قمت بتحويل البرنامج إلى 2000 فعمل البحث معي وقمت بضغطه أيضا ولم تحدث مشاكل .

ثم قمت بإعادة تحويله مرة أخرى إلى 97 وعمل البحث مرة أخرى .

هل هناك تفسير لهذه المشكلة ؟ .. طبعا العيب ليس من الدالة وتستطيعون التجربة بالبحث بدون هذه الدالة .. هذه المشكلة تحدث فقط مع العربي أما اللغة الإنجليزية فلا مشاكل معها .

تحياتي .

السلام عليكم

ممكن توضيح لارقام الـ ASCII المرفة بالوحدة النمطية

Function ReStr(ByVal InStrng As Variant) As String
  Dim StrLn As Long
  Dim Cntr As Long
  Dim NewStr As String

  ReStr = ""
  StrLn = Len(Nz(InStrng))
  If StrLn = 0 Then Exit Function

  NewStr = ""
  For Cntr = 1 To StrLn
    Select Case Asc(Mid(InStrng, Cntr, 1))
      Case 194, 195, 197
        NewStr = NewStr & "Ç"
      Case 32, 193, 196, 198 To 239
        NewStr = NewStr & Mid(InStrng, Cntr, 1)
    End Select
  Next Cntr
  ReStr = NewStr
End Function

وشكرا لكم