إعـــــــلان

عبد الهادي بهاب · 14-04-2020, 01:57 AM

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

التفسير الميسر المختصر لبعض كلمات القران

انوه بمشاركة الاستاذ السعيد الجزائري في توفير نسخة التفسير المختصر
ونذكر بطلبنا للتفاسير الاخرى بصيغة csv او اكسل

المشروع بعد اضافة كود البحث في التفسير

الملف المعدل للمشروع
https://www.mediafire.com/file/xhqww...afsir.apz/file

بالتوفيق

عبد الهادي بهاب · 14-04-2020, 02:38 AM

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

من اجل ايجاد احصائيات حول عدد كلمات و عدد حروف و ايات القران
نضع هذا الكود في زر و انبوت لاظهار النتائج و نتحصل على التالي
-----------------
عدد الايات 6204
عدد الكلمات 77384
عدد الحروف 605646
----------------------

كود PHP:


db = SQLite.Open("AutoPlay\\Docs\\coran.db");
s= SQLite.QueryToTable(db, "select * from coran");

Progress.SetRange("Progress1", 0, #s.Data);
x=0; y=0; g=0;
for i,v in pairs(s.Data) do
  m = s.Data[i]["Aya_text"]; 
  for wo in string.gmatch(m, "%S+") do 
     x=x+1;
     if wo ~= " " then   y = y + #wo ; end
  end
  g=i;
  Progress.SetCurrentPos("Progress1", i);
end

Dial ="ÚÏÏ ÇáÇíÇÊ "..g .."\r\n".."ÚÏÏ ÇáßáãÇÊ "..x.."\r\n".."ÚÏÏ ÇáÍÑæÝ "..y ;
Input.SetText("Input1", Dial)

شكرا على المتابعة

عبد الهادي بهاب · 14-04-2020, 03:11 AM

السلام عليكم ورحمة الله وبركاته
اما اذا اردنا احصاء تكرار كل حرف لوحده في القران
- حسب قاعدة بيانات-
نضع هذا الكود

كود:

db = SQLite.Open("AutoPlay\\Docs\\coran.db");
s= SQLite.QueryToTable(db, "select * from coran");

let = {"&#195;", "&#200;", "&#202;","&#203;", "&#204;" ,"&#205;","&#206;","&#207;","&#208;","&#209;","&#210;","&#211;"," &#213;","&#214;","&#216;","&#217;","&#218;","&#219;","&#221;","&#222;","&#223;","&#225;","&#228;","&#229;&#220;","&#230;","&#237;"};

Progress.SetRange("Progress1", 0, #s.Data);
 res="";
for i,v in pairs(s.Data) do
  m = s.Data[i]["Aya_text"]; w=0;
  for p,lettre in pairs(let) do
  x=1;
  repeat  
  find = String.Find(m, lettre, x);
   if find ~= -1 then w=w+1;end x=x+1;
  until find ==-1 
  res = res .."Nombre "..lettre .." is " ..w .."\r\n"
  end 
  Progress.SetCurrentPos("Progress1", i);
end

Dialog.Message("",res);

الحروف الغير ظاهرة خي احرف العربية

**غريب يا فؤادي غريب يا فؤادي** · 17-04-2020, 12:50 AM

المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة

مرحبا بكم سيدي ...
ساعيد رفعها من جديد ..ضعها في مكانها قبل تشغيل البرنامج
https://top4top.io/downloadf-1562vdwt11-rar.html
-----------
ستضع الملف المعدل اليوم ان شاء الله بعد رفعه
متابعة طبية
-----------
في الفايس بوك هو نفسه اسمي عبد الهادي بهاب

للأسف حملت الاكشن ونفس المشكلة

من فضلك ارسل رابط حساب الفيس على الخاص

عبد الهادي بهاب · 18-04-2020, 02:15 AM

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

اليوم مع اخر جديد مشروعنا وفيه خاصيات جديدة
الترجمة الى لغات كثيرة
اضافة عرض بواسطة الغريد
تسريع عملية البحث
حساب عدد كلمات الاية و حروفها
اضافة نوع السورة و ترتيب نزولها
اضافة موقع الاية و جزئها و حزبها و ربعها
اضافة تفسير المختصر و الجلالين و معاني و كلمات
استعرض السور و الايات و قراءة ما تريد ه

اكتشفوها انتم

من خلال الملف المفتوح
http://www.mediafire.com/file/4sfti4...vance.apz/file

طبعا ننتظر تعديلاتكم و افكاركم

عبد الهادي بهاب · 26-04-2020, 05:31 PM

السلام عليكم ورحمة الله وبركاته
دائما مستمرون في المشروع
اليوم سنستغل مجموعة من الدوال التي نحتاجها في الاحصائيات منها

دالة استخراج عدد حروف الكلمة

كود PHP:


String.Length(txt)

دالة استخراج اللكمات في جملة او نص

كود PHP:


xd="";q=1; TWord={};  
for w in string.gmatch (m,"[^%s]+") do     
xd=xd.." "..w; 
TWord[q]=w; 
q=q+1;     
end

دالة لترتيب الغريد نصوصا

كود PHP:


Grid.SortTextItems("Grid1", 8, true, true)

غير true الى false للترتيب التصاعدي و التنازلي

اما الترتيب العددي للغريد فاستعملنا موضوعا للاستاذ ثامر
http://sites.ienajah.com/vb2/showthread.php?t=29167

استعملنا كود الاستدبالات في الحركات و التشكيل في الايات
http://sites.ienajah.com/vb2/showthread.php?t=35217

من اجل ان يظهر الغريد من اليمين الى اليسار استعملنا اضافة للاخ النصل القاطع
http://sites.ienajah.com/vb2/showthread.php?t=29173

تصدير الاوتوبلاي الى ايسكل
http://sites.ienajah.com/vb2/showthread.php?t=32672

في انتظار الاطلاع على المواضيع

عبد الهادي بهاب · 27-04-2020, 08:40 PM

آخر تحديثات المشروع

https://www.youtube.com/watch?v=YFnY...ature=youtu.be

يجب تحميل الاضافات ه\ه :

luacom
Capture
Clipboard
COLORBUTTON
Grid_arabic

كل ما تقدم في الموضوع السابق جمعته هنا
الملف المفتوح لتعديلاتكم و انتاجاتكم

https://www.mediafire.com/file/pi7xs...iques.apz/file

بالتوفيق

عبد الهادي بهاب · 29-04-2020, 02:53 AM

السلام عليكم ورحمة الله وبركاته
في صفحة احصائيات السور ممكن نضسف خاصية جديدة جميلة تنقع لمن يهتم بامر الاحصاء العددي في القران
وهي كم تكررت كلمة مافي السور كلها
يعني مثلا كم تكررت كلمة ( الله ) في القران
ملاحظة : اذا اردتها مستقلة يجب تضيف مسافة من الامام و من الخلف و الا فسيعتبرها البرنامج جدر كلمة من مثلا ( اللهم - تالله - بالله ..) و كلها موجودة

اضف انبوت لكتابة الكلمة و نسميه InpSerch و نضيف عنصر اختيار radioButton و ازع فيه الكود التالي :

كود PHP:


Nmos = Input.GetText("InpSerch");

NewStr = ""

for i = 1,#Nmos do char = String.Mid(Nmos, i, 1); asc = String.Asc(char);

if asc<240 then NewStr = NewStr..char end end Nmos = NewStr;



txt = " ÓæÑ ÊÍÊæí Úáì ßáãÉ "..Nmos;

Paragraph.SetText("Paragraph1", txt)

Grid.SetProperties("Grid1", {Rows=115});

Grid.SetColumnWidth("Grid1", 4, 140)

for d=5,9 do

Grid.SetColumnWidth("Grid1", d, 0)

end

Grid.SetCellText("Grid1", 0, 4, " ßáãÉ "..Nmos);

Label.SetText("Label1", 0);

for i=1,114 do

Grid.SetRowHeight("Grid1", i, 23);

end

for i=1,Grid.GetRowCount("Grid1") do for p=1,9 do

Grid.SetCellText("Grid1", i, p, "")

end end



tot=0;

----------------------&#205;ÓÈ Ãæá

for sels=1,114 do

  db = SQLite.Open("AutoPlay\\db\\"..sels..".db");

  s= SQLite.QueryToTable(db, "select * from coran");

Progress.SetRange("Progress1", 0, #s.Data);

Progress.SetCurrentPos("Progress1", 0);

--------

nom=0;

for i,v in pairs(s.Data) do

m = s.Data[i]["Aya_text"];  

NewStr = "" ;for i = 1,#m do char = String.Mid(m, i, 1); asc = String.Asc(char);

if asc<240 then NewStr = NewStr..char end end mol = NewStr;

--------

repeat

g = String.Find(mol, Nmos, 1);

if g~=-1 then nom = nom+1;  end

mol = String.Replace(mol,String.Mid(mol, 1, g),"");

until g == -1

Progress.SetCurrentPos("Progress1", i);

end

Grid.SetCellText("Grid1", sels, 1 ,sels);

Grid.SetCellText("Grid1", sels, 2 ,ordre[sels]);

Grid.SetCellText("Grid1", sels, 3, sels);

Grid.SetCellText("Grid1", sels, 4, nom);

tot=tot+nom ; Label.SetText("Label1", tot) ;

Grid.SetCellText("Grid1", 0, 4, " ßáãÉ "..Nmos.." : "..tot);

end   

------------------------

مثلا لما نبحث عن كلمة (موسى ) ستظهر النتائج كالتالي

بالتوفيق

عبد الهادي بهاب · 03-05-2020, 03:34 AM

السلام عليكم

مواصلة للمشروع القرآني

اليوم سنقوم ببعض التحديثات و التصحيحات

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

خاصية الخط
عوضنا اضافة sysdialog
بكومبوكس للخطوط التي نستخدمها للقرآن الكريم
اخترنا منها
Al-QuranAlKareem
Al_Mushaf
Traditional Arabic
AL-Qairwan
KFGQPC Uthman Taha Naskh
FS_Diwany
Maghribi Assile
Samir_Khouaja_Maghribi
arabswell_1
وهي موجودة في ملف سميناه Fonts في ملفات المشروع
وقد وضعنا كود لتحميل الخطوط من البرنامج الى ملف الخطوط الخاص بجهازكم

و الكود في onstartup

كود PHP:


fonts_path = Shell.GetFolder(SHF_FONTS);

fonts = File.Find(_SourceFolder.."\\AutoPlay\\Fonts\\", "*.*", true, true, nil, nil);
if fonts then
for x,y in pairs (fonts) do
File.Copy(y, fonts_path, false, false, false, true);
end
end

الان مع الاضافة الاخرى وهي الاحصائيات المتعلقة
بتكرار كلمة ما في السورو اظهار مشتقاتها
لما نبحث مثلا عن كلمة (عمر) فممكن نجده في عمرة يعمر
لذلك غيرنا في الكود ليحصي كل الكلمات التي تحتوي على الكلمة الملوبة او بما يسمى الجذر
فيه كود للاستاذ ثامر ابو بلقيس حفظه الله و نحن نشاركه الاجر بالمناسبة لحذف العناصر المتشابهة
مثلا

كود PHP:


mopick = {"gh","kl","gh","sd","er","gh","vb","sd","uo","gh"}
g="";
flags = {}; 
for i=1,table.getn(mopick)  do 
if not flags[mopick[i]] then 
io.write(' ' .. mopick[i]) ; 
flags[mopick[i]] = true  
g=g..mopick[i].."\r\n"
end  
end

Dialog.Message("",g);

لاحظ الصورة في نتائج البحث

مع الخاصية الاخرى وهي
تصدير نتائج البحث اما الى ملف وورد word او ملف اكسل excel
من اجل الوورد حولنا نتائج الجدول الى كود html
ثم حفظناه في ملف وورد عبر الكود التالي

كود PHP:


Test = Paragraph.GetText("Paragraph1")

local strHTMLData = "<html><body><h1>"..Test.."</h1>";
strHTMLData = strHTMLData.."<table width=100% border=1>";


for i=0,Grid.GetRowCount("Grid1") do
    strHTMLData = strHTMLData.."<tr>";
    
for p=1,Grid.GetColumnCount("Grid1") do
  txt = Grid.GetCellText("Grid1", i, p);
        strHTMLData = strHTMLData.."<td>";
        strHTMLData = strHTMLData..txt;
        strHTMLData = strHTMLData.."</td>";
    end
    
    strHTMLData = strHTMLData.."</tr>";
end
strHTMLData = strHTMLData.."</table>";
strHTMLData = strHTMLData.."</html></body>";

-- Save the file...
local strFN = _TempFolder.."\\test.htm";
TextFile.WriteFromString(strFN,strHTMLData);
TextFile.WriteFromString(Shell.GetFolder(SHF_MYDOCUMENTS).."\\"..Test..".doc" ,strHTMLData);
File.Open(Shell.GetFolder(SHF_MYDOCUMENTS).."\\"..Test..".doc", "", SW_SHOWNORMAL);

اما من اجل الاكسل و من اجل السرعة استعملنا اضافة excel

كود PHP:


grid = Page.GetObjectType("Grid1");
result = Excel.ExportToExcel(grid, "Grid1", 1, 65535, 16776960);

الاضافات المطلوبة
gridArabic
excel
sqlt

المشروع بعد التحديثات الاخيرة
https://www.mediafire.com/file/fyse1...52020.apz/file

بالتوفيق

عبد الهادي بهاب · 03-05-2020, 08:32 PM

السلام عليكم ورحمة الله وبركاته
خاصية جديدة
كم تكررت الكلمة في السورة بالتفصيل

إثناء البحث عن تكرار كلمة ما في القران سيجدها متضمنة في كلمات اخرى مثلا
كلمة (لله) ممكن تكون في الله - اللهو - يضلله - تالله - بالله ....
فالخاصية ستظهر اين وجدنا الكلمة (الجذر ) و كم تكررت في السورة
فمثلا من اجل كلمة (لله)
ستظهرالنتائج كالاتي

بالنسبة لكلمة (عمر) النتائج كالاتي

---------------------
برمجيا اعتمدنا على كود حساب تكرار عنصر ما في مصفوفة وهو الاتي

كود PHP:


p = {"Úáí","ÇáÇÁ","Úáí","ÎáæÏ","Úáí","ÎáæÏ","ÇáÇÁ","Úáí","ÇáÇÁ","ÎáæÏ"}



function tally(t)

  local freq = {} ; 

  for _, v in ipairs(t) do 

  freq[v] = (freq[v] or 0) + 1 ; 

  end  

  return freq 

 end



function dump(t)

g=""; 

for k,v in pairs(t) do 

g=g.."("..k.."-"..v..")".."\r\n"; 

end 

end



dump(tally(p))



Dialog.Message("",g)

--------------------
المطلوب في الملف السابق عوض الكود الموجود في radiobutton الخاص بسور تحتوي على كلمة بالتالي

كود PHP:


Nmos = Input.GetText("InpSerch");

NewStr = ""

for i = 1,#Nmos do char = String.Mid(Nmos, i, 1); asc = String.Asc(char);

if asc<240 then NewStr = NewStr..char end end Nmos = NewStr;



txt = " سور تحتوي على كلمة "..Nmos;

Paragraph.SetText("Paragraph1", txt)

Grid.SetProperties("Grid1", {Rows=115});

Grid.SetColumnWidth("Grid1", 4, 90)

Grid.SetColumnWidth("Grid1", 5, 140)

Grid.SetColumnWidth("Grid1", 6, 240)



for d=7,9 do

Grid.SetColumnWidth("Grid1", d, 0)

end

Grid.SetCellText("Grid1", 0, 4, " كلمة "..Nmos);

Grid.SetCellText("Grid1", 0, 5, " الكلمات المصدر");

Grid.SetCellText("Grid1", 0, 6, "تكرار الكلمات");

Label.SetText("Label1", 0);

for i=1,114 do

Grid.SetRowHeight("Grid1", i, 23);

end

for i=1,Grid.GetRowCount("Grid1") do for p=1,9 do

Grid.SetCellText("Grid1", i, p, "")

end end



tot=0; gh=1;

----------------------&#205;سب أول

for sels=1,114 do

  db = SQLite.Open("AutoPlay\\db\\"..sels..".db");

  s= SQLite.QueryToTable(db, "select * from coran");

Progress.SetRange("Progress1", 0, #s.Data);

Progress.SetCurrentPos("Progress1", 0);

--------

nom=0;

mopick={};c=1;

for i,v in pairs(s.Data) do

m = s.Data[i]["Aya_text"];  

NewStr = "" ;for i = 1,#m do char = String.Mid(m, i, 1); asc = String.Asc(char);

if asc<240 then NewStr = NewStr..char end end mol = NewStr;

istibAlif={["أ"] = "ا",["إ"] = "ا",["آ"] = "ا"} 

mol = string.gsub (mol, ".",istibAlif); 

q=1; TWord={};  for w in string.gmatch (mol,"[^%s]+") do TWord[q]=w; q=q+1;end

for b,mk in pairs(TWord) do

g = String.Find(mk, Nmos, 1);

if g ~=-1 then nom = nom+1; mopick[c]=mk;c=c+1; end

end

Progress.SetCurrentPos("Progress1", i);

end

-------rep---

ggg=""; flags = {}; mopick2 = mopick ;

for i=1,table.getn(mopick)  do if not flags[mopick[i]] then 

io.write(' ' .. mopick[i]) ; flags[mopick[i]] = true  

ggg=ggg.." - "..mopick[i] ;end end

----cal rep-----

function tally(t)

local freq = {} ; for _, v in ipairs(t) do freq[v] = (freq[v] or 0) + 1 ; end  return freq end

function dump(t)

gc=""; for k,v in pairs(t) do gc=gc.."- ".." ("..k.."-"..v..") ".."\r\n"; end end

dump(tally(mopick2))

----------------------

if nom ~= 0 then

Grid.SetCellText("Grid1", gh, 1 ,gh);

Grid.SetCellText("Grid1", gh, 2 ,ordre[sels]);

Grid.SetCellText("Grid1", gh, 3, sels);

Grid.SetCellText("Grid1", gh, 4, nom);

Grid.SetCellText("Grid1", gh, 5, ggg);

Grid.SetCellText("Grid1", gh, 6, gc);



tot=tot+nom ; Label.SetText("Label1", tot) ;

Grid.SetCellText("Grid1", 0, 4, " كلمة "..Nmos.." : "..tot);

gh=gh+1;

end

end   

------------------------

بالتوفيق

عبد الهادي بهاب · 07-05-2020, 03:31 AM

اخر التحديثات

https://www.mediafire.com/file/ryaip...etees.apz/file

سنشرح لاحقا

عبد الهادي بهاب · 17-05-2020, 11:31 PM

السلام عليكم ورحمة الله وبركاته
كيف حال الاخوة المتابعين ؟
اكبر تحد هو ايجاد تفاسير بصيغة csv او db
لادامجها في المشروع
ما افعله الان هو تحميل كل البرامج التي صممت في مجال القران
و محاولة الحصول على افكار منها
و من يملك قواعد بيانات للتفاسير يضعه في الموضوع
شكرا

عبد الهادي بهاب · 18-05-2020, 12:08 AM

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

اليوم ساضع ملف مستقل عن المشروع ثم سندمجه لاحقا بالكل
------------
الخاصية هي البحث السريع عن كلمة معينة و عرض كل الايات
لتحقيق ذلك يجب ان نوجد قاعدة بيانات فيها كل كلمات القران و قاعدة بياناات للمصحف الشريف
الملف بصيغة CSV وهو موجود في النت
https://www.mediafire.com/file/mmnrj...Words.xls/file
حولناها الى قاعدة بيانات DB

الان عندنا صفحة واحدة نضع فيها انبوت كلما كتبا حرف سيبحث مباشرة في الكلمات التي تبدا باحرف و كلما زدت حرفا اظهر نتائج و حددنا المجموع ب 15 للسرعة و ممكن تعدل فيها
ازرع الكود التالي في ONCHAR في الانوبت

كود PHP:


dbw = SQLite.Open("AutoPlay\\Docs\\coranWo.db");
sw= SQLite.QueryToTable(dbw, "select * from coran");
ListBox.DeleteItem("ListBox1", LB_ALLITEMS)
d=1;
txt = Input.GetText("Input1")
Htchkil(txt) ; txt=moth;
if txt ~= " "  then
  for i,v in pairs(sw.Data) do
     m = sw.Data[i]["Mot"]; Htchkil(m) ; m=moth;
   if  String.Mid(m,1, #txt) == txt then
if d<15 then    ListBox.AddItem("ListBox1", m, ""); d=d+1 ;end
    end
    end
   end

الان سيقوم الانبوت بعرض النتائج في ليسبوكس
في الليسبوكس سيقوم بالبحث و وضع النتائج ضمن عنصر ويب

كود PHP:


tol=1;
db = SQLite.Open("AutoPlay\\Docs\\coranAR.db");
s= SQLite.QueryToTable(db, "select * from coran");

---------------N
asma = ListBox.GetSelected(this)
if  (asma) then
ass = ListBox.GetItemText(this, asma[1]);
Name = "ÇáÈÍË Úä ßáãÉ  ".. " _ "..ass ;
------------------
strielhadi="";
lien ="file:///C:/1.jpg"
lien2 ="file:///C:/2.png"
------------------
for i,v in pairs(s.Data) do
     mas = s.Data[i]["Aya_text"]; 
     Htchkil(mas); ms = moth; 
 --------------------------------------------------------- 
     g = String.Find(ms,ass, 1, false);
      if g~= -1 then 
-----------------------------------------------------------
Raya =  String.ToNumber(s.Data[i]["Aya_Num"]); 
Tsora =  s.Data[i]["Sora_text"];
txtz = s.Data[i]["Num_Joz"] ;
txth = s.Data[i]["Num_Hiz"] ;
txtr = s.Data[i]["Num_rob"] ;
----------
    strielhadi = strielhadi.."<img src="..lien2.." width=600 height=40>";
    strielhadi = strielhadi.."<p>&nbsp;</p>"

-----------

strT = " [ ".. mas .." ]".."<p>&nbsp;</p>" 
txtjhr = " ÓæÑÉ "..Tsora.."--".." ÇáÂíÉ ÑÞã "..Raya.."(-***-)".." ÇáÌÒÁ "..txtz.."--".." ÇáÍÒÈ "..txth.."--".." ÇáÑÈÚ "..txtr;
strText  ="<p><font color="..Mycolor2.."  size ="..FonteZ2.." face="..fontSc2.."><strong>"..txtjhr.."</strong></font></p>"
strT = strT ..strText
strText  ="<p style=text-align=right ><font color="..Mycolor.."  size ="..FonteZ.." face="..fontSc..">"..strT.."</font></p>"
strielhadi = strielhadi..strText;

    ----------------------   ----------------------
      tol=tol+1;
  end 
end 
-------------------------------------------


----------------------------------------
tol  = tol-1
img = "<BODY BACKGROUND="..lien.."></BODY>"
local strHTMLData = "<html><head></head>"..img.."<body style=text-align=center ><h1 style=text-align=center style=background-color=yellow ><font size=15 face="..fontSc2.." >"..Name.."</font></h1>"
--------------------
strHTMLData = strHTMLData.."<p><font color="..Mycolor3.."  size ="..FonteZ3.." face="..fontSc3.." ><strong>".."ÇáäÊíÌÉ "..": "..tol.."</strong></font></p>"

strHTMLData = strHTMLData..strielhadi;
strHTMLData = strHTMLData.."</html></body>";

--Save the file...
local strFN = _TempFolder.."\\test.htm";
TextFile.WriteFromString(strFN,strHTMLData);
Web.LoadURL("Web1",strFN);
TextFile.WriteFromString(_TempFolder.."\\"..Name..".doc",strHTMLData);
end

----------------------------
سيظهر النتائج في عنصر ويب

وجب الاشارة يجب ان تقوم بوضوع الصور في C/
و سيمها 1

و الوصرة الثانية

و سيمها 2

وجب تثبيت الخط "Al-QuranAlKareem"

------------------------------

الان مع الملف المفتوح للبحث السريع في القران

https://www.mediafire.com/file/iy0e5...PRESS.apz/file

بالتوفيق

عبد الهادي بهاب · 21-05-2020, 11:47 AM

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

تم اضافة تفسير البغوي للمجموعة

ضع الملف التالي في ملف docs
https://www.mediafire.com/file/3z92i...ranBag.db/file

الان في صفحة البحث المتقدم

اذهب الى الكومبوكس الخاص بالتفاسير
اضف عنصرا جديدا سميه ( تفسير البغوي ) و في data اكتب (coranBag)

الان في كود الكومبوكس في onselect
في السطر 15
نضيف شرطا جديد وهو اذا تعامل مع السطر الرابع وهو تفسير البغوي فالتفسير موجود في العمود (Tafsir)
يصبح الكود الكلي لسكريبت الكومبوكس التفسير

كود PHP:


elhadi="";
mop =   ComboBox.GetSelected(this)
TfsirDb = ComboBox.GetItemData(this, mop);
---------------
--------
db = SQLite.Open("AutoPlay\\Docs\\"..TfsirDb..".db");
s= SQLite.QueryToTable(db, "select * from coran");
------------------
MonNumS = Grid.GetCellText("Grid1", AudioAya, 3, Rsora);
MonNumA = Grid.GetCellText("Grid1", AudioAya, 6, Raya);
 for r,vr in pairs(s.Data) do 
  if MonNumS == s.Data[r]["Sora_Num"] then
  if MonNumA == s.Data[r]["Aya_Num"] then
------------------------------
if mop == 1 or mop == 4 then
  txte = s.Data[r]["Tafsir"] ; 

elseif mop == 2 then
  txte = s.Data[r]["Aya_Tafsir"] ; 

elseif mop == 3 then
  elhadi = elhadi .. s.Data[r]["Aya_mot"].." : " ..s.Data[r]["Aya_tafsir"] .."\r\n";
  txte = elhadi; 
end
end
end
end


Input.SetText("Input_Info_Display", txte)

عبد الهادي بهاب · 23-05-2020, 03:33 AM

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

مواصلة للمشروع نضيف خاصية جديدة و هي
البحث في موضوعات معينة
وجدت موقعا جميلا و منه انطلقنا احتصارا للجهد
http://quranbysubject.com/categories.php

لكن ساضع للاخوة مثالا فقط و الباقي عليكم
وهو نجمع الايات في ملف تكست بحيث نضع فيه رقم السورة - مسافة - رقم الاية
وان اكنت مجموعة ايات فنضع رقم السورة - مسافة - رقم الاية الاولى _رقم الاية الاخيرة
مثال : موضوع القصاص سنجد البقرة 179 ------------نكتب في التكست 2 179
النساء من 13 الى 18 فنكتب في ملف التكست 4 13_15
وهكذا سيظهر على هذاالشكل

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

لكل موضوع ترتيبه في الكومبوكس وهو نفسه اسمه في مجلد نسميه مثلا Maodoat
بهذا الشكل

الان عندنا صفحة جديدة فيه غريد و فيها كومبوكس
نزرع فيه الكود التالي

كود PHP:


for i=1,k do

for p=1,9 do

Grid.SetCellText("Grid1", i, p, "");

end end



Nth = ComboBox.GetSelected("ComboBox1");

titre = ComboBox.GetItemText("ComboBox1", Nth)



txt = "آيات تتعلق بـ" .." " ..titre ;

Paragraph.SetText("Paragraph1", txt) ;



sajda = TextFile.ReadToTable("AutoPlay\\Maodoat\\"..Nth..".txt");

ghSora={}; ghAya={};q=1; k=1;

for c,v in pairs (sajda) do

 x=1;gh={};

for w in string.gmatch(v,"[%S^]+") do gh[x] = w ; x=x+1;  end

-----------

  ghSora[q] = gh[1]; 

  aya = gh[2];

  find = String.Find(aya,"_",1);

  if find ~= -1 then

  a1 = tonumber(String.Mid(aya,1,find-1));

  a2 = tonumber(String.Mid(aya,find+1,#aya-find));  

  for omi=a1,a2 do 

  ghSora[q] = gh[1]; 

  ghAya[q]  = omi; 

  q=q+1

  end

  

  else

  ghAya[q]  = aya; q=q+1

  end

 end 

 

 

k=1; 

 

  db = SQLite.Open("AutoPlay\\Docs\\coranAR.db");

  s= SQLite.QueryToTable(db, "select * from coran");





for i,v in pairs(s.Data) do

-----------------------------------------------

for rr =1, #ghSora do

---repeat

if s.Data[i]["Sora_Num"] == "".. ghSora[rr]  then

if s.Data[i]["Aya_Num"] ==  "".. ghAya[rr]  then  

m = s.Data[i]["Aya_text"];  

sora = s.Data[i]["Sora_text"];  

Grid.SetRowCount("Grid1", k+2)

Grid.Refresh("Grid1")

Grid.SetCellText("Grid1", k, 1, k);

Grid.SetCellText("Grid1", k, 2 ,sora);

Grid.SetCellText("Grid1", k, 3, ghSora[rr]);

Grid.SetCellText("Grid1", k, 4, ghAya[rr]);

Grid.SetCellText("Grid1", k, 5, m);

k=k+1

end end end

----rr=rr+1; 

---until rr > #ghSora

------------------

end



Grid.SetSelectedRange("Grid1", 1, 1, 1, 9, true)

سيقوم بمقارنة رقم السطر من الكومبوكس ويستدعي محتوى التكست الذي يحمل نفس الرقم
سيفكك كل سطر فيه الى سورة و رقم الاية و اذا وجد علامة ( _ ) يعني ان فيه اكثر من اية فيقوم باستدعاء كل الايات التي تبدا من اول رقم الى اخر رقم
ثم يظهر النتائج بكل سرعة في الغريد

مثال عندما نبحث في موضوع العدل

لاحظ جيدا استدعاء الايات اما فريدة او ضمن مجال معين

------------------
ما العمل : انت تبحث و تصنع قاعدة خاصة بك
يعني مثلا ابحث في موضوع ميقات الساعة : ضع ملف سميه 4 و في السكر 4 في الكومبوكس اضف تسمية جديدة ( ميقات الساعة )
انشئ ملف تكست سميه 4 و فيه : الاعراف من 186 الى 187 اي تضع رقم سورة الاعرف وهو 7 ثم مسافة ثم 186_187
الشورى الاية 18 اي نكتب في التكست 42 18
------------------
خاصية جديدة البحث في كلمات موضوع معين

الان فيه طريقة اخرى للموضوعات وهو ان بعض الموضوعات كالاعداد و المعارك و الفواكه تحتوي على الكثير من الجزئيات
العمل هو التالي :
نضيف كومبوكس جديد نضغ فيه الموضوعات هذه
ارقام - الاسماء الحسنى - الفاوكه +- معارك .................الخ
مثال :

الان سنش مجلد ذاخل docs و نسميه theme نضع فيه ملفات تكست دائما مرقمة حسب ترتيبها في الكومبوكس اي ارقام ......ملف رقم واحد نضع فيه كل الكلمات التي تناولها القران عن الارقام والاعداد وهذا يسير ببحث في الانترنت ستجد مواضيع و احصائيات حول ذلك
مثال العنصر الاول من كومبوكس هو الارقام سيذهب الى مجلد theme و سيبحث عن ملف رقمه 1

الان داخل الكوموكس نضع كود يستدعي محتوى التكست في ليسبوكس

كود PHP:


Paragraph.SetText("time","")



Ntheme = ComboBox.GetSelected("ComboBox5");

titre = ComboBox.GetItemText("ComboBox5", Ntheme)



txt = "آيات تتعلق بـ " .." " ..titre ;

Paragraph.SetText("Paragraph1", txt) ;

liste = TextFile.ReadToTable("AutoPlay\\Docs\\theme\\"..Ntheme..".txt")

ListBox.DeleteItem("ListBox1", LB_ALLITEMS)

for i,v in pairs(liste) do

ListBox.AddItem("ListBox1", v, "")

end

الان ستظهر كلمات اي محتوى التكست في اليسبوكس سنبحث عنها في القران و نظهر النتائج في الغريد
اذن نزرع في اليسبوكس الكود التالي :

كود PHP:


for i=1,k do

for p=1,9 do

Grid.SetCellText("Grid1", i, p, "");

end end





sel = ListBox.GetSelected("ListBox1"); 

word = ListBox.GetItemText("ListBox1", sel[1]);

Htchkil(word) ;Wword = moth ;



  db = SQLite.Open("AutoPlay\\Docs\\coranAR.db");

  s= SQLite.QueryToTable(db, "select * from coran");

k=1;

  for i,v in pairs(s.Data) do

     m = s.Data[i]["Aya_text"]; 

---------------------------------------------------------

     Htchkil(m) ;mp = moth ; 

---------------------------------------------------------- 

     g = String.Find(mp,Wword, 1, false);   

     if g~= -1 then 

Raya =  s.Data[i]["Aya_Num"]; 

Rsora = s.Data[i]["Sora_Num"]; 

txtSor = s.Data[i]["Sora_text"] ;

Grid.SetRowCount("Grid1", k+2)

Grid.Refresh("Grid1")

----------

Grid.SetCellText("Grid1", k, 1, k);

Grid.SetCellText("Grid1", k, 2 ,txtSor);

Grid.SetCellText("Grid1", k, 3, Rsora);

Grid.SetCellText("Grid1", k, 4, Raya);

Grid.SetCellText("Grid1", k, 5, m);

----------------------   ----------------------

      k=k+1;

  end 

end

مثال سنختار موضوع الارقام وهو سيظخر لائحة اسماء في اليسبوكس سنختار منها ( اربع ) و النتيجة في الشكل الاتي

-------------
ملاحظة : الكود سيبحث عن الجذر اي ممكن اربع تكون ضمن اربعة او اربعون او الاربعاء ............اذا اردت ان يختارها مستقلة ما عليك الى ان تضيف مسافة في الكود
في اليسبوكس في السطر رقم 19

كود PHP:


 g = String.Find(mp,Wword, 1, false);

يصبح

كود PHP:


     g = String.Find(mp," "..Wword.." ", 1, false);

تمام ........
بالتوفيق لكم واي ملاحظة مرحبا

إعـــــــلان

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

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك