منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] تقريب رقم لأقرب رقم صحيح - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] تقريب رقم لأقرب رقم صحيح (/showthread.php?tid=11230)

تقريب رقم لأقرب رقم صحيح - aboezzat84 - 25-01-15

السلام عليكم

ارغب فى دالة لتقريب نتيجة عملية القسمة " الرقم العشري " للرقم الصحيح بغض النظر عن قيمته على سبيل المثال

10/5 = 2                        نتيجة التقريب ( الدالة ) تكون 2
10/3 = 3.33333             نتيجة التقريب ( الدالة ) تكون 4
10/6 = 1.66666             نتيجة التقريب ( الدالة ) تكون 42

مرفق المثال

جزاكم الله خير

RE: تقريب رقم لأقرب رقم صحيح - kasim alatwani - 25-01-15

(25-01-15, 01:29 PM)aboezzat84 كتب : السلام عليكم

ارغب فى دالة لتقريب نتيجة عملية القسمة " الرقم العشري " للرقم الصحيح بغض النظر عن قيمته على سبيل المثال

10/5 = 2                        نتيجة التقريب ( الدالة ) تكون 2
10/3 = 3.33333             نتيجة التقريب ( الدالة ) تكون 4
10/6 = 1.66666             نتيجة التقريب ( الدالة ) تكون 42

مرفق المثال

جزاكم الله خير

اخي العزيز
10/5 = 2 لاتحتاج الى تقريب
10/3 =3.3333 يمكن تقريبها الى 3 وليس الى 4
اما 10/6 = 1.66666 كيف يكمن تقريبها الى 42 ؟
لن تجد دالة للتقريب بهذا الشكل ابدا!!!
او اني فهمتك خطا !!
على العموم يمكن استخدام
10\3 = 3 اي استخدم (\) بدل (/) في عملية القسمة ستعطيك رقم صحيح بدون كسور عشرية . وكما قلت سابقا فان هذه العملية تقرب الى اقرب عدد صحيح وليس كما اردت في امثلتك اعلاه .

RE: تقريب رقم لأقرب رقم صحيح - الشاكي لله - 25-01-15

السلام عليكم

تستعمل الدالة Math.Round للتقريب (لا اعلم ان كانت موجودة في vb6)

RE: تقريب رقم لأقرب رقم صحيح - حريف برمجة - 25-01-15

fix تحذف الكسور . ومن ثم نقارن لو العدد اكبر بعد حذف الكسور نقوم بزيادة واحد للرقم الموجود بالتكست بوكس .
if val(text1.text) > fix(text1.text) then text1.text = val(text1.text) + 1

RE: تقريب رقم لأقرب رقم صحيح - kasim alatwani - 25-01-15

كلامك صحيح ولكن ماذا نفعل لهذا المثال 10/6 = 1.66666             نتيجة التقريب ( الدالة ) تكون 42 ؟!! هل توجد دالة لعمل ذلك ؟؟افيدونا جزاكم الله خيرا

RE: تقريب رقم لأقرب رقم صحيح - Ahmed_Mansoor - 26-01-15

أهلا , هذه دالة التقريب ضع العملية الحسابية بين القوسين :

كود :
Text1.Text = Round(10 / 1.66666)


RE: تقريب رقم لأقرب رقم صحيح - aboezzat84 - 26-01-15

السلام عليكم
اشكركم جميعا

فى البدايه اعتذر عن الخطأ فى ( 10/6 = 1.66666 نتيجة التقريب ( الدالة ) تكون 42 ) اقصد التقريب لـ 2

اعلم جيدا قواعد التقريب العاديه ولكن هذه حاله خاصة
تم التعامل معها كلآتى :
1- حفظ ناتج القسمة فى متغير وليكن X
2- الغاء الارقام بعد اللامة العشرية وليكن Y
3- المقارنه بين القميه X & Y .

جزاكم الله خير

RE: تقريب رقم لأقرب رقم صحيح - محمود رغمان - 26-01-15

لم اطلع على المثال

يمكنك استخدام دالة التقريب بالزيادة Ceiling
مثل
TextBox1.Text = Math.Ceiling(1.111)