كيف تبرمج بمفردك الحق التناسبي بواسطة برنامج الاكسل
افتح برنامج الاكسل
ثم اضغط على ادوات ثم اختر ماكرو ثم محرر الفيزيال بازيك بعد ما يفت برنامج الفيزيال
اختر insert ثم اختر module سوف تفتح لك نافذة بيضاء
الان قم باختيار اسم للدالة التي تريد برمجتها مثلا tanaseb
الان قم بكتابة الكود التالي
function tanaseb ( x as double )
هنا قمنا بادراج دالة سميناها تناسب ذات المجهول اكس وكتبنا دوبل لان قيمة المجهول اكس قد تكون عشرية ليست حقيقية اي عدد بالفاصل
الان سوف نسنعمل دالة اسمها إف ذان اي if then و هي دالة شرطية بمعنى اذا كانت قيمة س كذا اذا قم بكذا
وذلك لان لدينا المبالغ التي نحسب عليها الحق التناسبي مختلفة وبالتالي فكلما اعطينا المجهول قيمة من اي مبلغ فان الدالة تناسب ستحسب النتيجة بالشرط الذي نعطيه
قم الان بعد الكود السابق بكتابة ما يلي:
if x>=0 and x<=3000 then
tanaseb=x*0.1+ 350
هنا قلنا لبرنامج الفيزيال بازيك انه اذا كانت قيمة اكس اكبر او تساوي و اكس اصغر او تساوي 300 اذا
الدالة تناسب تساوي قيمة اكس مضروبة في عشرة بالمائة زائد قيمة ثابتة تساوي 350 دج
القيمة 3000 مضروبة في 10 بالمائة تساوي 300 دج
بعد السطر السابق نكتب الكود التالي
if x>=300 and <=600 then
tanaseb=(x-300)*0.08 +650
اكملوا الباقي الى اخر نسبة
بعدها ارجع الى صفة الاكسل قم بانشاء خانتين اجعل لهم مظهر جيد واحدة اكتب بجانبها المبلغ المراد حسابه والاخرى اكتب بجانبها الحق التناسبي
الان قم بالنقر مرتين على الخانة التي وضعت بجانبها الحق التناسبي وضغط على علامة الدالة بالاعلى بجانب الشريط fx سوف تفتح لك قائمة بها جميع الدوال المبرمجة مع برنامج الاكسل اضغط على كلمة الكل ثم ابحث عن اسم دالتك تناسب
بعدما تجدها اضغط عليها سوف تظهر لك علبة حوار تطلب منك الخانة التي تريد ان تجري لها الحساب بواسطة هذه الدالة اختر بواسطة الماوس الخانة التي وضعتها بجانب عبارة المبلغ المراد حسابه
الان لقد قمت ببرمجة برنامجك جرب الان اي مبلغ تضعه في الخانة الاولى سوف يظهر لك مبلغ الحق التناسبي في الخانة الثانية
بالتوفيق ان شاء الله
كما توجد الطريقة التي وضعها الاخ ابراهيمي بدون اللجوء الى برمجة دالة
إمضاء الاستاذ طالب اعماره
