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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [كود] تقريب رقم (/showthread.php?tid=18047)



تقريب رقم - Ahmed Abdulla - 16-11-16

السلام عليكم

أريد مساعدة في كود أو داله تقريب أخر رقم الي 0  

مثال
الرقم 245 أريد هذا الرقم ليكون 240 

ولكم جزيل الشكر


RE: تقريب رقم - محمود بكرى - 16-11-16

اخى هذا ليس تقريب حيث ال 245 لو تم تقريبها لاقرب صفر تعطى 250 فهل تريد استبدال الرقم الاخير بصفر وليس تقريبه


RE: تقريب رقم - السرور - 16-11-16

هذه طريقة التقريب لأقرب 10 في الدت نت
PHP كود :
Dim n
245

Dim m
= (Math.Round(10) * 10)

' 245 = 240
246 250 
وفي بيسك 6 فقط تحذف Math

وهذه توضيح لكل ارقام الاحاد للتقريب لاقرب 10
كود :
' 240 = 240
' 241 = 240
' 242 = 240
' 243 = 240
' 244 = 240
' 245 = 240
' 246 = 250
' 247 = 250
' 248 = 250
' 249 = 250

معروف ان الرقم 5 عادة يكون ضمن الارقام الكريمة (5،6،7،8،9) ولكن هناك حالة نسيت اسمها يتم اعتبارها ضمن الارقام البخيلة (0،1،2،3،4،5)

واعتقد ان المقصود في هذا الموضوع التقدير وليس التقريب


RE: تقريب رقم - AL_BRNS - 16-11-16

السلام عليكم

جرب التالي

PHP كود :
Private Sub Command1_Click()
Text1.Text Left(Text1.TextLen(Text1.Text) - 1) + "0"
End Sub 

بالتوفيق اخي .



RE: تقريب رقم - Ahmed Abdulla - 17-11-16

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