كيف يمكن اضافة كود " التالي "

[القواسمي]

:abc_113::abc_113::abc_113::abc_113::abc_113:
تحيه طيبه وبعد
احتاج كود : التالي : بحيث بعد الانتهاء من قراءة السورة الأولى أن يقرأ السوره التاليه تلقائيا
وقد جربت هذا الكود وهو سهل لكن لا يوجد به كود الانتقال للسوره التاليه
ولكم جزيل الشكر
tbl_selected = ListBox.GetSelected("ListBox1");
result = ListBox.GetItemData("ListBox1", tbl_selected[1]);
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\"..result..".mp3");

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

السلام عليكم ورحمة الله وبركاته
للاجابة على سؤاك و افكار اخرى ..............
يمكنك ان تستفيد من الاكواد الموجودة في هذا المشروع
الملف المفتوح :

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

الشرح في هذه المشاركة :


السلام عليكم

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

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

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

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

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

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

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


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


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


الموضوع الاصلي :
http://www.abc4web.net/vb/newreply.php?do=newreply&p=290992

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

الكود في كائن الميدت بلاير في on finich

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

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

http://d.top4top.net/p_30uqv61.png

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

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

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

السلام عليكم ورحمة الله وبركاته
مرحبا بك أخي الكريم أهلا بك ... سعدت
بأول مشاركة لك لأجل هذا الطلب أحسنت وجزاك الله خيرا :abc_138:

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

السلام عليكم ورحمة الله وبركاته
01 - في حدث الصفحة في on show أكتب
x=1

02 - توجه لعنصر ListBox1 و في الحدث on Selected

أكتب :
tbl_selected = ListBox.GetSelected("ListBox1");
result= ListBox.GetItemData("ListBox1", tbl_selected[1]);
MediaPlayer.Load("media_player", result);
x=tbl_selected[1]


03 - توجه لعنصر MediaPlayer و في الحدث on finish
ازرع الأكواد :
x=x+1
ListBox.SelectItem("ListBox1", x);
if x == ListBox.GetCount("ListBox1")+1 then
ListBox.SelectItem("ListBox1",1);
end

موفق :abc_138:

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

ملاحظة :
خلي الليستبوكس بالشكل التالي
في Item text أكتب أسماء السور
في جهة Item data استدعي الملف الصوتي المقابل للسورة
وذلك بالضغط على يمين الماوس في مجال Item data يمكنك تحديد السورة و مسارها
الموجود في مجلد audio

لاحظ هذه الصورة :
http://store3.up-00.com/2016-01/145425911225681.bmp
كما تلاحظ أقوم بالضغط على يمين الماوس لأحدد المسار الموافق للسورة :abc_138:

[القواسمي]

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

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

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

اخي ضيف البوابه
شكرا جزيلا لك وشكرا على مساعدتي
لا ادري كيف لي ان اعبر عن امتناني
لكن يمكنني القول جزاك الله كل خير
لا شكر على واجب
وانصحك ايضا بمتابعة الموضوع ده
http://www.abc4web.net/vb/showthread.php?p=297724&posted=1#post297724

[القواسمي]

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





tbl_selected = ListBox.GetSelected("ListBox1");
result = ListBox.GetItemData("ListBox1", tbl_selected[1]);
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\"..result..".mp3");

[القواسمي]

السلام عليكم ورحمة الله وبركاته
مرحبا بك أخي الكريم أهلا بك ... سعدت
بأول مشاركة لك لأجل هذا الطلب أحسنت وجزاك الله خيرا :abc_138:

------------------------------------------
أخي ثامر ابو بلقيس شكرا جزيلا على الترحيب
وانا سعدت جدا بانضمامي لمنتدى طريق الاحتراف والتعرف عليكم
:abc_114::abc_114::abc_114::abc_114::abc_114:

[عبود عبود]

هل تضع ملفك المفتوح للتعديل علية ؟

[القواسمي]

طبعا يمكنني وضعه
ما تذكيركم ان المشروع التي تم وضعه سابقا غايه في التالق

https://www.4shared.com/rar/LGvqycZlce/Quran__1_.html?

[عبود عبود]

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

الملف بعد التعديل ووضع كود فى الحدث "On Finish" من أحداث الميديا بلير :

--
new=tbl_selected[1]+1;
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\"..new..".mp3");
Web.LoadURL("Web1", "Autoplay\\Docs\\"..new..".htm");
ListBox.SelectItem("ListBox1", new);

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

https://dl.dropboxusercontent.com/u/29881160/Quran.rar

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

[القواسمي]

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

الملف بعد التعديل ووضع كود فى الحدث "On Finish" من أحداث الميديا بلير :

--
new=tbl_selected[1]+1;
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\"..new..".mp3");
Web.LoadURL("Web1", "Autoplay\\Docs\\"..new..".htm");
ListBox.SelectItem("ListBox1", new);

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

https://dl.dropboxusercontent.com/u/29881160/Quran.rar

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

-------------------------------------------

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

[القواسمي]

سؤال آخر من فضلكم هل يمكن نقل أزرار تعمل على برنامج multimedia builder الى برنامج AutoPlay Media Studio وان كان بالامكان
يمكنني رفع مشروعي المصمم أصلا على برنامج multimedia builder لمساعدتي

وفق الله كل من بادر بمساعدتي سابقا وحاليا :abc_138::abc_138::abc_138::abc_138:

[القواسمي]

السلام عليكم ورحمة الله وبركاته
للاجابة على سؤاك و افكار اخرى ..............
يمكنك ان تستفيد من الاكواد الموجودة في هذا المشروع
الملف المفتوح :

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

الشرح في هذه المشاركة :



الموضوع الاصلي :
http://www.abc4web.net/vb/newreply.php?do=newreply&p=290992

------------------------------------

المشروع رائع جدا جدا
وقد قمت بتنفيذه وهو يعمل بشكل ممتاز
لكن سؤال
الكود المسؤول عن تحديد صورة القارئ لم افهمه .... هل يعني ان الصوره الزرقاء التي فيها قران هي ثابته لجميع القراء ام يمكن ان تتغير بتغيير اسم القارئ:abc_022::abc_022::abc_022:

[عبود عبود]

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

[القواسمي]

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

---------------------------------------------------

اخي يمكنني ان اضع لكم البرنامج والمشروع معاً
:abc_022::abc_022::abc_022::abc_022:

[عبود عبود]

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


أتمنى لك التوفيق

[القواسمي]

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


أتمنى لك التوفيق

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

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

------------------------------------

المشروع رائع جدا جدا
وقد قمت بتنفيذه وهو يعمل بشكل ممتاز
لكن سؤال
الكود المسؤول عن تحديد صورة القارئ لم افهمه .... هل يعني ان الصوره الزرقاء التي فيها قران هي ثابته لجميع القراء ام يمكن ان تتغير بتغيير اسم القارئ:abc_022::abc_022::abc_022:

مثال بسيط ........ان حملت المشروع .......لكل شيخ صورة فيه اسم و في الكود التالي

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

هذا الكود مسؤول عن تغغير الصورة حسب رقمها من مجلد الصور اي سيغير الكود الصورة التي تحمل اسم Image1 بصورة الشيخ

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

[القواسمي]

مثال بسيط ........ان حملت المشروع .......لكل شيخ صورة فيه اسم و في الكود التالي

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

هذا الكود مسؤول عن تغغير الصورة حسب رقمها من مجلد الصور اي سيغير الكود الصورة التي تحمل اسم Image1 بصورة الشيخ

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

وصلت الفكره وجاري تنفيذها
:abc_138::abc_138::abc_138:

[القواسمي]

أخوانيي هل يمكن جعل البوكسليست شفاف واظهار خلفية المشروع
:abc_028::abc_028::abc_028::abc_028::abc_028:

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

أخوانيي هل يمكن جعل البوكسليست شفاف واظهار خلفية المشروع
:abc_028::abc_028::abc_028::abc_028::abc_028:

أخي القواسمي ... حاولت البحث و الاجتهاد - منذ كتابتك الطلب - تحقيق ذلك بطريقة مباشرة بعيدة عن التعقيد
لكن تأسفت بأن أخبرك ان تحقيق ذلك صعب عني لأساعدك :abc_138:
موفق :abc_138:

[القواسمي]

أخي القواسمي ... حاولت البحث و الاجتهاد - منذ كتابتك الطلب - تحقيق ذلك بطريقة مباشرة بعيدة عن التعقيد
لكن تأسفت بأن أخبرك ان تحقيق ذلك صعب عني لأساعدك :abc_138:
موفق :abc_138:



يكفيني فخرا فأنك بحث لأجل الخير أولا
وثانيا لأجلي
بارك الله فيك :abc_139::abc_139: