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

طريقة مضاعفة الرقم 4 والرقم 2

مغلق
بدأه فهد الدوسري في 24 سبتمبر 2004 · 4 رد · 713 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

إجابة الأستاذ مهند على أحد أسألتي جعلني أطمع في المزيد ..

ما هي طريقة حساب الخبرات كالتالي:-

من السنة الأولى حتى الخامسة تحسب نقطة واحدة عن كل سنة .

ومن ست سنوات فما فوق تحسب نقطان عن كل سنة .

تسهيل لفهم الموضوع أنظر الكود الطويل هذا لتعرف المقصود .

هل يمكن إختصار هذا الكود عن طريقة مثلا مضاعفة الرقم 4 والرقم 2 بشروطهما المذكورة بأعلاه ؟

Select Case NumberYearPractice '  حقل عدد سنوات الخبرة
Case 0
PointPractice = 0  '  الحقل الذي يخرج فيه نقاط الخبرة
Case 1
PointPractice = 4
Case 2
PointPractice = 8
Case 3
PointPractice = 12
Case 4
PointPractice = 16
Case 5
PointPractice = 20
Case 6
PointPractice = 22
Case 7
PointPractice = 24
Case 8
PointPractice = 26
Case 9
PointPractice = 28
Case 10
PointPractice = 30
Case 11
PointPractice = 32
Case 12
PointPractice = 34
Case 13
PointPractice = 36
Case 14
PointPractice = 38
Case 15
PointPractice = 40
Case 16
PointPractice = 42
Case 17
PointPractice = 44
Case 18
PointPractice = 46
Case 19
PointPractice = 48
Case 20
PointPractice = 50
End Select

شاكراً للجميع حسن تعاونهم .

تحياتي ..

#2

UP

#3

أولاً .. السلام عليك ورحمة الله وبركاته يا أستاذنا المبدع فهد

ثانياً .. الذي فهمت من السؤال هو :

من السنة الأولى حتى الخامسة تحسب نقطة واحدة

ومن السنة السادسة وفوق تحسب نقطتان عن كل سنة بالإضافة إلى عدد نقاط السنوات الأولى

يعني إذا كانت 5 سنوات فالنقاط 5 نقاط

وإذا كانت 6 سنوات فالنقاط 7 .. لأنه السنوات الأولى بـ 5 والسادسة بـ 2 وهكذا

فإن كان فهمي صحيحاً فإليك هذا الكود

Select Case Me.txtcont
 Case 1 To 5
Me.txtDot = Me.txtcont
Case Is >= 6
    Me.txtDot = (Me.txtcont - 5) * 2 + 5
End Select

وتقبل تحياتي

#4

وعليكم السلام .. أهلا بك أستاذي أحمد .

شكرا لك على تفاعلك ( فهمك للموضوع صحيح مائه بالمائه ) ولكن الخطأ مني أنا فلم أركز في جزء من السؤال مما جعل الكود يطلع خطأ .

الخطأ هو في هذه الجزئيه .

(من السنة الأولى حتى الخامسة تحسب نقطة واحدة )

والصحيح هو :

(من السنة الأولى حتى الخامسة تحسب أربع نقاط عن كل سنه )

أكرر أسفي للجميع وأرجو أن أجد الإجابة على ما أريد .

تحياتي ..

#5

بعد أن وضعت ردي على مشاركة أستاذي أحمد طرأت لي فكره مستوحاه من كود الاستاذ أحمد وحاولت تطبيقها وقد نجحت في ذلك ولله الحمد .

هذا هو الكود بعد التعديل لمن يرد الفائدة .

Select Case Me.NumberYearPractice
Case 1 To 5
Me.PointPractice = (Me.NumberYearPractice) * 4
Case Is >= 6
   Me.PointPractice = (Me.NumberYearPractice - 5) * 2 + 20
End Select

تحياتي ..

هذا الموضوع مغلق.

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…