مشاهدة النسخة كاملة : كيفية عمل عداد يحسب الاجابات الصحيحة
يوسف البراهيم
07-01-2018, 07:19 AM
السلام عليكم
كيفية عمل عداد يحسب الإجابات الصحيحة و الإجابات الخاطئة
يوجد ملف مفتوح ولكن ليس كامل
http://gulfup.co/4u6x6c43a75t
عبد الهادي بهاب
07-01-2018, 05:41 PM
السلام عليكم
كيفية عمل عداد يحسب الإجابات الصحيحة و الإجابات الخاطئة
يوجد ملف مفتوح ولكن ليس كامل
http://gulfup.co/4u6x6c43a75t
اسف .لم يفتح عندي الملف المضغوط
عبد الهادي بهاب
07-01-2018, 05:42 PM
ممكن اعد الضغط ثم اتحميل
عبد الهادي بهاب
07-01-2018, 06:00 PM
المهم ............. في كود التصحيح .....في حالة الصح ضع ليبال مثلا ياسم vr .فيكون الكود في حالة الصح
Label.SetText("vr", tonumber(Label.GetText("vr"))+1);
و تفسه ضعه في الخطا فقط غير اسم اليبال
عبد الهادي بهاب
07-01-2018, 06:02 PM
مثلا : تمرين رياضيات
label1 + label2 = input1
اي سنعرض في البيالات قيم مختلفة و المستخدم يجيب بكنابة المجموع في الانيوت
---------------------------
https://up.top4top.net/downloadf-737y491k1-rar.html
-----------------------
الاكواد في زر التصحيح
يوسف البراهيم
07-01-2018, 06:09 PM
ممكن اعد الضغط ثم اتحميل
هذا الملف عزيزي
http://www.m5zn.com/d/?16803820
عبد الهادي بهاب
07-01-2018, 06:35 PM
هذا الملف عزيزي
http://www.m5zn.com/d/?16803820
الحل كما ذكرت في المشاركة 4
يوسف البراهيم
07-01-2018, 06:49 PM
الحل كما ذكرت في المشاركة 4
ما ضبطت معاي
اشرح لي
او سوها
يوسف البراهيم
07-01-2018, 07:53 PM
الحل كما ذكرت في المشاركة 4
رحم الله والديك
ضبط عندي
الف شكر
عبد الهادي بهاب
07-01-2018, 08:24 PM
ما ضبطت معاي
اشرح لي
او سوها
اذن ...................
امسح كل الكواد الكوجودة في الازار كلها كلها من 1 الى 30
تمام ؟؟؟؟؟؟؟؟؟
-----------------------
الان في الزر رقم 1 فقط ضع الكود التالي
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
--------------------------------
تمام ؟؟؟؟؟؟؟
------------------------
الان في الصفحة on show
sc = Page.GetObjectScript("Button1", "On Click");
for i=2,30 do
Page.SetObjectScript("Button"..i, "On Click", sc);
end
obj1=""; obj2="";
---------------------------------------
غير اسم الليبال للصح بـ vr
و اسم ليبال الخطأ بـ fl
---------------------------------------------
ثم جرب
يوسف البراهيم
08-01-2018, 08:13 AM
الله يعطيك العافية يا غالي
يوسف البراهيم
17-01-2018, 06:46 PM
اذن ...................
امسح كل الكواد الكوجودة في الازار كلها كلها من 1 الى 30
تمام ؟؟؟؟؟؟؟؟؟
-----------------------
الان في الزر رقم 1 فقط ضع الكود التالي
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
--------------------------------
تمام ؟؟؟؟؟؟؟
------------------------
الان في الصفحة on show
sc = Page.GetObjectScript("Button1", "On Click");
for i=2,30 do
Page.SetObjectScript("Button"..i, "On Click", sc);
end
obj1=""; obj2="";
---------------------------------------
غير اسم الليبال للصح بـ vr
و اسم ليبال الخطأ بـ fl
---------------------------------------------
ثم جرب
عزبزي
في هذا الملف
http://www.m5zn.com/d/?16803820
أو من
http://gulfup.co/4u6x6c43a75t
كيف اجعل الاسئلة تتغير كل مرة يدخل الطالب ( عشوائية ) بحيث تكون العملية فقط جمع
و تكون الاعداد موجبة و سالبة ( أعداد صحيحة )
ملف ثاني يكون فقط طرح
ملف ثالث يكون فقط ضرب
ملف رابع يكون فقط قسمة
عبد الهادي بهاب
17-01-2018, 07:32 PM
عزبزي
في هذا الملف
http://www.m5zn.com/d/?16803820
أو من
http://gulfup.co/4u6x6c43a75t
كيف اجعل الاسئلة تتغير كل مرة يدخل الطالب ( عشوائية ) بحيث تكون العملية فقط جمع
و تكون الاعداد موجبة و سالبة ( أعداد صحيحة )
ملف ثاني يكون فقط طرح
ملف ثالث يكون فقط ضرب
ملف رابع يكون فقط قسمة
من اجل الجمع
في الصفحة on show
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
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 الصقحة
يوسف البراهيم
17-01-2018, 07:50 PM
من اجل الجمع
في الصفحة on show
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
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 الصقحة
تطلع لي رسالة
خطأ
مع كل الازرار
مع أن يحسب في العداد بأن النتيجه صح
عبد الهادي بهاب
17-01-2018, 07:58 PM
تطلع لي رسالة
خطأ
مع كل الازرار
مع أن يحسب في العداد بأن النتيجه صح
تاكذ من تسميات البيالات الخطا و الصح ...........و تسميات الملفات الصوتية
يوسف البراهيم
17-01-2018, 08:00 PM
من اجل الجمع
في الصفحة on show
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
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, 08: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
بالنسبة للجمع و الطرح و ضبطت الامور
الله يعطيك العافية
لا تنسى ان تضيف الكود هذا في زر الاعادة لاظهار كل الازار المختفية
for i=1,30 do
Button.SetVisible("Button"..i, true)
end
يوسف البراهيم
17-01-2018, 08:08 PM
لا تنسى ان تضيف الكود هذا في زر الاعادة لاظهار كل الازار المختفية
for i=1,30 do
button.setvisible("button"..i, true)
end
جميل
ضبطت معاي في الجمع و الطرح و الضرب
بس القسمة مو ضابطة معاي
عبد الهادي بهاب
18-01-2018, 05:17 PM
جميل
ضبطت معاي في الجمع و الطرح و الضرب
بس القسمة مو ضابطة معاي
للقسمة
في on show
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, 06:00 PM
للقسمة
في on show
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, 06:13 PM
الله يعطيك العافية
شكرا جزيلا
الحمد لله على تعمته
في الخدمة
vBulletin® v3.8.11, Copyright ©2000-2024, abohmam