Sticky topic.
X
X

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

AutoPlay Media Studio & Generate AIO Tutorials

Collapse
 
  • Page of 5
  • Filter
  • Time
  • Show
Clear All
new posts
  • عبد الهادي بهاب
    عبد الهادي بهاب
    Thread Author
    Free Membership
    • Nov 2018
    • 177
    • 82 
    • 43 
    #61
    السلام عليكم ورحمة الله وبركاته
    دائما مستمرون في المشروع
    اليوم سنستغل مجموعة من الدوال التي نحتاجها في الاحصائيات منها

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

    PHP Code:
    String.Length(txt) 
    دالة استخراج اللكمات في جملة او نص

    PHP Code:
    xd="";q=1; TWord={};  
    for     w in string.gmatch (m,"[^%s]+") do     
    xd=xd.." "..w; 
    TWord[q]=w; 
    q=q+1;     
    end 
    دالة لترتيب الغريد نصوصا

    PHP Code:
    Grid.SortTextItems("Grid1", 8, true, true) 
    غير true الى false للترتيب التصاعدي و التنازلي

    اما الترتيب العددي للغريد فاستعملنا موضوعا للاستاذ ثامر
    PHP Code:
    x=0------------------------------------------------------------------------------------------ 
    p=Grid.GetRowCount("Grid1");-----------------------------------------------------------------
    for     i=x,p do c= Grid.GetCellText("Grid1", i, 0);c = String.ToNumber(c);----------------------
    if     c < 10 then Grid.SetCellText("Grid1", i, 0, "a"..c, true);--------------------------------
    elseif      c >=10 and c<= 99 then Grid.SetCellText("Grid1", i, 0, "b"..c, true);----------------
    elseif      c >=100 and c<= 999 then Grid.SetCellText("Grid1", i, 0, "c"..c, true);--------------
    elseif      c >=1000 and c<= 9999 then Grid.SetCellText("Grid1", i, 0, "d"..c, true);------------
    elseif      c >=10000 and c<= 99999 then Grid.SetCellText("Grid1", i, 0, "e"..c, true);----------
    elseif      c >=100000 and c<= 999999 then Grid.SetCellText("Grid1", i, 0, "f"..c, true);--------
    elseif      c >=1000000 and c<= 9999999 then Grid.SetCellText("Grid1", i, 0, "g"..c, true);------
    end end                                                                                ------
    Grid.SortTextItems("Grid1", 0, true, true);                                            ------ 
    for     u=x,p do                                                                           ------
    y= Grid.GetCellText("Grid1", u, 0);     --abou_belkiss  alger le 26-03-2014            ------
    n = String.Mid(y, 1, 1);                                                               ------
    c = String.Replace(y, n, "", false);                                                   ------
    Grid.SetCellText("Grid1", u, 0, c, true);                                              ------
    end-- 

    🔒 Go Premium to Unlock

    ------------------------------------------
    استعملنا كود الاستدبالات في الحركات و التشكيل في الايات
    PHP Code:
              Str  = "قُل لَّوْ كَانَ الْبَحْرُ مِدَادًا لِّكَلِمَاتِ رَبِّي لَنَفِدَ الْبَحْرُ قَبْلَ أَن تَنفَدَ كَلِمَاتُ رَبِّي وَلَوْ جِئْنَا بِمِثْلِهِ مَدَدًا " Dialog.Message("Notice", Str); NewStr = "" for i = 1,#Str do char = String.Mid(Str, i, 1); asc = String.Asc(char); if asc<240 then NewStr = NewStr..char end end Dialog.Message("Notice", NewStr); 
    🔒 Go Premium to Unlock


    --------------------------------------------------
    من اجل ان يظهر الغريد من اليمين الى اليسار استعملنا اضافة للاخ النصل القاطع
    🔒 Go Premium to Unlock

    🔒 Go Premium to Unlock


    -----------------------------------------
    تصدير الاوتوبلاي الى ايسكل
    PHP Code:
     -- create scatterplot in Excel
          require('luacom')
          local excel = luacom.CreateObject("Excel.Application")
          excel.Visible = true
      local wb     = excel.Workbooks:Add()
          local ws = wb.Worksheets(1)
      for     row=1, 12 do
           ws.Cells(row,1).Value2 = Grid.GetCellText("Grid1", row, 1);
           ws.Cells(row,2).Value2 = Grid.GetCellText("Grid1", row, 2);
           ws.Cells(row,3).Value2 = Grid.GetCellText("Grid1", row, 3);
           ws.Cells(row,4).Value2 = Grid.GetCellText("Grid1", row, 4);
           ws.Cells(row,5).Value2 = Grid.GetCellText("Grid1", row, 5);
           ws.Cells(row,6).Value2 = Grid.GetCellText("Grid1", row, 6);
           ws.Cells(row,7).Value2 = Grid.GetCellText("Grid1", row, 7);
           ws.Cells(row,8).Value2 = Grid.GetCellText("Grid1", row, 8);
           ws.Cells(row,9).Value2 = Grid.GetCellText("Grid1", row,9);
           ws.Cells(row,10).Value2 = Grid.GetCellText("Grid1", row, 10);
           ws.Cells(row,11).Value2 = Grid.GetCellText("Grid1", row, 11);
           ws.Cells(row,12).Value2 = Grid.GetCellText("Grid1", row, 12);
                 end 
    🔒 Go Premium to Unlock


    في انتظار الاطلاع على المواضيع
    • 1 like
    Comment
    • عبد الهادي بهاب
      عبد الهادي بهاب
      Thread Author
      Free Membership
      • Nov 2018
      • 177
      • 82 
      • 43 
      #62
      آخر تحديثات المشروع



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

      luacom
      Capture
      Clipboard
      COLORBUTTON
      Grid_arabic



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

      🔒 Go Premium to Unlock

      بالتوفيق
      Comment
      • عبد الهادي بهاب
        عبد الهادي بهاب
        Thread Author
        Free Membership
        • Nov 2018
        • 177
        • 82 
        • 43 
        #63
        Originally posted by م/عامر View Post
        منتظرين
        ارجو انني عدلت و انتظر المزيد منكم سيدي
        Comment
        • عبد الهادي بهاب
          عبد الهادي بهاب
          Thread Author
          Free Membership
          • Nov 2018
          • 177
          • 82 
          • 43 
          #64
          السلام عليكم ورحمة الله وبركاته
          في صفحة احصائيات السور ممكن نضسف خاصية جديدة جميلة تنقع لمن يهتم بامر الاحصاء العددي في القران
          وهي كم تكررت كلمة مافي السور كلها
          يعني مثلا كم تكررت كلمة ( الله ) في القران
          ملاحظة : اذا اردتها مستقلة يجب تضيف مسافة من الامام و من الخلف و الا فسيعتبرها البرنامج جدر كلمة من مثلا ( اللهم - تالله - بالله ..) و كلها موجودة

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

          PHP Code:
          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;
          ----------------------          ÍÓÈ Ãæá
          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   
          ------------------------ 
          مثلا لما نبحث عن كلمة (موسى ) ستظهر النتائج كالتالي


          بالتوفيق
          • 1 like
          Comment
          • م/عامر
            م/عامر
            Free Membership
            • Dec 2020
            • 290
            • 404 
            • 158 
            #65
            ماشاء الله فرق كبير في التعديلات وتحسينات قوية ماشاء الله

            والاحصاءات روعة جدا

            وفقك الله وأعانك ورزقك من حيث لا تحتسب

            لي عودة ببعض الملاحظات لتحسينه إن شاء الله
            Comment
            • عبد الهادي بهاب
              عبد الهادي بهاب
              Thread Author
              Free Membership
              • Nov 2018
              • 177
              • 82 
              • 43 
              #66
              السلام عليكم

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

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

              اولا سنستغني عن مجموعة اضافات ممكن نستغني عنها و هي التصوير 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 Code:
              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 Code:
              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 Code:
              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 Code:
              grid = Page.GetObjectType("Grid1");
              result = Excel.ExportToExcel(grid, "Grid1", 1, 65535, 16776960); 
              الاضافات المطلوبة
              gridArabic
              excel
              sqlt

              المشروع بعد التحديثات الاخيرة
              🔒 Go Premium to Unlock

              Comment
              • عبد الهادي بهاب
                عبد الهادي بهاب
                Thread Author
                Free Membership
                • Nov 2018
                • 177
                • 82 
                • 43 
                #67
                Originally posted by م/عامر View Post
                ماشاء الله فرق كبير في التعديلات وتحسينات قوية ماشاء الله

                والاحصاءات روعة جدا

                وفقك الله وأعانك ورزقك من حيث لا تحتسب

                لي عودة ببعض الملاحظات لتحسينه إن شاء الله
                انا منتظر افكارك النيرة
                الان انا بصددر الاحصائيات حول الايات فقذ
                Comment
                • عبد الهادي بهاب
                  عبد الهادي بهاب
                  Thread Author
                  Free Membership
                  • Nov 2018
                  • 177
                  • 82 
                  • 43 
                  #68
                  السلام عليكم ورحمة الله وبركاته
                  خاصية جديدة
                  كم تكررت الكلمة في السورة بالتفصيل

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

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

                  PHP Code:
                  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 Code:
                  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  
                  ------------------------ 
                  بالتوفيق
                  Comment
                  • عبد الهادي بهاب
                    عبد الهادي بهاب
                    Thread Author
                    Free Membership
                    • Nov 2018
                    • 177
                    • 82 
                    • 43 
                    #69
                    أخر التحديثات حول المشروع

                    🔒 Go Premium to Unlock


                    سنشرح لاحقا
                    وقت السحور
                    Comment
                    • عبد الهادي بهاب
                      عبد الهادي بهاب
                      Thread Author
                      Free Membership
                      • Nov 2018
                      • 177
                      • 82 
                      • 43 
                      #70
                      السلام عليكم ورحمة الله وبركاته

                      اليوم ساضع ملف مستقل عن المشروع ثم سندمجه لاحقا بالكل
                      ------------
                      الخاصية هي البحث السريع عن كلمة معينة و عرض كل الايات
                      لتحقيق ذلك يجب ان نوجد قاعدة بيانات فيها كل كلمات القران و قاعدة بياناات للمصحف الشريف
                      الملف بصيغة CSV وهو موجود في النت
                      🔒 Go Premium to Unlock
                      حولناها الى قاعدة بيانات DB


                      الان عندنا صفحة واحدة نضع فيها انبوت كلما كتبا حرف سيبحث مباشرة في الكلمات التي تبدا باحرف و كلما زدت حرفا اظهر نتائج و حددنا المجموع ب 15 للسرعة و ممكن تعدل فيها
                      ازرع الكود التالي في ONCHAR في الانوبت
                      PHP Code:
                      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 Code:
                      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"

                      ------------------------------
                      الان مع الملف المفتوح للبحث السريع في القران
                      🔒 Go Premium to Unlock

                      🔒 Go Premium to Unlock

                      بالتوفيق
                      Comment
                      • عبد الهادي بهاب
                        عبد الهادي بهاب
                        Thread Author
                        Free Membership
                        • Nov 2018
                        • 177
                        • 82 
                        • 43 
                        #71
                        السلام عليكم ورحمة الله وبركاته

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

                        ضع الملف التالي في ملف docs
                        🔒 Go Premium to Unlock

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

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

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

                        PHP Code:
                        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) 
                        Comment
                        • عبد الهادي بهاب
                          عبد الهادي بهاب
                          Thread Author
                          Free Membership
                          • Nov 2018
                          • 177
                          • 82 
                          • 43 
                          #72
                          سيضاف ه\ا الملف الى المشروع

                          ------------
                          https://www.damaswiki.net/node/226644
                          Comment
                          Previous 1 2 3 4 5 template Next
                          ملف مفتوح ...تصميم اسطوانة للقران الكريم ...بحث و استعراض
                          Collapse
                          Trending
                          Collapse
                          Working...
                          X