العودة   منتديات داماس > انظمة التشغيل والاوفيس > ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio

إضافة رد
31-03-2018, 12:08 AM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
السلام عليكم
و الصلاة على سيدنا محمد صلى الله عليه و سلم

سنتعلم معكم تصميم لعبة من سيربح المليون خطوة بخطوة
---------------
الوسائل :
حمل الصور التالية و اجعلها في مجلد الصور images

لمشاركة الجمهور
تصميم برنامج من سيربح المليون

الاتصال بصديق
تصميم برنامج من سيربح المليون

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

مؤشر التقدم
تصميم برنامج من سيربح المليون

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

اطار الاجابات جانبي
تصميم برنامج من سيربح المليون
اطار الاجابات الاساسي



تصميم برنامج من سيربح المليون

اطار الاسئلة

تصميم برنامج من سيربح المليون

الصورة الترحيبية
تصميم برنامج من سيربح المليون

مربعات ملونة لاحصائيات الجمهور
تصميم برنامج من سيربح المليون

تصميم برنامج من سيربح المليون

تصميم برنامج من سيربح المليون

تصميم برنامج من سيربح المليون

---------------------------------
سنتابع

حمل الصور في ملف واحد بتسميتها

https://up.top4top.net/downloadf-820lji811-rar.html




----------------------
لا يوجد ملف مفتوح بل ننتظره منكم
----------------------





31-03-2018, 12:17 AM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
الاصوات :

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

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

https://up.top4top.net/downloadf-8190yen31-rar.html
او

https://4shared.com/s11/srvs14/001/4/Audio1.rar





حمل الصور في ملف واحد بتسميتها

https://up.top4top.net/downloadf-820lji811-rar.html

او

https://4shared.com/s11/srvs14/001/4/Images1.rar


----------------------
لا يوجد ملف مفتوح بل ننتظره منكم
----------------------


31-03-2018, 07:06 AM
أحمد بكر محمد بكر
الوسـام الماسـي
رقم العضوية: 846967
تاريخ التسجيل: Oct 2016
الإقامة: مصر
المشاركات: 2,500
تلقى دعوات الى: 39 موضوع
إعجاب: 211
تلقى 611 إعجاب على 452 مشاركة
 
بارك الله فيك أخي على المشاركة الرائعة
استمر يا برنس

31-03-2018, 04:22 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
الان في نضع ملفين تكست للاسئلة و الاجابات في ملف docs

ملف تكست باسم pro1 .......... فيه 15 سؤال
ملف تكست باسم rep ....... في كل سطر اربع اجابات تكتب على الشكل التالي :
الجواب الصح . ( اي نقطة ) الجواب الثاني : ( اي تقطتين ) الجواب الثالث @ ( علامة @ ) الجواب الرابع
لا تنسى مسافة بين الاختيارات .............ضروري
مثال :
في السطر الاول من ملف الاسئلة : اول نبي
في السطر الاول من ملف الاحابات : سيدنا ادم . سيدنا جبريل : سيدنا نوح ؟ سيدنا محمد


مثال : ضع الاسئلة في ملف pro

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

--------------------------------------
الاجابات في ملف rep

الفاتحة . ال عمران : البقرة @ الدخان
ادم . محمد : نوح @ داوود
الف . ياء : باء @ جيم
داوود . نوح : موسى @ عيسى
سعد بن معاذ . ابو بكر : عمر بن الخطاب @ ابو دجانة
الجزائر.تونس : بشار @ اقلي
افريقيا . اوروبا : امريكا @ اسيا
الجزائر . السودان : السيتغال @ مصر
البقرة . ال عمران : الكوثر @ الشمس
الرحمن . الكوثر : الفاتحة @ يس
2 . 3 : 5 @ 12
25 . 50 : 35 @75
3 . 9 :27 @ 1
الاخلاص . الفلق : الناس @ المسد
محمد . ادم : نوح @ يونس



جميل ..الى العمل


----------------------
لا يوجد ملف مفتوح بل ننتظره منكم
----------------------


31-03-2018, 05:23 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
الان الى التصميم :

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

في الصفحة ضع الصور كالتالي :



شرح بسيط جدا

في صورة الاسئلة ضع براغراف و سميه P_qustion

في الصور التي تدل على الخيارات ضع اسفل منها براغراف من 1 الى 4 اجعل لونها اصفر

الارقام من 0 الى 1000000 كلعا براغرافات بلون ابيض و تسميتها هي P0 .........حتى P10
اجعل الراغراف 0 برتقالي #FF9900

الى العمل ..موفقين

----------------------
لا يوجد ملف مفتوح بل ننتظره منكم
----------------------


31-03-2018, 05:38 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
كمقدمة ترحيبية ........ نضع صورة بحجم الصغحة او اقل قليلا




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



في الاسفل زر يحمل نص مثلا: نفضل او ابدأ







31-03-2018, 05:45 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
الأكواد :


في الحدث on preload

او نسجل موقع المرشر ( الصورة المثلث و تحمل اسم flech ) لاننه سيترحك صعودا و سيعود الى موقعه الاصلي بعد 5 اجابات خاطئة او بعد الاعادة

old Image.GetPos("flech"); 
ثم نسجل مواقع البراغرافات من 1 الى 4 و التي تخص الخيارات في مصفوفة من اجل تغيير مواقعها في كل سؤال
Ppos = {};
for 
i=1,do
Ppos[i] = Paragraph.GetPos("Paragraph"..i);
end 
نضيف فيمة c1 =1
و التي تحدد عدد التوهجات اي تغير اللون في الخيارات و سيلزمنا مسنقبلا في الايمر

c1 =

31-03-2018, 05:56 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
في الحدث on show

بداية نسجل الاسئلة في مصفوفة نسميها qustion

qustion TextFile.ReadToTable("AutoPlay\\Docs\\pro.txt"
و نسجل الاجابات في مصفوفة نسميها repoens

repeons TextFile.ReadToTable("AutoPlay\\Docs\\rep.txt"
الان نضع كل الدرجات اي النقط من 100 الى 100000 ...اي البراغارافات بلون ابيض

for i=1,10 do
Paragraph.SetProperties("P"..i, {BGColor Math.HexColorToNumber("FFFFFF")});
end 
الان نجعل البرنامج يشغل خلفية موسيفية خاصة ببرنامج من سيربح المليون
Audio.Load(CHANNEL_BACKGROUND"AutoPlay\\Audio\\2.mp3"truefalse); 
ايضا نفعل الصورة المتحركة
GIF.Load("Plugin1""AutoPlay\\Images\\1944272.gif"
الان نجعل عدد الاخطاء صفرا و ايضا عدد الاجابات الصح صفرا
x=err 
الى التطبيق

31-03-2018, 06:08 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 

اضف xbutton لعرض الاسئلة و سميه qus ..... اجعله مخفيا
اضف xbutton للتصحيح و سميه qus1 ..... اجعله مخفيا



الان في زر البداية نوقف صوت المقدمة ......... و نشغل خلقية التفكير

Audio.Stop(CHANNEL_BACKGROUND);
Audio.Load(CHANNEL_BACKGROUND"AutoPlay\\Audio\\1.mp3"truetrue
نخفي الصورة الترحيبية و الصورة المتحركة و نحفي الزر نفسه الحاص بالبداية

Audio.Stop(CHANNEL_BACKGROUND);
Audio.Load(CHANNEL_BACKGROUND"AutoPlay\\Audio\\1.mp3"truetrue)
Image.SetVisible("Imfff6"false);
Plugin.SetVisible("Plugin1"false);
Button.SetVisible(thisfalse
في اسفل الكود نضيف اكر بتشغيل زر الاسئلة عبر الكود

Page.ClickObject("qus"); 

31-03-2018, 06:20 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
الان سنتعامل مع جزئية الخيارات :

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


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

الان في البراغراف من 1 الى 4 في الحدث On Enter

Paragraph.SetProperties(this, {BGColor Math.HexColorToNumber("CC99FF")}); 
الان في On leave
Paragraph.SetProperties(this ,{BGColor Math.HexColorToNumber("FFFF00")}); 
الان نحصص الاجابة قيمتها d تحمل رقم البراغراف المضفوط و في نفس الوقت يصبح لونها يتوهج للتفكير

اذن في البراغراف 1 نضغ الكود في
on click
d=;
Page.StartTimer(100,1); 
و نفس الشيء في كل البرارغرافات مع تغيير قيمة d حسب رقم البراغراف

-----------
الى التطبيق

31-03-2018, 06:30 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
الان سنتعامل مع التايمر on timer وهي الاكواد التي نحتاجها لتعطينا الخيارات تتغير لونها للتفكير

كما اسلفنا ان طلبنا عتد اختيار خيار ما فانه يبدا في تغيير لونه لذلك سنجعل في مدة عشر ثانية يتغير لن البراغراف لفترة معينة ثم سيكون اما اخضر للصح واما احمر للخطا
الطريقة بسيطة و هي يصبح لونه ازرق .فيتوقف التامير 1 و يبدا التايمر 2 ليصبح ازر اقل غمقا و بعد عشر ثانية يتوقف التايمر2 ويبدا التايمر 1 و هكذا .......الى متى ؟ الى الابد ............ كيف نحدد عدد التوهج ؟ اي تغير اللون لما تصبح فيمة c1 =5 عندها يتوقف التيايمر 1 و 2 و نشغل زر التصحيح qus1

اذن الكود يكون كالتالي في التايمر


if e_ID == 1 then
Paragraph
.SetProperties("Paragraph"..d, {BGColor Math.HexColorToNumber("003399")});
Page.StopTimer(1); Page.StartTimer(100,2);  clcl+1;
if 
cl >= 15 then Page.StopTimer(1);Page.StopTimer(2); cl=0
Paragraph.SetProperties("Paragraph"..,{BGColor Math.HexColorToNumber("FFFF00")});
Page.ClickObject("qus1"); end end

if e_ID == 2 then
Paragraph
.SetProperties("Paragraph"..d, {BGColor Math.HexColorToNumber("00CCFF")});
Page.StopTimer(2); Page.StartTimer(100,1);  clcl+1;
if 
cl >= 15 then Page.StopTimer(1);Page.StopTimer(2); cl=0
Paragraph.SetProperties("Paragraph"..,{BGColor Math.HexColorToNumber("FFFF00")});
Page.ClickObject("qus1"); end end 

الان نضيف تايمر 5 مثلا وهو يمثل الاعادة لكل المسابقة من جديد و يتم تفعيل التايمر عند الحصول على الجائزة
if e_ID == 5 then

  qustion 
TextFile.ReadToTable("AutoPlay\\Docs\\pro.txt")
   
repeons TextFile.ReadToTable("AutoPlay\\Docs\\rep.txt")
   for 
i=1,10 do
   
Image.Load("Image"..i"AutoPlay\\Images\\22.png")
   
Paragraph.SetProperties("P"..,{BGColor Math.HexColorToNumber("FFFFFF")}); 
   
Image.SetPos("flech"old.Xold.Y); x=err ;
   
end
      
   Image
.SetVisible("ami"true);
   
Image.SetVisible("comp"true);
   
Image.SetVisible("tel"true);
   
Paragraph.SetVisible("Pacomp"true);
   
Paragraph.SetVisible("Patel"true);
   
Paragraph.SetVisible("papub"true);
   
Application.Sleep(1500);
   
Page.ClickObject("qus");
 
end 

31-03-2018, 06:41 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
الان في زر الاسئلة qus نضع الكود التالي :



Page.StopTimer(1); Page.StopTimer(2);
gh Math.Random(1,#qustion);
Paragraph.SetText("P_qustion"qustion[gh]);


 
sd String.Length(repeons[gh]);

 
find1 String.Find(repeons[gh], "."1); 
 
find2 String.Find(repeons[gh], ":"1); 
 
find3 String.Find(repeons[gh], "@"1); 
 
 
ch1 String.Mid(repeons[gh],1find1-2);               Paragraph.SetText("Paragraph1"ch1);
 
ch2 String.Mid(repeons[gh], find1+1find2-find1-1);  Paragraph.SetText("Paragraph2"ch2);
 
ch3 String.Mid(repeons[gh], find2+2find3-find2-2);  Paragraph.SetText("Paragraph3"ch3);
 
ch4 String.Mid(repeons[gh], find3+sd -find3);   Paragraph.SetText("Paragraph4"ch4);




Table.Remove(qustion,gh);
Table.Remove(repeons,gh); 
vrai Paragraph.GetText("Paragraph1") ;
v2 Paragraph.GetText("Paragraph2") ;
v3 Paragraph.GetText("Paragraph3") ;
v4 Paragraph.GetText("Paragraph4") ;




for 
i=1,do dd Math.Random(1,#Ppos);
Paragraph.SetProperties("Paragraph"..,{BGColor Math.HexColorToNumber("FFFF00")});
Paragraph.SetEnabled("Paragraph"..itrue);
Paragraph.SetPos("Paragraph"..iPpos[dd].XPpos[dd].Y); Table.Remove(Ppos,dd);
end


Ppos
={};for i=1,do Ppos[i] = Paragraph.GetPos("Paragraph"..i); end 
و الشرح كالتالي :
توقيف التايمر 1 و 2
اختيار عشوائيا من مصفوفة الاسئلة ووضع السئال في البراغراف الخاص بالاسئلة
ثم تحديد طول الجواب كله
ثم تجزئة الخيارات خسب العلامات المتفق عليها من قبل . : @ ........ووضع كل منها في البراغراف
ثم حفظ الاجابات في متغيرات
بعدها تغير مواقع البراغرافات الاربعة عشوائبا
و ثتم حذف السؤال من المصفوفة و ايضا الاجابات الخاص به
و نعيد حفظ موقع الخيارات من جديد لا ستخدامها في السؤال الموالي

31-03-2018, 06:49 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
الان الكود الخاص بالتصحيح في الورqus1



if == or d==or d==4 then
err 
err +;
   if 
err >= 5 then
   Dialog
.Message("تبيه","لاسف قد اخطات حمس مرات اعد من جديد");
   
qustion TextFile.ReadToTable("AutoPlay\\Docs\\pro.txt")
   
repeons TextFile.ReadToTable("AutoPlay\\Docs\\rep.txt")
   for 
i=1,10 do
   
Image.Load("Image"..i"AutoPlay\\Images\\22.png")
   
Paragraph.SetProperties("P"..,{BGColor Math.HexColorToNumber("FFFFFF")}); 
   
Image.SetPos("flech"old.Xold.Y); x=err ;
   
end
      
   Image
.SetVisible("ami"true);
   
Image.SetVisible("comp"true);
   
Image.SetVisible("tel"true);
   
Paragraph.SetVisible("Pacomp"true);
   
Paragraph.SetVisible("Patel"true);
   
Paragraph.SetVisible("papub"true);
     
Application.Sleep(1500);
   
Page.ClickObject("qus");
   else
   
Image.Load("Image"..err"AutoPlay\\Images\\223.png");
   
Paragraph.SetProperties("Paragraph"..d, {BGColor Math.HexColorToNumber("FF0000")}); 
   
Audio.Load(CHANNEL_USER1"AutoPlay\\Audio\\no1.wav"true);
   
Paragraph.SetProperties("Paragraph1" ,{BGColor Math.HexColorToNumber("008000")}); 
   
Application.Sleep(1500);
   
Page.ClickObject("qus");
end

elseif d==1 then
x
=x+1;
if 
>= 10 then
Image
.SetPos("flech"Image.GetPos("flech").XParagraph.GetPos("P"..x).Y)
Paragraph.SetProperties("P"..,{BGColor Math.HexColorToNumber("FF9900")});
Application.Sleep(1500);
DialogEx.Show("Dialog4");
Button.SetVisible("Button4"true)
else
Image.SetPos("flech"Image.GetPos("flech").XParagraph.GetPos("P"..x).Y)
Paragraph.SetProperties("P"..,{BGColor Math.HexColorToNumber("FF9900")});
Paragraph.SetProperties("Paragraph1" ,{BGColor Math.HexColorToNumber("008000")}); 
Audio.Load(CHANNEL_USER1"AutoPlay\\Audio\\5.mp3"true)
Application.Sleep(1500);
  
Page.ClickObject("qus");
end
end 
الشرح باختصار :

اذا كان قيمة d =2.3.4 اي خطا فالا نحسب عدد مرات الخطأ err
اذا تجاوزت الخمس يظهر به ميساج رسالة تفيده بانه استنفذ عدد المحاولات و بالتالي كل شيء يعود من جديد
و الا فسيكون لون الخيار احمر ثم تظهر بطة مشطوب عليها ثم الانتقال الى السؤال الموالي

الان اذا كان الجواب صح فنحسب عدد مرات x الاجابات الصح .... اذا تجاوز 10 حينها يظهر له ديالوج بالفوز
و الا سيكون الخيار ملون بالاخضر و ننتقل للسئال الموالي مه صوت الحواب صح

31-03-2018, 06:54 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
الان فس زر 50 : 50 اي مساعدة الحاسوب




سيحذف احابتين اي نمحي النص من زرين من 2.3.4 ..........لان الخيار1 هو الصح
نشغل صوت مساعدة الحاوسب ثم تحفي الزر

chrep = {2,3,4};
Audio.Load(CHANNEL_USER1"AutoPlay\\Audio\\4.mp3"true);
Application.Sleep(3000);
ch Math.Random(1#chrep);
Paragraph.SetText("Paragraph"..chrep[ch], "");
Table.Remove(chrep,ch);
-----------------
ch Math.Random(1#chrep);
Paragraph.SetText("Paragraph"..chrep[ch], "");
Table.Remove(chrep,ch);
Audio.Stop(CHANNEL_USER1)
Image.SetVisible(thisfalse);
Paragraph.SetVisible("Pacomp"false

31-03-2018, 07:15 PM
عبد الهادي بهاب
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 723
تلقى دعوات الى: 28 موضوع
إعجاب: 178
تلقى 440 إعجاب على 247 مشاركة
 
الان في زر الاتصال بصديق


نشغل موسيقى الاتصال و بعد 15 ثانية يتوقف الصوت و يظهر داليةج ميساج يحمل الجواب الصح vrai
نضع فيه الكود التالي :

Audio.Load(CHANNEL_USER1"AutoPlay\\Audio\\6.wav"true);
Application.Sleep(15000);
Audio.Stop(CHANNEL_USER1)
Dialog.Message("الجواب الصح هو "vrai);
Image.SetVisible(thisfalse);
Paragraph.SetVisible("Patel"false


تصميم برنامج من سيربح المليون



Powered by vBulletin® Version
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.