برجاء المساعده في هذا المشروع جزاكم الله خيرا

[ميزو فوكس]

بسم الله الرحمن الرحيم
اخواني الافاضل اقوم بعمل اسطوانه اسلاميه لي ما يقرب من شهر وانا ابحث
عن بعض الاستفسارات
1 - عمل مشغل فيديو بازرار من تصميمي يعمل علي الليست بوكس ( وتم الاجابه عليه )
من قبل اخزنا ( خادم المسلمين و اخونا azizsoft ) جزاهم الله كل خير
2 - عمل مشغل فلاش بازرار من تصميمي و اجاب عنه اخونا الفاضل ( ثامر أبو بلقيس )
بجميع ازرار و حتي زر التكرار عن طريق الكومبو بوكس جزاه الله عنا كل الخير
المتبقي و ارجو منكم المساعده فيه
1 - - عمل مشغل صوت بازرار من تصميمي يعمل علي الليست بوكس
2 - طريقه تكرار ملف الفيديو و الصوت كما في ملف الفلاش عن طريق الكومبوبوكس
3 - طريقه تشغيل الملف التالي في قائمة الليست بوكس بمجرد انتهاءالملف المعروض
علي المشغل في مشغل الفلاش و الصوت و الفيديو
4 - التعديل علي زر الايقاف في مشغل الفلاش لانه لا يستجيب للامر
وهذا هو ملف تجريبي للعمل ارجو منكم التعديل عليه ثم اعادة رفعه لكي يستفيد منه الجميع
فهذه الاستفسارات هي طلب للكثير من الاعضاء و كثير منا تفشل اعماله بسبب هذه
الخصائص التي نتمني اضافتها لملف العمل
http://www.gulfup.com/?aY0WJI

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

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

حتى تنهي الصفحة المتعلقة بالفلاش

في زر الايقاف ذكرت لك
Flash.Stop("Flash1");


أدرجه

في زر التالي ذكرت لك التعديل هذا
if n ~= nil then
ListBox.SelectItem("ListBox1", n[1]+1);

else
ListBox.SelectItem("ListBox1", 1);
end

---------------------------------------------------------------
سيحاول الاخوة اجابتك عن باقي الملفات و التعامل معها و أقصد الفيديو و الصوت

لكن لاحظ أنك في تلك الصفحات مثلا صفحة الفيديو وضعت أكواد لا غلاقة لها بالفيديو و التعامل معه
مثلا في on timer للصفحة 3 كل ما هو مكتوب لا يفيدك في التعامل مع الفيديو
راجع كذلك زر التكرار في هذه الصفحة فلكل أكواده
-----------------------------------------------------------------------------------------------

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

بالتوفيق :abc_138:

[ميزو فوكس]

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

حتى تنهي الصفحة المتعلقة بالفلاش

في زر الايقاف ذكرت لك
flash.stop("flash1");


أدرجه

في زر التالي ذكرت لك التعديل هذا
if n ~= nil then
listbox.selectitem("listbox1", n[1]+1);

else
listbox.selectitem("listbox1", 1);
end

---------------------------------------------------------------
سيحاول الاخوة اجابتك عن باقي الملفات و التعامل معها و أقصد الفيديو و الصوت

لكن لاحظ أنك في تلك الصفحات مثلا صفحة الفيديو وضعت أكواد لا غلاقة لها بالفيديو و التعامل معه
مثلا في on timer للصفحة 3 كل ما هو مكتوب لا يفيدك في التعامل مع الفيديو
راجع كذلك زر التكرار في هذه الصفحة فلكل أكواده
-----------------------------------------------------------------------------------------------

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

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

[ميزو فوكس]

ارجو التدخل من اهل الخبرة جزاهم الله كل الخير

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

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

نتوجه الان الى صفحة الفيديو

01 - احذف زر " تشغيل متكرر" لاحاجة لنا به
02 - احذف عنصر Slider لا نحتاجه
03 - توجه لحدث الصفحة on timer احذف كل ما هو مكتوب
04- أدخل على عنصر ليست بوكس في صفحة الفيديو واحذف الأكواد الموجودة في on select
وعوضها بــ
f=ListBox.GetCount("ListBox1");
n= ListBox.GetSelected("ListBox1");
v = ListBox.GetItemData("ListBox1", n[1]);
Video.Load("Video1", v, true, false)

05 - اضغط على عنصر الفيديو نفسه في الحدث on finish
أكتب
if n ==nil then
ListBox.SelectItem("ListBox1", 1);
else
if b1 ==1 then

ListBox.SelectItem("ListBox1", n[1]+1);
end

if b1 > 1 then
ListBox.SelectItem("ListBox1", n[1]);
b1 =b1 - 1;
end
end

06 - في زر التالي أكتب
Video.Stop("Video1");
ListBox.SelectItem("ListBox1", n[1]+1);
Video.Play("Video1");

07 - في زر ايقاف أترك الكود
Video.Stop("Video1");
08 - في زر تشغيل امسح المكتوب و عوضه بـ
if b1 == nil then
b1=1
Video.Play("Video1")
else
Video.Play("Video1")

end

09 - في زر ايقاف مؤقت اترك المكتوب
Video.Pause("Video1")

10 - في زر السابق أكتب
Video.Stop("Video1");
ListBox.SelectItem("ListBox1", n[1]-1);
Video.Play("Video1");


11 - وأخيرا توجه لحدث الصفحة وفي on show امسح السطر المكتوب
و أكتب
b1=1

موفق :abc_138:

كل ما ذكر يتم في الصفحة المخصصة للفيديو

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

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

نتوجه الان الى صفحة الصوتيات

01 - في حدث الصقحة on show أكتب
b1=1
02 - في الليست بوكس أنت كاتب أكواد في الحدث on double click أحذفها
و حتى الحدث هذا نفسه لا يساعدنا بل في الحدث on select
أكتب
f=ListBox.GetCount("ListBox1");
n= ListBox.GetSelected("ListBox1");
v = ListBox.GetItemData("ListBox1", n[1]);
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\"..v..".mp3");
MediaPlayer.Play("media_player");

------- توجه الان للأزرار
01- احذف زر " تشغيل متكرر"
02 - في زر التالي أكتب
MediaPlayer.Stop("media_player");

ListBox.SelectItem("ListBox1", n[1]+1);
MediaPlayer.Play("media_player");
03- في زر ايقاف امسح المكتوب و عوضه
MediaPlayer.Stop("media_player");


04 - في زر تشغيل امسح المكتوب و عوضه بــ
if b1 == nil then
b1=1
MediaPlayer.Play("media_player");
else
MediaPlayer.Play("media_player");
end

05 - في زر ايقاف مؤقت أكتب
MediaPlayer.Pause("media_player");


06 - في زر السابق أكتب
MediaPlayer.Stop("media_player");
ListBox.SelectItem("ListBox1", n[1]-1);
MediaPlayer.Play("media_player");

قبل المعاينة :
7 - اضغط على عنصر الميديا نفسه و في الحدث on finish أكتب
if n ==nil then
ListBox.SelectItem("ListBox1", 1);
else
if b1 ==1 then

ListBox.SelectItem("ListBox1", n[1]+1);
end

if b1 > 1 then
ListBox.SelectItem("ListBox1", n[1]);
b1 =b1 - 1;
end
end

موفق :abc_138:
كل ماذكر يتم في الصفحة المخصصة للصوتيات

لا تتردد وأكتب أي استفسار في خدمتك

[azizsoft]

بسم الله الرحمن الرحيم

بارك الله فيكم استاذ أبو بلقيس
على جهودكم وتعاونكم الطيب :abc_022:
تثبيت للفائدة

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

بارك الله فيك أستاذ عزيز
شكرا :abc_138:

[ميزو فوكس]

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

نتوجه الان الى صفحة الصوتيات

01 - في حدث الصقحة on show أكتب
b1=1
02 - في الليست بوكس أنت كاتب أكواد في الحدث on double click أحذفها
و حتى الحدث هذا نفسه لا يساعدنا بل في الحدث on select
أكتب
f=listbox.getcount("listbox1");
n= listbox.getselected("listbox1");
v = listbox.getitemdata("listbox1", n[1]);
mediaplayer.load("media_player", "autoplay\\audio\\"..v..".mp3");
mediaplayer.play("media_player");

------- توجه الان للأزرار
01- احذف زر " تشغيل متكرر"
02 - في زر التالي أكتب
mediaplayer.stop("media_player");

listbox.selectitem("listbox1", n[1]+1);
mediaplayer.play("media_player");
03- في زر ايقاف امسح المكتوب و عوضه
mediaplayer.stop("media_player");


04 - في زر تشغيل امسح المكتوب و عوضه بــ
if b1 == nil then
b1=1
mediaplayer.play("media_player");
else
mediaplayer.play("media_player");
end

05 - في زر ايقاف مؤقت أكتب
mediaplayer.pause("media_player");


06 - في زر السابق أكتب
mediaplayer.stop("media_player");
listbox.selectitem("listbox1", n[1]-1);
mediaplayer.play("media_player");

قبل المعاينة :
7 - اضغط على عنصر الميديا نفسه و في الحدث on finish أكتب
if n ==nil then
listbox.selectitem("listbox1", 1);
else
if b1 ==1 then

listbox.selectitem("listbox1", n[1]+1);
end

if b1 > 1 then
listbox.selectitem("listbox1", n[1]);
b1 =b1 - 1;
end
end

موفق :abc_138:
كل ماذكر يتم في الصفحة المخصصة للصوتيات

لا تتردد وأكتب أي استفسار في خدمتك

تسلم ايدك و جزاك الله عني و عن كل ممن ينتفع من علمك هذا كل خير

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