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

**النصل القاطع النصل القاطع** · 13-11-2013, 11:06 PM

لا يوجد حل مباشر

لكن دائما هناك حل
أين المشكلة هنا ؟؟

المشكلة أنك تستطيع حذف العنصر
لكنك لا تستطيع حذف ترقيمه فى الفهرس
يسبب ذلك عدم إشارة متغير الحلقة (i) لرقم الفهرس الصحيح
يلزم إعادة الفهرسة
و لا يمكنك إعادة الفهرسة
و لو إستطعت سيحدث ذلك مشكلة أن متغير الحلقة i لن يعبر عن العنصر الهدف

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

الحل موجود لكن أولا
حاول و إطلعنى على محاولتك لمناقشتها

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

هذا نموذج لعملية ضبط تكرار آيات القرآن الكريم

لاحظ أخي خالد أني بعد اختيار السورة
أحدد بداية الاية ثم نهايتها
وطبعا التكرار

عند السماع الأول تبدأ السورة من الاية المحددة
لكن عند تكرار القراءة لا تبدا من الاول

هذا يحتاج لضبط

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

على كل جزاك الله خيرا إن شاء الله
http://www.gulfup.com/?ZZ7MJ0

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

سلامي

**ثامر أبو بلقيس ثامر أبو بلقيس** · 14-11-2013, 01:21 AM

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

من هنا

**أبو محسن أبو محسن** · 14-11-2013, 05:29 AM

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

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

من هنا

السلام عليكم
ليس لدي جواب لأدلي به، فأعتذر عن المداخلة
أستاذ ثامر
فقط أحببت معرفة: هل أجد مصحف للشيخ فارس عبّّاد برواية حفص عن عاصم [مجزئة] !!!
ولا مانع من طرح عدة مشائخ برواية حفص عن عاصم
وجزاك الله خير

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

سابحث معك أخي أبو محسن وفور توفر المعلومة
لن أبخل إن شاء الله
وفقك الله

**النصل القاطع النصل القاطع** · 14-11-2013, 05:11 PM

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

كود PHP:


num = Input.GetText("Input1");

num = String.ToNumber(num);

count = ListBox.GetCount("ListBox1");

table1 = {}

table2 = {}



for i = 1,count do

result = ListBox.GetItemText("ListBox1", i);

result = String.ToNumber(result);

Table.Insert(table1, i, result);

end



for a,z in pairs (table1) do

if z<num or z==num then 

Table.Insert(table2, a, z);

end

end



ListBox.DeleteItem("ListBox1", -1);

for a,z in pairs (table2) do

result = ListBox.AddItem("ListBox1", a, z);

end

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

الملف المفتوح سأحمله و أختبره و سأطلعك على التصحيحات اللازمة

**ثامر أبو بلقيس ثامر أبو بلقيس** · 14-11-2013, 05:56 PM

بارك الله فيك كل هذه الأكواد التي أرسلتها سأطلع عليها بروية

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

كود:

----  هاتين القيمتين تتغيرا------
x =  Input.GetText("Input1");
y =  Input.GetText("Input2");
---- ثوابت  لا تتغيير في معادلة التكرار-----
u="|"
n = ComboBox.GetText("ComboBox1");
t= Input.GetText("Input4");
---------------------------------------
TextFile.WriteFromString(_SourceFolder.."\\AutoPlay\\Docs\\"..n..".txt", x..u.. "Autoplay\\\\Audio\\\\"..t.."\\\\"..x..".mp3", false);


---  برقم  واحد x أريد كود كي ينفذ السطر الأخير كتابةأسطر حيث تزداد في كل مرة ق
---  y تتوقف الحلقة عند الوصول إلى قيمة

-------- لكم كل التقدير ----

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

**النصل القاطع النصل القاطع** · 14-11-2013, 06:17 PM

أخى الكريم
لو لاحظت مشاركتى الأولى فى الموضوع
ستجد أننى إشترطت أن تضع محاولتك أولا

عندما وجدت أنك تبرمج برنامج لتحفيظ القرآن
تحطمت كل الشروط

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

لكن دعنى أفعل ذلك بطريقتى بعيدا عن الملفات النصية (قد أستخدم الجداول)

**النصل القاطع النصل القاطع** · 14-11-2013, 10:03 PM

لن يتم إستخدام الجداول
لن يتم إستخدام التيكست

لابد من إقتلاع جذر المشكلة و ليس تقليم أغصانها
ما هى المشكلة ؟؟
أنت تريد إدراج حلقات بداخل الحدث on finish للكائن ميديا بلاير
و لكن هذا الحدث فى حد ذاته يعتبر حلقة طبقا لقانون النصل القاطع

كيف نقوم بوضع حلقة بدون أن نضع حلقة
تلك أحجية جديدة ؟؟

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

لا مانع من شروط if

كيف ؟؟ ركز معى
الآن تلميحك النهائى و سأتركك بعدها يومان للتفكير

أجب على الآتى
لو أردنا تكرار 3 آيات لأربعة مرات
كم آية سيتلوها البرنامج ؟؟

12 مرة
1 و 2 و 3 و 4 و5 و6 حتى 12

هل هناك طريقة لجعل البرنامج يفهم 4 على أنها 1 و يعيد تلاوة الآية الأولى ؟؟
هل هناك طريقة لجعل البرنامج يفهم 7 على أنها 1 و يعيد تلاوة الآية الأولى ؟؟

هل هناك طريقة لجعل البرنامج يفهم 5 على أنها 2 و يعيد تلاوة الآية الثانية ؟؟
هل هناك طريقة لجعل البرنامج يفهم 8 على أنها 2 و يعيد تلاوة الآية الثانية ؟؟

نعم أخى
الدالة mod

هل لهذه الدالة عيوب فى هذا الموضع ؟؟
نعم فهى تعتبر 3 مود 3 يساوى صفر
هل لذلك حل ؟؟ نعم و بمنتهى السهولة من خلال وضع شرط if بسيط

الملخص
فى هذا المثال (ثلاثة آيات لآربعة تكرارات) دع البرنامج يقرأ الآيات من 1 إلى 12 (لأن 3x4 يساوى 12)
إستخدم الدالة mod لتصحيح رقم الآية كما أسلفت لك بالشرح
صحح حالة الصفر لدالة مود عن طريق وضع شرط عندما يتساوى بالصفر فإن القيمة تساوى "من" على أساس أنك تريد القراءة "من" "إلى"

إنتهت تلميحاتك
الحل جاهز و لن يطرح قبل يومان من الآن

لكن المناقشة مفتوحة من الآن و قد تصل خلالها للحل بعد ساعات من الآن
بالتوفيق

**ثامر أبو بلقيس ثامر أبو بلقيس** · 14-11-2013, 10:14 PM

كلام نظري سريع جدا تقبله مني
ماذا لو نضع انبوت سيكتب فيه المستعمل عدد مرات التكرار
كلما انهى الميديا بلير دورة on finish ينقص رقم من الانبوت
ثم نربطه بدالة شرطية عند وصول الأنبوت إلى الرقم 1 ينتهي تعداد التكرار

**النصل القاطع النصل القاطع** · 14-11-2013, 10:20 PM

كلام مفيد فى التكرار الأول فقط

كيف ستربط عدد مرات التكرار بدون حلقة ؟؟
لا يمكنك
و لا يمكنك أيضا وضع حلقة (من وجههة نظرى)

حاول مع الدالة math.mod
و لا تخف إطلاقا
يهمنى جدا أن أطرح الحل ليستفيد الجميع

و يهمنى أن تتعلم سعة الحيلة بعد أن نضجت برمجيا
فأحيانا تكون الحيلة أهم من البرمجة تفسها
لحل المشاكل التى تبدو مستحيلة

**ثامر أبو بلقيس ثامر أبو بلقيس** · 14-11-2013, 10:50 PM

لا أخفيك سأحاول لكنه الارهاق نال مني الكثير
و الكثير .... "أرجو من كل مهتم بتجاوز التكرار في الايات القرآنية
و مهتم بإنجاز برنامج تحفيظ مفيد المشاركة بآرائه و محاولاته
فالغاية واحدة و المحتوى يفرض ألا يبخل أحد "

شكرا الأستاذ خالد و جزاك الله كل خير على الاهتمام و المتابعة الجيدة
احتراماتي

**النصل القاطع النصل القاطع** · 14-11-2013, 11:02 PM

أخى ثامر
فقط كنت أريد أن تشحذ سلاحك البرمجى

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

إمسح أى أكواد فى مشروعك ما عدا أكواد البلجن spin
عدل الكمبوبوكس لتكون الداتا هى إسم المجلد الإنجليزى بهذا الشكل

ضع هذا الكود فى الحدث on select للكمبوبوكس
[html]sora = ComboBox.GetItemData("ComboBox1", e_Selection);[/html]

ضع هذا الكود فى زر الإستماع
[html]start = Input.GetText("Input1");
End = Input.GetText("Input2");
start=String.ToNumber(start);
End=String.ToNumber(End);
Repeat = Input.GetText("Input3");
Repeat=String.ToNumber(Repeat);
total = (End+1-start) * Repeat
c=0
MediaPlayer.Load("Plugin_MediaPlayer", "Autoplay\\Audio\\"..sora.."\\"..start..".mp3" );
MediaPlayer.Play("Plugin_MediaPlayer");
start = start+1
[/html]

ضع هذا الكود فى الحدث on finish لكائن الميديا بلاير
[html]
start2 = start
start = Math.Mod(total, End-start+1);
if start == 0 then start = start2 end
MediaPlayer.Load("Plugin_MediaPlayer", "Autoplay\\Audio\\"..sora.."\\"..start..".mp3" );
MediaPlayer.Play("Plugin_MediaPlayer");
start = start+1
c=c+1
if start == End+1 then
start=1
end

if c==total then
MediaPlayer.Stop("Plugin_MediaPlayer"); end[/html]

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

فى سلام الله أخى

**ثامر أبو بلقيس ثامر أبو بلقيس** · 14-11-2013, 11:41 PM

كل الكلام الجميل أزفه لك لكن دعني أخبرك أنه منذ أن أعطيتني التمرين
و أنا أفكر و كنت سأقول لك مايلي :
قلت لي كيف نجعل البرنامج يفهم 4 هي 1 و 5 هي 2 إلى غاية 12

أخي خالد بتأمل الأرقام و نحن مطالبين من 1 إلى 3 سأأخذ العدد 3
وسنقسم عليه دائما
باستغلال الدالة التي قلت لي استعملها سنجد باقي قسمة 4 على 3 هو 1
و باقي قسمة 5 على 3 هو 2
الباقي لما نقسم على 7 هو 1 و هكذااا
الشرط الذي سنضيفه في مثل هكذا حالاات هو باقي القسمة للأعداد
6 و 9 و 12 سيكون 0 و هم من مضاعفات المقسوم عليه و من هناا سأضع الشرط

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

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

طلب المساعدة فى برنامج تحفيظ القرآن الكريم

طلب المساعدة فى برنامج تحفيظ القرآن الكريم

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك