سلام عليكم اخي السيد الغالي
عندي سوال حول حساب المعدل
مثلا اني عندي طالب امتحن دور اول ورسب ورجع امتحن دور ثاني اريد ينقص منه 10 درجات لكل المواد يعني (عشر درجات من كل ماده)بحيث اذاكانت الدرجه من 50 الى 59 تصبح 50 واذا 60 فما فوق تنقص 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
اتمنى الرد باسرع وقت
07-12-14, 12:46 PM (آخر تعديل لهذه المشاركة : 07-12-14, 12:52 PM {2} بواسطة السيد الغالي.)
السلام عليكم
تم عمل المطلوب في المرفقات
ارجو اخباري اذا كان هذا هو المطلوب
تحياتي لك
اما بخصوص الكود الذي ارفقتيه في ردك السابق فيرجى ملاحظة التعديل
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
اشكرك جدا اخي السيد الغالي
المثال الي ذكرته حضرتك هوه المطلوب لكن جاي احاول اسوي بمشروعي مجاي ايصير ما اعرف ليش معما اني جربت نفس الشي الي حضرتك مسوي
طبعا اعتذر للاطاله
واشكر جهودكم المبذوله فعلا الله يقدركم على فعل الخير دائما
وارجو المساعده
تحياتي