حساب مثلث مختلف الاضلاع

[fady65]

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

Function aretrangel(hs As Currency, l As Currency, w As Currency, h As Currency) As Currency
aretrangel = SQRT((hs * (hs - l) * (hs - w) * (hs - h)))
End Function

 

 

تم تعديل نوفمبر 13, 2022 بواسطه fady65

[بن علية حاجي]

مرحبا...

المعادلة المستعملة في الكود لا أعرفها... أما التي أعرفها واكتشفتها مؤخرا هي معادلة "هيرون" والتي صيغتها :

=SQRT(s*(s-a)*(s-b)*(s-c))
حيث: a، b، c هي أطوال أضلاع المثلث
 و s = (a + b + c)/2

وليس لي جواب آخر....

[أبوعيد]

السلام عليكم

مرحيا يك اخ fadi

شكرا لك اخ بن عليه علي هذه المعلومة

وللتوضيح :

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

مهما كانت زوايا المثلث وهذه الطريقة مفيدة جدا للناس الذين ما يعرفون الزوايا وقياساتها

 

مثال ذلك اذا اردنا معرفة مساحة ارض زراعية شكلها غير منتظم فمن الصعب حساب الزوايا بين اي ضلعين فنلجأ لمعادلة هيرون

 

[fady65]

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

اكرر شكري للجميع وأرفق لكم الكود حتى تعم الفائدة

Function aretrangel(A As Currency, B As Currency, C As Currency) As Currency
S = (A + B + C) / 2
aretrangel = Math.Sqr(S * (S - A) * (S - B) * (S - C))

 

End Function

 

[بن علية حاجي]

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

 للتوضيح فقط، الدالة Sqr لم تقبل الحساب من ناتج الصيغة وتظهر خطأ لهذا قمت بوضع ناتج الصيغة في متغير جديد T (مثلا) ثم تطبيق الدالة Sqr على القيمة T ويكون الكود بالتالي على الشكل:

 

Function aretrangel(A As Currency, B As Currency, C As Currency) As Currency
S = (A + B + C) / 2
T = S * (S - A) * (S - B) * (S - C)
aretrangel = Math.Sqr(T)
End Function

أو هكذا (دون استعمال الدالة Sqr):

Function aretrangel(A As Currency, B As Currency, C As Currency) As Currency
S = (A + B + C) / 2
aretrangel = (S * (S - A) * (S - B) * (S - C)) ^ 0.5
End Function

 

[fady65]

أخي بن علية حاجي الدالة سليمة وتقبل وسأرفق لك ملف الدالهحساب مثلثات_1.xlsx

Function ARETRANGEL(A As Currency, B As Currency, C As Currency) As Currency
S = (A + B + C) / 2
ARETRANGEL = Math.Sqr(S * (S - A) * (S - B) * (S - C))

End Function
 

[بن علية حاجي]

السلام عليكم

أنت أضفتها كأداة Add-Ins عندك وليس كمديول Module (أي ماكرو)... ولم تشتغل عندي لأنها غير موجودة من بين الأدوات Add-Ins تبعي...

[ميدو63]

الزملاء الافاضل

ممكن رفع الموديول او الـــ Add-Ins

هنا

 

شكرا

[fady65]

ارفقت لكم الملف

 

TRANGEL.xlsm