مقارنة

[نجوم ليبيا]

السلام عليكم ورحمة الله وبركاته
حياكم الله جميعا
واشكر هذا المنتدى و كل القائمين عليه
اليوم جهزت ملفا مفتوحا بعنوان قارن بين القطر والوتر
تفضلوا هذا هو الرابط الذي يحتوي على الملف التنفيذي و الملف القابل للتعديل و لدي استفسار
بعد ان تخبروني بما قدمت و بالله رأيكم و نقذكم شرف لي
جزاكم الله خير
http://up.top4top.net/downloadf-33bedw1-rar.html

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

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

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

فيه مشكل في الافلات ............ اي ضيقتي كثيرا مجال الافلات ......كما ان الاجابة يمكن وضعها في اي مكان في الجدول ......

كاقتراح يمكن ان تستغيضي بكثرة الاكواد و التحديد بالاختبيار مثلا بين 1 او 2 اي العمود الاول و الثاني .......و عند التحديد سيضع البرنامج الجملة في مكانها الصحيح .........

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

للتخلص من مشكل الافلات .......... الليبال مثلا A_1 و الذي هو مرجع الافلات ...... اجعليع طويلا اي ضع مثلا فيه نقط كثيرة بحيث يكون من بداية حد الجدول الى نهاية العمود الاول ........و لو كان اغلظ لكان احسن بحيث لنا تفلت في اي مكان من السطر سيجده .......ممكن تغيري االيبالات المرجعية للافلات الى انبواتات فارغة و تغغير label الى input td مع اظهار حدودها ليصبح الجدول تظهر فيه الخلايا ا .........

ثم في on mousse button نضيف كل الاحتمالات الممكنة اي ان افلت في الليبال A_2 او B_2 او C_2 فستكون اجابته صحيحة

مثال بالنسبة للجملة الاولى A_2 نضع الكود في ON MOUSSE BUTTON


if _OBJECT == "A_2" then
if (e_X > Label.GetPos("A_1").X and e_Y > Label.GetPos("A_1").Y and e_X < Label.GetPos("A_1").X + Label.GetSize("A_1").Width and e_Y < Label.GetPos("A_1").Y + Label.GetSize("A_1").Height) then
Label.SetPos("A_2", Label.GetPos("A_1").X, Label.GetPos("A_1").Y);
Label.SetEnabled("A_2", false);
Label.SetVisible("A_1", false);
Input.SetText("Input1", d+5);
Label.SetVisible("E_2", true);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\2.wma", true, false);
Image.SetVisible("a", true);
elseif (e_X > Label.GetPos("B_1").X and e_Y > Label.GetPos("B_1").Y and e_X < Label.GetPos("B_1").X + Label.GetSize("B_1").Width and e_Y < Label.GetPos("B_1").Y + Label.GetSize("B_1").Height) then
Label.SetPos("A_2", Label.GetPos("B_1").X, Label.GetPos("B_1").Y);
Label.SetEnabled("A_2", false);
Label.SetVisible("B_1", false);
Input.SetText("Input1", d+5);
Label.SetVisible("E_2", true);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\2.wma", true, false);
Image.SetVisible("a", true);
elseif (e_X > Label.GetPos("C_1").X and e_Y > Label.GetPos("C_1").Y and e_X < Label.GetPos("C_1").X + Label.GetSize("C_1").Width and e_Y < Label.GetPos("C_1").Y + Label.GetSize("C_1").Height) then
Label.SetPos("A_2", Label.GetPos("C_1").X, Label.GetPos("C_1").Y);
Label.SetEnabled("A_2", false);
Label.SetVisible("C_1", false);
Input.SetText("Input1", d+5);
Label.SetVisible("E_2", true);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\2.wma", true, false);
Image.SetVisible("a", true);

else

Label.SetPos("A_2", oldPosA.X, oldPosA.Y);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\1.WAV", true, false);
Image.SetVisible("b", true);
end
end

اي كل الاحتمالات لكل جملة .......الى العمل و ننتظر تطور المشروع عندك

[ثامر أبو بلقيس]

وعليكم السلام ورحمة الله وبركاته
جيدة هي الاعمال التي تبنى على الفكرة و الأكواد وسيلة لتنفيذها
كثيرة كانت أو قليلة فبكثرة المحاولات ستصلين بإذن الله في مشاريع قادمة
لتنفيذ أفكارك بأقل تكلفة للأكواد أشجعك كثيرا و أأمل أن أقرأ أفكارا آخرى مفيدة .
الكل مر بمرحلة الاطناب في الاكواد و كان لذلك فائدة في ترسيخها و استثمارها من جديد بشكل أحسن
شكرا . وموفقة

[ياسرهتهت]

بسم الله الرحمن الرحيم
عمل جيد مع وجود اخطاء
لان اكواد السحب والافلات بالنسبة لي صعبة
واجد في التعامل معها صعوبة

لكن انتي ماشاء الله تحتاجين بعد التركيز لتصلي لنتيجة جيدة


http://d.top4top.net/p_33sx521.gif


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

[نجوم ليبيا]

بسم الله الرحمن الرحيم
عمل جيد مع وجود اخطاء
لان اكواد السحب والافلات بالنسبة لي صعبة
واجد في التعامل معها صعوبة

لكن انتي ماشاء الله تحتاجين بعد التركيز لتصلي لنتيجة جيدة


http://d.top4top.net/p_33sx521.gif


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

وعليكم السلام ورحمة الله وبركاته
جيدة هي الاعمال التي تبنى على الفكرة و الأكواد وسيلة لتنفيذها
كثيرة كانت أو قليلة فبكثرة المحاولات ستصلين بإذن الله في مشاريع قادمة
لتنفيذ أفكارك بأقل تكلفة للأكواد أشجعك كثيرا و أأمل أن أقرأ أفكارا آخرى مفيدة .
الكل مر بمرحلة الاطناب في الاكواد و كان لذلك فائدة في ترسيخها و استثمارها من جديد بشكل أحسن
شكرا . وموفقة
بارك الله فيك استاذ هذه بدايتنا في هذا المجال ومنكم نستفيذ
بارك الله فيك على كل ماقدمته لنا نحن جمهور المعلمين:abc_152::abc_152::abc_152::abc_15 2::abc_152:

[نجوم ليبيا]

بسم الله الرحمن الرحيم
عمل جيد مع وجود اخطاء
لان اكواد السحب والافلات بالنسبة لي صعبة
واجد في التعامل معها صعوبة

لكن انتي ماشاء الله تحتاجين بعد التركيز لتصلي لنتيجة جيدة


http://d.top4top.net/p_33sx521.gif


موفق بإذن الله ... لك مني أجمل تحية .
شكرا جزيلا الحمد لله بفضل الله و من ثم هذا المنتى الذي اتاح لي طريقة السحب والافلات تحتاج لقليل من للتركيز الحمد لله اشكرك على التشجيع حفظ الله:abc_152::abc_028::abc_152::abc_028:

[نجوم ليبيا]

للتخلص من مشكل الافلات .......... الليبال مثلا A_1 و الذي هو مرجع الافلات ...... اجعليع طويلا اي ضع مثلا فيه نقط كثيرة بحيث يكون من بداية حد الجدول الى نهاية العمود الاول ........و لو كان اغلظ لكان احسن بحيث لنا تفلت في اي مكان من السطر سيجده .......ممكن تغيري االيبالات المرجعية للافلات الى انبواتات فارغة و تغغير label الى input td مع اظهار حدودها ليصبح الجدول تظهر فيه الخلايا ا .........

ثم في on mousse button نضيف كل الاحتمالات الممكنة اي ان افلت في الليبال A_2 او B_2 او C_2 فستكون اجابته صحيحة

مثال بالنسبة للجملة الاولى A_2 نضع الكود في ON MOUSSE BUTTON


if _OBJECT == "A_2" then
if (e_X > Label.GetPos("A_1").X and e_Y > Label.GetPos("A_1").Y and e_X < Label.GetPos("A_1").X + Label.GetSize("A_1").Width and e_Y < Label.GetPos("A_1").Y + Label.GetSize("A_1").Height) then
Label.SetPos("A_2", Label.GetPos("A_1").X, Label.GetPos("A_1").Y);
Label.SetEnabled("A_2", false);
Label.SetVisible("A_1", false);
Input.SetText("Input1", d+5);
Label.SetVisible("E_2", true);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\2.wma", true, false);
Image.SetVisible("a", true);
elseif (e_X > Label.GetPos("B_1").X and e_Y > Label.GetPos("B_1").Y and e_X < Label.GetPos("B_1").X + Label.GetSize("B_1").Width and e_Y < Label.GetPos("B_1").Y + Label.GetSize("B_1").Height) then
Label.SetPos("A_2", Label.GetPos("B_1").X, Label.GetPos("B_1").Y);
Label.SetEnabled("A_2", false);
Label.SetVisible("B_1", false);
Input.SetText("Input1", d+5);
Label.SetVisible("E_2", true);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\2.wma", true, false);
Image.SetVisible("a", true);
elseif (e_X > Label.GetPos("C_1").X and e_Y > Label.GetPos("C_1").Y and e_X < Label.GetPos("C_1").X + Label.GetSize("C_1").Width and e_Y < Label.GetPos("C_1").Y + Label.GetSize("C_1").Height) then
Label.SetPos("A_2", Label.GetPos("C_1").X, Label.GetPos("C_1").Y);
Label.SetEnabled("A_2", false);
Label.SetVisible("C_1", false);
Input.SetText("Input1", d+5);
Label.SetVisible("E_2", true);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\2.wma", true, false);
Image.SetVisible("a", true);

else

Label.SetPos("A_2", oldPosA.X, oldPosA.Y);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\1.WAV", true, false);
Image.SetVisible("b", true);
end
end

اي كل الاحتمالات لكل جملة .......الى العمل و ننتظر تطور المشروع عندك
فتح الله عليك استاذ زاد الله علما ساطبق ذا فورا احييك واشكرك على مجهوداتك فتح الله عليك
وفعلا هذا كان العيب في التسلية فعندما جربها قريبي قال انها لا تحل وعندما شاهدته ادركت هذا الخطأ
بارك الله فيك واشكرك على الا:abc_028::abc_152::abc_028::abc_152::abc_026 ::abc_026::abc_026::abc_026::abc_026::abc_026::abc _026::abc_026:هتمام