منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سلام عليكم اخي السيد الغالي
عندي سوال حول حساب المعدل
مثلا اني عندي طالب امتحن دور اول ورسب ورجع امتحن دور ثاني اريد ينقص منه 10 درجات لكل المواد يعني (عشر درجات من كل ماده)بحيث اذاكانت الدرجه من 50 الى 59 تصبح 50 واذا 60 فما فوق تنقص 10 درجات وطبعا اذا راسب ااصلا منتقص ولا درجه
شكرا لتفاعلكم معي واتمنى الاجابه

السلام عليكم
هل ان خصم 10 درجات من المعدل ؟ ام من درجات الدور الثاني لكل المواد ؟ ارجو التوضيح
تحياتي لك

من درجات المواد الدور الثاني والثالث لكل المواد
شكرا لردكم اخي السيد الغالي

اخي السيد الغالي ارجو المساعده ان امكن
If Val(Text3.Text) >= 50 And Val(Text3.Text) <= 59 Then
Text3.Text = 50
Text57.Text = Val(Text3.Text) * Val(Text6.Text)
ElseIf Val(Text3.Text) >= 60 And Val(Text3.Text) <= 100 Then
Text3.Text = Val(Text3.Text) - 10
Text57.Text = Val(Text3.Text) * Val(Text6.Text)
End If
انا حطيت هذا الكود بخصوص نقصان العشر درجات المروض اني اذا ادخل درجه 50 الى 59 تتصير 50 اذا اعلى 60 فما فوق تنقص عادي عشر درجات لكن المشكله في هذا الكود انو اي درجه جاي ادخله تصير 50 حتلو كانت اكبر من 60
اتمنى الرد باسرع وقت

السلام عليكم
تم عمل المطلوب في المرفقات 
ارجو اخباري اذا كان هذا هو المطلوب
تحياتي لك
اما بخصوص الكود الذي ارفقتيه في ردك السابق فيرجى ملاحظة التعديل
If Val(Text3.Text) >= 50 And Val(Text3.Text) <= 59 Then
Text3.Text = 50
Text57.Text = Val(Text3.Text) * Val(Text6.Text)
ElseIf Val(Text3.Text) >= 60 Then
Text3.Text = Val(Text3.Text) - 10
Text57.Text = Val(Text3.Text) * Val(Text6.Text)
End If

اشكرك جدا اخي السيد الغالي
المثال الي ذكرته حضرتك هوه المطلوب لكن جاي احاول اسوي بمشروعي مجاي ايصير ما اعرف ليش معما اني جربت نفس الشي الي حضرتك مسوي
طبعا اعتذر للاطاله
واشكر جهودكم المبذوله فعلا الله يقدركم على فعل الخير دائما
وارجو المساعده
تحياتي

ارفقي مشروعك ليتم التعديل عليه
تحياتي لك