delphi4arab منتديات دلفي للعرب

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

عندي جدول يحتوي على الحقول التالية:

رقم المادة
رقم السؤال
تكراره
اهميته
صعوبته
المجموع
النسبة الموزونة.

التوضيح:

اقوم اعمل فلتره برقم المادة لكي تظهر جميع اسئلتها ، ويتم ادخال قيمة لكل سؤال في الحقول السابقة بحيث يتم ادخال قيمة لتكرار ، وقيمة لدرجة الاهميه ، وقيمة للصعوبه ويطلع في المجموع جمع القيم المدخلة في التكرار ، الاهمية ، الصعوبة.

السؤال كيف احسب النسبة الموزونة لكل سؤال مع العلم ان القاعدة لايجاد النسبة الموزونة كالتالي:
النسبية الموزونة عبارة عن : المجموع / المجموع الكلي(يعني اجمع كل القيمة المدخله في المجموع ) * 100
والصورة توضح ذلك
[صورة: attachment.php?attachmentid=3459&d=1336944131]

[صورة: attachment.php?attachmentid=3459&d=1336944131]

تحياتي وتقديري للجميع.

السلام عليكم
تفضل أخي،
قم بتغيير :
Table1 = إلى اسم الجدول اي تستعمله
Table1No_Total= اسم حقل المجموع
Table1No_T= اسم حقل التكرار
Table1No_Aha= اسم حقل الأهمية
Table1No_So= اسم حقل الصعوبة

كود :
// لحساب المجموع الفردي والكلي 
var
TotalMad,Prec:Double;
begin
  Table1.First;
   TotalMad:=0;
    while not Table1.Eof do
     begin
           Table1.Edit;
      Table1No_Total.Value:=Table1No_T.Value+Table1No_Aha.Value+
                Table1No_So.Value;
        Table1.Post;
       TotalMad:=TotalMad+Table1No_Total.Value;
     Table1.Next;

        end;

// لحساب النسبة الموزونة 
 Table1.First;
  while not Table1.Eof do
  begin
   Prec:=0;

   Prec:=Table1No_Total.Value/TotalMad*100;
    Table1.Edit;
      Table1Procentage.Value:=Round(Prec);
     Table1.Next;

    end;

تفضل مشروع التطبيقي للتجربة

بارك الله فيك وجزاك الله خير.

تشكر يالغالي.

ابومهند

AnoirsoftDeveloper

ابومهند