منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[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=10775)

الصفحات: 1 2

RE: سوال حول ايجاد المعدل - hadeel - 05-12-14

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

RE: سوال حول ايجاد المعدل - السيد الغالي - 05-12-14

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

RE: سوال حول ايجاد المعدل - hadeel - 05-12-14

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

RE: سوال حول ايجاد المعدل - hadeel - 07-12-14

اخي السيد الغالي ارجو المساعده ان امكن
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
اتمنى الرد باسرع وقت

RE: سوال حول ايجاد المعدل - السيد الغالي - 07-12-14

السلام عليكم
تم عمل المطلوب في المرفقات 
ارجو اخباري اذا كان هذا هو المطلوب
تحياتي لك
اما بخصوص الكود الذي ارفقتيه في ردك السابق فيرجى ملاحظة التعديل
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

RE: سوال حول ايجاد المعدل - hadeel - 07-12-14

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

RE: سوال حول ايجاد المعدل - السيد الغالي - 07-12-14

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