من سيربح المعرفة لعبة تحتاج الى تطوير

السام عليكم

أخي العزيز جرب هذه الفكرة ...

بالنسبة لاخيار السؤال ، فلو كنت فرضا تملك 3001 سؤال استخدم الدالة RNDبالشكل التالي لتختار رقم عشوائي من 0-3000:

QustionNumber=3000*RND

بعدها تحتفظ بالرقم في fieldوعندما تقوم باختيار السؤال التالي تفحص الfield

فإن وجدت أن السؤال متكرر تقوم بإخيار سؤال آخر.;)

فائدة:

والله أخي لازلت أشعر إن هذا الإسلوب يحتوي على نقص ، مثلا : عند إنتهاء الاسئلة سيدخل البرنامج في Infinit Loop. (f)

هل يمكن التوضيح

في (كيف اجعل السؤال الذي تم اختياره لا يظهر مرة اخرى )

هل يوجد حل لمثل هذا الموضوع

فكيف يمكن منع تكرار السؤال مرة ثانية اذا لم يستخدم قاعدة بينات

وكيف يمكن ان اقوم بعملية حساب لاجابات

بحيث عندما يجيب الاجابة الصحيحة يعطي درجة

وعند الاجابة الخطأ لا يعطيه درجة بل يرصد له درجة في المربع المجاور للدلالة على انه اخطأ سؤال

وكيف يمكن حساب الوقت الذي يستغرقه

للإجابة لكل سؤال وكل الاسئلة

وفي نهاية البرنامج عند طلب انهاء البرنامج يعطيني تقيم كامل للاداء كم سؤال تم الاجابة عليه وكم سؤال خطاء وكم الوقت المستغرق لكل سؤال وكم الوقت المستغرق لكل الاسئلة

انتظر افكاركم

لحساب الإجابات

dim r_answer as integer

 Private Sub Command1_Click()
r_answer = r_answer + 1
text1.text = r_answer
end sub

r_answer هوالمتغير الخاص بالأجابات الصحيحة

text1 هو مكان ظهور المتغير

command1 هو زر الأجابة الصحيحة

اقتباس

السام عليكم

أخي العزيز جرب هذه الفكرة ...

بالنسبة لاخيار السؤال ، فلو كنت فرضا تملك 3001 سؤال استخدم الدالة RNDبالشكل التالي لتختار رقم عشوائي من 0-3000:

QustionNumber=3000*RND

بعدها تحتفظ بالرقم في fieldوعندما تقوم باختيار السؤال التالي تفحص الfield

فإن وجدت أن السؤال متكرر تقوم بإخيار سؤال آخر.

فائدة:

والله أخي لازلت أشعر إن هذا الإسلوب يحتوي على نقص ، مثلا : عند إنتهاء الاسئلة سيدخل البرنامج في Infinit Loop. (f)

اخي لو ممكن ارفاق مثال

وبصورة اخص لموضوع عدم تكرار الاسئلة

أحتاج للسورس كود حج العبة هاذه

لوتكرمت أرسله لى على elfarag111@hotmail.com

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

لقد قمت بتصميم برنامج ضخم اسميته من سيربح المليون و حجمه 50 ميغا

وهو أقوى برنامج ثقافي عربي حتى الان

و أنا أتحدى أن يكون هناك أقوى منه

انتظرني قريباُ