مشروع القران الكريم ( تصف العمل اكتمل )

[onexite]

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


الخط العادي

اعدادات



لتحميل البرنامج مع الكود سورس

كود :

http://www.mediafire.com/download/62a76yc57dsbfi7/quranSqlite2.rar

]

[محمد عبد العزيز]

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

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

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

[onexite]

ما هو مصدر قاعدة البيانات ؟

وجدتها في هذا الموقع
github.com/riadvice/Qurani

[onexite]

الخط الجديد

خاصية البحث

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]

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




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



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

[masrnet2006]

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

[onexite]

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

[onexite]

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

[محمد عبد العزيز]

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

[MarmaR]

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