المساعد الشخصي الرقمي

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


عبد الهادي بهاب
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
الله يعطيك الف عافية

الامور ممتازة