مساعدة في عمل اسطوانة القرآن الكريم

[ياسرالخطابي ياسرالخطابي]

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

والان اقدم لكم استفساري على هذه العضوية

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

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

[admin admin]

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

حياك الله أخى ياسر ومبروك استعادة العضوية

بعد حذف المشاركة السابقة أنسخ ردى السابق الى هنا

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

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

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

[ياسرالخطابي ياسرالخطابي]

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

http://www.mediafire.com/download/z4...38h2/Quran.rar

وجزاكم الله خيرا

[عبد الهادي بهاب عبد الهادي بهاب]

السلام عليكم

فكرة بسيطة جدا

اضف انبوت في الصفحة و ليكن اسنه Input1 ثم اجعله مخفي

ازع في كل الازار الخاصة بالسور هذا الامر

MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\"..Input.GetText("Input1").."\\"..Button.GetText(this)..".mp3"); 

و ازرع في الكومبوس هذا الكود

b = ComboBox.GetSelected(this);
t= ComboBox.GetItemData(this, b);
Input.SetText("Input1", t) 

الان المرحلة الاخيرة

اجمع سور كل مقرء على حدى و سم الملف رقم 1 ان كان الشيخ العجمي و ملف اخر رقم 2 ان كان المنشاوي .......... وهكذا بحيث يكون اسم الملف هو نفسه ؤقم data الخاص بالكومبوس

السور تكون mp3 و الا فغير في الكود التوسعة الموجودة
السور تكون تسميتها نفسها في الزر


موفق انتظر التجربة
و رفع الملف

[ياسرالخطابي ياسرالخطابي]

أجابة

السلام عليكم

فكرة بسيطة جدا

اضف انبوت في الصفحة و ليكن اسنه Input1 ثم اجعله مخفي

ازع في كل الازار الخاصة بالسور هذا الامر

MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\"..Input.GetText("Input1").."\\"..Button.GetText(this)..".mp3"); 

و ازرع في الكومبوس هذا الكود

b = ComboBox.GetSelected(this);
t= ComboBox.GetItemData(this, b);
Input.SetText("Input1", t) 

الان المرحلة الاخيرة

اجمع سور كل مقرء على حدى و سم الملف رقم 1 ان كان الشيخ العجمي و ملف اخر رقم 2 ان كان المنشاوي .......... وهكذا بحيث يكون اسم الملف هو نفسه ؤقم data الخاص بالكومبوس

السور تكون mp3 و الا فغير في الكود التوسعة الموجودة
السور تكون تسميتها نفسها في الزر


موفق انتظر التجربة
و رفع الملف

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

طبقت الخطوات وهي كالتالي

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


بالنسبة لي وضعت سور الشيخ العجمي في مجلد واسميته 1 وليس في ملف اذ لايجوز حسب اعتقادي وضعهم في ملف
وكذلك بالنسبة للمقرئ الشيخ الاخر حيث هو للشيخ القحطاني واسميته 2
وهم مئة واربعة عشر سورة وبصيغة ام بي ثري


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

وضعت انبوت في الصفحة واسميته
Input1
وجعلته مخفي
ثم
في الكومبوبوكس في
خانة
on select
وضعت هذا السكربت
b = comboBox.Getselected(this);
t = comboBox.GetItemData (this, b);
Input.SetText("Input", t)


ثم جلبت مجلدين كل مجلد يحتوي على ختمة بصيغة ام بي ثري
احدهما للقارئ العجمي والاخر للقارئ القحطاني
المجلد الذي باسم الشيخ العجمي اسميته 1 والمجلد الذي باسم الشيخ القحطاني اسميته 2 ووضعتهما داخل المجلد
audio
يحتويان على 114سورة وتسمية السور هي كالاتي
001
002
003

وهكذا
حيث

001 تشير الى سورة الفاتحة
002 تشير الى سورة البقرة
وهكذا

بالنسبة للازرار الزر الاول أسميته 001 ووضعت فيه في
on select
هذا السكربت
MediaPlayer.Load("plugin1", "Autoplay\\Audio\\"..Input.GetText("Input1").."\\" ..Button.GetText(this)..".mp3");

والزر الثاني اسميته 002
ووضعت ايضا في الحدث
on select
هذا السكربت
MediaPlayer.Load("plugin1", "Autoplay\\Audio\\"..Input.GetText("Input1").."\\" ..Button.GetText(this)..".mp3");



واما بالنسبة للكومبوبوكس
في حقل
item text
في الخانة رقم واحد كتبت العجمي
وفي الخانة رقم اثنان
كتبت القحطاني
وفي
حقل
item Data
في الخانة رقم واحد المقابلة لخانة العجمي كتبت الرقم الرقم 1 رقما وليس كتابة
وفي الخانة الثانية المقابلة لاسم القحطاني كتبت الرقم 2 رقما وليس كتابة


وفي الاخر وبعد تطبيق هذا الخطوات ظهر لي هذا الخطأ

عند اختيار المقرئ

error: attempt to index global comboBox (a nail vaue)
stack Traceback:
1:[page1-> comboBox1-> on select] Line: 1 in main chunck

وانا في الحقيقة لا استطيع الان رفع ملف مفتوح حيث ان حجم المشروع الان 750 ميجا
بعد اضافة الختمتين

[عبد الهادي بهاب عبد الهادي بهاب]

السلام عليكم
طبعا يظهر لك الخطأ .......لان معنى كود الزر

اذهب يا سيدي الزر الى الملف الذي يحمل نفس اسمي ( اسم الزر ) في الملف الذي يحمل رقم الانبوت ( الذي هو داتا data المقرئ في الكوموبكس ) اذا سميت السورة بالارقام فيجب ان تغير كود الزر

مثلا للفاتحة ان كان رقمها في مجلد رقم 1 للعجمي1

MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\"..Input.GetText("Input1").."\\1.mp3"); 

ثم نغير في زر البقرة للعجمي اي معناه اذهب يا سيدي الى كجلد رقم 1 في الاوديو و اقرا لي السروة رقم 2

MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\"..Input.GetText("Input1").."\\2.mp3"); 

وهكذا

فان تغير المقرء تتغير قيمة الانبوت لتصبح اسم مجلد المقرء

هذا مثال فقط لسبعة مقرئين فقط لسورة الاخلاص


اضافة انظر لكود البليجين الميديا بلاي في finich

MediaPlayer.Play("Plugin1"); 

يسمح بكرار قراءة الملف الى ما لا نهاية


الملف المفتوح

http://www.mediafire.com/download/yj...8%A7%D9%86.apz

تحياتي و نحن في الخدمة

[عبد الهادي بهاب عبد الهادي بهاب]

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


وانا في الحقيقة لا استطيع الان رفع ملف مفتوح حيث ان حجم المشروع الان 750 ميجا
بعد اضافة الختمتين

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

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


ما اريد قوله فكر في مشروعك ثم ركز على خطة سير الازرار و كيف تختصر قدر الامكان الاكواد


تحياتي

[عبد الهادي بهاب عبد الهادي بهاب]

مثال :
في كائن ميديا بلاير ازرع في on finich هذا الكود

Input.SetText("Input1", Input.GetText("Input1")+1);
Page.ClickObject("Button81");

if Input.GetText("Input1") == "8" then
Input.SetText("Input1", "1");
Page.ClickObject("Button81");
end 

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

بحيث عند نهاية قراءة العجمي (1) تصبح الانبوت (1+1) يعني (2) ثم نقول له اضغط اليا على زر سورة الاخلاص
حتى رقم 8 اي انتهى من القراءة يعود من جديد للشيخ العجمي

[عبد الهادي بهاب عبد الهادي بهاب]

فكرة اخرى :

ما رايك نجعل المستخدم عندما يختار مثلا العجمي الذي قيمته (1) و نضغط سورة الاخلاص و الذي هو زر button81 ....يقرا سورة الاخلاص مرة واحدة ثم يقرا السورة الموالية ........... تمام تمام جميل جدا

ماهو الكود ؟؟؟ الفكرة بسيطة جدا .... اضف انبوت جديد input2 فارغ

في زر سورة الاخلاص نقول له

MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\"..Input.GetText("Input1").."\\112.mp3");  

Input.SetText("Input2", "81") 

اي اعطي الانوبت قيمة 81 اي رقم زر سورة الاخلاص

ثم نزرغ في زر سورة الفلق و التي رقمها 113 و التي هي زر button 82

MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\"..Input.GetText("Input1").."\\113.mp3");  

Input.SetText("Input2", "82") 

م



الان في الميديا بلاير في On finich نزرع هذا الكود ( امسح اي كود موجود هناك )

Page.ClickObject("Button"..Input.GetText("Input2")+1); 

يعني فعل و شغل الزر الذي رقمه قيمة (الانوت 2) + 1

فيقوم البرنامج بتشغيل زر سورة الفلق ......... وهذا بدوره يعطي الانبوت2 قيمة 82 .....فور انتهاء قاءة سورة الفلق .... يفعل البرنامج زر سورة الناس و الذي يحمل رقم button 83 .........و هكذا


هل هذا مفهوم ؟؟؟؟؟؟؟؟

يا سيدي ننتظر منك ملفا مفتوحا

[ياسرالخطابي ياسرالخطابي]

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

[عبد الهادي بهاب عبد الهادي بهاب]

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

ايضا ببساطة جدا ........اضف ليبال (Label1) في المكان الذي تريده ........لا تنسى ان تحدد له نوع الخط اي font حتى يظهر الحروف بشكل عربي
اضف الكود هذا في الكومبوكس .......معناه ...يا كومبوكس اعط ما نختاره قيمة b ثم لكل قيمة data اعط قيمة t و اكتبها في الانبوت و لكل قيمةText سميها g و اكتب النص في اليبال .........

b = ComboBox.GetSelected(this);
t= ComboBox.GetItemData(this, b);
g= ComboBox.GetItemText(this, b);
Label.SetText("Label1", g)
Input.SetText("Input1", t) 

تعال يا اخي الكريم نضيف جمالية اخرى .......... اضف صورة image1 و ضعها تحت الليبال و كلما تغير القارئ يتغير اسمه في الليبال و تتغير صورته
بحيث ضع صورة العجمي في مجلد الصور بتوسعة jpg و الا لن تتغير الصورة ...... سميها رقم 1 لانه يوافق رقم 1 في الكومبوكس و ضع 2 صورة الشريم و هكذا

هذا الكود الجديد للكمبوكس :

b = ComboBox.GetSelected(this);
t= ComboBox.GetItemData(this, b);
g= ComboBox.GetItemText(this, b);
Label.SetText("Label1", g);
Input.SetText("Input1", t);

Image.Load("Image1", "AutoPlay\\Images\\"..t..".jpg") 

ومسألة أخرى هي ان العناصر في الكومبوبوكس تظهر من جهة اليسار وانا اريدها ان تكون من اليمين

لا ادري بالضبط المراد من السؤال .... لكن فيه خاصية في الكومبوكس في read Ordre في اختيار right يحول اتجاه زر القائمة المنسدلة الى اليمين

اما ان يتغر الترتيب كله الى اليمين فلم اجربها .......... نتجح في اليسبوكس لكن ليس في الكومبوكس

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

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

[عبد الهادي بهاب عبد الهادي بهاب]

السلام عليكم

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

جمعت فيها كل ما سبق ....... بحيث عوضت كثرة الازرار بكومبوكس السور يقابله كومبوكس القراء

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

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

سابقى معك حتى تنتهي من عمل المشروع ففي الاخير نتشارك الاجر

الملف المفتوح :

http://www.mediafire.com/download/6y...8%A7%D9%86.rar

بعض الامور :
- جعلت كومبوكس السور لا يظهر لذل ام يختر القارئ
- اذا اختار المستخدم الاختيار الاول ( اختر قارئ ) او ( اختر سورة ) لا تظهر الكتابة

b = ComboBox.GetSelected(this);
t= ComboBox.GetItemData(this, b);
g= ComboBox.GetItemText(this, b);

if t=="0" then
Paragraph.SetText("Paragraph2", "");
else
Paragraph.SetText("Paragraph2", g);
Input.SetText("Input2", t);
Input.SetText("Input3", b);
MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\"..Input.GetText("Input1").."\\"..t..".mp3"); 

end 

- عوضت الليبال في المشروع السابق بكائن الفقرة paragraph من باب ان هذا الاخير يسهل عليك التوسيط و يحتوي الكتابة كلها
- اذا اختار المستخدم العجمي مثلا ثم اختار سورة الفاتحة سقرا الميابلاير سورة الفاتحة للعجمي فاذا اختر سورة الاخلاص انتقل الميديا بلاير لسورة الاخلاص ........من الاضافات جعلت الكومبوكس القراء يقرا السورة المختارة ان غيرت القارئ .......حاول ان تختار العجمي ثم الفاتحة .....ثم غير سورة الاخلاص ....ثم غير الشيخ ستبقى سورة الاخلاص بكن يستغير القارئ

b = ComboBox.GetSelected(this);
t= ComboBox.GetItemData(this, b);
g= ComboBox.GetItemText(this, b);



if t=="0" then
Paragraph.SetText("Paragraph1", "");
else
Paragraph.SetText("Paragraph1", g);
Paragraph.SetVisible("Paragraph2", true);
ComboBox.SetVisible("ComboBox2", true);
Image.Load("Image1", "AutoPlay\\Images\\"..t..".jpg");
Input.SetText("Input1",t)
end

if Input.GetText("Input2")~="" then
MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\"..Input.GetText("Input1").."\\"..Input.GetText("Input2")..".mp3"); 
end 

- وضعت في ملف الصور صور المشايخ حسب ترتيبهم في كومبوكس القراء كلما احتر قارئ تتغيرصورته و يتغير اسمه

- بعد نهاية سورة الفاتحة ينتقل القارئ الا لقارءة السورة الموالية

Input.SetText("Input3", Input.GetText("Input3")+1);
g = ComboBox.GetItemText("ComboBox2", Input.GetText("Input3"));
Paragraph.SetText("Paragraph2", g);
ComboBox.SetSelected("ComboBox2", Input.GetText("Input3"));

MediaPlayer.Load("Plugin1", "AutoPlay\\Audio\\"..Input.GetText("Input1").."\\"..Input.GetText("Input2")..".mp3"); 

if Input.GetText("Input2")=="114" then
MediaPlayer.Stop("Plugin1");
ComboBox.SetSelected("ComboBox2", "2");
end 

متابع معكم .....ارجو ان تفهم الاكواد


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

[ياسرالخطابي ياسرالخطابي]

رد

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

[ياسرالخطابي ياسرالخطابي]

شكراً جزيلا لك كل شيء شرحتلي اياه طبقته على المشروع بالتمام و الكمال
سأحاول قريباً رفع الموضوع ﻻريك اياه
جزاك الله خيرا. تحياتي

[عبد الهادي بهاب عبد الهادي بهاب]

شكراً جزيلا لك كل شيء شرحتلي اياه طبقته على المشروع بالتمام و الكمال
سأحاول قريباً رفع الموضوع ﻻريك اياه
جزاك الله خيرا. تحياتي

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