كيف أقرب أرقام حقل ووضع الناتج في آخر ؟

[sayed fox]

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

الاخوة الاعزاء

كل عام و انتم بخير

ارفقت لكم مثال للتعديل عليه

هذا المرفق به جدول هذا الجدول يحتوي على الحقل d1 وبه ارقام وحقل td1

المطلوب تقريب الارقام الموجودة في الحقل d1 ووضع ناتج التقريب في الحقل td1

علما باني وضعت في الحقل td1 الارقام التي اريد التقريب اليها اي بمعنى ان td1 هو فعلا التاتج الذي اريده بعد التقريب

لكن للاسف لا اعرف طريقة التقريب

ارجو من الاخوة مساعدتي في ايجاد هذا الحل

لكم مني جزيل الشكر.

اخوكم سيد بدوي

[التقني]

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

قم بعمل نموذج يستند الى الجدول DD

وسيظهر لك مربعي نص هما d1 و td1 على التوالي

ظع الكود التالي في حدث عند الادخال لمربع النص td1 :

Private Sub td1_Enter()
        td1.Value = Round([d1], 1)
End Sub

عند ادخال أي قيمة جديدة سيتم تقريبها مثلا 0.978 تصبح 1 و 1.29 لتصبح 1.30 وهكذا

تم تعديل أكتوبر 22, 2006 بواسطه التقني

[sayed fox]

الاخ العزيز

شكرا على تعاونك لكن انا فعلا استخدمت هذه الدالة و لكن ناتجها ليس هو المطلوب

انا اريد التقريب كما اوضحت في المثال المرفق .

[التقني]

حياك الله أخي العزيز

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

إذن لننظر ما هي محتويات المثال:

d1    td1
1.10    1.15
1.33    1.40
0.89    0.90
1.36    1.36
1.53    1.55
4.01    4.10
1.55    1.60
1.64    1.65
1.20    1.25
2.98    3.00
3.12    3.20

الذي أعرفه في مادة الحساب أن التقريب يكون للأعلى ان كان رقم التقريب أكبر أو يساوي العدد 5 ويكون للأقل ان كان رقم التقريب أقل من 5 ومثال على ذلك :

القيمة 1.98 تصبح 2 لأن 0.08 أكبر من 0.05 .

أما ما تريده مثل تقريب 1.33 ليصبح 1.40 فأعتقد أن هذا فيه خطأ والمفترض أن تكون النتيجة 1.30 فقط .

.

ملاحظة :

الدالة Round ما هي الا امتداد لقواعد الحساب (ولا أخفيك سراً أنني سبق وأن راجعت درس التقريب مع أبني فهو مطلوب عليه ضمن منهج الحساب لذا فقد فهمت المادة واستوعبتها )

تم تعديل أكتوبر 22, 2006 بواسطه التقني