أستغفر الله العظيم ... سبحان الله وبحمده



العودة   منتديات داماس > اسطوانة الويندوز الخاصة > ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio


مواضيع مميزة  


آخر عشرة مواضيع المواضيع النشطة


22-11-2017, 09:43 PM
عبد الهادي بهاب غير متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 590
إعجاب: 94
تلقى 289 إعجاب على 161 مشاركة
تلقى دعوات الى: 17 موضوع
    #1  

تعلم تصميم لعبة ذكاء بشكل بسيط


تعلم تصميم لعبة ذكاء بشكل

اليوم سنقوم لتعلم تصميم لعبة ذكاء بسيطة جدا تعتمد على تدوير مجموعة اشكال للوصول الى تطابق افقي او عمودي

الفكرة مستقامة من لعبى تسمى hisimantiki

تعلم تصميم لعبة ذكاء بشكل

رابط اللعبة

http://www.b30b.com/up//view.php?file=bb52549e0d

الان مع البرمحة بالاوتوبلاي :
سنركز على شيئين تدوير الاشكال و ايضا كيف نعلن ان اللاعب نجح في الللعب

- افتح مشروع جديد
- في الصفحة ضع 2 من paragraph و ضع لهما لون واحدا لكليهما او ممكن تخد صورة كخلفية ما
- حمل صور لاشكال بسيطة مختلفة اللون مثلا الاشكال التالية
تعلم تصميم لعبة ذكاء بشكل

تعلم تصميم لعبة ذكاء بشكل

تعلم تصميم لعبة ذكاء بشكل

تعلم تصميم لعبة ذكاء بشكل

تعلم تصميم لعبة ذكاء بشكل

تعلم تصميم لعبة ذكاء بشكل

تعلم تصميم لعبة ذكاء بشكل

تعلم تصميم لعبة ذكاء بشكل

تعلم تصميم لعبة ذكاء بشكل


- الان نضع الصور بشكل موزع على حواف الخلفيتين بهذا الشكل :
تعلم تصميم لعبة ذكاء بشكل

الان سنفترض ان المشكل في الصورتين المتقابلتين يجب ان يكونا من نفس النوع
لذلك سنجعل كود التصحيح هو ان يعرف مصدر الصورتين لمتقابلتين
فان وجد انهما من نفس النوع يعلنك لاعيا ناجحا
اذن اولا سنحفظ مكان الصورتين المتقابلتين و في مشروعنا هما الصورة رقم 3 من المربع الاول
و الصورة 5 من المربع 2
و لنتفرض متغيرين هما sol 1 ; sol2 وهما موقع الصورتين باستخدام الكود التالي :

sol1 Image.GetPos("Image3");
sol2 Image.GetPos("Image5"); 
ثم نضع متغيرين اين نحفظ فيهما مصدر الصورتين الموجدتين في الموقع 3 و 5 و نسميهما obj1: obj2
بداية نعطيهما مصدر الصورتين في الشكل الاول بواسطة الكود

obj1 Image.GetFilename("Image3");
obj2 Image.GetFilename("Image5"); 
الان كيف نجعل المربع يدور ؟
نحن لن نجعله يدور بل سنجعل الصور التي في وسطه تدور ...و بالاحرى تغيير مواقعها تباعا من اليمين الى اليسار او العكس بوضع موقع الصور بالشكل التالي :

تعلم تصميم لعبة ذكاء بشكل

تضع في الخلفية للمربع الاول مهما كان صورة او paragraph نضغ في الحدث On click الكود التالي :
نحفظ موقع الصور من 1 الى 4 في مصفوفة ... ثم نجعل الصورة الاولى تاخد موقع الصورة 2 و الصورة 2 تنتقل الى موقع الصورة 3 و هكذا

pos1={}; for i=1,do  pos1[i] = Image.GetPos("Image"..iend

for i=1,do
  if 
i== 4 then p=1; else p=i+1 end
  Image
.SetPos("Image"..pos1[p].Xpos1[p].Y);
end 
نفس الشي في المربع الثاني فقط نضيف i+4 لياخد موقع الصور 5-6-7-8

pos1={}; for i=1,do  pos1[i] = Image.GetPos("Image"..i+4end

for i=1,do
  if 
i== 4 then p=1; else p=i+1 end
  Image
.SetPos("Image"..i+pos1[p].Xpos1[p].Y);
end 
جميل فلما تضغط على الصور تتنقل كالتالي :
تعلم تصميم لعبة ذكاء بشكل


الان ناتي الى كود التصحيح :
بعد كل ضغطة سيحفظ الكود ماهو مصدر الصورة التي تحتل الموقع 3 في obj1
نفس الشيء في المربع الثاني يحفظ مصدر الصورة التي تحتل الموقع 5 و يحفظها في obj2

الان سيقارن القيمتين obj1 و obj2 فان كانا متساويتيم فان الشكلين كتطابقين و بالتالي نجح اللاعب
اذن في المربع الاول يصبح الكود كالاتي

pos1={}; for i=1,do  pos1[i] = Image.GetPos("Image"..iend

for i=1,do
  if 
i== 4 then p=1; else p=i+1 end
  Image
.SetPos("Image"..pos1[p].Xpos1[p].Y);
end

for i=1,do
  if 
Image.GetPos("Image"..i).== sol1.and Image.GetPos("Image"..i).== sol1.Y then
  ala 
;
  
end
end

obj1 
Image.GetFilename("Image"..ala);

if 
obj1 ~= "" and obj2 ~= "" and obj1 == obj2 then
Dialog
.Message("bahab elhadi","gooooooooooooooooood");
end 
و في المربع الثاني:

pos1={}; for i1,do  pos1[i] = Image.GetPos("Image"..i+4end

for i=1,do
  if 
i== 4 then p=1; else p=i+1 end
Image
.SetPos("Image"..i+pos1[p].Xpos1[p].Y);
end

for i=1,do
  if 
Image.GetPos("Image"..i+4).== sol2.and Image.GetPos("Image"..i+4).== sol2.Y then
  ali 
i+;
  
end
end

obj2 
Image.GetFilename("Image"..ali);

if 
obj1 ~= "" and obj2 ~= "" and obj1 == obj2 then
Dialog
.Message("bahab elhadi","gooooooooooooooooood");
end 
و في الصفحة في on show

sol1 Image.GetPos("Image3");
sol2 Image.GetPos("Image5");
obj1 Image.GetFilename("Image3");
obj2 Image.GetFilename("Image5"); 
احفظ العمل ثم معاينة

بالتوفيق





المواضيع المشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
مشروع مفتوح ... تصميم لعبة ذكاء عبد الهادي بهاب ورشة عمل اسطوانات تجميعات البرامج وشروحات ودروس برنامج الاوتوبلاي AutoPlay Media Studio 5 22-06-2017 06:10 AM
مشكلة في لعبة gta v تعمل بشكل بطئ جدا dahenesalek العاب كمبيوتر PC Games 1 02-05-2017 06:24 PM
لعبة جوال (Puzzles with Matches) لعبة ذكاء ممتعة جدا Willshere84 تطبيقات برامج والعاب وثيمات الاندرويد Android 0 16-12-2014 03:15 PM
لعبة MegaBlocks Builder لعبة لغز تحتاج ذكاء للجيل الخامس aymnahmd برامج والعاب النوكيا سيمبيان Nokia Symbian 0 02-09-2010 11:49 PM
لعبة ذكاء mgd_1984 العاب كمبيوتر PC Games 0 21-09-2004 11:03 PM
22-11-2017, 10:20 PM
mohamed ebrahem غير متصل
الوسـام الماسـي
رقم العضوية: 531434
تاريخ التسجيل: Dec 2014
الإقامة: مصر
المشاركات: 7,758
إعجاب: 1,077
تلقى 1,850 إعجاب على 1,303 مشاركة
تلقى دعوات الى: 70 موضوع
    #2  
ايها الرائع عماد الصرح والعمود الفقرى له بك وبزملاؤك وتلاميذك اصبح اسم الصرح عاليا لما تقدموه من ابداعات تسبق الجميع ..فألى الامام والله الموفق والمستعان وشكرا على الابداع الجديد مع وافر التحيه


22-11-2017, 10:28 PM
عبد الهادي بهاب غير متصل
VIP
رقم العضوية: 447434
تاريخ التسجيل: Jan 2014
المشاركات: 590
إعجاب: 94
تلقى 289 إعجاب على 161 مشاركة
تلقى دعوات الى: 17 موضوع
    #3  

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



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


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

في الصفحة on show
sol1 Image.GetPos("Image3");
sol2 Image.GetPos("Image4");
obj1 Image.GetFilename("Image3");
obj2 Image.GetFilename("Image4");

sol3 Image.GetPos("Image5");
sol4 Image.GetPos("Image8");
obj3 Image.GetFilename("Image5");
obj4 Image.GetFilename("Image8");

sol5 Image.GetPos("Image10");
sol6 Image.GetPos("Image11");
obj5 Image.GetFilename("Image10");
obj6 Image.GetFilename("Image11");

sol7 Image.GetPos("Image14");
sol8 Image.GetPos("Image13");
obj7 Image.GetFilename("Image14");
obj8 Image.GetFilename("Image13"); 
الان في المربع الاول اعلى بسار
pos1={}; for i=1,do  pos1[i] = Image.GetPos("Image"..iend

for i=1,do
  if 
i== 4 then p=1; else p=i+1 end
  Image
.SetPos("Image"..pos1[p].Xpos1[p].Y);
end

for i=1,do
  if 
Image.GetPos("Image"..i).== sol1.
  
and Image.GetPos("Image"..i).== sol1.Y then
  ala 
;
  elseif 
Image.GetPos("Image"..i).== sol2.
  
and Image.GetPos("Image"..i).== sol2.Y then
  ali 
;
  
end
end

obj1 
Image.GetFilename("Image"..ala);
obj2 Image.GetFilename("Image"..ali);


if 
obj1 == obj3 and obj2 == obj5
and obj6 == obj8 and obj4 == obj7  then
Dialog
.Message("","gooooooooooooooooood");
end 
في المربع الثاني اعلى على اليمسن
pos1={}; for i=1,do  pos1[i] = Image.GetPos("Image"..i+4end

for i=1,do
  if 
i== 4 then p=1; else p=i+1 end
  Image
.SetPos("Image"..i+pos1[p].Xpos1[p].Y);
end

for i=1,do
  if 
Image.GetPos("Image"..i+4).== sol3.
  
and Image.GetPos("Image"..i+4).== sol3.Y then
  ala 
i+;
  elseif 
Image.GetPos("Image"..i+4).== sol4.
  
and Image.GetPos("Image"..i+4).== sol4.Y then
  ali 
i+;
  
end
  end

obj3 
Image.GetFilename("Image"..ala);
obj4 Image.GetFilename("Image"..ali);


if 
obj1 == obj3 and obj2 == obj5
and obj6 == obj8 and obj4 == obj7  then
Dialog
.Message("","gooooooooooooooooood");
end 
في المربع الثالث اسفل بسار
pos1={}; for i=1,do  pos1[i] = Image.GetPos("Image"..i+8end

for i=1,do
  if 
i== 4 then p=1; else p=i+1 end
  Image
.SetPos("Image"..i+pos1[p].Xpos1[p].Y);
end

for i=1,do
  if 
Image.GetPos("Image"..i+8).== sol5.
  
and Image.GetPos("Image"..i+8).== sol5.Y then
  ala 
i+;
  elseif 
Image.GetPos("Image"..i+8).== sol6.
  
and Image.GetPos("Image"..i+8).== sol6.Y then
  ali 
i+;
  
end
end



obj5 
Image.GetFilename("Image"..ala);
obj6 Image.GetFilename("Image"..ali);


if 
obj1 == obj3 and obj2 == obj5
and obj6 == obj8 and obj4 == obj7  then
Dialog
.Message("","gooooooooooooooooood");
end 
في المربع الرابع اسفل يمين
pos1={}; for i=1,do  pos1[i] = Image.GetPos("Image"..i+12end

for i=1,do
  if 
i== 4 then p=1; else p=i+1 end
  Image
.SetPos("Image"..i+12 pos1[p].Xpos1[p].Y);
end

for i=1,do
  if 
Image.GetPos("Image"..i+12).== sol7.
  
and Image.GetPos("Image"..i+12).== sol7.Y then
  ala 
i+12 ;
  elseif 
Image.GetPos("Image"..i+12).== sol8.
  
and Image.GetPos("Image"..i+12).== sol8.Y then
  ali 
i+12 ;
  
end
end


obj7 
Image.GetFilename("Image"..ala);
obj8 Image.GetFilename("Image"..ali);


if 
obj1 == obj3 and obj2 == obj5
and obj6 == obj8 and obj4 == obj7  then
Dialog
.Message("","gooooooooooooooooood");
end 

لما تحفظ العمل يصبح لك العمل بهذا الشكل :


قم بالمعاينة و ارفعوا لنا تطبيقاتكم

 


تعلم تصميم لعبة ذكاء بشكل بسيط

English

Powered by vBulletin® Version
Copyright ©2000 - 2017, 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.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.