مطلوب تطوير المعادلة الرياضية لبرنامج طرحته سابقاً

أخي الكريم انا لان لايوجد عندي فيجيول بيسك يمكن وضعها على أكسس وابشر بسعدك

اقتباس

أخي الكريم انا لان لايوجد عندي فيجيول بيسك يمكن وضعها على أكسس وابشر بسعدك

حياك الله أخوي { مفرج }

وسعدت بعونك لي ..

بس أنا ما فهمت شو دخل الأكسس بمشكلتي الحالية :blink: ؟!!

على العموم مازلت بإنتظار عونكم جميعاً أخوتي الأحبة :)

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

الاخ المدمر

هناك تناقد في عملية شرحك للمشكلة

انت تقول ان البرنامج يتاكد في كل مرة هل القيمة اكبر من 3000

ولكن المثال المرفق في الصورة الثانية يقول غير ذلك

فهنا القيمة هي 5250 فعندما تطرح منها 3000 يكون الباقي 2250 فهي ليست اكبر من 3000

اذا كان من المفترض ان توضع ال 2250 كلها لماذا قسمت الى 2000 و 250

او ان الشرط الاول غير صحيح

عموما انا قمت بعمل مثال مرفق ارجو ان يكون يلبي طلبك

انا في انتظار النتائج

السلام عليكم

EXA.zip

أخي { مختار }

بداية أشكرك جزيل الشكر لمد يد العون لي..

وبصراحة أنت أقتربت كثيراً من الحل ... ولقد عدلت فيه قدر الإمكان .. وتقريباً أجده شغال معي تمام التمام ومع ذلك أرفق لك المثال ، لعلك تجد فيه شيء سهوت أنا عنه ...

وجل من لا يسهو

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

أنني كنت أقوم بنسخ العبارة ولصقها ، تمهيداً لتعديلها فيما بعد .. إلا أنني عدلت الجزء الخاص بالنسب العشرية ونسيت قيمة الشرائح الرئيسية

والآن سأوضح ما في الصور التالية

كما تلاحظ أخي بأنه ناتج عملية الطرح = 19389 ( ولنسميه الناتج الرئيسي )

والناتج أكبر من 3000 عندها يقوم بوضع شرائح 5 ثابتة :-

الشريحة الأولى يأخذ من الناتج الرئيسي 3000 ويضربها في 0.010 ويطلع ناتج الضرب

ثم في الشريحة الثانية لو وجد أن الناتج الرئيسي أكبر من 2000 عندها يأخذ منه 2000 ويضربها في 0.015

وفي الشريحة الثالثة إذا ما زال الناتج الرئيسي أكبر من 2000 سيطرح منها 2000 أخرى ويضربها في 0.020

وفي الشريحة الرابعة يهتم بأن تكون القيمة أكبر من 3000 فلو كانت أقل لن يكمل للشريحة الخامسة بل يعتبر هذا المتبقي فيتوقف ويضربها في 0.025

ولوالناتج الرئيسي أكبر من 3000 يكمل نفس العملية يطرح منها 3000 ويضربها في 0.025 ثم ينتقل للشريحة الخامسة والتي تعتبر المتبقي من الناتج ومهما تكون القيمة فيها يضربها في 0.030

وهذا ما تجده في الصورة الملخصة

وفي الأخير لا يسعني إلا شكرك مجدداً ...

وخالص إحترامي وأطيب تحياتي لشخصك الكريم

أخوك / المدمر007

EXA.rar

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

اخي العزيز المدمر

لا شكر على واجب تفضل اي وقت

ماشاء الله عليك انت عدلت الكود وصار يلبي طلبك لكني انصح بان تعيد وضع كلمة clear في بداية حدث الزر لكي يقوم بمسح كل محتوايات مربعات النص للعملية السابقة :rolleyes:

Private Sub Command1_Click()
clear
Text3.Text = Val(Text2.Text) - Val(Text1.Text)

السلام عليكم

مرحباً أخي { مختار }

لقد طبقت ما قلته من إضافة الـClear

ودمتم بألف عافية يالغالي :) ...