تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال: كيف يمكن التقريب لأقرب 5 ارقام
#1
السلام عليكم ورحمة الله وبركاته
اخواني الاعزاء
انا مهندس مدني واريد برمجة برنامج لتصميم الاعمدة
ونظرا لان العمليات الحسابية قد تؤتي بأي رقم
يعني مثلا طول العمود=مساحة العمود /العرض
فقد يأتي بطول للعمود 32 سم
او 33سم
او حتى 32.2122 سم
لذلك انا اريد كود يمكن كتابته لتقريب اي رقم فوق ال30 الى 35 سم
والى اي رقم فوق ال35 الى 40 سم
وهكذا
يعني 5 ارقام فما فوقها
وعلما بأن القيمة في التكست غير معلومة يعني
هقوله الرقم اللي هيطلع في التكست دي تقربهولي الى 5 ارقام صحيحة وكذلك ميكنش في كسور وشكرا
ارجو المساعدة
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
ليس لدي الخبره الكافيه وهذا برنامج لي كشخص مبتدئ ان شاء الله يساعدك بالتوفيق
http://vb4arb.com/vb/uploaded/3246_01366995047.rar
الرد }}}}
تم الشكر بواسطة:
#3

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




تفضل دالة 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 





السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم
هذا طلبك ان شاء الله
http://vb4arb.com/vb/uploaded/2508_01367008463.zip
الرد }}}}
تم الشكر بواسطة:
#5
تسلم ايديكم يااخواني
الواضح ان المنتدى دا في عباقرة كتييير
ولكن لدي تعديل بسيط على البرنامج لكل من أبو رائد والاصيلة
اولا اذا قمت بكتابة رقم 10 سيقوم بتقريبه الى 15
وانا لا اريد تقريب رقم 10 ولا رقم 20 ولا رقم 30
لانه طبيعي جدا
ولكن اريد تقريب رقم 11 ليصل الى 15 وتقريب رقم 21 ليصل الى 25 وتقريب رقم 26 ليصل الى 30
اما مضاعفات ال5 فيبقى كما هو يعني
يعني انا عاوز اقرب الى مضاعفات الرقم 5
فاذا صادفنا رقم من مضاعفات ال5 فيتركه كما هو
الرد }}}}
تم الشكر بواسطة:
#6
أرجوا مساعدتي في هذا البرنامج لتقديمه للمهندسين وغير الهندسين في تصميم الأعمدة
المشكلة اللي مواجهاني هي في
text5,text8
حيث ان text 5 اريد تقريب القيمة الحسابية في البرنامج الى اقرب 5 ارقام كما هو موضح
اما text8 وهو عدد الاسياخ اريد التقريب لأقرب رقم زوجي
يعني لو عدد الاسياخ 4 يترك كما هو واذا كان 4.3 يقرب الى رقم 6 اسياخ
وكذلك 5 اسياخ يقرب الى 6
وكذلك 5 ونص يقرب الى 6
اي مضاعفات الرقم 2
ارجوا التجربة في مثال خارجي ثم التطبيق وشكرا لكم على المساعده
ارجوا ان تكون قد وصلت الصورة وارجوا المساعدة اخواني الاعزاء
وهذا هو رابط البرنامج وشكرا
http://vb4arb.com/vb/uploaded/3811_01367024076.rar
الرد }}}}
تم الشكر بواسطة:
#7

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


م/عبدالرحمن حسن كتب :تسلم ايديكم يااخواني
الواضح ان المنتدى دا في عباقرة كتييير
ولكن لدي تعديل بسيط على البرنامج لكل من أبو رائد والاصيلة
اولا اذا قمت بكتابة رقم 10 سيقوم بتقريبه الى 15
وانا لا اريد تقريب رقم 10 ولا رقم 20 ولا رقم 30
لانه طبيعي جدا
ولكن اريد تقريب رقم 11 ليصل الى 15 وتقريب رقم 21 ليصل الى 25 وتقريب رقم 26 ليصل الى 30
اما مضاعفات ال5 فيبقى كما هو يعني
يعني انا عاوز اقرب الى مضاعفات الرقم 5
فاذا صادفنا رقم من مضاعفات ال5 فيتركه كما هو




عذراً...

الدالة لا تقرب 5 لتصبح 10 ، وإنما لو كان الرقم 5 مع كسور عشرية فهذا ما فهمته من طلبك.






السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#8
اخي الفاضل
انا اريد تقريب مضاعفات ال 5 فلو لديك اي كود اخر ارجو المساعدة بأي طريقة اخرى وشكرا لك
الرد }}}}
تم الشكر بواسطة:
#9

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





إن شاء الله أراجع الدالة وأرد إليك




السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#10

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




على عجالة - جرب هذا التعديل


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 





السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] كيف اعمل شرط على text box علشان يدخل ارقام فقط noor alhuda 2 256 03-05-17, 01:59 AM
آخر رد: قتيبه عباد
  كيف يمكن التحكم بالترقيم في حال البحث gonm64 2 93 10-04-17, 11:27 PM
آخر رد: Ahmed_Mansoor
  سؤال حول اظهار النمادج او الفريم في شجرة التفرع عمور2016 2 238 19-02-17, 03:44 AM
آخر رد: sendbad100
  سؤال في الكتابة على التكست عمور2016 3 148 18-02-17, 12:21 PM
آخر رد: عمور2016
  سؤال هام فى الفيجوال بيسك فيجوال 6 الحلوانى 3 222 17-01-17, 04:14 PM
آخر رد: Ashraf Elafify
Wink [vb6.0] سؤال في الفيجوال بيسك6 amer2000 7 321 23-12-16, 03:27 AM
آخر رد: amer2000
  سؤال حول Listview superwoofer 0 137 18-12-16, 10:15 AM
آخر رد: superwoofer
Smile سؤال بخصوص تقسيم ساعات اليوم ارجوا المشاركه استايل 10 540 03-11-16, 11:54 PM
آخر رد: الاصيله
Smile سؤال بخصوص قراءة العدد العشري ارجوا الدخول استايل 6 411 28-07-16, 11:51 PM
آخر رد: استايل
  كيف يمكن إضافة البيانات من text الى MSFlexGrid1 مباشرة ؟؟ softmail8 3 603 08-07-16, 07:25 PM
آخر رد: أحمد خلاف

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم