كلمة السر

[نجوم ليبيا]

السلام عليكم ورحمة الله وبركاته
أسعد الله أوقاتكم جميعا
ضمن دروس الفصل الثاني اعددت تسلية صغيرة و هي بعنوان كلمة السر
حيث يقوم التلميذ بالاجابة الصحيحة الخمس و ثم يضغط على زر التحقق من نتائجه في حالة كتب الاجابات صحيحة سيتم حذف الحروف التي تعبر عن تلك الاجابات وسيتبقى 5 حروف يرتب الحروف و يكتب الاجابة في الصندوق الاصفر المخصص و يضغط على زر التحقق من الاجابة اتمنى ان تجربوه
وهذا هو الرابط
http://up.top4top.net/downloadf-31ieik1-rar.html
يحتوي على الملف على ملفين وهما نوعين
احدهما بامتدادapz وهو الملف القابل للتعديل الذي اعددته لمستخدمي برنامج الاوتوبلاي لكي يستطيعوا التعديل عليه
اما الثاني : ملف تنفيذي يشتغل بدون الحاجة لبرنامج الاوتوبلاي بامتدادexeوهو خاص للتلاميذ و اولياء امورهم وللمعلمات

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

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

[نسيم الجزائر]

ابداااااااااااااااااااااا ااااااااااااااع برنامج تربوي مفيد يعود على التلامبذ بالفائدة شكرا :abc_152:
:cool:
:abc4web_a:

:teslam:

[الهمام]

ممتاز جدا

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

[فرح صالحي]

جزاك الله خيرا كثيرا
:abc_152:

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

السلام عليكم ورحمة الله وبركاته

يمكن اضافة هذا الكود في En Entre في زر تحقق من الجواب

for p=1,5 do
if Input.GetText("Input"..p) == "" then-------vide------------
Dialog.Message("ÇäÊÈå", " ÇáÎÇäÉ ÑÞã"..p.." ÝÇÑÛÉ", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
break ;
end
end

وهو من اجل الاشارة الى الخانة الفارغة

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

و في زر تحقق من جوابك ........في on entre

if Input.GetText("22") == "" then-------vide------------
Dialog.Message("انتبه", "انت لم تكتب شيئا", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);
end

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

نجعل الاجابات في مصفوفة
joib={"وتر","نق","قوس","نقطة","قطر"};

ثم نقارن كل انبوت بالعنصر من المصفوفة حسب رقمها


في on clik في زر تحقق من الجواب


joib={"وتر","نق","قوس","نقطة","قطر"};
for i=1,5 do
if Input.GetText("Input"..i) == joib[i] then ---------true----------------
Input.SetProperties("Input"..i,{BackgroundColor = Math.HexColorToNumber("008000")})---COLOR
Input.SetProperties("Input"..i,{FontColor = Math.HexColorToNumber("FFFFFF")})
g=1;
----------
elseif Input.GetText("Input"..i) ~= joib[i] then
Input.SetProperties("Input"..i,{FontColor = Math.HexColorToNumber("FF0000")})
Input.SetProperties("Input"..i,{BackgroundColor = Math.HexColorToNumber("FFFF00")})
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\4444.WAV", true, false);
g=0;
end
end


if g==1 then
Input.SetVisible("22", true);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\444.wma", true, false);
Image.SetVisible("Image1", false);
Label.SetVisible("12", true);
Button.SetVisible("23", true);
Input.SetVisible("22", true);
for ii=6,21 do
Button.SetVisible("Button"..ii, false);
end
end

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

فيه ملاحظة اخرى ...... اجعلي عرض الصفحة اكثر مثلا 600 حتى تتخلصي من رسالة يوجد بعض الازرار خارج مجال الصفحة
:abc_152::abc_152:

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

اذا كتب المستخدم مسافة ثم الجواب مثلا ( وتر) فالبرنامج يحتسبه خطا رغم ان الجواب صح
كيف نفعل ......... نجعل في زر التحقق يحذف المسافة البيضاء
عبر الكود هذا
String.Replace(Input.GetText("Input"..i), " " ,"")

لذلك يصبح الزر


joib={"æÊÑ","äÞ","ÞæÓ","äÞØÉ","ÞØÑ"};
for i=1,5 do
if String.Replace(Input.GetText("Input"..i), " " ,"") == joib[i] then ---------true----------------
Input.SetProperties("Input"..i,{BackgroundColor = Math.HexColorToNumber("008000")})---COLOR
Input.SetProperties("Input"..i,{FontColor = Math.HexColorToNumber("FFFFFF")})
g=1;
----------
elseif String.Replace(Input.GetText("Input"..i), " " ,"") ~= joib[i] then
Input.SetProperties("Input"..i,{FontColor = Math.HexColorToNumber("FF0000")})
Input.SetProperties("Input"..i,{BackgroundColor = Math.HexColorToNumber("FFFF00")})
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\4444.WAV", true, false);
g=0;
end
end


if g==1 then
Input.SetVisible("22", true);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\444.wma", true, false);
Image.SetVisible("Image1", false);
Label.SetVisible("12", true);
Button.SetVisible("23", true);
Input.SetVisible("22", true);
for ii=6,21 do
Button.SetVisible("Button"..ii, false);
end
end

[نجوم ليبيا]

اذا كتب المستخدم مسافة ثم الجواب مثلا ( وتر) فالبرنامج يحتسبه خطا رغم ان الجواب صح
كيف نفعل ......... نجعل في زر التحقق يحذف المسافة البيضاء
عبر الكود هذا
String.Replace(Input.GetText("Input"..i), " " ,"")

لذلك يصبح الزر


joib={"æÊÑ","äÞ","ÞæÓ","äÞØÉ","ÞØÑ"};
for i=1,5 do
if String.Replace(Input.GetText("Input"..i), " " ,"") == joib[i] then ---------true----------------
Input.SetProperties("Input"..i,{BackgroundColor = Math.HexColorToNumber("008000")})---COLOR
Input.SetProperties("Input"..i,{FontColor = Math.HexColorToNumber("FFFFFF")})
g=1;
----------
elseif String.Replace(Input.GetText("Input"..i), " " ,"") ~= joib[i] then
Input.SetProperties("Input"..i,{FontColor = Math.HexColorToNumber("FF0000")})
Input.SetProperties("Input"..i,{BackgroundColor = Math.HexColorToNumber("FFFF00")})
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\4444.WAV", true, false);
g=0;
end
end


if g==1 then
Input.SetVisible("22", true);
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\444.wma", true, false);
Image.SetVisible("Image1", false);
Label.SetVisible("12", true);
Button.SetVisible("23", true);
Input.SetVisible("22", true);
for ii=6,21 do
Button.SetVisible("Button"..ii, false);
end
end


رائع جدا ماقدمته من حلول كنت ابحث عنها بارك الله فيك فعلا مبدع جزاك الله الجنة و فتح الله عليك :abc_026:

[نجوم ليبيا]

نجعل الاجابات في مصفوفة
joib={"وتر","نق","قوس","نقطة","قطر"};

ثم نقارن كل انبوت بالعنصر من المصفوفة حسب رقمها


في on clik في زر تحقق من الجواب


joib={"وتر","نق","قوس","نقطة","قطر"};
for i=1,5 do
if input.gettext("input"..i) == joib[i] then ---------true----------------
input.setproperties("input"..i,{backgroundcolor = math.hexcolortonumber("008000")})---color
input.setproperties("input"..i,{fontcolor = math.hexcolortonumber("ffffff")})
g=1;
----------
elseif input.gettext("input"..i) ~= joib[i] then
input.setproperties("input"..i,{fontcolor = math.hexcolortonumber("ff0000")})
input.setproperties("input"..i,{backgroundcolor = math.hexcolortonumber("ffff00")})
audio.load(channel_narration, "autoplay\\audio\\4444.wav", true, false);
g=0;
end
end


if g==1 then
input.setvisible("22", true);
audio.load(channel_narration, "autoplay\\audio\\444.wma", true, false);
image.setvisible("image1", false);
label.setvisible("12", true);
button.setvisible("23", true);
input.setvisible("22", true);
for ii=6,21 do
button.setvisible("button"..ii, false);
end
end

عندما طبقت ذلك على الملف لم افلح وظهرت لي هذه الصورة

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

رائع جدا ماقدمته من حلول كنت ابحث عنها بارك الله فيك فعلا مبدع جزاك الله الجنة و فتح الله عليك :abc_026:

فكرة جميلة جدا ............ استاذة ......طبعا نحن دائما ندعم بما اوتينا من علم في هذا البرنامج العملاق ........
فيه فكرة ......لماذا لا تبقى الصفحة كما هي لكن تتغير الاسئلة بعد ايجاد كلمة السر ........ اي مثلا ......ضعي في Listbox الاسئلة و التي منها نغيير الاسئلة الخمس كبداية 6 ليس بوكس كل منها يغدي جملة مع نفس الرقم ..... ثم في زر الجواب نوسع المصفوفات التي تحمل الاجابات
حاولي و لنا عودة للتصحيح و التعديل
..........
حاولي وضع الاسئلة بالاجابات في ملفtxt وحمليه هنا لاحاول انا بدوري
---------
تحياتي :abc_022::abc_022:

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

عندما طبقت ذلك على الملف لم افلح وظهرت لي هذه الصورة

http://up.top4top.net/downloadf-32428m1-rar.html

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

فيه ملاحظة نسيت ان ادرجها ........تغيير ارقام الازار .......الازرار الخمس الباقية يجب ان تكون 1.2.3.4.5 و التي تختفي من 6 حتى20
لقد غيرتها في الملف المفتوح

[نجوم ليبيا]

فكرة جميلة جدا ............ استاذة ......طبعا نحن دائما ندعم بما اوتينا من علم في هذا البرنامج العملاق ........
فيه فكرة ......لماذا لا تبقى الصفحة كما هي لكن تتغير الاسئلة بعد ايجاد كلمة السر ........ اي مثلا ......ضعي في Listbox الاسئلة و التي منها نغيير الاسئلة الخمس كبداية 6 ليس بوكس كل منها يغدي جملة مع نفس الرقم ..... ثم في زر الجواب نوسع المصفوفات التي تحمل الاجابات
حاولي و لنا عودة للتصحيح و التعديل
..........
حاولي وضع الاسئلة بالاجابات في ملفtxt وحمليه هنا لاحاول انا بدوري
---------
تحياتي :abc_022::abc_022:

جزاك الله خيرا فعلا والله فتح الله عليك وزادك الله علما
:abc_152::abc_152::abc_152::abc_152::abc_152::abc_ 152::abc_152::abc_026::abc_026::abc_026::abc_026:

[سمسم يو]

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