إعـــــــلان

**يوسف البراهيم يوسف البراهيم** · 17-01-2018, 09:00 PM

المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة

من اجل الجمع

في الصفحة on show

كود PHP:


for i=1,15 do

v1= Math.Random(-9,9);

v2= Math.Random(-9,9);

som = v1+v2;

v= v1.." + "..v2 ;

Button.SetText("Button"..i, v);

Button.SetText("Button"..i+15, som);

end



sc = Page.GetObjectScript("Button1", "On Click");

for i=2,30 do

Page.SetObjectScript("Button"..i, "On Click", sc);

end



obj1=""; obj2="";

في الور الاول button1

كود PHP:


name = Button.GetProperties(this).ObjectName;





if obj1 == "" then

b1 = name;

obj1 = Button.GetText(this);

obj1 = string.gsub("$return "..obj1.."$", "%$(.-)%$", function (s) 

return loadstring(s)() end) 

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

Button.SetEnabled(this,false);

else

b2 = name ; 

obj2 = Button.GetText(this);

obj2 = string.gsub("$return "..obj2.."$", "%$(.-)%$", function (s) 

return loadstring(s)() end) 



if obj1 == obj2 then

Label.SetText("vr",  tonumber(Label.GetText("vr"))+1); 

Button.SetVisible(b1, false);  Button.SetVisible(b2, false); 

Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\yes.wav", true)

else 

Label.SetText("fl",  tonumber(Label.GetText("fl"))+1);  

Button.SetEnabled(b1,true);

Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\no.wav", true)

end



obj1="" ; obj2="";

end

لا تنسى اليال الصحيح باسم vr و الخطأ fl

ممكن تضيف زر تسميه الاعادة و ضع فيه الكود الموجود في on show الصقحة

أضفت هذه

name = Button.GetProperties(this).ObjectName;

if obj1 == "" then
b1 = name;
obj1 = Button.GetText(this);
obj1 = String.Replace(obj1,"x"," * ");
obj1 = String.Replace(obj1,"÷","/");
obj1 = string.gsub("$return "..obj1.."$", "%$(.-)%$", function (s)
return loadstring(s)() end)
-----------------------
Button.SetEnabled(this,false);
else
b2 = name ;
obj2 = Button.GetText(this);
obj2 = String.Replace(obj2,"x"," * ");
obj2 = String.Replace(obj2,"÷","/");
obj2 = string.gsub("$return "..obj2.."$", "%$(.-)%$", function (s)
return loadstring(s)() end)

if obj1 == obj2 then
Label.SetText("vr", tonumber(Label.GetText("vr"))+1);
Button.SetVisible(b1, false); Button.SetVisible(b2, false);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\yes.wav", true)
else
Label.SetText("fl", tonumber(Label.GetText("fl"))+1);
Button.SetEnabled(b1,true);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\no.wav", true)
end

obj1="" ; obj2="";
end

في الزر 1

بالنسبة للجمع و الطرح و ضبطت الامور

الله يعطيك العافية

عبد الهادي بهاب · 17-01-2018, 09:03 PM

المشاركة الأصلية بواسطة يوسف البراهيم مشاهدة المشاركة

أضفت هذه

name = Button.GetProperties(this).ObjectName;

if obj1 == "" then
b1 = name;
obj1 = Button.GetText(this);
obj1 = String.Replace(obj1,"x"," * ");
obj1 = String.Replace(obj1,"÷","/");
obj1 = string.gsub("$return "..obj1.."$", "%$(.-)%$", function (s)
return loadstring(s)() end)
-----------------------
Button.SetEnabled(this,false);
else
b2 = name ;
obj2 = Button.GetText(this);
obj2 = String.Replace(obj2,"x"," * ");
obj2 = String.Replace(obj2,"÷","/");
obj2 = string.gsub("$return "..obj2.."$", "%$(.-)%$", function (s)
return loadstring(s)() end)

if obj1 == obj2 then
Label.SetText("vr", tonumber(Label.GetText("vr"))+1);
Button.SetVisible(b1, false); Button.SetVisible(b2, false);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\yes.wav", true)
else
Label.SetText("fl", tonumber(Label.GetText("fl"))+1);
Button.SetEnabled(b1,true);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\no.wav", true)
end

obj1="" ; obj2="";
end

في الزر 1

بالنسبة للجمع و الطرح و ضبطت الامور

الله يعطيك العافية

لا تنسى ان تضيف الكود هذا في زر الاعادة لاظهار كل الازار المختفية

كود PHP:


for i=1,30 do

Button.SetVisible("Button"..i, true)

end

**يوسف البراهيم يوسف البراهيم** · 17-01-2018, 09:08 PM

المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة

لا تنسى ان تضيف الكود هذا في زر الاعادة لاظهار كل الازار المختفية

كود PHP:


for i=1,30 do

button.setvisible("button"..i, true)

end

جميل
ضبطت معاي في الجمع و الطرح و الضرب
بس القسمة مو ضابطة معاي

عبد الهادي بهاب · 18-01-2018, 06:17 PM

المشاركة الأصلية بواسطة يوسف البراهيم مشاهدة المشاركة

جميل
ضبطت معاي في الجمع و الطرح و الضرب
بس القسمة مو ضابطة معاي

للقسمة

في on show

كود PHP:


for i=1,15 do

v1= Math.Random(-9,9);

v2= Math.Random(-9,9);

som = v1*v2;

v = som.." ÷ "..v1 ;

Button.SetText("Button"..i, v);

Button.SetText("Button"..i+15, v2);

end



sc = Page.GetObjectScript("Button1", "On Click");

for i=2,30 do

Page.SetObjectScript("Button"..i, "On Click", sc);

end



obj1=""; obj2="";

**يوسف البراهيم يوسف البراهيم** · 18-01-2018, 07:00 PM

المشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة

للقسمة

في on show

كود PHP:


for i=1,15 do

v1= math.random(-9,9);

v2= math.random(-9,9);

som = v1*v2;

v = som.." ÷ "..v1 ;

button.settext("button"..i, v);

button.settext("button"..i+15, v2);

end



sc = page.getobjectscript("button1", "on click");

for i=2,30 do

page.setobjectscript("button"..i, "on click", sc);

end



obj1=""; obj2="";

الله يعطيك العافية

شكرا جزيلا

عبد الهادي بهاب · 18-01-2018, 07:13 PM

المشاركة الأصلية بواسطة يوسف البراهيم مشاهدة المشاركة

الله يعطيك العافية

شكرا جزيلا

الحمد لله على تعمته
في الخدمة

إعـــــــلان

كيفية عمل عداد يحسب الاجابات الصحيحة

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك