مشروع تربوي ...التعرف على الالوان

[عبد الهادي بهاب]

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

نفتح صفحة جديدة
------------------
عناصر الصفحة :

نضع قيها مجموعة صور من 1 الى 6 بالاسم العادي iamge1. image2...............image6
في الفوق نضع 9 صور نسمميها 1.2.......................9 و نضعها على شكل افقي في الااعلى تماما
نضغ اسفل منها بارغراف و ضنع لونه باهتا و اجعل لغته عربية

لاحظ الشكل الموالي

http://u.damasgate.com/001/4/xrfv4kwdqmcdb9f4coaa.png
-----------------------
تحضير مجلد الصور :

الان سنرفع من الانترنت 6 صور نرقمها من 1 الى 6 بلون معين و نضعها في مجلد و نعطيه رقم 1
نفس الشيء مع الاولوان الاخرى و كل لون في محلد بمفرده
اي اذا كان لدينا 9 الوان .........يكون لدينا 9 محلدات داخل محلد الصور كل مجلد فيه 6 صور مرقمة من 1 الى6 و كلها من نوع jpg

---------------------
الان نعود الى الصةر في الاعلى وهي 9 صور على شكل مربعات ملونة واحد احمر و الاخر ازرق ...........حسب الاوان الموجودة ......... نسمي الصور هذه بارقام حسب تسمية المجلد ..........معناه محلد الصور الزرقاء رقمه 1 فيكون تسمية الصورة المربع الازرق 1 ....وهكذا

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

الاكواد :

في on show


assia = "name = tonumber(Image.GetProperties(this).ObjectName) ; elhadi()";
for i=1,9 do
Page.SetObjectScript(i, "On Click", assia);
end

Page.ClickObject("1")



في function Global


list = {"بني","ابيض","اسود","وردي","برتقالي","اصفر","اخضر","احمر","ازرق"}
color = {"0000FF","FF0000","008000","FFFF00","FF6600","FF00FF","000000","FFFFFF","993300"};
function elhadi()

for i=1,9 do Image.SetSize(i, 77, 66) end

ali = Image.GetSize(name) ;
Image.SetSize(name ,ali.Width , ali.Height+20 ) ;

for i=1,6 do
Image.Load("Image"..i, "AutoPlay\\Images\\"..name.."\\"..i..".jpg")
end

Application.SetPageProperties("Page1",{BackgroundType=1});
Application.SetPageProperties("Page1",{GradientColorTop=Math.HexColorToNumber(color[name])});

Paragraph.SetProperties("Paragraph1", {ColorNormal = Math.HexColorToNumber(color[name])});
Paragraph.SetText("Paragraph1", list[name])
t= name;
end





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

https://up.top4top.net/downloadf-8578somf1-rar.html

بالتوفيق


معاينة
http://u.damasgate.com/001/4/5f392499mowjagv06ytl.gif

[السعيد الجزائري]

:abc_052: موفق بإذن الله ... لك مني أجمل تحية .

[عبد الهادي بهاب]

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

https://up.top4top.net/downloadf-8578somf1-rar.html

بالتوفيق

[عبد الهادي بهاب]

:abc_052: موفق بإذن الله ... لك مني أجمل تحية .

شكرا على المتابعة

[عبد الهادي بهاب]

الان اذا اردنا اضفاء توع من الحركية

اضف زر يحمل اسم او صورة play ثم ضغ فيه الكود التالي

Page.StartTimer(1000)

يحبث 1000 هي ثانية واحدة يمكن التعديل عليها

الان في onshwo نضيف name=t و بالتالي الكود يصبح كالتالي

assia = "name = tonumber(Image.GetProperties(this).ObjectName) ; t=name; elhadi()";
for i=1,9 do
Page.SetObjectScript(i, "On Click", assia);
end

Page.ClickObject("1")


الان في التايمر on timer

t=t+1;
if t > 9 then t=1 end
Page.ClickObject(t);

اضف زر اخر باسم او صورة pause وضع الكود فيه
Page.StopTimer()

عند المعاينة اضغط على زر play للتشغيل الذاتي للالوان و الزر الاخر للتوقيف

http://u.damasgate.com/001/4/ujwscwyc8urhmxv1rn26.gif

[عبد الهادي بهاب]

الان ندخل لقطة الاصوات

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

https://up.top4top.net/downloadf-857exja61-rar.html

وهو يحمل ملفات صوتية من 1 الى 9 وهي اصوات بالعربية للاولوان اي ازرق احمر ..الخ ( وهي من اصوات غوغل فقط اي مضحكة يمكن ان تغيرها للاحسن منها المهم الفكرة )

الان نضيف السطر هذا في الكود الكوجود في global function وضعه فوق كود البراغراف

Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\"..name..".MP3", true)



معاينة

[عبد الهادي بهاب]

الان .......... كيف تحول المشروع الى مسابقة اي ندمج لعبة في هذا المشروع
-------------------
نضيف زر و نسميه لعبة مثلا
نضع فيه هذا الكود بحيث نخفي الصور و ازرار التشغيل play و pause و البرارغراف و تشغيل الاسئلة من functionglobal

assia = "name = tonumber(Image.GetProperties(this).ObjectName) ;t=name; correction(); ";
for i=1,9 do
Page.SetObjectScript(i, "On Click", assia);
Image.SetVisible("Image"..i, false)
Paragraph.SetVisible("Paragraph1", false)
end
Button.SetVisible("play", false)
Button.SetVisible("pause", false)



question()

الان نضيف مصفوفة ارقام الى on preload
qus={1,2,3,4,5,6,7,8,9};


الان نضيف الكود هذا الكود الى الكود الموجودة في functionglobal

function question()
for i=1,9 do Image.SetSize(i, 77, 66) end

ala = Math.Random(1,#qus);
if #qus < 1 then qus={1,2,3,4,5,6,7,8,9}; end
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\"..ala..".MP3", true)
Table.Remove(qus,ala);
end

function correction()

if name == ala then
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\yes5.wav", true)
else
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\no3 (2).wav", true)
end
Application.Sleep(3000);
question()
end


-----------------------------
ممكن تضيف زر و تضع فيه اسم "عرض "
وهو الخاص بالعودة الى عرض الالوان
و نزرع فيه الكود
assia = "name = tonumber(Image.GetProperties(this).ObjectName) ; t=name; elhadi()";
for i=1,9 do
Page.SetObjectScript(i, "On Click", assia);
Image.SetVisible("Image"..i, true)
Paragraph.SetVisible("Paragraph1", true)
end
Button.SetVisible("play", true)
Button.SetVisible("pause", true)



Page.ClickObject("1")


بالتوفيق

[azizsoft]

جزاكم الله خيرا أخي عبد الهداي ونفع بكم :abc_022:

[عبد الهادي بهاب]

جزاكم الله خيرا أخي عبد الهداي ونفع بكم :abc_022:


شكرا و تحياتي للاخوة المشرفين على المرور و التشجيع

[حروف الزخرفة]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .