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

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

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

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

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

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

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

http://img03.arabsh.com/uploads/image/2013/12/16/0c32414362f10d.jpg

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

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

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

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

[عبود عبود]

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

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

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

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

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

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

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

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

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

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

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

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

[أبو محسن]

سأجرب :abc_022:

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

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

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

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

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

في مشروعك و في عنصر الليست نحقق مسار الصوت وفق التسمية على أن نضيف خط
لنسهل العمل :
http://im38.gulfup.com/ot1ab.bmp (http://www.gulfup.com/?tsb3Yk)

تحتاج الان الا لعنصري 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.151 3737,31.5682149";
result = Repeat.SectionEndSeconds("Plugin1", n, p, d, v, false, mytable);

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

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

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

مثلا لإضافة سورة الضحى الموجودة في بليجين الاخ الكريم عبود
مع الليست التي كتبتها نكتب اسم السورة ونحدد المسار مثل ما هو موضح في الصورة
السابقة و طبعا نضيف الخط الذين اتفقنا عليه
ليصبح التعامل مع البليجين من حيث استدعاء المصفوفة الزمنية يكون وفق اسم السورة
ليصبح الكود كالاتي يتعامل مع الملفين الصوتين للسورتين الكريمتين
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.151 3737,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://www.abc4web.net/vb/showthread.php?t=28428

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

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

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

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

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

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

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

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

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

اثراء للموضوع نضع هذه في 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


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

[م ياسين]

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

[امل الماضي]

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

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
موفق بإذن الله ... لك مني أجمل تحية .

[خادم المسلمين]

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

[سعيدون]

رائعة اعمالكم ومتميزة
بالتوفيق

[رجب الأنصاري]

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

[رجب الأنصاري]

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

السلام عليكم ورحمة الله وبركاته
أخي أنا عندي القرآن الكريم كامل مقسم إلى آيات لعدة مقرئين ولا أريد التقسيم الزمني للسور
فما هو الكود الصحيح

[ربيع]

السلام عليكم ورحمة الله وبركاته
لو تضع سورة قصيرة بعدة مقرئين ربما يسهل ذلك على الاخرين لمساعدتك

[سمير نبيل]

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

[ميزو فوكس]

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

[ميزو فوكس]

حملت ملف المشروع و لكن عند التشغيل تظهر
هذه الرساله فما هو الحل
http://store2.up-00.com/2015-04/1430300838231.jpg (http://www.up-00.com/)

[ابراهيم سماحة]

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

[التارزي]

بارك الله فيك

[المصمم]

شـكــ وبارك الله فيك ـــرا لك
:thanks:

موفق بإذن الله ... لك مني أجمل تحية .

[رحاب جاد]

ممتـــاز.......

[محمد امير محمد امير]

بارك اللة فيك اخى

[رانيا حسن]

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

[احمد كبه]

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

[عبود عبود]

مع إستخدام الإصدار الثانى من الإضافة سيكون أفضل
http://www.abc4web.net/vb/showthread.php?t=34552



:abc_152:

[محمد رمضان أبو يوسف]

بارك الله فيكم