+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : سؤال: كيف يمكن التقريب لأقرب 5 ارقام (/showthread.php?tid=8657)
سؤال: كيف يمكن التقريب لأقرب 5 ارقام - م/عبدالرحمن حسن - 26-04-13
السلام عليكم ورحمة الله وبركاته
اخواني الاعزاء
انا مهندس مدني واريد برمجة برنامج لتصميم الاعمدة
ونظرا لان العمليات الحسابية قد تؤتي بأي رقم
يعني مثلا طول العمود=مساحة العمود /العرض
فقد يأتي بطول للعمود 32 سم
او 33سم
او حتى 32.2122 سم
لذلك انا اريد كود يمكن كتابته لتقريب اي رقم فوق ال30 الى 35 سم
والى اي رقم فوق ال35 الى 40 سم
وهكذا
يعني 5 ارقام فما فوقها
وعلما بأن القيمة في التكست غير معلومة يعني
هقوله الرقم اللي هيطلع في التكست دي تقربهولي الى 5 ارقام صحيحة وكذلك ميكنش في كسور وشكرا
ارجو المساعدة
سؤال: كيف يمكن التقريب لأقرب 5 ارقام - 3booody - 26-04-13
السلام عليكم ورحمة الله وبركاته
ليس لدي الخبره الكافيه وهذا برنامج لي كشخص مبتدئ ان شاء الله يساعدك بالتوفيق
http://vb4arb.com/vb/uploaded/3246_01366995047.rar
سؤال: كيف يمكن التقريب لأقرب 5 ارقام - @@أبورائد@@ - 26-04-13
السلام عليكم ورحمة الله وبركاته
تفضل دالة Round5Digit
PHP كود :
Private Sub Command1_Click()
Text2.Text = Round5Digit(Val(Text1.Text))
End Sub
Private Function Round5Digit(num As Integer)
Round5Digit = num Mod 10
If Round5Digit > 5 Then
Round5Digit = num - Round5Digit + 10
Else
Round5Digit = num - Round5Digit + 5
End If
If num = 0 Then Round5Digit = 0
End Function
السلام عليكم ورحمة الله وبركاته
سؤال: كيف يمكن التقريب لأقرب 5 ارقام - الاصيله - 27-04-13
السلام عليكم
هذا طلبك ان شاء الله
http://vb4arb.com/vb/uploaded/2508_01367008463.zip
سؤال: كيف يمكن التقريب لأقرب 5 ارقام - م/عبدالرحمن حسن - 27-04-13
تسلم ايديكم يااخواني
الواضح ان المنتدى دا في عباقرة كتييير
ولكن لدي تعديل بسيط على البرنامج لكل من أبو رائد والاصيلة
اولا اذا قمت بكتابة رقم 10 سيقوم بتقريبه الى 15
وانا لا اريد تقريب رقم 10 ولا رقم 20 ولا رقم 30
لانه طبيعي جدا
ولكن اريد تقريب رقم 11 ليصل الى 15 وتقريب رقم 21 ليصل الى 25 وتقريب رقم 26 ليصل الى 30
اما مضاعفات ال5 فيبقى كما هو يعني
يعني انا عاوز اقرب الى مضاعفات الرقم 5
فاذا صادفنا رقم من مضاعفات ال5 فيتركه كما هو
سؤال: كيف يمكن التقريب لأقرب 5 ارقام - م/عبدالرحمن حسن - 27-04-13
أرجوا مساعدتي في هذا البرنامج لتقديمه للمهندسين وغير الهندسين في تصميم الأعمدة
المشكلة اللي مواجهاني هي في
text5,text8
حيث ان text 5 اريد تقريب القيمة الحسابية في البرنامج الى اقرب 5 ارقام كما هو موضح
اما text8 وهو عدد الاسياخ اريد التقريب لأقرب رقم زوجي
يعني لو عدد الاسياخ 4 يترك كما هو واذا كان 4.3 يقرب الى رقم 6 اسياخ
وكذلك 5 اسياخ يقرب الى 6
وكذلك 5 ونص يقرب الى 6
اي مضاعفات الرقم 2
ارجوا التجربة في مثال خارجي ثم التطبيق وشكرا لكم على المساعده
ارجوا ان تكون قد وصلت الصورة وارجوا المساعدة اخواني الاعزاء
وهذا هو رابط البرنامج وشكرا
http://vb4arb.com/vb/uploaded/3811_01367024076.rar
سؤال: كيف يمكن التقريب لأقرب 5 ارقام - @@أبورائد@@ - 27-04-13
السلام عليكم ورحمة الله وبركاته
م/عبدالرحمن حسن كتب :تسلم ايديكم يااخواني
الواضح ان المنتدى دا في عباقرة كتييير
ولكن لدي تعديل بسيط على البرنامج لكل من أبو رائد والاصيلة
اولا اذا قمت بكتابة رقم 10 سيقوم بتقريبه الى 15
وانا لا اريد تقريب رقم 10 ولا رقم 20 ولا رقم 30
لانه طبيعي جدا
ولكن اريد تقريب رقم 11 ليصل الى 15 وتقريب رقم 21 ليصل الى 25 وتقريب رقم 26 ليصل الى 30
اما مضاعفات ال5 فيبقى كما هو يعني
يعني انا عاوز اقرب الى مضاعفات الرقم 5
فاذا صادفنا رقم من مضاعفات ال5 فيتركه كما هو
عذراً...
الدالة لا تقرب 5 لتصبح 10 ، وإنما لو كان الرقم 5 مع كسور عشرية فهذا ما فهمته من طلبك.
السلام عليكم ورحمة الله وبركاته
سؤال: كيف يمكن التقريب لأقرب 5 ارقام - م/عبدالرحمن حسن - 27-04-13
اخي الفاضل
انا اريد تقريب مضاعفات ال 5 فلو لديك اي كود اخر ارجو المساعدة بأي طريقة اخرى وشكرا لك
سؤال: كيف يمكن التقريب لأقرب 5 ارقام - @@أبورائد@@ - 27-04-13
السلام عليكم ورحمة الله وبركاته
إن شاء الله أراجع الدالة وأرد إليك
السلام عليكم ورحمة الله وبركاته
سؤال: كيف يمكن التقريب لأقرب 5 ارقام - @@أبورائد@@ - 27-04-13
السلام عليكم ورحمة الله وبركاته
على عجالة - جرب هذا التعديل
PHP كود :
Private Function Round5Digit(num As Integer)
If (num >= 10) And (num Mod 10) = 0 Then
Round5Digit = num
Exit Function
End If
Round5Digit = num Mod 10
If Round5Digit > 5 Then
Round5Digit = num - Round5Digit + 10
Else
Round5Digit = num - Round5Digit + 5
End If
If num = 0 Then Round5Digit = 0
End Function
السلام عليكم ورحمة الله وبركاته