إعـــــــلان

**عبود عبود عبود عبود** · 16-12-2013, 05:31 PM

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

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

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

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

**المحترف القادم المحترف القادم** · 16-12-2013, 07:15 PM

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

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

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

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

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

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

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

**أبو محسن أبو محسن** · 16-12-2013, 07:25 PM

سأجرب

**ثامر أبو بلقيس ثامر أبو بلقيس** · 16-12-2013, 09:59 PM

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 16-12-2013, 11:33 PM

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

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

تحتاج الان الا لعنصري 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);

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 17-12-2013, 01:15 AM

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

كود:

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

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

علاء الدين حسين · 17-12-2013, 01:31 AM

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 17-12-2013, 02:00 AM

المشاركة الأصلية بواسطة علاء الدين حسين مشاهدة المشاركة

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

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

علاء الدين حسين · 17-12-2013, 02:12 AM

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 19-12-2013, 02:03 PM

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

**المحترف القادم المحترف القادم** · 19-12-2013, 05:21 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 20-12-2013, 12:10 AM

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

كود PHP:


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

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

**م ياسين م ياسين** · 20-12-2013, 11:17 PM

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

**امل الماضي امل الماضي** · 25-01-2014, 02:54 PM

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

إعـــــــلان

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

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

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك