Sticky topic.
X
X

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

AutoPlay Media Studio and Generate All In One Tutorials

 
  • Filter
  • Time
  • Show
Clear All
new posts
  • عبد الهادي بهاب
    Thread Author
    Free Membership
    • Nov 2018 
    • 177 
    • 82 
    • 43 

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

    ساضع لحضراتكم ملفا مفتوحا مركبا من الكودين
    اي البحث في القران الكريم من خلال قاعدة بيانات تتكون من ملفات تكست txt
    و البحث من خلال قاعدة بيانات واحدة DB



    الملف المفتوح للتعديل و الاستغلال:

    *

    بالتوفيق
    Attached Files
    Comment
    • عبد الهادي بهاب
      Thread Author
      Free Membership
      • Nov 2018 
      • 177 
      • 82 
      • 43 

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

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



      الملف المفتوح
      *
      او
      بالمرفقات
      Attached Files
      Comment
      • عبد الهادي بهاب
        Thread Author
        Free Membership
        • Nov 2018 
        • 177 
        • 82 
        • 43 

        #18
        السلام عليكم
        الان سنتطرق الى خاصية جديدة و هي امكانية البحث في سور معينة
        مثلا نريد احصاء كلمة ( الحي ) فقط في سورة البقرة و آل عمران و سورة الرحمن و يس
        لذلك سنضيف عنصر جديد ChecBox لما نضغط عليه سيظهر لنا قامة ليسبوكس بحيث نفعل خاصية الاختيار Check في ListBox
        وهذا يظهر عبر DialogEx لما يختار المستخدم السور نجمع ارقامها في مصفوفة
        و نعود الى زر البحث
        نضيف شرطا جديدا وهو لما يضغط ChocBox الثالث يبحث البرنامج فقط في السور التي احترناها
        الان يجب ان نفعل التايمر كي يضغط هوزر البحث بعد غلق الديالوج ........طريقة تفعيل زر من خلال ديالوج ......

        اذن يصبح كود البحث



        PHP Code:
        Page.StopTimer();
        s=SQLite.QueryToTable(db"select * from Ncoran");
        ListBox.DeleteItem("ListBox1"LB_ALLITEMS);
        Input.SetText("Input_Info_Display""");
        Label.SetText("Label1""");
        istibdalate={["َ"] = "",["ً"] = "",["ُ"] = "",["ِ"] = "",["ْ"] = "",["ّ"] = "",["ِ"] = "",["ٌ"] = ""}
        ali Input.GetText("Input1"); if ali == "" then
          Dialog
        .Message("تنبيه","اكتب ما تريد البحث عنه");
          
        Page.SetFocus("Input1");

        else
        result4 string.gsub (ali".",istibdalate)
        tol=0;
        -------
        chercher sora ----------------------------------------------------
        if  
        CheckBox.GetChecked("CheckBox1") == true then
          
        if Mys == "" then
          Dialog
        .Message("تنبيه","اختر سورة من قامة السور التي تريد البحث فيها");
          else
          ---------------------------
          for 
        i,v in pairs(s.Data) do
          if 
        Mys == s.Data[i]["Sora_Num"then
          m 
        s.Data[i]["Aya_text"]; if ~= " " then
          abou_belkiss 
        string.gsub (m".",istibdalate)
          
        String.Find(abou_belkiss,result41false);
          if 
        g~= -1 then tol=tol+1;
          
        ListBox.AddItem("ListBox1"s.Data[i]["Sora_text"].."("..s.Data[i]["Aya_Num"]..")"s.Data[i]["Aya_text"].."\r\n".."\r\n"..s.Data[i]["Aya_Num"]);
          
        end end
          end
          end
            Label
        .SetText("Label1"tol);
          ----------------------
          
        end
        ---in man sor--------------
        elseif 
        CheckBox.GetChecked("CheckBox3") == true then

        for i,v in pairs(s.Data) do
          for 
        cop,com in pairs(Nsora) do ala ""..com;
             if 
        ala == s.Data[i]["Sora_Num"then
             m 
        s.Data[i]["Aya_text"]; if ~= " " then
             abou_belkiss 
        string.gsub (m".",istibdalate)
             
        String.Find(abou_belkiss,result41false);
               if 
        g~= -1 then tol=tol+1;
               
        ListBox.AddItem("ListBox1"s.Data[i]["Sora_text"].."("..s.Data[i]["Aya_Num"]..")"s.Data[i]["Aya_text"].."\r\n".."\r\n".."الآية رقم "..s.Data[i]["Aya_Num"]);
              
        end end
            end
          end
         end
        Label
        .SetText("Label1"tol);


        ------------------
        elseif 
        CheckBox.GetChecked("CheckBox2") == true then
        for i,v in pairs(s.Data) do
          
        s.Data[i]["Aya_text"]; if ~= " " then
          abou_belkiss 
        string.gsub (m".",istibdalate)
          
        String.Find(abou_belkiss,result41false);
          if 
        g~= -1 then tol=tol+1;
          
        ListBox.AddItem("ListBox1"s.Data[i]["Sora_text"].."("..s.Data[i]["Aya_Num"]..")"s.Data[i]["Aya_text"].."\r\n".."\r\n".."الآية رقم "..s.Data[i]["Aya_Num"]);
          
        end end
        end
         
        Label
        .SetText("Label1"tol);
        end
        end

        Input
        .SetText("Input1""");
        Page.ClickObject("Hotspot2"); 
        الشكل بعد التعديل



        الملف المفتوح لمزيد من الايضاح
        *
        بالتوفيق
        Attached Files
        Comment
        • عبد الهادي بهاب
          Thread Author
          Free Membership
          • Nov 2018 
          • 177 
          • 82 
          • 43 

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

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



          ما العمل ؟

          سنضع ملف تكست txt فيه كل الكلمات ذات العلاقة بالموضوع يعني سنضع ملف و نضع فيه الحيوانات ( يمكن ان تجد موضوعات مشابهة في النت )



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



          الملفات نضعها في ملف مستقل داخل docs نسميه theme

          الان ساحة العمل ... نضيف ChecBox4 وهو سيظهر لنا combobox يحتوي على الموايع المقترحة وهو نص التكست theme
          لما يختار المستخدم موضوعا سيقوم زر البحث بالبحث عن مفردات الموضوع في المصحف كله و سيظهر النتائج في ليسبوكس

          --------------
          كي لا ينتظر المستخدم سنضيف عنصر progress بحيث يظهر عملية تقدم البحث
          سنجعل طوله هو عدد اسطر جدول قاعدة الباينات اي عدد ايات المصحف كله


          الملف المفتوح لاكثر توضيح
          *

          بالتوفيق
          Attached Files
          Comment
          • عبد الهادي بهاب
            Thread Author
            Free Membership
            • Nov 2018 
            • 177 
            • 82 
            • 43 

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

            اليوم مع فكرة جديدة و خاصية جديدة

            وهي كيف يمكن البحث عن اكثر من كلمة او عبارة

            يعني اريد ان ابحث عن كلمة ( محمد ) سيظهر 4 نتائج
            و لما اريد ان ابحث عن كلمة (همزة) سيظهر نتيجة واحدة
            اريد ان ابحث عنهما جميعا (محمد همزة) ............. النتيجة 0
            اذن ما العمل ؟
            اولا البحث عن عبارة و ليس كلمة
            اي العبارة الاولى ( الحمد لله)22 نتيجة .. و الثانية ( سبحان الله ) 9نتائج ... و كلمة (محمد) 4 نتائج
            الان ما العمل معا الجميع ؟

            --------------------
            نطالب المستخدم بضرورة استعمال علامة معينة للفصل بين العبارات و لتكن علامة الناقص (-) في مجموعة الارقام
            سنجعل الكود يجمع العبارات منفصلة و ليضعها في مصفوفة اي مجموعة
            ---------------------------------
            الفصل بين العبارات بينها علامة (-)
            -------------------------------
            ملاحظة : هناك فرق بين البحث عن (يس) و عن ( يس) وهن ( يس ) ؟؟ ....... هل ادركت الفرق ؟ لا .....اشتري نظارة ...........
            الفرق في المسافة قبل و بعد الكلمة
            مثلا ( نفق) مع مسافة من الامام ------6 نتائج (نفقا -2 نفقة -نفقاتهم -نفقه -نفقد )
            (نفق ) مسافة فقط في الاخير .....8 نتائج ( 5 ينفق -2 أنفق - فلينفق )
            ( نفق ) مسافة من الامام و الخلف ......... 0 نتئجة
            -----------------

            الان سنعمل على كود فصل العبارات
            ----------------
            العمل :
            ضع انبوت + زر
            ضع في الزر الكود التالي :


            PHP Code:
             ali Input.GetText("Input1");
             
            PosWord={};  x=1;
             
            repeat
             
            New = String.Find(ali"-"1);
             if New ~= -
            1 then  
             alla 
            String.Mid(ali1, New);
             
            assia String.Mid(alla1,#alla-1);
             
            ali String.Replace(alialla"");  
             --------------
             
            repeat
             verf 
            String.Left(assia11);
             if 
            verf == " " then   assia String.Mid(assia2#assia-1);end
             
            until verf ~= " ";
             --------------
            repeat
             verf 
            String.Right(assia1);
             if 
            verf == " " then   assia String.Mid(assia1#assia-1);end
             
            until verf ~= " " ;

             -------------
            PosWord[x] = assia  x=x+1;   end
             until 
            New == -1;  

            repeat
             verf 
            String.Right(ali1);
             if 
            verf == " " then   ali String.Mid(ali1#ali-1);end
             
            until verf ~= " " ;
             
            PosWord[x] = ali ;  
             
            ---  
            6red------------------------
            elhadi "";
            for 
            i,v in pairs(PosWord) do
            elhadi elhadi..v.."\r\n";
            end
            Dialog
            .Message("",elhadi); 
            جرب من اجل ( الحمد لله - محمد - سورة الحاقة - سبحانك) ...... سيفصل بينها مع الغاء المسافة قبل و بعد




            بالتوفيق متابعة جيدة
            Comment
            • عبد الهادي بهاب
              Thread Author
              Free Membership
              • Nov 2018 
              • 177 
              • 82 
              • 43 

              #21
              الان سنجمع كل ما سبق في عملنا حول البحث في القران الكريم
              و سيصبح الشكل الاخير كالتالي



              الملف المفتوح المعدل بالخاصية الجديدة
              *

              بالتوفيق
              Attached Files
              Comment
              • عبد الهادي بهاب
                Thread Author
                Free Membership
                • Nov 2018 
                • 177 
                • 82 
                • 43 

                #22
                فيديو في اليوتوب

                https://www.youtube.com/watch?v=Ugj5...ature=youtu.be
                Comment
                • Saadedin
                  Administrator
                  • Sep 2018 
                  • 36117 
                  • 18,867 
                  • 2,862 

                  #23
                  الله يجزاك الخير أخي العزيز

                  ملاحظة صغيره وهي أن مركز تحميل الصور الذي تستخدمه محظور من بعض برامج الحماية من النود وهذه صورة من جهازي





                  لذلك قمت برفع الصور من جديد على مركز البوابة هنا *


                  وأيضا يظهر الموقع غير آمن بسبب الصور




                  بارك الله بك
                  Comment
                  • عبد الهادي بهاب
                    Thread Author
                    Free Membership
                    • Nov 2018 
                    • 177 
                    • 82 
                    • 43 

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

                    كيف حالكم اليوم ؟ كورونا ووووووو تبقى في التاريخ

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


                    هذا مثلا المصحف بصوت الشيخ سعد الغامدي
                    حمله و ضعه في فولدر في ملف Audio و سميه quran
                    سنعتمد طريقة التسمية في الكود لقاءة الصوت المطلوب
                    -------------------
                    اذن العمل :
                    سنضيف ليسبوكس 2 و نجعله مخفيا
                    في كود البحث لما يظهر في ليسبوكس1 الاول الايات
                    سيسجل ضمنيا في ليسبوكس2 رقم السورة ...و رقم الاية
                    وهو الذي سيعتمد عليه كود قراءة الايات

                    ---------------------
                    اعني اسفل تسجيل النتائج سنضيف سطر
                    Code:
                       ListBox.AddItem("ListBox2", s.Data[i]["Sora_Num"], s.Data[i]["Aya_Num"]);
                    ليصبح كود البحث الطويل كالاتي

                    Code:
                    Page.StopTimer();
                    Audio.Stop(CHANNEL_NARRATION)
                    Progress.SetCurrentPos("Progress1", 0);
                    s=SQLite.QueryToTable(db, "select * from Ncoran");
                    Progress.SetRange("Progress1", 0, #s.Data);
                    ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
                    ListBox.DeleteItem("ListBox2", LB_ALLITEMS);
                    
                    Input.SetText("Input_Info_Display", "");
                    Label.SetText("Label1", "");
                    tol=0;
                    istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
                    ali = Input.GetText("Input1");
                    result4 = string.gsub (ali, ".",istibdalate);
                    
                    ---------- serch vide ----------
                    if ali == "" then
                      Dialog.Message("ÊäÈíå","ÇßÊÈ ãÇ ÊÑíÏ ÇáÈÍË Úäå");
                      Page.SetFocus("Input1");
                    
                    else
                     ---------- trouve "-" ---------------
                     ali = result4;
                     PosWord={};  x=1; hh=""; f=1;
                     sopi = String.Find(ali, "-", 1);
                     if sopi ~= -1 then  
                     --------------------------
                      repeat
                     New = String.Find(ali, "-", 1);
                     if New ~= -1 then  
                     alla = String.Mid(ali, 1, New);
                     assia = String.Mid(alla, 1,#alla-1);
                     ali = String.Replace(ali, alla, "");  
                     ---dellet espace left-----------
                     repeat
                     verf = String.Left(assia, 1, 1);
                     if verf == " " then   assia = String.Mid(assia, 2, #assia-1);end
                     until verf ~= " ";
                     ---------dellet espace right-----
                    repeat
                     verf = String.Right(assia, 1);
                     if verf == " " then   assia = String.Mid(assia, 1, #assia-1);end
                     until verf ~= " " ;
                     -------------
                    PosWord[x] = assia  ; x=x+1;   end
                     until New == -1;  
                    ------------- espace rightfinal--------
                    repeat
                     verf = String.Right(ali, 1);
                     if verf == " " then   ali = String.Mid(ali, 1, #ali-1);end
                     until verf ~= " " ;
                     PosWord[x] = ali ;  
                     
                     ------------
                     else  PosWord= {} ; PosWord[1] = ali ; end
                    ----------
                    
                     for baka,Wword in pairs(PosWord) do
                     
                    ------- tach  sora1----------------------------------------------------
                    if  CheckBox.GetChecked("CheckBox1") == true then
                      if Mys == "" then
                      Dialog.Message("ÊäÈíå","ÇÎÊÑ ÓæÑÉ ãä ÞÇãÉ ÇáÓæÑ ÇáÊí ÊÑíÏ ÇáÈÍË ÝíåÇ");
                      else
                      ---------------------------
                      for i,v in pairs(s.Data) do
                      
                      if Mys == s.Data[i]["Sora_Num"] then
                       ----------------
                       m = s.Data[i]["Aya_text"];
                         if m ~= " " then
                      istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
                      abou_belkiss = string.gsub (m, ".",istibdalate);
                      -----------------
                       g = String.Find(abou_belkiss,Wword, 1, false);
                      if g~= -1 then
                      ListBox.AddItem("ListBox1", s.Data[i]["Sora_text"].."("..s.Data[i]["Aya_Num"]..")", s.Data[i]["Aya_text"].."\r\n".."\r\n"..s.Data[i]["Aya_Num"]);
                       ListBox.AddItem("ListBox2", s.Data[i]["Sora_Num"], s.Data[i]["Aya_Num"]);
                      tol = tol+1;          
                      end end
                      end
                        Progress.SetCurrentPos("Progress1", i);
                      end
                    Label.SetText("Label1", tol);
                    end
                    ---  tach soar katira--------------
                    elseif CheckBox.GetChecked("CheckBox3") == true then
                      
                      for i,v in pairs(s.Data) do
                      for cop,com in pairs(Nsora) do ala = ""..com;
                         if ala == s.Data[i]["Sora_Num"] then
                         m = s.Data[i]["Aya_text"];
                         if m ~= " " then
                         istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
                         abou_belkiss = string.gsub (m, ".",istibdalate)
                         g = String.Find(abou_belkiss,Wword, 1, false);
                           if g~= -1 then
                           ListBox.AddItem("ListBox1", s.Data[i]["Sora_text"].."("..s.Data[i]["Aya_Num"]..")", s.Data[i]["Aya_text"].."\r\n".."\r\n".."ÇáÂíÉ ÑÞã "..s.Data[i]["Aya_Num"]);
                           tol=tol+1;
                          ListBox.AddItem("ListBox2", s.Data[i]["Sora_Num"], s.Data[i]["Aya_Num"]);
                         end end
                        end end
                      
                      Progress.SetCurrentPos("Progress1", i);
                      end
                      Label.SetText("Label1", tol);
                    ------------- theme -------------  
                    elseif CheckBox.GetChecked("CheckBox4") == true then
                    
                      for i,v in pairs(s.Data) do
                      for cop,ala in pairs(Mytheme) do
                       ---------------
                         istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
                         ala = string.gsub (ala, ".",istibdalate)
                          ---------
                         m = s.Data[i]["Aya_text"];
                         if m ~= " " then
                         istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
                         abou_belkiss = string.gsub (m, ".",istibdalate)
                          g = String.Find(abou_belkiss,ala, 1, false);
                           if g~= -1 then
                           ListBox.AddItem("ListBox1", s.Data[i]["Sora_text"].."("..s.Data[i]["Aya_Num"]..")", s.Data[i]["Aya_text"].."\r\n".."\r\n".."ÇáÂíÉ ÑÞã "..s.Data[i]["Aya_Num"]);
                          ListBox.AddItem("ListBox2", s.Data[i]["Sora_Num"], s.Data[i]["Aya_Num"]);
                          tol=tol+1;
                          end end
                        end
                       Progress.SetCurrentPos("Progress1", i);
                       end
                       Label.SetText("Label1", tol);
                    
                    -------------tach  tous mashaf -----
                    elseif CheckBox.GetChecked("CheckBox2") == true then
                    
                     
                     for i,v in pairs(s.Data) do
                      m = s.Data[i]["Aya_text"];
                      if m ~= " " then
                      istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""}
                      abou_belkiss = string.gsub (m, ".",istibdalate)
                       g = String.Find(abou_belkiss, Wword, 1, false);
                       if g~= -1 then
                      ListBox.AddItem("ListBox1", s.Data[i]["Sora_text"].."("..s.Data[i]["Aya_Num"]..")", s.Data[i]["Aya_text"].."\r\n".."\r\n".."ÇáÂíÉ ÑÞã "..s.Data[i]["Aya_Num"]);
                       ListBox.AddItem("ListBox2", s.Data[i]["Sora_Num"], s.Data[i]["Aya_Num"]);
                       tol=tol+1;
                      end end
                      Progress.SetCurrentPos("Progress1", i);
                     end
                     Label.SetText("Label1", tol);
                    
                    ------------------------ word --------------
                    end -------elsecheckobox--
                    end
                    end
                    -----------------------------------------------------
                    ListBox.SelectItem("ListBox1", 1)

                    نضيف في الاسفل زر و ضعه على شكل بوق مثلا


                    نضع فيه الكود التالي
                    Code:
                    Raya =  ListBox.GetItemData("ListBox2", AudioAya);
                    Rsora = ListBox.GetItemText("ListBox2", AudioAya);
                    ------------- name ayaettes -------------
                    if String.ToNumber(Rsora) < 10 then Rsora = "00"..Rsora;
                    elseif  String.ToNumber(Rsora) > 9 and String.ToNumber(Rsora) < 100 then Rsora = "0"..Rsora;
                    elseif String.ToNumber(Rsora) > 99 then Rsora = ""..Rsora;
                    end
                    
                    if String.ToNumber(Raya) < 10 then Raya = Rsora.."00"..Raya;
                    elseif  String.ToNumber(Raya) > 9 and String.ToNumber(Raya) < 100 then Raya = Rsora.."0"..Raya;
                    elseif  String.ToNumber(Raya) > 99 then  Raya = Rsora..Raya;
                    end
                    
                    Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\quran"..Rsora..""..Raya..".mp3", true);
                    بالتوفيق سنرفع لكم الملف المفتوح لمن يحتاجه

                    شكرا
                    Comment
                    • عبد الهادي بهاب
                      Thread Author
                      Free Membership
                      • Nov 2018 
                      • 177 
                      • 82 
                      • 43 

                      #25
                      Originally posted by Saadedin View Post
                      الله يجزاك الخير أخي العزيز

                      ملاحظة صغيره وهي أن مركز تحميل الصور الذي تستخدمه محظور من بعض برامج الحماية من النود وهذه صورة من جهازي





                      لذلك قمت برفع الصور من جديد على مركز البوابة هنا *


                      بارك الله بك
                      مشكور على الملاحظة ........مشكلتي ان كل ملفاتي ارفعها على هذا الموقه لسهولته ......و قد راسلتهم على مشكلة اعتباره موبوءا لكن لم يردوا
                      شكرا
                      Comment
                      • عبد الهادي بهاب
                        Thread Author
                        Free Membership
                        • Nov 2018 
                        • 177 
                        • 82 
                        • 43 

                        #26
                        لما تحمل ملف القران لمقرئ ما و تفط الضغط
                        ستجد الملفات على هذا الشكل و الترقيم



                        الملف المفتوح للتعديل
                        *

                        بالتوفيق في اعمالكم
                        Attached Files
                        Comment
                        • Saadedin
                          Administrator
                          • Sep 2018 
                          • 36117 
                          • 18,867 
                          • 2,862 

                          #27
                          Originally posted by عبد الهادي بهاب View Post
                          مشكور على الملاحظة ........مشكلتي ان كل ملفاتي ارفعها على هذا الموقه لسهولته ......و قد راسلتهم على مشكلة اعتباره موبوءا لكن لم يردوا
                          شكرا
                          والله يا أخي حتى أنا راسلتهم من مدة طويلة ولم يجدوا حل والله أعلم
                          Comment
                          • عبد الهادي بهاب
                            Thread Author
                            Free Membership
                            • Nov 2018 
                            • 177 
                            • 82 
                            • 43 

                            #28
                            لمن اراد المصحف الشريف مقسم ايات للعديد من المقرئين

                            *

                            بالتوفيق
                            Comment
                            • عبد الهادي بهاب
                              Thread Author
                              Free Membership
                              • Nov 2018 
                              • 177 
                              • 82 
                              • 43 

                              #29
                              السلام عليكم ورحمة الله وبركاته
                              متابع معكم مشروع برنامج بحث و عرض للايات القرآنية
                              ---------------
                              اليوم سنضيف
                              - خاصية القراءة المتزامنة للايات
                              - زر لعرض الاية السابقة
                              - زر لعرض الاية التالية

                              -----------


                              كما يظهر في الشكل في عنصر القراءة المتزامنة
                              سنفترض متغير lecture و نعطيه قيمة او نص ما و نضعه في onshow

                              PHP Code:
                              lecture "NSonAuto"
                              و نعني به لما يكون بهذا النص لن تشتغل القراءة المتزامنة
                              لكن اذا كانت
                              PHP Code:
                              lecture == "SonAuto"
                              يعني ان القراءة ستكون متزامنة .....كيف سنجعل اليسبوكس كلما غير المستخدم اختيار عنصر من القائمة اليا اوتماتيكيا سيغل البرنامج زر استظهار الصوت
                              اذن سنضيف عنصر CheckBox5 و عندما يكون مفعلا سيكون المتغير SonAuto و لما يكون غير مفعل ستصيح قيمة المتغير NSonAuto

                              --------------------------------------------------
                              الان مع زر عرض الاية التالية ....... سنعتمد على رقمالاختيار من اليسبوكس ... و بالتالي لما نغضط على هذا الزر سيضيف 1 الى السطر و يشغل اليسبوكس ........الاشكالية لما بصل الى الحد الاقصى لعنصر اليسبوكس و هي في مشوعنا tol التي نستخدمها في زر البحث ... سيذهب الى العنصر الاول .........و بالتالي كود الزر سيكون كالاتي
                              PHP Code:
                              if tSelected then
                              if tSelected[1] == tol then
                              ListBox
                              .SelectItem("ListBox1"1);
                              else
                              ListBox.SelectItem("ListBox1",tSelected[1]+1);
                              end
                              end 
                              الان العلمية ستكون عكسية مع زر الايات السابقة اي سنتعمل علامة - 1 .........و لما يصل الى العنصر الاول من اليسبوكس سيكون التالي هو tol اي قيمة عدد عناصر اليسبوكس

                              PHP Code:
                              if tSelected then
                              if tSelected[1] ==  1 then
                              ListBox
                              .SelectItem("ListBox1"tol);
                              else
                              ListBox.SelectItem("ListBox1"tSelected[1]-1);
                              end
                              end 
                              -------------------------------
                              ملاحظة : من اجل ان يظهر تعليق اسفل الزر بمجرد مرور الماووس ليخبرنا محتوى الزر على هذا الشكل



                              لذلك يجب ان تضغط على الزر مرتين لتظهر لنا خصاصه نختار منها الثانية Attributes في الاسفل نختار ToolTip



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

                              الملف المفتوح جاهزا لتعديتكم و ابدعاتكم

                              *

                              بالتوفيق
                              Comment
                              • عبد الهادي بهاب
                                Thread Author
                                Free Membership
                                • Nov 2018 
                                • 177 
                                • 82 
                                • 43 

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

                                نواصل معكم في مشروعنا الان مع خاصية نسخ المحتوى و تصديره في ملف تكست يختار المستخدم مكان حفظه
                                ----------------
                                خاصية نسخ نتائج البحث
                                ---------------
                                ببساطة نضيف زر جديد نسميه مثلا( نسخ النتائج ) او اي شكل تريده
                                نجمع من اليستبوكس من كل سطر اسم السورة ......و نص الاية الذي هو موجود في data
                                سنحفظ الناج في ملف نسميه باسم محتوى البحث اي input
                                نضيف له في الاعلى عنوان ( نتائج البحث عن .....)


                                PHP Code:
                                Titre "äÊÇÆÌ ÇáÈÍË Úä :"..Input.GetText("Input1");
                                CopyAyaettes "";

                                for 
                                =1,tol do
                                NaSora ListBox.GetItemText("ListBox1"i);
                                NaAya  ListBox.GetItemData("ListBox1"i);
                                CopyAyaettes CopyAyaettes ..NaSora .."\r\n"..NaAya .."\r\n" .."\r\n" .."\r\n";
                                end

                                CopyAyaettes 
                                Titre .."\r\n".. "\r\n"..CopyAyaettes ;
                                folder Dialog.FolderBrowse("ÇÎÊÑ ÇáãÌáÏ "_DesktopFolder);
                                TextFile.WriteFromString(folder.."\"..Input.GetText("Input1")..".txt", CopyAyaettes);
                                File.Open(folder.."
                                \"..Input.GetText("Input1")..".txt", "", SW_SHOWNORMAL); 




                                بالتوفيق
                                Comment
                                Working...
                                X