مساعده يا اهل الخير.....الرجاء الدخول الاهمية القصوا

حتى نستخدم متحولات عشوائية أي اختيار سؤال من عدة أسئلة نكتب الشيفرة داخل timer ونكرر العملية حسب عدد الأسئلة

والشيفرة قد تكون مطولة نوعا ما ولكن خذ الفكرة لتبدأ بتطويرها

x:=random(10);

x:=x+10;

case x of

10:begin

Label2.Caption:=' أيهما أكثر في دم الإنسان';

Label1.Caption:=' كريات الدم البيضاء أم كريات الدم الحمراء';

panel3.Caption:=' كريات الدم البيضاء';

panel4.Caption:=' كريات الدم الحمراء';

panel5.Caption:=' نفس العدد تقريباً';

end;

11:begin

Label2.Caption:=' أيهما أثقل ';

Label1.Caption:=' طن فحم أم طن ريش';

panel3.Caption:=' طن ريش';

panel4.Caption:=' طن فحم';

panel5.Caption:=' نفس الوزن';

end;

12:begin

Label2.Caption:=' أيهما فقرات رقبته أكثر';

Label1.Caption:=' الزرافة أم الفأر';

panel3.Caption:=' الفأر';

panel4.Caption:=' الزرافة';

panel5.Caption:=' نفس العدد';

end;

13:begin

Label2.Caption:=' قديماً';

Label1.Caption:=' ماذا كان يسمى يوم الخميس';

panel3.Caption:=' عروبة';

panel4.Caption:=' دبار';

panel5.Caption:=' أرل';

end;

14:begin

Label2.Caption:=' ما إسم';

Label1.Caption:=' أكبر شبه جزيرة في العالم';

panel3.Caption:=' شبه جزيرة سيناء';

panel4.Caption:=' شبه جزيرة إيطاليا';

panel5.Caption:=' شبه الجزيرة العربية ';

end;

15:begin

Label2.Caption:=' أيهما أسرع';

Label1.Caption:=' الجمل أم الفيل';

panel3.Caption:=' الفيل';

panel4.Caption:=' الجمل';

panel5.Caption:=' نفس السرعة';

end;

16:begin

Label2.Caption:=' أيهما أسرع';

Label1.Caption:=' الأسد أم الحصان';

panel3.Caption:=' الحصان';

panel4.Caption:=' الأسد';

panel5.Caption:=' نفس السرعة تقريباً';

end;

17:begin

Label2.Caption:=' أيهما يصل إلى الأرض أولاً';

Label1.Caption:=' إذا وقفت فوق بناية وألقيت فلساًوحجراًكبيراً بنفس الوقت';

panel3.Caption:=' الفلس';

panel4.Caption:=' الحجر الكبير';

panel5.Caption:=' يصلان معاً';

end;

18:begin

Label2.Caption:=' قديماً';

Label1.Caption:=' ماذا كان يسمى يوم الأربعاء';

panel3.Caption:=' عروبة';

panel4.Caption:=' دبار';

panel5.Caption:=' أرل';

end;

19:begin

Label2.Caption:=' قديماً';

Label1.Caption:=' ماذا كان يسمى يوم الأحد';

panel3.Caption:=' عروبة';

panel4.Caption:=' دبار';

panel5.Caption:=' أرل';

end;

حيث random(10);اختيار سؤال من عدة عشرة أسئلة

label1,label2 صيغة السؤال

panel اختيار الجواب

بسم الله الرحمن الرحيم

اخي العزيز MSA

بداية ارحب بك معنا في المنتدى

وإن شاء الله تجد فيه مايفيدك وينفعك

وآسف على الرد المتأخر

على العموم

بالنسبة لسؤالك فأرجوا منك التوضيح

حيث اني لم اعرف كيف تريد عدم التكرار

هل تريد في طرح الأسئلة ام تريدها في ادخال الأسئلة !!!

وطبعاً لا اعرف هل انت استخدمت قواعد البيانات في ادخال الاسئلة ام قمت بأدخالها برمجيا كما في طريقة الأخ ماهر ( جراه الله خير )

ارجوا منك التفصيل

وقبل النهاية اشكر الأخ ماهر على مشاركة الجميلة

والى الأمام

وتقبلوا اطيب تحياتي اخوكم SUM