+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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
n = 245
Dim m
m = (Math.Round(n / 10) * 10)
' 245 = 240
' 246 = 250
وهذه توضيح لكل ارقام الاحاد للتقريب لاقرب 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.Text, Len(Text1.Text) - 1) + "0"
End Sub
بالتوفيق اخي .
RE: تقريب رقم - Ahmed Abdulla - 17-11-16
جزاكم الله خيرا