موضوع مثبت.
X
X

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

AutoPlay Media Studio and Generate All In One Tutorials

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

  • #41

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

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



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

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

    find String.Find(Ntxtcherh1) ;
    if 
    find then
    Input
    .SetSelection("Input_Info_Display"findfind #ali);

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


  • #42

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

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

    نزلت منه ترجمتين لفرنسية و الانجليزية بصيغة 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 
    1,Grid.GetRowCount("Grid1") do
    is Grid.GetCellText("Grid1"i0);
    Grid.GetCellText("Grid1"i1);
    Grid.GetCellText("Grid1"i2);

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

    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) == 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) == 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 


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


    *
    -------------------------


  • #43

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


  • #44

    Originally posted by السعيد الجزائري *
    عمل ممتاز بارك الله في جهودكم
    مرحبا اخي السعيد ........بالتوفيق


  • #45

    عمل جبار

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

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


  • #46

    Originally posted by م/عامر *
    عمل جبار

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

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

    PHP Code:
    if e_Key == 13 then
    Page
    .ClickObject("B_serch")
    end 


  • #47

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

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


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


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


    صفحة البحث


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

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

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


    ارجو ابلاغنا عن اي خطأ


  • #48

    شكرا لك و بارك الله فيك جعله الله في ميزان حسناتك ورفع عنا البلاء وحفضنا من الداء


  • #49

    Originally posted by mograr *
    شكرا لك و بارك الله فيك جعله الله في ميزان حسناتك ورفع عنا البلاء وحفضنا من الداء
    شكرا الشيخ مغرار ........ارجو ان توفق في فهم الاكواد و انتاج موسوعة جميلة
    تابعنا مع الجديد


  • #50

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

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

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

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





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


    بالتوفيق

Working...
X