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

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

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

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

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

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

[abohmam]

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

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

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

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

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

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

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

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

http://www.mediafire.com/download/z46c5612xuv38h2/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/yje71g160968d1v/%D8%A7%D9%84%D9%82%D8%B1%D8%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/6y7bxad5zd311cd/%D8%A7%D9%84%D9%82%D8%B1%D8%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


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


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

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

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

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

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

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

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

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

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

لا اعرف كيفية تصدير الصفحة بصيغة
apz
مثلما حضرتك فعلت
الذي عملته انا هو ضغطت اليمين الماوس على الصفحة ثم اخترت
export
فظهرت الصفحة بصيغة
xpg
وعندما حاولت استيرادها الى البرنامج عن طريق الضغط على زر
insert
فلم استطيع وظهر عندي هذا الخطا
page import operation faild
يعني فشل في عملية استيراد الصفحة
وبعدها
page insert faild
فشل في ادخال الصفحة

وعند محاولتي فتح الصفحة اي بدون الدخول البرنامج
ظهر لدي هذا الخطأ
erro: couldnt load G:\صفحة العمل.xpg
9448 bytes,root element has sibling

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

في الحقيقة استفساراتي يبدو ان ﻻ نهاية لها والسبب انت الذي طمعتني فيك
واﻻن لدي استفساران اخران

اﻻول اريد سكربت اضعه داخل زر يقوم بتصغير التجميعية الى شريط المهام واريده ان امكن بصيغة
Lua

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

مﻻحظة اغلب اﻻكواد في المنتدى جربتها ولم تنجح معي والسبب اكيد انا لقلة خبرتي

وجزاك الله خيرا على تحملك اياي

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

السلام عليكم

كي تحفظ المشروع على شكل apz ما عليك سوى الذهاب الى file البرنامج و ليس الصفحة و بعد ان تنتهي من حفظ المشروع تضغط على Export فتصدر المشروع على شكل apz لكن فيه مشكل انه سيحفظ لك كل مشروعك بالملفات الصوتية و الفيديو و و و و في الصيغة

http://www.abc4web.net/vb/attachment.php?attachmentid=3066&stc=1&d=1444467324

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

http://www.abc4web.net/vb/attachment.php?attachmentid=3065&stc=1&d=1444467160

وهذا يعطينا فكرة عن الاكواد فقط وهو ما نرجوه
وهو لا يحضر الصور و لا الازرار و الاصوات لانها في الملف autoplay

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

اﻻول اريد سكربت اضعه داخل زر يقوم بتصغير التجميعية الى شريط المهام واريده ان امكن بصيغة
Lua



لا ادري ما المقصود بالضبط لكن كود تصغير التجميعة في شؤيط المهام ضع زر و ازرع فيه الكود التالي



Application.Minimize();






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



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



System.RegisterFont("AutoPlay\\Docs\\Goya Heavy.ttf", "Goya", false);




----------------------------
اما بصيغة Lua فلا علم لي و الرجاء من الاخوة الخبراء الذين يعرفون المطلوب بالضبط المساعدة و نستفيد كلنا

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

يمكنكم من الاستفادة من بعض الافكار

http://www.abc4web.net/vb/showthread.php?t=3812

http://www.abc4web.net/vb/showthread.php?t=19594

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

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

اﻻ أنني اواجه اﻻن مشكلتان

اﻻولى
عندما تعطيني اي سكربت ﻻيعمل معي ويظهر لدي
Error
Line = 1 unexpected symbol near
وفي نهاية السطر فارزتان

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

المشكلة الثانية

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

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

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

MediaFire link: Qurann.rar
http://www.mediafire.com/download/izvw82dwi5xc222/Qurann.rar

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

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

mediafire link: Qurann.rar
http://www.mediafire.com/download/izvw82dwi5xc222/qurann.rar

تم التحميلو سنلقي نظرة عليها و لنا عودة

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

السلام عليكم

الحمد لله بنعمته تتم الصالحات ......و انت في انجاز الاسطوانة احتسب اجرك على الله .........و لا يزال العداد شغال مادمت في العمل على مشروعك

ملاحظات :
- الشكل جميل جدا و توزيع الازرا ايضا رائع
- طبعا فيه مجموعة اقترحات و ليست انتقادات
- يمكن ان تجعل الاسطوانة لا تتحرك من مكانها ........فاذا لاحظت يمكن ان احرك صفحة الاسطوانة
اذا ضغطت على الماووس فاحركها يممنة و شمالا لذلك ان تغلي خاصية تحريك الصفحة
اتبع الخطوات التالية : في اعلى شريط مهام البرامج فيه زر Project اضغط عليه ثم اذهب الى Setting
او في خارج صفحة البرنامج اضغط بيمين الماووس و اضغط على setting

لا حظ الصور
http://www.abc4web.net/vb/attachment.php?attachmentid=3071&stc=1&d=1444581364

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

http://www.abc4web.net/vb/attachment.php?attachmentid=3070&stc=1&d=1444581364


- ايضا يمكن ان تضيف خاصية ظهور رسالة عند الخروج من البرنامج
تطلب منه التاكيد على الخروج
في زر الخروج ازل خاصية Exit من QuikAction
ثم انتقل الى Scriptو اضف الكود التالي


-- Ask the user if they really want to exit
nChoice = Dialog.Message("اسطوانة القران الكريم . الاصدار الاول", "هل تريد فعلا الخروج من البرنامج؟", MB_YESNO, MB_ICONQUESTION, MB_DEFBUTTON2);

-- If yes was chosen, exit the application.
if nChoice == 6 then
Application.Exit();
end



طبعا يمكن ان تغير محتوياته حسب ما تريد
اذا اردت ان تكون رسالة الخروج اكثر دينامكية
فيمكن ان تضيف صفحة و اجعلها كلها سوداء
ثم صمم اطارا لرسالة الخروج مع زر نعم و زر لا
و ضع في زر (نعم) في QuickAction خاصية Exit
و في زر (لا) الرجوع الى اخر صفحة
دائما في QuickAction خاصية ShowPage ثم BackHistory

- يمكن ان تضيف خلفية صوتية او صوت يكون مع الدخول الى الموسوعة
كنشيد او ايات بتلاوات مميزة ..... وهذا بالضغط في خارج صفحة المشروع باليمين لكن تختار Audio
او من اعلى الشريط ايضا Project ثم َaudio
http://www.abc4web.net/vb/attachment.php?attachmentid=3072&stc=1&d=1444581873


ومن خلال زرAdd اضف الصوت او النشيد او التلاوة او اي ملف صوتي
و تستطيع ان تركه يتكرر او يقراه مرة اوحدة من خلال ازالة التكرار في زر Repeat
http://www.abc4web.net/vb/attachment.php?attachmentid=3073&stc=1&d=1444581873

- ايضا يمكن ان تعيد توزيع ازار السور بحيث يكون الميديا بلاير في الوسط
و يكون الازرار من اليمين و من الاعلى و من اليسار

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

شكراً لك على اﻻقتراحات




1-كيف اضيف ساعة الى التجميعية بنظام اثنا عشر ساعة وليس اربعة وعشرون ساعة

قصدي بنظام 12 ساعة
اذا كانت الساعة الواحدة ظهرا يظهر الوقت بهذه الصيغة

01:00

وليس

13:00

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

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

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

شكراً لك على اﻻقتراحات




1-كيف اضيف ساعة الى التجميعية بنظام اثنا عشر ساعة وليس اربعة وعشرون ساعة

قصدي بنظام 12 ساعة
اذا كانت الساعة الواحدة ظهرا يظهر الوقت بهذه الصيغة

01:00

وليس

13:00

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

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

توافق الصوت مع النص يحتاج الى الكثير من العمل
لكن هناك مواضيع سبق طرحها في المنتدى

http://www.abc4web.net/vb/showthread.php?t=28536

http://www.abc4web.net/vb/showthread.php?t=25948

ادراج الوقت



http://www.abc4web.net/vb/showthread.php?t=30868

اضافة خاصية البحث
http://www.abc4web.net/vb/showthread.php?t=31909

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

بعض الافكار :

http://www.abc4web.net/vb/showthread.php?t=16996

رسالة الخروج
http://www.abc4web.net/vb/showthread.php?t=15677

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

بعض الافكار :

http://www.abc4web.net/vb/showthread.php?t=16996

رسالة الخروج
http://www.abc4web.net/vb/showthread.php?t=15677

جزاك الله الف الف خير

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

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

جزاك الله الف الف خير

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

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

سنحاول مع خط ae_AlYermook و خط ae_AlMohanad و خط ae_Mashq
ان كانت موجودة عندك في ملف Font فاحذفها او انقلها الى مكان اخر تحسبا لااي طارئ

ثم لنحاول وضع هذه الاكواد من اجل تغيير الخط من اجل ليبال ......و خط الازرار button ..... و خط الفقرة Paragraph

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

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

بالتوفيق



اذن

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

في الصفحة الثانية on Show

اذا وضعت هذا الكود



--get the destination directory (in this case, where the fonts are stored)
fonts_dir = Shell.GetFolder(SHF_FONTS);

--copy the file from your cd to the user's font directory
File.Copy("AutoPlay\\Docs\\ae_AlMohanad.ttf", fonts_dir, false, true, false, true, nil);

--register the font with windows
System.RegisterFont(fonts_dir .. "\\ae_AlMohanad.ttf", "My Font Name", true);

for i=1,114 do
tblProps = {};
tblProps = Button.GetProperties("Button"..i);
tblProps.FontName = "ae_AlMohanad";
Button.SetProperties("Button"..i, tblProps);
end


فسيقوم يتغير خط الازرار الى خط ae_AlMohanad
لكن سيكون ثقيلا ....كما ودجته عندي
لذلك لا ادري فيه طريقة اخرى اسرع

-----------
مكن ان نجعل البرنامج ينسخ الخط بنصف الكود الاول
اي


--copy the file from your cd to the user's font directory
File.Copy("AutoPlay\\Docs\\ae_AlYermook.ttf", fonts_dir, false, true, false, true, nil);

--register the font with windows
System.RegisterFont(fonts_dir .. "\\ae_AlYermook.ttf", "My Font Name", true);


ثم سيظهر الخط الذي صممت به ازرارك للمستخدم الاخر دون الحاجة للنصف الثاني

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

في الصفحة الثانية on show

اذا وضعت هذا الكود



--get the destination directory (in this case, where the fonts are stored)
fonts_dir = shell.getfolder(shf_fonts);

--copy the file from your cd to the user's font directory
file.copy("autoplay\\docs\\ae_almohanad.ttf", fonts_dir, false, true, false, true, nil);

--register the font with windows
system.registerfont(fonts_dir .. "\\ae_almohanad.ttf", "my font name", true);

for i=1,114 do
tblprops = {};
tblprops = button.getproperties("button"..i);
tblprops.fontname = "ae_almohanad";
button.setproperties("button"..i, tblprops);
end


فسيقوم يتغير خط الازرار الى خط ae_almohanad
لكن سيكون ثقيلا ....كما ودجته عندي
لذلك لا ادري فيه طريقة اخرى اسرع

-----------
مكن ان نجعل البرنامج ينسخ الخط بنصف الكود الاول
اي


--copy the file from your cd to the user's font directory
file.copy("autoplay\\docs\\ae_alyermook.ttf", fonts_dir, false, true, false, true, nil);

--register the font with windows
system.registerfont(fonts_dir .. "\\ae_alyermook.ttf", "my font name", true);


ثم سيظهر الخط الذي صممت به ازرارك للمستخدم الاخر دون الحاجة للنصف الثاني

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

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

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

في الملف المرفق ...... لكل زر كود خاص به الاول خاص بتغغير الخط لليابال و زر تغير الخط لن الزر........
اذا اردت ان تغير خط كل الازرار فطيق الكود



--get the destination directory (in this case, where the fonts are stored)
fonts_dir = shell.getfolder(shf_fonts);

--copy the file from your cd to the users font directory
file.copy("autoplay\\docs\\ae_almohanad.ttf", fonts_dir, false, true, false, true, nil);

--register the font with windows
system.registerfont(fonts_dir .. "\\ae_almohanad.ttf", "ae_almohanad", true);

for i=1,114 do
tblprops = {};
tblprops = button.getproperties("button"..i);
tblprops.fontname = "ae_almohanad";
button.setproperties("button"..i, tblprops);
end

لاحظ (for i=1,114 do ) جيدا فهذا يعني من اجل كل رقم موجود من 1 الى 114 قم بالتالي تغغير خط الزر

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

في المرفقات مثال عن مشروعك
نغير الخط في الصفحة الثانية
لكل الازار

http://www.abc4web.net/vb/attachment.php?attachmentid=3075&stc=1&d=1444651995

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

في المرفقات مثال عن مشروعك
نغير الخط في الصفحة الثانية
لكل الازار

http://www.abc4web.net/vb/attachment.php?attachmentid=3075&stc=1&d=1444651995




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

قمت انا بدوري باستبدال اسم الخط الموجود في الصفحة الثانية في
on show
والذي اسمه
ae_AlMohanad
بهذا الخط
sultan koufi sircular
وقمت وضعه في التجميعية في المجلد
Docs

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

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

حمل الخط في المرفقات و سنحاول نحن

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

http://www.abc4web.net/vb/showthread.php?t=26406

http://www.abc4web.net/vb/showthread.php?t=22093

http://www.abc4web.net/vb/showthread.php?t=28253

لها علاقة بمشروعك

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

تزامن الصوت مع الكتابة

http://www.abc4web.net/vb/showthread.php?t=28834

[abohmam]

بارك الله فيك أخى المحترف

ماشاء الله متابعة موفقة وجهد مميز

فى ميزان حسناتك ان شاء الله

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

تزامن الصوت مع الكتابة

http://www.abc4web.net/vb/showthread.php?t=28834



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

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

مشكور على الجهود العظيمة وكذلك الادمن شكرا لك على المتابعة
في ميزان حسناتكم ان شاء الله

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

بارك الله فيك أخى المحترف

ماشاء الله متابعة موفقة وجهد مميز

فى ميزان حسناتك ان شاء الله


شكرا لك وانا ممتن جدا منكم على هذه المساعدة
في ميزان حسناتكم ان شاء الله

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

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

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

مشكور على الجهود العظيمة وكذلك الادمن شكرا لك على المتابعة
في ميزان حسناتكم ان شاء الله

سهل جدا ........... اضف ليبال اخر تحت ليبال المقرئ

مثلا Label2

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



Label.SetText("Label2", Button.GetText(this))

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

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

اقتراح للحل ( ممكن لدى الاخوة حلول احسنو اسهل ) :

في الصفحة الثانية في On Preload
ازرع هذا الكود


for i=1,114 do
Button.SetEnabled("Button"..i, false);
end


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

في الصفحة OnShow ضع هذاالكود


tblProps = {};
tblProps = Button.GetProperties("Button1");

if tblProps.FontName ~= "ae_AlMohanad" then
--get the destination directory (in this case, where the fonts are stored)
fonts_dir = Shell.GetFolder(SHF_FONTS);

--copy the file from your cd to the users font directory
File.Copy("AutoPlay\\Docs\\ae_AlMohanad.ttf", fonts_dir, false, true, false, true, nil);

--register the font with windows
System.RegisterFont(fonts_dir .. "\\ae_AlMohanad.ttf", "My Font Name", true);

for i=1,114 do
tblProps = {};
tblProps = Button.GetProperties("Button"..i);
tblProps.FontName = "ae_AlMohanad";
Button.SetProperties("Button"..i, tblProps);
end

end


لاحظ جيدا حدد الخط الذي تريده للازرار في في المعادلة

انتظر التجربة و النتيجة

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

بارك الله فيك أخى المحترف

ماشاء الله متابعة موفقة وجهد مميز

فى ميزان حسناتك ان شاء الله

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

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

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

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

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

فيه الكثير من المشاركات حول البحث
اضافة خاصية البحث
http://www.abc4web.net/vb/showthread.php?t=31909

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

موضوع اخر

http://www.abc4web.net/vb/showthread.php?t=26207

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

موضوع اخر

http://www.abc4web.net/vb/showthread.php?t=26207

شكرا جزيلا لك
جميع الملفات في هذه المواضيع مرفوعة على مركز الخليج والمركز ﻻبعمل

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

صحيح و للاسف
نرجو للموقع الشفاء العاجل

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

صحيح و للاسف
نرجو للموقع الشفاء العاجل


السلام عليكم ورحمة الله وبركاته
واجهت اﻻن مشكلة جديدة وهي عندما اقوم بتشغيل التجميعية على حاسوب أخر ﻻيتم عرض سور القرآن اللتي بصيغة هتمل واللتي أخبرتك عنها سابقاً.
المشكلة ان التجميعية عندما اقوم بتشغيلها على حاسوبي تظهر سور القرآن بشكل طبيعي

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

صحيح و للاسف
نرجو للموقع الشفاء العاجل

عفواً السور تظهر بشكل طبيعي
لكن المقدمة اللتي وضعتها قبل السور ﻻتظهر مع العلم انها موجودة في المجلد
Docs
في البرنامج

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

عفواً السور تظهر بشكل طبيعي
لكن المقدمة اللتي وضعتها قبل السور ﻻتظهر مع العلم انها موجودة في المجلد
docs
في البرنامج

اظن المسالة فقط مسالة اسماء و روابط فقط تحقق من تطابق الاسم و الاسم في الكود

[ازرتي]

:abc_139::abc_139::abc_139::abc_139::abc_139::abc_ 139: