مشروع قرآن بإضافة الأكشن Repeating الخاصة بتكرار الميديا "

[المحترف القادم المحترف القادم]

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

كم أنا سعيد بهذه الإضافة من قبل الأخ : عبود

إضافة الأكشن Repeating الخاصة بتكرار الميديا "

ولدي مشروع متوقف منذ مدة لم أجد طريقة لبرمجته وفق ما اريد

صورة من المشروع :



والمشروع في المرفقات

آمل من الإخوة الكرام مساعدتي في ذلك

حسب الإمكان .. وأخص بالذكر :

الأخ عبود - الأخ ثامر - الأخ خالد

[عبود عبود عبود عبود]

طيب بالنسبة لى سوف أقوم بالإجابة آخر هذا الإسبوع حتى يتسنى لى معرفة أنى إستطعت أن أفيدك بما قدمتة من إضافة أم لا

كل ما أريدة من الأعضــــاء هو بذل مزيد من الجهــــد فى التعلم فهذا هو دورى فقط تنشيط ما أراه يحتاج إلى تنشيط و إرسال ما تعلمته إلى من يريد أن يتعلم .

إذا لم تظهر حلول أو إجابات من باقى الزملاء الأعضاء فهذا بالتأكيد أنى لم أستطيع توصيل المعلومة بشكل صحيح لهم فسوف أقوم بمحاولة توصيل المعلومة مرة أخرى لهم إن إستطعت ذلك .

أترك لكم المجال قليلا .

[المحترف القادم المحترف القادم]

جزاك الله خيرًا ,,

كلنا بانتظار من لديه الخبرة في إنجاز مثل هذه المشاريع

أتمنى من جميع الإخوة الأعضاء ( محترفين - ومتوسطي الاحترافية - ومبتدئين )

إثراء هذا الموضوع بالأفكار والملاحظات

هذا المشروع يخدم كتاب الله

ويخدم طلبة العلم

وأسأل الله العلي القدير أن لا يحرمكم الأجر

[أبو محسن أبو محسن]

سأجرب

[ثامر أبو بلقيس ثامر أبو بلقيس]

أخي المحترف القادم
لو تتقبل رأي المتواضع هو أن تقوم قبل كل شيء حتى لاتزامن لحظة البرمجة
مع الاستماع للقرآن فقد يخطأ الانسان
- ارفع السور التي اخترتها في مشروعك الى جهازك قم بالاستماع لها بتأن و سجل كل اللحظات
التي تتوقف عندها الايات الكريمة و احفظ كل مصفوفة "زمنية" في مستند نصي باسم السورة و دائما تأكد
بدل المرة مرات == أي هذه المرحلة أعطيها عناية ===
-ثق مع الاضافة المطروحة إن شاء الله ستكون العملية ناجحة إن شاء الله

تقبل رأي وتقديري

[ثامر أبو بلقيس ثامر أبو بلقيس]

السلام عليكم بغية التفكير معك ربما ستتقبل اقتراحي

في مشروعك و في عنصر الليست نحقق مسار الصوت وفق التسمية على أن نضيف خط
لنسهل العمل :


تحتاج الان الا لعنصري ListBox1 و ListBox2 و طبعا ListBox3 لتحديد السورة و البداية و النهاية و لاتزرع فيهم اي كود

عنصر الادخال الموافق ل عدد مرات التكرار للآية لا نحتاجه الان
سنحتفظ فقط بالانبوت 6 "Input6 " بتسميته لنكتب فيه عدد مرات التكرار
ضع الان زر في عملك و ازرع فيه

tSelected = ListBox.GetSelected("ListBox1");
n = ListBox.GetItemData("ListBox1",  tSelected[1]);
----------
tSelected2 = ListBox.GetSelected("ListBox2");
p = ListBox.GetItemText("ListBox2", tSelected2[1]);
---------
tSelected3 = ListBox.GetSelected("ListBox3");
d = ListBox.GetItemText("ListBox3", tSelected3[1]);
------------------
v =Input.GetText("Input6");

mytable = "0,5.0823532,8.1294666,11.4867388,17.7278521,25.1513737,31.5682149";
result = Repeat.SectionEndSeconds("Plugin1", n, p, d, v, false, mytable);

اذا كانت المصفوفة التي أدرجتها مضبوطة بإذن الله ستكون النتيجة مرضية
عند تحديد سورة الناس و تحديد الايات و عدد مرات التكرار

تقديري ووفقك الله

[ثامر أبو بلقيس ثامر أبو بلقيس]

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

 tSelected = ListBox.GetSelected("ListBox1");
n = ListBox.GetItemData("ListBox1",  tSelected[1]);
----------
tSelected2 = ListBox.GetSelected("ListBox2");
p = ListBox.GetItemText("ListBox2", tSelected2[1]);
---------
tSelected3 = ListBox.GetSelected("ListBox3");
d = ListBox.GetItemText("ListBox3", tSelected3[1]);
------------------
v =Input.GetText("Input6");
ter = ListBox.GetItemText("ListBox1", tSelected[1]);
if ter == "الناس" then
mytable = "0,5.0823532,8.1294666,11.4867388,17.7278521,25.1513737,31.5682149";

elseif ter  == "الضحى" then
mytable = "0,10.0427369,15.2,23.2,36.8709177,46.6281853,60,69.5187703,80.6584461,90.2889721,101.3968021,101.4";

end
result = Repeat.SectionEndSeconds("Plugin1", n, p, d, v, false, mytable);

لاحظ أي مسافة زائدة في اسم السورة فلن يعمل الشرط
بمعنى تكون الكتابة دقيقة وبدون مسافات زائدة

[علاء الدين حسين علاء الدين حسين]

اين يجب ان توضع الاضافة ؟
وضعتها فى مجلد الويندوز سيستم و لم تعمل

[ثامر أبو بلقيس ثامر أبو بلقيس]

اين يجب ان توضع الاضافة ؟
وضعتها فى مجلد الويندوز سيستم و لم تعمل

أخي علاء أدخل على هذا الرابط للإضافة
منه ستعرف بإذن الله كيفية التعامل مع البليجين
http://sites.ienajah.com/vb2/showthread.php?t=28428

[علاء الدين حسين علاء الدين حسين]

شكرا استاذ ثامر
تمت الاستفادة

[ثامر أبو بلقيس ثامر أبو بلقيس]

يبدو أني لم أفهم السؤال
على كل متابع لأستفيد و بالتوفيق

[المحترف القادم المحترف القادم]

يبدو أني لم أفهم السؤال
على كل متابع لأستفيد و بالتوفيق

بالعكس أخي ..
ولكن تعلمت أن لا أستعجل

وأنتظر البقية بالمشاركة وإثراء الموضوع بالملاحظات

[ثامر أبو بلقيس ثامر أبو بلقيس]

اثراء للموضوع نضع هذه في ListBox1 في on select

ListBox.DeleteItem("ListBox2", -1);
ListBox.DeleteItem("ListBox3", -1);
result = ListBox.GetSelected("ListBox1");
d = ListBox.GetItemText("ListBox1", result[1]);
x =1
if d == "الفاتحة" then for i = x ,7 do ListBox.AddItem("ListBox2", x, "") ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "الناس" then for i = x ,6 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "الفلق" then for i = x ,5 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "الإخلاص" then for i = x ,4 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "المسد" then for i = x ,5 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "النصر" then for i = x ,3 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "الكافرون" then for i = x ,6 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "الكوثر" then for i = x ,3 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "الماعون" then for i = x ,7 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "قريش" then for i = x ,4 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "الفيل" then for i = x ,5 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "الهمزة" then for i = x ,9 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "العصر" then for i = x ,3 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "التكاثر" then for i = x ,8 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end
if d == "القارعة" then for i = x ,11 do ListBox.AddItem("ListBox2", x, "")  ListBox.AddItem("ListBox3", x, "") x =x+1 end end 

شوف عدد الايات و الكتابة اذا يوجد خطأ صححه

[م ياسين م ياسين]

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

[امل الماضي امل الماضي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .