[vb6.0] مهم مسابقة بالفيجوال بيسك خيارين لكل سؤال - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : [vb6.0] مهم مسابقة بالفيجوال بيسك خيارين لكل سؤال (/showthread.php?tid=2583) |
مهم مسابقة بالفيجوال بيسك خيارين لكل سؤال - rdab-1 - 15-04-14 لو سمحتوا ابغى مسابقة بالفيجوال بيسك خيارين لكل سؤال 10 اسئلة النتيجة تظهر اخر المسابقة اليوم RE: مهم مسابقة بالفيجوال بيسك خيارين لكل سؤال - asto - 15-04-14 هذا مثال مرفق المهم هناك 11 لبيل 10 ليبل 1 ترتيبهم من الصفر حتى 9 و ليبل2 فوق بعضهم اسحب كل واحد منهم على جنب و اكتب سؤالك و 10 اوبتشن 1 و 10 اوبتشن 2 كل اسحب كل واحد منهم على جنب و اكتب الاحتمال لكن انتبه الاوبتشن1 للخيار 1 من السؤال و الاوبتشن2 هو الخيار الثاني من السؤال و انتبه للرقم بين قوسين يشير لرقم السؤال اكتب ضمن الاوبتشن 1 If Option1(0).Value = True Then Text2.Text = Text2.Text + 1 If Option1(1).Value = True Then Text2.Text = Text2.Text + 1 و هكذا حتى If Option1(9).Value = True Then Text2.Text = Text2.Text + 1 شرح ما اعلاه ان الاجابة على اليمين صحيحة لذا زد 1 الى النتيجة فاذا اردت ان تكون خاطئة فقط استبدل true ب false و زد 0 او اي عملية اخرى و ضمن الابتشن 2 اكواد مشابهة لكن استبدل Option1 ب Option2 |