مشاهدة النسخة كاملة : تصميم برنامج من سيربح المليون
عبد الهادي بهاب
31-03-2018, 12:16 AM
السلام عليكم
و الصلاة على سيدنا محمد صلى الله عليه و سلم
سنتعلم معكم تصميم لعبة من سيربح المليون خطوة بخطوة
---------------
الوسائل :
حمل الصور التالية و اجعلها في مجلد الصور images
لمشاركة الجمهور
http://u.damasgate.com/001/4/ooziumzod3183yu1xmws.png
الاتصال بصديق
http://u.damasgate.com/001/4/l9iwehzwx3lkheaq2cti.png
مساعدة الحاسوب و الغاء اجابتين
http://u.damasgate.com/001/4/k7unbkfooz69n6xo6w5c.png
عدد المحالات المتبقية
http://u.damasgate.com/001/4/q6hbrub6hklmk7kk7nnc.png
مؤشر التقدم
http://u.damasgate.com/001/4/5iyw251cztn8rrmancg6.png
صورة متحركة للبرنامج
http://u.damasgate.com/001/4/4uyfu86qya87xuqhtbpi.gif
اطار الاجابات جانبي
http://u.damasgate.com/001/4/7rgq0uqmac8ba51ossck.png
اطار الاجابات الاساسي
http://u.damasgate.com/001/4/p779lzxnju6hlf1bxngt.png
اطار الاسئلة
http://u.damasgate.com/001/4/kyv97bareurlq2uyik1s.png
الصورة الترحيبية
http://u.damasgate.com/001/4/m9avllmnbplz52d86y3h.png
مربعات ملونة لاحصائيات الجمهور
http://u.damasgate.com/001/4/d3kl6fcpil1uep3jtqcl.png
http://u.damasgate.com/001/4/5tysql7o8kye65nprkrv.png
http://u.damasgate.com/001/4/xh6fk2ny3f3debzerrs8.png
http://u.damasgate.com/001/4/t72sqhz07ru6krlekn7o.png
حمل الصور في ملف واحد بتسميتها
https://up.top4top.net/downloadf-820lji811-rar.html
---------------------------------
سنتابع
----------------------
لا يوجد ملف مفتوح بل ننتظره منكم
----------------------
عبد الهادي بهاب
31-03-2018, 12:17 AM
الاصوات :
حمل الملفات الصوتية التالية و ضعها في ملف Audio
وهي اصوات تتعلق بالمسابقة
تصفيق
الجواب صح
الخطأ
التفكير
اتصال بصديق
خلفية البرنامج
--------------------------
https://up.top4top.net/downloadf-8190yen31-rar.html
----------------------
لا يوجد ملف مفتوح بل ننتظره منكم
----------------------
عبود عبود
31-03-2018, 03:45 PM
جزاك الله خيرا:abc_152:
عبد الهادي بهاب
31-03-2018, 05:26 PM
الان في نضع ملفين تكست للاسئلة و الاجابات في ملف 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:27 PM
الان الى التصميم :
كل ما نحتاجه الى صفحة واحدة و 2 من الديالوج
في الصفحة ضع الصور كالتالي :
http://u.damasgate.com/001/4/m1t3g8hr63j6r5h675dw.png
شرح بسيط جدا
في صورة الاسئلة ضع براغراف و سميه P_qustion
في الصور التي تدل على الخيارات ضع اسفل منها براغراف من 1 الى 4 اجعل لونها اصفر
الارقام من 0 الى 1000000 كلعا براغرافات بلون ابيض و تسميتها هي P0 .........حتى P10
اجعل الراغراف 0 برتقالي #FF9900
الى العمل ..موفقين
----------------------
لا يوجد ملف مفتوح بل ننتظره منكم
----------------------
عبد الهادي بهاب
31-03-2018, 05:58 PM
الأكواد :
في الحدث on preload
او نسجل موقع المرشر ( الصورة المثلث و تحمل اسم flech ) لاننه سيترحك صعودا و سيعود الى موقعه الاصلي بعد 5 اجابات خاطئة او بعد الاعادة
old = Image.GetPos("flech");
ثم نسجل مواقع البراغرافات من 1 الى 4 و التي تخص الخيارات في مصفوفة من اجل تغيير مواقعها في كل سؤال
Ppos = {};
for i=1,4 do
Ppos[i] = Paragraph.GetPos("Paragraph"..i);
end
نضيف فيمة c1 =1
و التي تحدد عدد التوهجات اي تغير اللون في الخيارات و سيلزمنا مسنقبلا في الايمر
c1 =1
عبد الهادي بهاب
31-03-2018, 05:58 PM
في الحدث 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", true, false);
ايضا نفعل الصورة المتحركة
GIF.Load("Plugin1", "AutoPlay\\Images\\1944272.gif")
الان نجعل عدد الاخطاء صفرا و ايضا عدد الاجابات الصح صفرا
x=0 ; err = 0 ;الى التطبيق
عبد الهادي بهاب
31-03-2018, 06:08 PM
اضف xbutton لعرض الاسئلة و سميه qus ..... اجعله مخفيا
اضف xbutton للتصحيح و سميه qus1 ..... اجعله مخفيا
الان في زر البداية نوقف صوت المقدمة ......... و نشغل خلقية التفكير
Audio.Stop(CHANNEL_BACKGROUND);
Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\1.mp3", true, true)
نخفي الصورة الترحيبية و الصورة المتحركة و نحفي الزر نفسه الحاص بالبداية
Audio.Stop(CHANNEL_BACKGROUND);
Audio.Load(CHANNEL_BACKGROUND, "AutoPlay\\Audio\\1.mp3", true, true)
Image.SetVisible("Imfff6", false);
Plugin.SetVisible("Plugin1", false);
Button.SetVisible(this, false)
في اسفل الكود نضيف اكر بتشغيل زر الاسئلة عبر الكود
Page.ClickObject("qus");
عبد الهادي بهاب
31-03-2018, 06:20 PM
الان سنتعامل مع جزئية الخيارات :
اولا لما يضع المستخدم الماووس يتغير لونها الى البنفسجي 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=1 ;
Page.StartTimer(100,1);و نفس الشيء في كل البرارغرافات مع تغيير قيمة d حسب رقم البراغراف
-----------
الى التطبيق
عبد الهادي بهاب
31-03-2018, 06:33 PM
الان سنتعامل مع التايمر 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); cl= cl+1;
if cl >= 15 then Page.StopTimer(1);Page.StopTimer(2); cl=0;
Paragraph.SetProperties("Paragraph"..d ,{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); cl= cl+1;
if cl >= 15 then Page.StopTimer(1);Page.StopTimer(2); cl=0;
Paragraph.SetProperties("Paragraph"..d ,{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"..i ,{BGColor = Math.HexColorToNumber("FFFFFF")});
Image.SetPos("flech", old.X, old.Y); x=0 ; err = 0 ;
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:50 PM
الان الكود الخاص بالتصحيح في الورqus1
if d == 3 or d==2 or d==4 then
err = err +1 ;
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"..i ,{BGColor = Math.HexColorToNumber("FFFFFF")});
Image.SetPos("flech", old.X, old.Y); x=0 ; err = 0 ;
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 x >= 10 then
Image.SetPos("flech", Image.GetPos("flech").X, Paragraph.GetPos("P"..x).Y)
Paragraph.SetProperties("P"..x ,{BGColor = Math.HexColorToNumber("FF9900")});
Application.Sleep(1500);
DialogEx.Show("Dialog4");
Button.SetVisible("Button4", true)
else
Image.SetPos("flech", Image.GetPos("flech").X, Paragraph.GetPos("P"..x).Y)
Paragraph.SetProperties("P"..x ,{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, 07:11 PM
الان فس زر 50 : 50 اي مساعدة الحاسوب
http://u.damasgate.com/001/4/k7unbkfooz69n6xo6w5c.png
سيحذف احابتين اي نمحي النص من زرين من 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(this, false);
Paragraph.SetVisible("Pacomp", false)
عبد الهادي بهاب
31-03-2018, 07:15 PM
الان في زر الاتصال بصديق
http://u.damasgate.com/001/4/l9iwehzwx3lkheaq2cti.png
نشغل موسيقى الاتصال و بعد 15 ثانية يتوقف الصوت و يظهر داليةج ميساج يحمل الجواب الصح vrai
نضع فيه الكود التالي :
Audio.Load(CHANNEL_USER1, "AutoPlay\\Audio\\6.wav", true);
Application.Sleep(15000);
Audio.Stop(CHANNEL_USER1)
Dialog.Message("الجواب الصح هو ", vrai);
Image.SetVisible(this, false);
Paragraph.SetVisible("Patel", false)
عبد الهادي بهاب
31-03-2018, 07:33 PM
الان في زر الجمهور
http://u.damasgate.com/001/4/ooziumzod3183yu1xmws.png
تشغل صوت الجمهور
نخفي الصورة نفسها و تغل دبالوج رقم 3 و الذي يزهر فيه اعمدة
اذن نضع في زر الجمهور الكود التالي :
Audio.Load(CHANNEL_USER1, "AutoPlay\\Audio\\4.mp3", true);
Image.SetVisible(this, false);
Paragraph.SetVisible("papub", false)
DialogEx.Show("Dialog3");الان انشئ ديالوج و سميه ديالوج3
نضع فيه الصور الملونة بهذا الشكل
http://u.damasgate.com/001/4/kkysi6w9v5sxomqhjjpr.pngفي اسفها ليبال من 1 الى 4
الان في onpreload الخاص يالديالوج ... مختفظ مواقع الصور و اليالات
impos = {}; for i=1,4 do impos[i] = Image.GetPos("Image"..i); end
col = {1,2,3,4,5,6};
posP1={};
for i=1,4 do posP1[i] = Label.GetPos("Label"..i); end
posP={};
for i=1,4 do posP[i] = Label.GetPos("Label"..i); end
في on show نضع الكود التالي :
Label.SetText("Label1", vrai);
Label.SetText("Label2", v2);
Label.SetText("Label3", v3);
Label.SetText("Label4", v4);
for i=1,4 do dd = Math.Random(1,#col);
Image.Load("Image"..i, "AutoPlay\\Images\\ca"..col[dd]..".png");
Table.Remove(col,dd);
end
for i=1,4 do ty = Math.Random(1,#posP);
Label.SetPos("Label"..i, posP[ty].X, posP[ty].Y);
Image.SetPos("Image"..i , posP[ty].X, posP[ty].Y-21);
Table.Remove(posP,ty);
end
DialogEx.StartTimer(100,1);
DialogEx.StartTimer(100,2);
DialogEx.StartTimer(100,3);
DialogEx.StartTimer(100,4);بحيث تصبح قيم الليبلات هي الخيارات كلها
ثم تغير مواقع اليبلات تبعا لمواقع الصور الملونة
ثم نشغل التايمر الذي يظهر ارتفاع العمود الملون بحيث تجعل العمود الخاص بالخيار الاول هو ااكثر ارتفاعا
اذن ضع في التايمر الخاص يالديالوج
if e_ID == 1 then
if Image.GetSize("Image1").Height >= 170 then
DialogEx.StopTimer(1);
else
Image.SetSize("Image1", Image.GetSize("Image1").Width, Image.GetSize("Image1").Height+10);
Image.SetPos("Image1", Image.GetPos("Image1").X , Image.GetPos("Image1").Y - 10 );
end
end
if e_ID == 2 then
if Image.GetSize("Image2").Height >= 120 then
DialogEx.StopTimer(2);
else
Image.SetSize("Image2", Image.GetSize("Image2").Width, Image.GetSize("Image2").Height+10);
Image.SetPos("Image2", Image.GetPos("Image2").X , Image.GetPos("Image2").Y - 10 );
end
end
if e_ID == 3 then
if Image.GetSize("Image3").Height >= 70 then
DialogEx.StopTimer(3);
else
Image.SetSize("Image3", Image.GetSize("Image3").Width, Image.GetSize("Image3").Height+10);
Image.SetPos("Image3", Image.GetPos("Image3").X , Image.GetPos("Image3").Y - 10 );
end
end
if e_ID == 4 then
if Image.GetSize("Image4").Height >= 30 then
DialogEx.StopTimer(4);
else
Image.SetSize("Image4", Image.GetSize("Image4").Width, Image.GetSize("Image4").Height+10);
Image.SetPos("Image4", Image.GetPos("Image4").X , Image.GetPos("Image4").Y -10 );
end
endبحيث كل تايمر خاص بعمود و لاحظ جيدا اننا جعلنا طول العمود الاول 170 مهما كان موقعه و الثاني 120 و الثالث 70 و الرابع
30
---------------------------
للعمل
عبد الهادي بهاب
31-03-2018, 07:53 PM
اخيرا .......... نضيف dialog
نضع في خلفيتها صورة مبروك النجاح مثلا
http://u.damasgate.com/001/4/ohcx11ttruk8dpvhe3t8.png
الان في حدث onclose الديالوج نفعل التايمر 5
Page.StartTimer(50,5);
عبد الهادي بهاب
31-03-2018, 08:01 PM
المشروع بعد الاتجاز
http://u.damasgate.com/001/4/6eak1ools53ra7ucsnos.gif
http://www.mediafire.com/view/qyzxgz8p0cxr8go/milion%20bahab.gif#
خادم المسلمين
31-03-2018, 10:32 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_088::abc_022::abc_025:
عبود عبود
31-03-2018, 10:53 PM
رأى الشخصى واجب دعم الشرح بملف مفتوح " المفروض الشرح للمبتدئين " :abc_138:
عبد الهادي بهاب
01-04-2018, 12:07 AM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_088::abc_022::abc_025:
تحية لكم استاذ
رأى الشخصى واجب دعم الشرح بملف مفتوح " المفروض الشرح للمبتدئين " :abc_138:
رايكم جد محترم ... نترك فترة زمنية لنتعرف محاولات الاخوة ........( نتمنى ذلك طبعا ) .....ثم ننزل الملف المفتوح للمشروع
الفكرة ترك المجال للمحاولات
شكرا استاذ عبود
azizsoft
01-04-2018, 02:33 AM
جزاكم الله خيرا اخي عبد الهادي على جهودكم القيمة :abc_022:
يوسف البراهيم
01-04-2018, 06:48 PM
تحية لكم استاذ
رايكم جد محترم ... نترك فترة زمنية لنتعرف محاولات الاخوة ........( نتمنى ذلك طبعا ) .....ثم ننزل الملف المفتوح للمشروع
الفكرة ترك المجال للمحاولات
شكرا استاذ عبود
هذا تطبيقي
في عندس خطأ
أين ؟
https://up.top4top.net/downloadf-821fingb1-rar.html
عبد الهادي بهاب
01-04-2018, 08:06 PM
هذا تطبيقي
في عندس خطأ
أين ؟
https://up.top4top.net/downloadf-821fingb1-rar.html
السلام عليكم ورحمة الله وبركاته
اولا شكرا على متابعة الدرس و على المشروع الناجح
----------
اولا لم تدخل الكود الخاص بزر 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],1, find1-2); Paragraph.SetText("Paragraph1", ch1);
ch2 = String.Mid(repeons[gh], find1+1, find2-find1-1); Paragraph.SetText("Paragraph2", ch2);
ch3 = String.Mid(repeons[gh], find2+2, find3-find2-2); Paragraph.SetText("Paragraph3", ch3);
ch4 = String.Mid(repeons[gh], find3+1 , 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,4 do dd = Math.Random(1,#Ppos);
Paragraph.SetProperties("Paragraph"..i ,{BGColor = Math.HexColorToNumber("FFFF00")});
Paragraph.SetEnabled("Paragraph"..i, true);
Paragraph.SetPos("Paragraph"..i, Ppos[dd].X, Ppos[dd].Y); Table.Remove(Ppos,dd);
end
Ppos={};for i=1,4 do Ppos[i] = Paragraph.GetPos("Paragraph"..i); end
ثانيا : غير تسمية c1 الى تسمية من اختيارك لانها تتداخل مع قيم اخرى ة لتكن مثلا igli
on preload
old = Image.GetPos("flech");
Ppos = {};
for i=1,4 do
Ppos[i] = Paragraph.GetPos("Paragraph"..i);
end
igli=1;
on timer
if e_ID == 1 then
Paragraph.SetProperties("Paragraph"..d, {BGColor = Math.HexColorToNumber("003399")});
igli= igli+1;
if igli >= 15 then Page.StopTimer(1);Page.StopTimer(2); igli=0;
Paragraph.SetProperties("Paragraph"..d ,{BGColor = Math.HexColorToNumber("FFFF00")});
Page.ClickObject("qus1");
else
Page.StopTimer(1); Page.StartTimer(100,2);
end end
if e_ID == 2 then
Paragraph.SetProperties("Paragraph"..d, {BGColor = Math.HexColorToNumber("00CCFF")});
igli= igli+1;
if igli >= 15 then Page.StopTimer(1);Page.StopTimer(2); igli=0;
Paragraph.SetProperties("Paragraph"..d ,{BGColor = Math.HexColorToNumber("FFFF00")});
Page.ClickObject("qus1");
else
Page.StopTimer(2); Page.StartTimer(100,1);
end end
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"..i ,{BGColor = Math.HexColorToNumber("FFFFFF")});
Image.SetPos("flech", old.X, old.Y); x=0 ; err = 0 ;
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.igliickObject("qus");
end
ثالثا : في صور الجمهور و الاتصال بصديق ....في اعدادات الصور attribute في الاسفل في ِ Cursor عير المؤشر الى اليد Hand ثم في اسفل منه في الاصوات highlit و ِClik غير الخيار الى standar فتصبح الصورة كانها زر
رابعا : في ملف docs غير الملف pro و ليس pro1
اخيرا اجعل الخلفية بيضاء تماما
بالتوفيق
يوسف البراهيم
02-04-2018, 10:28 AM
الله يعطيك الف عافية
الامور ممتازة
vBulletin® v3.8.11, Copyright ©2000-2024, abohmam