مطلوب وحدة نمطية لحساب اعداد تراكمية

[ابوخليل]

اخوتي الكرام

السلام عليكم ورحمة الله وبركاته
لدينا طالب يحفظ وجه واحد من المصحف كل يوم ويراجع ما تم حفظه
نريد حساب عدد الاوجه التي تمت مراجعتها خلال 6 أيام
اذا علمنا ان منهج المراجعة تراكمي
زيادة ايضاح : المنهج التراكمي انه يراجع اول يوم وجه واحد وفي اليوم الثاني يراجع وجهين  وفي اليوم الثالث يراجع ثلاثة اوجه وتضاف الى ما تم مراجعته بالامس لتصبح 5 اوجه
وهكذا ..فييكون حساب حصيلة اليوم السادس
مراجعة 6 اوجه + 15 وجه تحسب له لانه راجعها اي ان مجموع ما تم مراجعته خلال 6 ايام هو 21 وجها

نريد هذاه المعادلة تتم من خلال وحدة نمطية نمرر لها رقما محددا يمثل عدد ايام الحفظ 
لنستخدمها داخل الاستعلام

لا املك الوقت للتجربة والمحاولة فاحببت وضعها هنا لاساتذتي الكرام

[يوسف أحمد]

و عليكم السلام و رحمة الله و بركاته

 

اهلا باستاذنا العزيز ابو خليل .. اسأل الله ان يجعل ما تقدمه في موازين حسناتك 

 

ارجو ان يكون الحل هو ما تبحث عنه استاذنا الغالي

 

Public Function RunSum(Phases As Integer) As Integer
Static intSum As Integer
    If Phases = 1 Then intSum = 0
    RunSum = intSum + Phases
    intSum = RunSum
End Function

 

بالتوفيق

[يوسف أحمد]

حل آخر في حال اردنا ان نضع قيمة بالحقل و نحصل على الناتج    ....   لأن الطريقة السابقة تعتمد على المجموع التراكمي 

 

Public Function RunTotal(Phases As Integer) As Integer
Dim i As Integer
intSum = 0
For i = 0 To Phases
    intSum = intSum + i
   Next i
   RunTotal = intSum
End Function

 

ارجو ان يكون هو المطلوب استاذنا الغالي 

 

[رمهان]

منور استاذ يوسف

قبل ان ادلو بما يفتح الله علينا 

اعتقد ان هناك حاجة لوضع المعادلة اولا او القاعدة الصحيحية

ففي مشاركة الاستاذ ابا خليل نتيجة المراجعة في اليوم الثالث هي 5  ولديك استاذ يوسف 6 

وعودة لمشاركة الاستاذ ابا خليل حيث الناتج لليوم السادس هو 21   اعتقد هنا  ان الناتج 20  لانه كالتالي وحسب فهمي

اليوم 1 >> 1

2>> 2  وهنا حسب فهمي راجع وجه جديد مع حصيلة امس وجه واحد

3>>5

اليوم 4>> اربع اوجه + اجمالي  السابق وهي 5 = 9

اليوم 5 >> خمس اوجه + 9 = 14

اليوم 6 >> 6 +14 = 20

اليوم السابع >> 7 + 20 = 27

هذا والله اعلم

 

تم تعديل يونيو 28, 2016 بواسطه رمهان

[صالح حمادي]

السلام عليكم و رحمة الله و بركاته

الدالة التي تقدم بها أخي يوسف صحيحة و تعطي التاتج صحيح و هي تقريبا نفس الدالة اللي أنا عملتها.

Function CalculeFac(face As Integer)
Dim i As Integer
m = 0
For i = 0 To face
    m = m + i
   Next i
   CalculeFac = m
End Function

أخي رمهان الخطأ اللي أنت عملته هو في اليوم الثاني

4 ساعات مضت, رمهان said:

2>> 2  وهنا حسب فهمي راجع وجه جديد مع حصيلة امس وجه واحد

هنا يجب أن تضع وجهين في اليوم الثاني + وجه واحد حصيلة أمس.

إن شاء الله يكون هذا الحل وافي و كافي في إنتظار نصائح و إنتقادات الأستاذ أبو خليل

[ابوخليل]

10 ساعات مضت, يوسف أحمد said:

حل آخر في حال اردنا ان نضع قيمة بالحقل و نحصل على الناتج    ....   لأن الطريقة السابقة تعتمد على المجموع التراكمي 

مرحبا الف
الغبطة والسرور حين شرفنا ابو احمد بالمرور
كل سنة وانت طيب واهلك واولادك واحبابك
استاذي العزيز : الطريقة الثانية هي المطلوبة
سبحان الله الفكرة بسيطة ورائعة والتنفيذ اجمل واروع
زادك الله علما ورفعة 
عندما طرحت السؤال كنت افكر بطريقة عكسية وهي انقاص واحد ثم الجمع 

 

شكرا لاخواني على المشاركة

6 ساعات مضت, صالح حمادي said:

هنا يجب أن تضع وجهين في اليوم الثاني + وجه واحد حصيلة أمس.

 

16 ساعات مضت, ابوخليل said:

زيادة ايضاح : المنهج التراكمي انه يراجع اول يوم وجه واحد وفي اليوم الثاني يراجع وجهين  وفي اليوم الثالث يراجع ثلاثة اوجه وتضاف الى ما تم مراجعته بالامس لتصبح 5 اوجه

شكرا استاذ صالح ملاحظتك صحيحة  يوجد خطأ حيث لم يتم احتساب اليوم الأول  وعلى هذا يكون العدد الصحيح 6 اوجه

[صالح حمادي]

تقبل الله صيامكم جميعا

[يوسف أحمد]

النور بأهله استاذنا العزيز رمهان .. بارك الله فيك

 

بارك الله فيك استاذنا العزيز صالح حمادي 

 

اقتباس

 

مرحبا الف
الغبطة والسرور حين شرفنا ابو احمد بالمرور
كل سنة وانت طيب واهلك واولادك واحبابك

 

 

 

مرحباً بك و بالجميع استاذنا العزيز ابو خليل .. جزاك الله كل خير على دعواتك الطيبة لي .. و لك و للجميع بهذا المنتدى المبارك مثلها و زيادة .. 

 

الشرف لي استاذنا الغالي  

 

بالتوفيق للجميع 

تم تعديل يونيو 28, 2016 بواسطه يوسف أحمد