Damasgate

آخر موضوع
Collapse

المواضيع التفاعل آخر مشاركة
الكاتب zaza-14, 29-03-2020, 11:19 AM
رد واحد
6 مشاهدة
1 إعجاب
آخر مشاركة
بواسطة: كمال بدر
 
هذا الموضوع مثبت لأهميته.
X
X

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

Collapse
  • تصفية
  • الوقت
  • عرض
مسح الكل
مشاركات جديدة

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

    -----------


    كما يظهر في الشكل في عنصر القراءة المتزامنة
    سنفترض متغير 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



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

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



    بالتوفيق

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

    نواصل معكم في مشروعنا الان مع خاصية نسخ المحتوى و تصديره في ملف تكست يختار المستخدم مكان حفظه
    ----------------
    خاصية نسخ نتائج البحث
    ---------------
    ببساطة نضيف زر جديد نسميه مثلا( نسخ النتائج ) او اي شكل تريده
    نجمع من اليستبوكس من كل سطر اسم السورة ......و نص الاية الذي هو موجود في 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); 




    بالتوفيق

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

    عودة لمشروعنا حول البحث في القرآن الكريم
    اليوم مع خاصية الاحزاب و الأجزاء و الارباع
    نحن نعلم ان المصحف مقسم الى اجزاء كل جزء الى حزبين و كل حزب الى 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 
    ----------------------------
    الملف المعدل لمشروع البحث في القران الكريم
    ( ملاحظة ..الملف لايحتوي على الملف الصوتي و قد سبق ان اشرنا له في مشاركة سابقة )

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