طلب تحويل معادلة الى كود

[عماراللهيبي]

بسم الله الرحمن الرحيم

الاخوة الاعضاء الاعزاء ... السلام عليكم

ارفق معادلة رياضيات لقياس الحجم .. حصلت عليها من استاذي العزيز خالد المحترم

المطلوب تحويل هذه المعادلة الى كود ... والمعادلة بالملف المرفق ... وعملت واجهة فروم ستجدها بالدخول الى المطور ( فجول ) 

ولكم كل الاحترام والتقدير

ولله الحمد

تجريبي.rar

[ياسر خليل أبو البراء]

ممكن تعطينا مثال حي .. بأرقام ونتائج معمولة بشكل يدوي .. حتي نتأكد من خطوات سير الدالة

[ياسر خليل أبو البراء]

جرب هذه الدالة ..

Function VOL(Rad, Length, Height)
    Dim X, Y
    X = Application.WorksheetFunction.Acos((Rad - Height) / Rad) * 2
    Y = Sin(X) / 2
    VOL = Rad * Rad * (X - Y) * Length
End Function

[عماراللهيبي]

ممكن تعطينا مثال حي .. بأرقام ونتائج معمولة بشكل يدوي .. حتي نتأكد من خطوات سير الدالة

بسم الله الرحمن الرحيم 

الاستاذ ياسر المحترم

هذا مرفق .. به ماطلبت 

وادري مرات ان اسألتنا نحن المبتدئين مرات تشبه الطلاسم فالتفكير في حل شفرتها ساعات وحلها بثواني

نموذج.rar

تم تعديل مارس 11, 2015 بواسطه عماراللهيبي

[عماراللهيبي]

 

جرب هذه الدالة ..

Function VOL(Rad, Length, Height)
    Dim X, Y
    X = Application.WorksheetFunction.Acos((Rad - Height) / Rad) * 2
    Y = Sin(X) / 2
    VOL = Rad * Rad * (X - Y) * Length
End Function

الناتج 8416

[أحمد مرجان]

حل ممتاز ماشاء الله

[عماراللهيبي]

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

تم تعديل مارس 11, 2015 بواسطه عماراللهيبي

[عماراللهيبي]

حل ممتاز ماشاء الله

بسم الله الرحمن الرحيم 

الاستاذ احمد 

السلام عليكم

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

تم تعديل مارس 11, 2015 بواسطه عماراللهيبي

[طارق محمود]

السلام عليكم
أخي العزيز/ عماراللهيبي

بعد إذن أخونا العزيز الغالي / ياسر

============

في ملف "نموذج" 

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

بمعني أنك حين تترك المعادلة بلا محددات يبدأ معالج الإكسل في معالجة الأقواس فلها الأولوية ثم الضرب والقسمة ثم الجمع والطرح

ولنفهم ذلك أكثر ، خذ جزءا من المعادلة الخطأ بالخلية I9 ، مثلا

'=ACOS((G9/2-E9)/G9/2)

ستجد الإكسل يبدأ بحساب ماداخل القوس وهذا لاخلاف فيه

بعد ذلك يقسم الناتج علي G9 ثم يقسم الناتج مرة أخري علي 2

قسمة ÷ قسمة أي ضرب وهنا يحدث الخطأ

فإما أن تغير /2  إلي *2 وأنا لاأفضل ذلك 
وإما (وهذا الأصح) أن تستبدل كل G9/2 في المعادلة إلي (G9/2) أي بإضافة الأقواس حولها

وستجد النتيجة صحيحة

شكل المعادلة النهائي

=(G9/2)*(G9/2)*(2*ACOS(((G9/2)-E9)/(G9/2))-SIN(2*ACOS(((G9/2)-E9)/(G9/2))))/2*C9

[طارق محمود]

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

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

 

Function VOL(Rad, Length, Height)
    Dim X, Y
    X = Application.WorksheetFunction.Acos((Rad - Height) / Rad) * 2
   Y = Sin(X)
   VOL = Rad * Rad * (X - Y) /2* Length
End Function

[طارق محمود]

السلام عليكم 

بالمرفق كل ماسبق مع أمثلة

مع الفورم التي تريدها ايضا

تفضل

نموذج.rar

[ياسر خليل أبو البراء]

الباشمهندس الحبيب الغالي طارق

بارك الله فيك

نحن ما إلا قطرة في بحر علمك ..

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

وكنت على يقين بأن الدالة التي قمت بها بها خطأ ، ولذلك طلبت ناتج لعملية يدوية حتى أقوم بعملية تصحيح

عموما إذا حضر الماء بطل التيمم ..

تقبل تحياتي

[عماراللهيبي]

بسم الله الرحمن الرحيم

الاستاذ العزيز طارق المحترم

السلام عليكم 

الف شكر لك والشكر موصول للاستاذ العزيز ياسر المحترم 

اراكم انت والاخ ياسر تتسابقون للاجابة على اسئلتنا فبارك الله بكم وبعلمكم ونفع بكم 

[عماراللهيبي]

الباشمهندس الحبيب الغالي طارق

بارك الله فيك

نحن ما إلا قطرة في بحر علمك ..

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

وكنت على يقين بأن الدالة التي قمت بها بها خطأ ، ولذلك طلبت ناتج لعملية يدوية حتى أقوم بعملية تصحيح

عموما إذا حضر الماء بطل التيمم ..

تقبل تحياتي

بسم الله الرحمن الرحيم

الاخ الحبيب ياسر المحترم 

الف تحية لك وللاستاذ طارق ........اراك بارع في فك طلاسم المبتدئين ...