haniameen قام بنشر مارس 18, 2017 مشاركة قام بنشر مارس 18, 2017 أساتذي في المنتدى لديا تقرير يعرض دائرة حول درجة الطالب الأقل من النصف في المادة مثلا : درجة العربي النهائية من 100 لو كان درجة الطالب اقل من 50 يضع في التقرير دائرة وهذا تم انجازه في التقرير المرفق بالقاعدة المشكلة : نريد وضع شبه منحرف حول درجة الطالب الأقل من الربع في المادة مثلا : درجة العربي النهائية من 100 لوكان درجة الطالب اقل من 25 درجة نضع شبه منحرف حول الدرجة لندرك أن هذا الطالب لم يجتاز ربع المادة تقرير دائرة للراسب.rar رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 18, 2017 مشاركة قام بنشر مارس 18, 2017 3 ساعات مضت, haniameen said: أساتذي في المنتدى لديا تقرير يعرض دائرة حول درجة الطالب الأقل من النصف في المادة مثلا : درجة العربي النهائية من 100 لو كان درجة الطالب اقل من 50 يضع في التقرير دائرة وهذا تم انجازه في التقرير المرفق بالقاعدة المشكلة : نريد وضع شبه منحرف حول درجة الطالب الأقل من الربع في المادة مثلا : درجة العربي النهائية من 100 لوكان درجة الطالب اقل من 25 درجة نضع شبه منحرف حول الدرجة لندرك أن هذا الطالب لم يجتاز ربع المادة تقرير دائرة للراسب.rar اذا تريد ان تضع نصف دائرة ما عليك الا ان تضيف في كودك ( ,,3 ) اي يعني راح يكون هكذا Me.Circle (Me.Text0.Left + (Me.Text0.Width / 2.4), Me.Text0.Top + (Me.Text0.Height / 2.2)), 330, , 3 لكن انتبه لازم تتغير وضع شرط ئيف اي تنطي شرط اذا اقل من 25 ضيف في الكود السابق و غير شرط اذا اقل من 50 الى اقل من 50 و اكبر من 25 تحياتي 2 رابط هذا التعليق شارك More sharing options...
haniameen قام بنشر مارس 18, 2017 الكاتب مشاركة قام بنشر مارس 18, 2017 4 ساعات مضت, Shivan Rekany said: اذا تريد ان تضع نصف دائرة ما عليك الا ان تضيف في كودك ( ,,3 ) اي يعني راح يكون هكذا Me.Circle (Me.Text0.Left + (Me.Text0.Width / 2.4), Me.Text0.Top + (Me.Text0.Height / 2.2)), 330, , 3 لكن انتبه لازم تتغير وضع شرط ئيف اي تنطي شرط اذا اقل من 25 ضيف في الكود السابق و غير شرط اذا اقل من 50 الى اقل من 50 و اكبر من 25 تحياتي الصراحة أخي Shivan Rekany لم تظبط معي حاولت انفذها ولكن فشلت ممكن تطبق مثال على مادة واحدة وانا اطبق الباقي ؟؟؟؟؟؟؟ ....... ولكن هناك شخص يضع شبه منحرف على الدرجة الأقل من الربع ولكن يرفض اعطائي الطريقة واظهرها لي مطبوعة في تقرير فهل يمكن وضع شبه المنحرف مثله لتكون اوضح من نصف الدائرة رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 18, 2017 مشاركة قام بنشر مارس 18, 2017 منذ ساعه, haniameen said: الصراحة أخي Shivan Rekany لم تظبط معي حاولت انفذها ولكن فشلت ممكن تطبق مثال على مادة واحدة وانا اطبق الباقي ؟؟؟؟؟؟؟ ....... ولكن هناك شخص يضع شبه منحرف على الدرجة الأقل من الربع ولكن يرفض اعطائي الطريقة واظهرها لي مطبوعة في تقرير فهل يمكن وضع شبه المنحرف مثله لتكون اوضح من نصف الدائرة اتفضل استخدمت هكذا If Arab1 < 50 And Arab1 >= 25 Then ForeColor = 3 Me.FillStyle = 6 Me.FillColor = 14079702 DrawWidth = 5 Me.Circle (Me.Arab1.Left + (Me.Arab1.Width / 2.4), Me.Arab1.Top + (Me.Arab1.Height / 2.2)), 330 ElseIf Arab1 < 25 Then ForeColor = 3 Me.FillStyle = 6 Me.FillColor = 14079702 DrawWidth = 5 Me.Circle (Me.Arab1.Left + (Me.Arab1.Width / 2.4), Me.Arab1.Top + (Me.Arab1.Height / 2.2)), 330, , 3 End If واليك ملف الق نظرة الى مادة عربي وللعلم نستخدم رقم 1 الى 6 للدائرة مكتملة اي واحد قليلة و 6 مكتملة تحياتي تقرير دائرة للراسب (2).rar 2 رابط هذا التعليق شارك More sharing options...
haniameen قام بنشر مارس 18, 2017 الكاتب مشاركة قام بنشر مارس 18, 2017 28 دقائق مضت, Shivan Rekany said: اتفضل استخدمت هكذا If Arab1 < 50 And Arab1 >= 25 Then ForeColor = 3 Me.FillStyle = 6 Me.FillColor = 14079702 DrawWidth = 5 Me.Circle (Me.Arab1.Left + (Me.Arab1.Width / 2.4), Me.Arab1.Top + (Me.Arab1.Height / 2.2)), 330 ElseIf Arab1 < 25 Then ForeColor = 3 Me.FillStyle = 6 Me.FillColor = 14079702 DrawWidth = 5 Me.Circle (Me.Arab1.Left + (Me.Arab1.Width / 2.4), Me.Arab1.Top + (Me.Arab1.Height / 2.2)), 330, , 3 End If واليك ملف الق نظرة الى مادة عربي وللعلم نستخدم رقم 1 الى 6 للدائرة مكتملة اي واحد قليلة و 6 مكتملة تحياتي تقرير دائرة للراسب (2).rar تسلم اخي Shivan Rekany لقد تم الفهم والتطبيق بجدارة ربنا ما يحرمنا منك وجعله في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان