Sticky topic.
X
X

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

AutoPlay Media Studio and Generate All In One Tutorials

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

    عودة لمشروعنا حول البحث في القرآن الكريم
    اليوم مع خاصية الاحزاب و الأجزاء و الارباع
    نحن نعلم ان المصحف مقسم الى اجزاء كل جزء الى حزبين و كل حزب الى 4 ارباع
    الاصل ان نعيد بناء قاعدة البيانات من جديد لكن سنتغل الموجود
    الان مع التقسيم ........ بعد البحث في المواقع وجدت ملفا لتقسيم المصحف الى ارباع


    الملف تكست للتحميل
    *

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


    الان سنفككه الى 7 ملفات واحد للاجزاء و الاخر للاحزاب و اخر للارباع ثم السورة البداية - الاية بداية الربع - السورة النهاية - و ال ملف السابع لاخر اية من الربع

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



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

    PHP Code:
    Hiz = TextFile.ReadToTable("AutoPlay\\Docs\\CoranH.txt");
    Joz = TextFile.ReadToTable("AutoPlay\\Docs\\CoranJ.txt");
    Rob = TextFile.ReadToTable("AutoPlay\\Docs\\CoranR.txt");
    Bsora = TextFile.ReadToTable("AutoPlay\\Docs\\CoranBs.txt");
    Baya = TextFile.ReadToTable("AutoPlay\\Docs\\CoranBa.txt");
    Nsora = TextFile.ReadToTable("AutoPlay\\Docs\\CoranNs.txt");
    Naya = TextFile.ReadToTable("AutoPlay\\Docs\\CoranNa.txt"); 
    نضيفه في كود البحث قبل اليسبوكس
    PHP Code:
    for j,bs in pairs(Bsora) do
      
      if     tonumber(bs) == tonumber(s.Data[i]["Sora_Num"]) and tonumber(bs) == tonumber(Nsora[j])
      and      tonumber(s.Data[i]["Aya_Num"]) >= tonumber(Baya[j]) and tonumber(s.Data[i]["Aya_Num"]) <= tonumber(Naya[j]) then
      Num_J     = Joz[j]; Num_H = Hiz[j];NRR = Rob[j];
      
      elseif     tonumber(bs) == tonumber(s.Data[i]["Sora_Num"]) and tonumber(bs) < tonumber(Nsora[j]) and   tonumber(s.Data[i]["Aya_Num"]) >= tonumber(Baya[j])
      or     tonumber(Nsora[j]) == tonumber(s.Data[i]["Sora_Num"]) and tonumber(bs) < tonumber(Nsora[j]) and  tonumber(s.Data[i]["Aya_Num"]) <= tonumber(Naya[j]) then
      Num_J     = Joz[j]; Num_H = Hiz[j];NRR = Rob[j];
          end
      end 
    ----------------------------
    الملف المعدل لمشروع البحث في القران الكريم
    ( ملاحظة ..الملف لايحتوي على الملف الصوتي و قد سبق ان اشرنا له في مشاركة سابقة )
    *
    بالتوفيق
    Comment
    • عبد الهادي بهاب
      عبد الهادي بهاب
      Thread Author
      Free Membership
      • Nov 2018 
      • 177 
      • 82 
      • 43 
      #32
      السلام عليكم ورحمة الله وبركاته
      عودة الى مشروعنا حول البحث في القرآن الكريم
      اليوم مع خاصية جديدة

      البحث بواسطة الأجزاء



      يعني انا اريد البحث عن كلمة معينة في جزء فقط او من الجزء1 الى الجزء 4
      اي مثلا كلمة ( الحي القيوم ) من الجزء الاول الى الجزء الرابع
      نضيف في الصفحة خيار checkBox 6 وهو سيعرض ديالوج جديد فيه 2 من الكومبوكس تعرض الاجزاء 30



      الان كي لايختار المستخدم من الجزء 4 الى الجزء 3 ...... سنضع شرطا بحيث سيملا الكومبوكس 1 من 1 الى 30
      الان لما يختار جزء معين سيفرغ الكومبوكس 2 و يكون اول رقم له هو اختيار الكوموبكس1
      يعني لما يختار من الجزء 4 ..... سيمحى مضمون الكومبوكس 2 و سيبدا من جديد لكن اول رقم له هو 4 الى 30 ........
      في الديالوج 2 سنضع في onshow

      PHP Code:
       x=1;
      repeat
      ComboBox      .DeleteItem("ComboBox1", 1);
      x=x+1;
      until x>60;
      for       i= 1,30 do
      ComboBox.AddItem("ComboBox1", i, "");
      end
      ComboBox      .SetSelected("ComboBox1", 1) 
      سنضع في الكومبوكس1 الكود التالي
      PHP Code:
       x=1;
      repeat
      ComboBox      .DeleteItem("ComboBox2", 1);
      x=x+1;
      until x>30;
      ----------------------
      DselC = ComboBox.GetSelected("ComboBox1");
      selC = ComboBox.GetItemText("ComboBox1", DselC);
      selC2= selC;
      for       p=selC,30 do
      ComboBox.AddItem("ComboBox2", p, "")
      end
      ComboBox      .SetSelected("ComboBox2", 1) 
      لذلك لديك الكثير من الافكار لكن اخترت اسهلها طبعا
      يعني ساعرض النتائج كلها في ليست بوكس 3
      ثم ساختار فقط القيم بين الجزء البداية و الجزء النهاية وامحي ما سواهما في اليسبوكس1.2.3

      ساضيف الشرط هذا في زر البحث
      PHP Code:
      function Azaa()
             p=1; repeat for i=1,ListBox.GetCount("List") do nn = ListBox.GetItemText("List", i);
      if        String.ToNumber(nn) < selC or String.ToNumber(nn) > selC2  then
      ListBox      .DeleteItem("List", i); ListBox.DeleteItem("ListBox1", i); ListBox.DeleteItem("ListBox2", i);
      end end p=p+1; until p > 9  end 
      سيكون الشكل التالي :



      الملف المفتوح المعدل :

      *

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

        مع خاصية جديدة وهي تتعلق بالصوتيات ..

        قراءة صوتية او تلاوة كل الايات في النتائج

        في الصفحة في الحدث OnAudio
        نضيف هذا الكود
        PHP Code:
        if Audio.GetCurrentPos(CHANNEL_NARRATION) == Audio.GetLength(CHANNEL_NARRATION) then
        Page        .ClickObject("B_Next");
        end 
        وهو ببساطة سيراقب تقدم الصوت لديك اي قراءة الاية لما ينتهي مباشرة هو سيفعلزر الصوت التالي وهو لا يعني بالضرورة الاية التالية في السورة لكن الاية التي في نتائج اليسبوكس
        ...........
        لازم تفعل خاصية القراءة المتظامنة مع العرض في الاسفل
        ستلاحظ لما ينتهي من قراءة الاية الاولى مباشرة سينطلق في قراءة الاية الموالية

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

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

          وضع مؤشر لتقدم الصوت اي قراءة القراءن

          طبعا ممكن نستغني عن الاكواد كلها باستعمال قارئ الميديا بلاير
          لكن ممكن نستفيد من مشاريع سابقة في الميدان مثل هذا المشروع



          الملف المفتوح لهذا الدرس
          *

          الان في اسفل زر استماع الاية اضف عنصر سلايد Slider
          قبله و بعده اضف ليبال لعرض طول صوت الاية و من الجهة الاخرى سيظهر تقدم الاية .........

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

          PHP Code:
          Audio.Stop(CHANNEL_NARRATION);
          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);
          MaxP = Audio.GetLength(CHANNEL_NARRATION);
          Slider.SetRange("          Plu_Audio", 0, MaxP);
          function Au()
              local nPosT = MaxP
              local nPosT = Math.Round(nPosT, 0);
              local sSecT = Math.Mod(nPosT, 60)
              local nStr = String.Length(sSecT);
              if nStr == 1 then
                  sSecT = "          :0"..sSecT
              else
                  sSecT="          :"..sSecT
              end
              local nMinT = Math.Floor(nPosT/60) 
              return String.Concat(nMinT, sSecT);
          end
          Label.SetText("          MaL", Au());
          Page.StartTimer(150, 11); 
          في التيمر نضيف التالي
          PHP Code:
          if e_ID == 11 then
          local nPosTrek           = Audio.GetCurrentPos(CHANNEL_NARRATION)
          Slider.SetSliderPos("Plu_Audio", nPosTrek);
          Label.SetText("PrAu", Audio.ConvertTime(CHANNEL_USER1));

          end 
          الان سنتفرغ للسلايدر و اظهارتقدم التلاوة كرقم
          اضف الكود الى GlobalFunction

          PHP Code:
          function Audio.IsInRect(strObject)
                        local bReturn = false;
                        local tPos = Plugin.GetPos(strObject)    
                        local tSize = Plugin.GetSize(strObject)
                        local tMouse = System.GetMousePosition(true);
                        local nX = tMouse.X
              local nY           = tMouse.Y
                        if (nX >= tPos.X) and (nX <= tPos.X + tSize.Width) then
                            if (nY >= tPos.Y) and (nY <= tPos.Y + tSize.Height) then
                      bReturn           = true;
                            end
              end
                        return bReturn;    
          end
          ------------------------------------------------------------------
          function           Audio.ConvertTime(channel)
                        local nPosTrek = Audio.GetCurrentPos(CHANNEL_NARRATION)
                        local nPosTrek = Math.Round(nPosTrek, 0);
                        local sSecTrek = Math.Mod(nPosTrek, 60)
                        local nString = String.Length(sSecTrek);
              if           nString == 1 then
                  sSecTrek           = ":0"..sSecTrek
                        else
                            sSecTrek=":"..sSecTrek
              end
              local nMinTrek           = Math.Floor(nPosTrek/60) 
              return           String.Concat(nMinTrek, sSecTrek);
          end
          ------------- 
          الوظيفة الاولى وهي الخاصة بتقدم موقع الصوت مع السلادر
          اما الثانية لتحويل موقع الصوت الحالي للتلاوة الى ثواني و دقائق

          ---------------
          اخر مرحلة وهي في السلايدر نفسه
          اضف ما يلي
          PHP Code:
          if Audio.IsInRect(this)  and System.IsKeyDown(1) then
              Audio          .Seek(CHANNEL_USER1, SEEK_SPECIFIC, e_Pos);
          end 
          وهكذا بعد البحث و تشغيل سماع الاية سيظهر على يمين السلايدر طول الصوت و على يساره رقم متغيير لتقدم قراءة الاية



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

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



            يعني لما تبحث عن ما تريد ستجد زر جديد اضفناه في الاسفل سميناه ( تصدي الاية كصورة ) و طبعا سميه كما تريد في تعديلك
            و الغرض منه الحصول على نتيجة جميلة للبحث و اماكنية رفعه كصورة على المواقع و التواصل الاجتماعي
            برمجيا استخدمنا اضافة capture
            و مجموعة 20 صور تكون خلفية للاية
            في زر التقاط الصورة نضع زر
            PHP Code:
            myDocsFolder = Shell.GetFolder(SHF_MYDOCUMENTS);
            Folder.Create(myDocsFolder.."\\New");
            ppw = Image.GetPos("ArrierPlan");
            w = Image.GetSize("ArrierPlan").Width;
            h = Image.GetSize("ArrierPlan").Height;
            Capture.WindoRgion(Raya.."-"..Rsora, myDocsFolder.."\\New", ppw.X, ppw.Y, w, h, IMAGE_PNG);
            File.Open(myDocsFolder.."\\New\"..Raya.."-"..Rsora..".png", "", SW_SHOWNORMAL); 
            يمكن تحريك الكتابة لوضعها اين تريد والكود في MoussMove في احداث الصفحة
            ايضا فيه زر لتغيير لون الخط و قد استعملنا ملف dll خاص باظهارمربع الوان

            PHP Code:
            result = DLL.CallFunction("AutoPlay\\Docs\\CHCOLOR.DLL", "SelectColor", ","FFFFFF","HEX","192;;192;;192","FALSE"", DLL_RETURN_TYPE_STRING, DLL_CALL_STDCALL)
            result = tonumber(String.TrimLeft(String.Left(result, String.Find(result, "::", 1, false)-1), "#"),16);
            Paragraph.SetProperties("Paragraph1", {ColorNormal = (result)}) 
            لشرح صفحة التقاط الصورة


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



            الملف بعد تشغيله يكون كالتالي


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


            بالتوفيق
            Comment
            • عبد الهادي بهاب
              عبد الهادي بهاب
              Thread Author
              Free Membership
              • Nov 2018 
              • 177 
              • 82 
              • 43 
              #36
              السلام عليكم ورحمة الله وبركاته
              في موضوع تغيير لون الخط ممكن نستفيد من object يسمى Buttoncolor
              لتحميل الاضافة من هنا
              *

              ضعها في objects في plugings في مسار البرنامج في البرامج

              ثم ضع في On Selct
              PHP Code:
              tblParaProps.ColorNormal = e_Color;
              tblParaProps.ColorHighlight = e_Color;
              tblParaProps.ColorDown = e_Color;
              tblParaProps.ColorDisabled = e_Color;
              Paragraph.SetProperties("Paragraph1", tblParaProps); 
              لتغيير الخط كليا

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

                اظهار الاية بلتشكيل او بدونه



                ببساطة اضف زرين و سمي الاول اظخار التشكيل و الثاني دون تشكيل
                نزرع في الزر الاول دون تشكيل

                PHP Code:
                istibdalate={["ó"] = "",["ð"] = "",["õ"] = "",["ö"] = "",["ú"] = "",["ø"] = "",["ö"] = "",["ñ"] = ""} 
                Ntxt = string.gsub ( txt, ".",istibdalate); 
                Input.SetText("Input_Info_Display", Ntxt); 
                و في الاخر

                PHP Code:
                Input.SetText("Input_Info_Display", txt); 
                بالتوفيق
                Comment
                • عبد الهادي بهاب
                  عبد الهادي بهاب
                  Thread Author
                  Free Membership
                  • Nov 2018 
                  • 177 
                  • 82 
                  • 43 
                  #38
                  السلام عليكم ورحمة الله وبركاته
                  الان مع اضافة
                  خاصية تغيير الخط
                  في الصفحة الثانية الخاصة بالتقاط صورة للابة

                  نفعل الاضافة SysDialog

                  للتحميل من هنا
                  *

                  من اجل تغيير حجم و لون و نوع الخط للاية الظاهرة
                  نضع زر في الاسفل و نزرع فيه الكود التالي
                  PHP Code:
                  local tFlags={}

                  tFlags.Bold=true
                  tFlags                  .Italic=false
                  tFlags                  .NoExtended=false
                  tFlags                  .StrikeOut=false
                  tFlags                  .Underline=false
                  tFlags                  .Color=Math.HexColorToNumber("000000")
                  tFlags.Scripe=Arabe


                  local tFont                   = SysDialog.Font("Traditional Arabic",22, tFlags);
                  if                   tFont then
                      
                  tblParaProps                   = {};
                  tblParaProps.FontName = tFont.Font;
                  tblParaProps.FontSize = tFont.Size;
                  tblParaProps.FontWeight = FW_NORMAL;
                  tblParaProps.FontScript = ANSI_CHARSET;
                  tblParaProps.FontUnderline = tFont.Underline;
                  tblParaProps.FontStrikeout = tFont.StrikeOut;
                  tblParaProps.FontItalic = tFont.Italic;
                  tblParaProps.Cursor = CURSOR_HUND;
                  tblParaProps.ColorNormal =tFont.Color;
                  tblParaProps.ColorHighlight =tFont.Color;
                  tblParaProps.ColorDown = tFont.Color;
                  tblParaProps.ColorDisabled = tFont.Color;
                  Paragraph.SetProperties("Paragraph1",tblParaProps);
                  end 


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

                    نريد لما يضغط على البحث و تظهر نتائج البحث سيحدد النص المبحوث عنه في الاية
                    مثال



                    بكل بساطةسنضيف في زر اظهار الاية دون تشكيل ما يلي في اسفل الموجود

                    PHP Code:
                    cherh = string.gsub (Input.GetText("Input1"), ".",istibdalate); 

                    find = String.Find(Ntxt, cherh, 1) ;
                    if                     find then
                    Input                    .SetSelection("Input_Info_Display", find, find + #ali);

                    end 
                    ملاحظة لا يعمل الكود غي اظهار النص في الاية لما كون مشكلة
                    لان الحركات تعتبر ايضا احرفا لذلك فلن نستطيع تحديد النص الا اذا عدلنا الكود باحصاء الحركات المحذوفة
                    وسنعمل عليه لاحقا

                    • 1 like
                    Comment
                    • عبد الهادي بهاب
                      عبد الهادي بهاب
                      Thread Author
                      Free Membership
                      • Nov 2018 
                      • 177 
                      • 82 
                      • 43 
                      #40
                      السلام عليكم ورحمة الله وبركاته
                      تتمة للمشروع القرآني ........اليوم مع خاصية جديدة في اضافة اللغات الى الموسوعة
                      سنضيف خاصية الترجمة الى الفرنسية و الانجليزية

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

                      نزلت منه ترجمتين لفرنسية و الانجليزية بصيغة csv
                      طبعا ما يهمني غي الملف هو رقم السورة و رقم الاية و نصها و محيت الباقي
                      ثم حولتها الى db عن طريق تنزيل المحتوى الى غريد ثم تحويل الغريد الى db
                      عبر الكود التالي :
                      PHP Code:
                      Grid.LoadFromFile("Grid1", "AutoPlay\\Docs\\cvb.csv", ";", true)

                      sDatabaseFile = _SourceFolder .. "\\AutoPlay\\Docs\\coranFR.db";
                      db = SQLite.Open("AutoPlay\\Docs\\coranFR.db");
                      SQLite.Query(db,"CREATE TABLE coran(Sora_Num , Aya_Num , Aya_text)");

                      for                       i = 1,Grid.GetRowCount("Grid1") do
                      is = Grid.GetCellText("Grid1", i, 0);
                      v = Grid.GetCellText("Grid1", i, 1);
                      p = Grid.GetCellText("Grid1", i, 2);

                      SQLite.Query(db,"insert into coran values('" .. is.."', '"..v.."', '"..p .."')");

                      end 
                      لنتحصل على ترجمتين للقران الكريم بالفرنسي و الانجليزي
                      ارجو ان تكونا صحيحتين و الا فاي خطا يجب التنبيه اليه و مراسلة الموقع اعلاه

                      الان هنا تجد الملفين :
                      *

                      ضعهما في ملف docs
                      ثم سنضيف زرين لاظهار الترجمة فرنسي او انجليزي
                      ------------------
                      ممكنننزل اللغات المختلفة و نفس العملية نحولها بالكود السابق الى قواعد db
                      --------------------
                      الان شنيف هذا الشؤط في مجريات البحث اي كلما وجد الاية التي نبحث عنها بالعربي سنبحث عن رقمها و سورتها في قواعد الانجليزي و العربي

                      اينما وجدت listbox1 في كودالبحث الصق فوقه ما يلي

                      PHP Code:
                        MonNumA = tonumber(s.Data[i]["Aya_Num"]) ; MonNumS = tonumber(s.Data[i]["Sora_Num"]);
                        for                       ifr,vfr in pairs(sFR.Data) do 
                        if                       MonNumS == tonumber(sFR.Data[ifr]["Sora_Num"]) then
                                              if MonNumA == tonumber(sFR.Data[ifr]["Aya_Num"]) then
                        FrAya                      [tol] = sFR.Data[ifr]["Aya_text"] ; end end end
                                              ------rn -----------
                        for                       ien,ven in pairs(sEN.Data) do 
                        if                       MonNumS == tonumber(sEN.Data[ien]["Sora_Num"]) then
                                              if MonNumA == tonumber(sEN.Data[ien]["Aya_Num"]) then
                        EnAya                      [tol] = sEN.Data[ien]["Aya_text"] ; end end end
                                              ---------------------- 
                      وهو سيسجل الايات بالفرنسي و العربي في مصفوفات و التي سنستدعيها في زري الترجمة

                      الان في زر الفرسية ضع
                      PHP Code:
                      if tonumber(Rsora) == 1 and  tonumber(Raya) == 1 then
                       txta                       = sFR.Data[1]["Aya_text"];
                      Input.SetText("Input_Info_Display", txta)
                      else
                      txta = FrAya[AudioAya] ;
                      Input.SetText("Input_Info_Display", txta)
                      end 
                      ة في الانجليزي
                      PHP Code:
                      if tonumber(Rsora) == 1 and  tonumber(Raya) == 1 then
                       txtab                       = sEN.Data[1]["Aya_text"];
                      Input.SetText("Input_Info_Display", txtab)
                      else
                      txtab = EnAya[AudioAya] ;
                      Input.SetText("Input_Info_Display", txtab)
                      end 


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


                      *
                      -------------------------
                      Comment
                      • السعيد الجزائري
                        السعيد الجزائري
                        Free Membership
                        • Nov 2018 
                        • 2 
                        • 1 
                        • 1 
                        #41
                        عمل ممتاز بارك الله في جهودكم
                        Comment
                        • عبد الهادي بهاب
                          عبد الهادي بهاب
                          Thread Author
                          Free Membership
                          • Nov 2018 
                          • 177 
                          • 82 
                          • 43 
                          #42
                          Originally posted by السعيد الجزائري View Post
                          عمل ممتاز بارك الله في جهودكم
                          مرحبا اخي السعيد ........بالتوفيق
                          Comment
                          • م/عامر
                            م/عامر
                            Free Membership
                            • Dec 2020 
                            • 296 
                            • 404 
                            • 158 
                            #43
                            عمل جبار

                            وفقك الله وأعانك

                            عندي ملاحظة بسيطة هل يمكن البدء في البحث بعد الضغط على زر Enter من لوحة المفاتيح
                            Comment
                            • عبد الهادي بهاب
                              عبد الهادي بهاب
                              Thread Author
                              Free Membership
                              • Nov 2018 
                              • 177 
                              • 82 
                              • 43 
                              #44
                              Originally posted by م/عامر View Post
                              عمل جبار

                              وفقك الله وأعانك

                              عندي ملاحظة بسيطة هل يمكن البدء في البحث بعد الضغط على زر Enter من لوحة المفاتيح
                              السلام عليكم...اقتراح رائع جدا
                              طبعا بكل بساطة نضيف الكود التالي في on_key

                              PHP Code:
                              if e_Key == 13 then
                              Page                              .ClickObject("B_serch")
                              end 
                              Comment
                              • عبد الهادي بهاب
                                عبد الهادي بهاب
                                Thread Author
                                Free Membership
                                • Nov 2018 
                                • 177 
                                • 82 
                                • 43 
                                #45
                                السلام عليكم ورحمة الله وبركاته

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

                                اضفنا صفحة الاستقبال


                                صفحة استعراض السور


                                صفحة البحث


                                قمنا بتعديل قواعد البيانات .... تصحيح بعض الاخطاء فيها
                                --------------
                                الشكل النهائي لحد الان

                                ---------
                                ملاحظة : يجب وضع الملف الصوتي للقران باسم quran في ملف Audio

                                الملف المعدل للمشروع
                                *


                                ارجو ابلاغنا عن اي خطأ
                                Comment
                                Previous 1 2 3 4 5 template Next
                                ملف مفتوح ...تصميم اسطوانة للقران الكريم ...بحث و استعراض
                                Collapse
                                Trending
                                Collapse
                                Working...
                                X