fady65 قام بنشر نوفمبر 13, 2022 مشاركة قام بنشر نوفمبر 13, 2022 (معدل) برفقه كود لحساب مساحة مثلث مختلف الاضلاع هناك خطاء في الكود بأمل شرح سبب الخطاء وكيف تتم معالجته 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 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر نوفمبر 13, 2022 مشاركة قام بنشر نوفمبر 13, 2022 مرحبا... المعادلة المستعملة في الكود لا أعرفها... أما التي أعرفها واكتشفتها مؤخرا هي معادلة "هيرون" والتي صيغتها : =SQRT(s*(s-a)*(s-b)*(s-c)) حيث: a، b، c هي أطوال أضلاع المثلث و s = (a + b + c)/2 وليس لي جواب آخر.... 3 رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر نوفمبر 13, 2022 مشاركة قام بنشر نوفمبر 13, 2022 السلام عليكم مرحيا يك اخ fadi شكرا لك اخ بن عليه علي هذه المعلومة وللتوضيح : معادلة هيرون تحسب مساحة اي مثلث بمعلومية اطوال اضلاعه الثلاثة فقط مهما كانت زوايا المثلث وهذه الطريقة مفيدة جدا للناس الذين ما يعرفون الزوايا وقياساتها مثال ذلك اذا اردنا معرفة مساحة ارض زراعية شكلها غير منتظم فمن الصعب حساب الزوايا بين اي ضلعين فنلجأ لمعادلة هيرون 1 رابط هذا التعليق شارك More sharing options...
fady65 قام بنشر نوفمبر 14, 2022 الكاتب مشاركة قام بنشر نوفمبر 14, 2022 أحسنت اخي بن عليه واخي أبو عيد هي فعلا معادلة هيرون والقصد فيها ايجاد داله لحساب مساحات الارضي ذات الاشكل غير منتظمه اكرر شكري للجميع وأرفق لكم الكود حتى تعم الفائدة 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة بن علية حاجي قام بنشر نوفمبر 15, 2022 أفضل إجابة مشاركة قام بنشر نوفمبر 15, 2022 السلام عليكم ورحمة الله للتوضيح فقط، الدالة 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 2 رابط هذا التعليق شارك More sharing options...
fady65 قام بنشر نوفمبر 15, 2022 الكاتب مشاركة قام بنشر نوفمبر 15, 2022 أخي بن علية حاجي الدالة سليمة وتقبل وسأرفق لك ملف الدالهحساب مثلثات_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 1 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر نوفمبر 15, 2022 مشاركة قام بنشر نوفمبر 15, 2022 السلام عليكم أنت أضفتها كأداة Add-Ins عندك وليس كمديول Module (أي ماكرو)... ولم تشتغل عندي لأنها غير موجودة من بين الأدوات Add-Ins تبعي... رابط هذا التعليق شارك More sharing options...
ميدو63 قام بنشر نوفمبر 22, 2022 مشاركة قام بنشر نوفمبر 22, 2022 الزملاء الافاضل ممكن رفع الموديول او الـــ Add-Ins هنا شكرا رابط هذا التعليق شارك More sharing options...
fady65 قام بنشر نوفمبر 22, 2022 الكاتب مشاركة قام بنشر نوفمبر 22, 2022 ارفقت لكم الملف TRANGEL.xlsm 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان