الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استفسار عن كود دالة if

بدأه & الأمل & في 10 ديسمبر 2010 · 4 رد · 541 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

قمت بعمل اختبار مكون من 21 سوال يقوم الطالب بالاختبار

وتم قسمتهم الى 3مجموعات لكل مجموعة اختبار اخرمساعد

بحيث اذا اخطا الطالب في

المجموعة الاولى (الثلاث الاسئلة الاولى )ينتقل الى اختبار رقم1

المجموعة الثانية (الثلاث الاسئلة من4الى6)ينتقل الى اختبار رقم2

المجموعة الثالثة (الثلاث الاسئلة من7الى12)ينتقل الى اختبار رقم3

المجموعة الاولى + الثانية ينتقل الى اختبار رقم 4

المجموعة الاولى + الثالثة ينتقل الى اختبار رقم 5

المجموعةالثانية+ الثالثة ينتقل الى اختبار رقم 6

المجموعة الاولى + الثانية +الثالثة ينتقل الى اختبار رقم 7

(طبعا الخطا يكون في سوال اواكثر من اى مجموعة)

علما انى جربت الكود التالى لكن النتيجة خاطئة

If CheckBox2.CheckState = CheckState.Checked Or CheckBox4.CheckState = CheckState.Checked Or CheckBox6.CheckState = CheckState.Checked Then

Button1.Visible = True

EndIf

If CheckBox8.CheckState = CheckState.Checked Or CheckBox10.CheckState = CheckState.Checked Or CheckBox12.CheckState = CheckState.Checked Then

Button2.Visible = True

EndIf

If CheckBox14.CheckState = CheckState.Checked Or CheckBox16.CheckState = CheckState.Checked Or CheckBox18.CheckState = CheckState.Checked Then

Button3.Visible = True

EndIf

If CheckBox8.CheckState = CheckState.Checked Or CheckBox10.CheckState = CheckState.Checked Or CheckBox12.CheckState = CheckState.Checked And CheckBox14.CheckState = CheckState.Checked Or CheckBox16.CheckState = CheckState.Checked Or CheckBox18.CheckState = CheckState.Checked Then

Button4.Visible = True

EndIf

If CheckBox2.CheckState = CheckState.Checked Or CheckBox4.CheckState = CheckState.Checked Or CheckBox6.CheckState = CheckState.Checked And CheckBox14.CheckState = CheckState.Checked Or CheckBox16.CheckState = CheckState.Checked Or CheckBox18.CheckState = CheckState.Checked Then

Button5.Visible = True

EndIf

If CheckBox2.CheckState = CheckState.Checked Or CheckBox4.CheckState = CheckState.Checked Or CheckBox6.CheckState = CheckState.Checked And CheckBox8.CheckState = CheckState.Checked Or CheckBox10.CheckState = CheckState.Checked Or CheckBox12.CheckState = CheckState.Checked And CheckBox14.CheckState = CheckState.Checked Or CheckBox16.CheckState = CheckState.Checked Or CheckBox18.CheckState = CheckState.Checked Then

Button6.Visible = True

EndIf

If CheckBox2.CheckState = CheckState.Checked Or CheckBox4.CheckState = CheckState.Checked Or CheckBox6.CheckState = CheckState.Checked And CheckBox8.CheckState = CheckState.Checked Or CheckBox10.CheckState = CheckState.Checked Or CheckBox12.CheckState = CheckState.Checked Then

Button7.Visible = True

يخرج البوتن رقم7 في كل الاحوال

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

#2

ارفعي البرنامج حتى أستطيع مساعدتك بشكل صحيح.. السؤال يلخبط لابد من رؤية البرنامج

#3

بصراحة

لم أفهم شيء أكرر ما طلبه mObd!3h

قم برفع البرنامج للتحقق وتنفيذ المطلوب

مع تحياتي

اللهم اجعلنا أهلاً لحمل رسالة العلم ونشرها

لتنعم أمة الإسلام بخير العلم ونوره

www.ijoul.com

#4

السلام عليكم

أخوتى الكرام

لقد م حل المشكلة

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

#5

لا شكر على واجب لكن أختي / أخي الكريم

لكن نرجو وضع شرح للمشكلة وحلها لكي يستفيد الجميع

مع تحياتي

اللهم اجعلنا أهلاً لحمل رسالة العلم ونشرها

لتنعم أمة الإسلام بخير العلم ونوره

www.ijoul.com

مواضيع مشابهة