السلام عليكم
جرب تشغيل هذا الكود للتعرف على الحروف والآسكي :
Sub Test() Dim AsciCode As Byte For AsciCode = 193 To 239 MsgBox Chr(AsciCode) & Space(5) & AsciCode Next AsciCode End Sub
وعند تجربتي للكود اكتشفت بعض الآسكي تحتاج إلى استبعاد من نطاق الحروف العربية إلا إذا كان عندي مشكلة في إظهار الحروف بصورتها الصحيحة وهي كالتالي :
215
220
224
226
231-235
238-239
تحياتي .
السلام عليكم
تعديل على دالة تحويل النص المستخدمة في البحث :
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 214, _ 216 To 219, 221 To 223, 225, _ 227 To 230, 236 To 237 NewStr = NewStr & Mid(InStrng, Cntr, 1) End Select Next Cntr ReStr = NewStr End Function
تحياتي .
الأخوة الكرام الاستاذ / أبوهادى ... الاستاذ / أبوعقيل
سلام الله عليكم ورحمته وبركاته
البرنامج ممتاز جداً جعله الله فى ميزان حسناتكما ونفع به المسلمين وخصوصاً فرم البحث ..
الاخوة الكرام .. لاحظت حين استعرض السورة انه ليس هناك اشرطة تمرير الأمر الذى يجعل المستخدم ان يضغط ادخال حتى يصل للسطور السفلى خصوصاً اذا كانت السورة طويلة مثل سورة البقرة او النساء وغيرهما الكثير
الا يمكن تحسين وظائف مربع النص وزيادة امكانياته مثلاً وهذا اقتراح قد يكون صواب او لا " عمل دالة لتحديد عدد السطور او ....
عموماً جهدكبير مشكور اسأل الله لكم العفو والعافية والسداد والتوفيق
والسلام عليكم ورحمة الله وبركاته
السلام عليكم
بارك الله فيك أخي أبو طالب .. ولكن ألفت انتباهكم إلى أن البرنامج لا يخص أبو هادي . فكل الشكر لأصحاب البرنامج أبو عقيل ورفاقه .
الموضوع يحتاج إلى منسق .. ويحتاج إلى متابعة مستمرة . واسمحوا لي جميعا على تداخلاتي الكثيرة غير المحببة كما يبدو .
تحياتي .
أخى الفاضل / أبو هادي
سلام الله عليكم ورحمته وبركاته
لا يخفى يا أخى مساهماتكم الجادة وساء كان البرمج يخصكم او يخص اخونا الاستاذ / أبوعقيل فكلنا واحد وكلنا أخوة فى الله وهذا العمل وقف لوجة الله تعالى وينبغى ان يظهر فى اكمل وجة
سلامى الشخصى لشخكم الكريم وكذا للاستاذ ابوعقيل وفقكم الله تعالى
والسلام عليكم ورحمة الله وبركاته
السلام عليكم
الاخ ابو هادي : كما سبق و ان اقترحت ترشيح احد الاخوة بقيادة المشروع
http://www.arabteam2000.com/vb/showthread....15&pagenumber=4
السلام عليكم
الأخ فيصل الحربي .. أخينا الفاروق نعم المرشح وهو معروف بنشاطه ولكني أميل أن يكون المرشح من الفاعلين في منتدى الأكسس . على خلفية الترشيح والتصويت على انتخاب المشرفين فأنا أجزم أنه لن يقوم أحد بترشيح نفسه .
عليه فأنا أدعم هذا الترشيح .. والله الموفق .
تحياتي .
أخي العزيز / أبو هادي :)
تحية طيبة ،،، وبعد
هذا المثال يتضمن تحديد الكلمة أي تظليلها بعد أن تكتب الكلمة المراد البحث عنها ،، مثال أكتب (( بسم )) ثم أضغط Enter سوف تظلل كلمة (( بسم )) في النص مباشرة ،،، حتى لو كتبت (( الحمد لله رب العالمين )) سوف تظلل العبارة بأكملها ،،، حاولت تطبيق هذه الفكرة على شاشة البحث ولكنني لم أنجح ،،،
هل لك أن تحاول أنت أيضا ربما تتوصل للطريقة السليمة ،،،
لأن هذه الطريقة سوف تقوي عملية البحث أيضا ،،،،
لك خالص تحياتي وتقديري لشخصكم الكريم ،،،،،،، (f)
مع تحيات : أبو عقيل (f)(f)(f)
المسلم من سلم الناس من لسانه ويده
السلام عليكم
أخي أبو عقيل .. هذا حل مؤقت على السريع وسوف أقوم بتنقيحه لاحقا .
بعد البحث لن تظلل الكلمة في البداية ، فقط قم بالإنتقال بين السجلات وستظهر النتيجة .
تحياتي .
السلام عليكم
هذه دالة لمعرفة عدد تكرار الكلمة المطلوبة التي يحتويها النص سواء في آية واحدة أو سورة كاملة .
Function GetFoundCount(ByVal SString, ByVal SChar) As Long Dim FoundCount As Long Dim Pos As Long Dim SearchString As String Dim SearchChar As String On Error Resume Next SearchChar = ReStr(SChar) SearchString = ReStr(SString) Do Pos = InStr(Pos + 1, SearchString, SearchChar) If Pos <> 0 Then FoundCount = FoundCount + 1 Pos = Pos + Len(SearchChar) - 1 End If Loop Until Pos = 0 GetFoundCount = FoundCount End Function
تحياتي .
أسعد الله مسائكم بكل خير :D
لقد تم إضافة نوع السورة فيما إذا كانت (( مكية )) أو (( مدنية )) ، وقد تم
تغيير جدول السوّر بجدول آخر من الملفات المرفقة في هذا الموضوع ، لقد رأيتها
تحتوي على بعض الامور التي يطلبها المستخدم أثناء البحث ،، وجدت في هذا
الجدول أيضا (( من أي صفحة تبدأ هذه السورة )) ،، وهذا يخدم الباحث أيضا
لقد تم وضع هذين الامرين في شاشة عرض السوّر ….
تم تعيين شريط تمرير في مكان عرض السورة وذلك لسهولة التنقل بين الايات .
اختبرت بدء الصفحة لسورة معينة وقد رأيتها مطابقة تماما لمصحف
(( مجمع الملك فهد لطباعة المصحف الشريف ))
المصحف الشريف الذي يوزع كهدية من خادم الحرمين الشريفين حفظه الله وأطال في عمره ، ومتعه بالصحة و العافية .
مع تحيات : أبو عقيل (f)(f)(f)(f)
المسلم من سلم الناس من لسانه ويده
السلام عليكم
جهود طيبه تستحقون الشكر عليها .
السلام عليكم
ماشاء الله فعلا تنقيح جيد
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
الاخوة الاعزاء :D
لقد تم وضع موقع السورة حسب الجزء في شاشة عرض السوّر ،، أي
أن هذه السورة مثلا تقع في الجزء الأول ،،، بعض السوّر تقع بين عدة أجزاء
مثل سورة البقرة تقع في الجزء الأول والثاني والثالث ،،،، وهكذا ،،،،
مع تحيات : أبو عقيل (f)(f)(f)
المسلم من سلم الناس من لسانه ويده
أخي العزيز / أبو هادي :D
السلام عليكم
هذه طريقة بحث بعدة خيارات
1 - بحث في المصحف كاملا .
2 - بحث حسب الأجزاء .
3 - بحث حسب الحزب .
4 - بحث حسب السورة .
لقد فصلت شاشة البحث عن البرنامج ووضعتها في هذا المثال
كي تدرسها ، فإن وجدتها طريقة قوية تخدم الباحث ، فأرجو
من سعادتكم التكرم بتعديل ما تراه مناسب ووضع لمساتكم
الكريمة مثل تحديد الكلمة بعد البحث .
ملاحظة : لم يكتمل وضع الاجزاء في جدول الايات ، والحزب
أيضا ……
هذه الطريقة فكرة وإعداد أخي وزميلي الاستاذ : علي خواهر أثابه الله وحفظه من كل مكروه .
مع تحيات : أبو عقيل (f)(gift)(f)
المسلم من سلم الناس من لسانه ويده
اخواني واخواتي مرتادين هذا الموقع الاكثر من رائع .
اولا :- السلام عليكم ورحمة الله وبركاتة
قرات موضوعكم الفاضل بخصوص مشروع القران الكريم واعجيت بة جدا جعل ذلك المشروع في موازين حسناتنا , وانا متحمس جدا للمشاركة ولكن اريد ان نعرف هل سيكون قاعدة البيانات للمشروع بالاكسس او بال MY SQL او بقاعدة بيانات اخرى كما نريد ان نعرف ما هي لغة البرمجة المستخدمة, وما هي الوظائف المتاحة بالنظام المراد عملة بالضبط.
وشكرا :cool:
السلام عليكم
يا أخى الموضوع من أوله رأخره حتى الأن بال Access ..
ملاحظة على البرنامج .... الرجا تغيير مربع النص الخاص بكلمة البحث إلى العربية حتى تكون هى الإفتراضية وذلك بتغيير " اتجاه القراءة .. ولغة لوحة المفاتيح " للعربية
أعلم ان ذلك هين يسير على الجميع ولكن وددت الاقتراح فقط
تحياتى
وجزاكم الله خير الجزاء
" وما توفيقى إلا بالله عليه توكلت وإليه أنيب "
-------------------------------------------------
قل : " لا حول ولا قوة إلا بالله "
-------------------------------------------------
السلام عليكم
أخي أبو عقيل .. هذا مثال لنموذج لما افكر به لعملية البحث وهذه الطريقة أستخدمها في برامجي بالعمل .
مثالكم أخي ممتاز ولكن أعتقد هذه الطريقة أكثر مرونة وخصوصا أنها لا تتطلب اختيار واحد بل لك كل الخيارات دفعة واحدة .
بانتظار ردكم .. وأتمنى على الجميع بعدم البخل علينا بملاحظاتهم ومهما صغرت .
أخي الفاروق أشكركم لاهتمامكم وأتمنى المواصلة معنا .
تحياتي .
السلام عليكم
أخي أبو عقيل .. البرنامج أصبح حجمه كبيرا ، وقد فحصت الجداول ورأيت أنها تحتاج إلى بعض التعديلات وإعادة هيكلة .
فما رأيكم ؟
تحياتي .
السلام عليكم
بارك الله فيكم يا اخوان وجزاكم الله خير
بما ان موضوعكم حول القرأن الكريم حبيت
ان اهديكم هذا البرنامج الصغير لسماع القرأن
الكريم كامل بصوت القارئ الشيخ مشاري راشد
العفاسي .......... لتنزيل البرنامج .. اضغط هنــــــــــا
تحياااااااااااااااتي
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
