delphi4arab منتديات دلفي للعرب
مشروع القران الكريم ( تصف العمل اكتمل ) - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : مشاريع دلفي الجماعية (https://delphi4arab.net/forum/forumdisplay.php?fid=24)
+--- الموضوع : مشروع القران الكريم ( تصف العمل اكتمل ) (/showthread.php?tid=6611)

الصفحات: 1 2

مشروع القران الكريم ( تصف العمل اكتمل ) - onexite - 01-12-2014

السلام عليكم
المشروع لوجه الله
من يريد المساهمة فليتفضل
قاعدة البيانات sqlite تم ارفاقها مع البرنامج لاستكشافها استخدموا DB Browser for SQLite
تحتوي على مكان السجدة والاحزاب وغيرها ...
البرنامج ملتي ثريد
صور من البرنامج

[صورة: a0o8jd.png]
الخط العادي
[صورة: 4Rp84i.png]
اعدادات

[صورة: WDhAbP.png]

لتحميل البرنامج مع الكود سورس
كود :
http://www.mediafire.com/download/62a76yc57dsbfi7/quranSqlite2.rar
]

مشروع القران الكريم ( تصف العمل اكتمل ) - محمد عبد العزيز - 01-12-2014

وعليكم السلام ورحمة الله

ما هو مصدر قاعدة البيانات ؟
مشروع القرأن بجاجة لجهة رسمية تدعمه من حيث التدقيق والتصحيح

كان هنا مشروع سابق بالمنتدى لكن حذف لهاذا السبب

مشروع القران الكريم ( تصف العمل اكتمل ) - onexite - 01-12-2014

B.M.AbdelAziZ كتب : ما هو مصدر قاعدة البيانات ؟
وجدتها في هذا الموقع
github.com/riadvice/Qurani

مشروع القران الكريم ( تصف العمل اكتمل ) - onexite - 01-12-2014

الخط الجديد
[صورة: 1cvRXX.png]
خاصية البحث

[صورة: ySEWFx.png]

PHP كود :
function TForm2.QuranFind(_SoraIndex,_AyaIndex: Word): string;
var
    i,starting_row:Word;
    list:TStringList;
begin


try
try
StatusBar1.Panels[0].Text:='';
Result:='';
//من اين تبدا السورة
starting_row:=QuranTable.starting_row[_SoraIndex];
// اختيار الايات من اين تبدا الى حد مجموع الايات
list:= QuranSelect(starting_row,starting_row+suwarLength[_SoraIndex]);
 //SELECT imlai FROM Quran WHERE imlai like '+QuotedStr('%'+str+'%')
if _AyaIndex > suwarLength[_SoraIndex] then begin
                                           StatusBar1.Panels[0].Text:='لا توجد اية برقم : ' +inttostr(_AyaIndex) +' اقصى حد : '+inttostr(suwarLength[_SoraIndex]);
                                           Exit;
                                            end;
if list.Count > 0 then begin
 Result:=list[_AyaIndex-1];
  StatusBar1.Panels[0].Text:='تم العثور على '+inttostr(list.Count)+' ايات';
end else StatusBar1.Panels[0].Text:='لم يتم العثور على ما يناسب بحثك';

finally
list.Free
end;

except on e:exception do StatusBar1.Panels[0].Text:=' حدث خطأ '+e.Message; end;

end; 
عملية البحث
PHP كود :
procedure TForm2.Button1Click(Sender: TObject);
begin
Memo2.Text:=QuranFind(ComboBox1.ItemIndex+1,SpinEdit1.Value) ;
end; 
الخط المستخدم
PHP كود :
http://fonts.qurancomplex.gov.sa/ 


مشروع القران الكريم ( تصف العمل اكتمل ) - onexite - 02-12-2014

تم تغيير قاعدة البيانات والان اصبحت موثوقة من موقع القرآن الكريم بجامعة الملك سعود
تم اضافة التفسير وخاصية البحث
التفسير الميسر


[صورة: Ufy5fI.png]

البحث صحيح ويجد حتى انصاف الكلمات

[صورة: Dx8c8M.png]

رابط التحميل ( كامل المشروع ) بأول الموضوع

مشروع القران الكريم ( تصف العمل اكتمل ) - masrnet2006 - 03-12-2014

مبرمج خبرة للمشاركه

مشروع القران الكريم ( تصف العمل اكتمل ) - onexite - 03-12-2014

للمساهمة فيمكنك المشاركة معنا هنا

مشروع القران الكريم ( تصف العمل اكتمل ) - onexite - 03-12-2014

تم اضافة مكتبة bass والقراءة من الانترنت بصوت المنشاوي مجود

[صورة: iM4hfw.png]

مشروع القران الكريم ( تصف العمل اكتمل ) - محمد عبد العزيز - 03-12-2014

هكذا لن يشارك احد ويتم التحميل فقط
حتى يشارك غيرك بالمشروع من الاحسن ان تضع على شكل نقط ما ينقص المشروع
- فعل كذا وكذا
- ......

مشروع القران الكريم ( تصف العمل اكتمل ) - MarmaR - 03-12-2014

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