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

عبد الهادي بهاب · 02-02-2016, 02:30 PM

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

**نسيم الجزائر نسيم الجزائر** · 02-02-2016, 02:34 PM

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

:cool:
:abc4web_a:

:teslam:

**الهمام الهمام** · 02-02-2016, 03:25 PM

ممتاز جدا

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

**فرح صالحي فرح صالحي** · 02-02-2016, 03:25 PM

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

عبد الهادي بهاب · 02-02-2016, 03:29 PM

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

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

كود PHP:


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

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

عبد الهادي بهاب · 02-02-2016, 03:35 PM

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

كود PHP:


if Input.GetText("22") == "" then-------vide------------

   Dialog.Message("انتبه", "انت لم تكتب شيئا", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1);

 end

عبد الهادي بهاب · 02-02-2016, 03:36 PM

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

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

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

كود PHP:


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

عبد الهادي بهاب · 02-02-2016, 03:38 PM

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

عبد الهادي بهاب · 02-02-2016, 03:42 PM

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

كود PHP:


String.Replace(Input.GetText("Input"..i), " " ,"")

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

كود PHP:


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

**نجوم ليبيا نجوم ليبيا** · 02-02-2016, 08:19 PM

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

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

كود PHP:


String.Replace(Input.GetText("Input"..i), " " ,"")

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

كود PHP:


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

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

**نجوم ليبيا نجوم ليبيا** · 02-02-2016, 08:37 PM

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

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

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

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

كود PHP:


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

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

الملفات المرفقة

2.PNG (33.0 كيلوبايت, مشاهدة 1)

عبد الهادي بهاب · 02-02-2016, 08:43 PM

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

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

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

عبد الهادي بهاب · 02-02-2016, 08:47 PM

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

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

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

عبد الهادي بهاب · 02-02-2016, 08:49 PM

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

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

كلمة السر

كلمة السر

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك