تقييم الموضوع :
  • 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 





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile سؤال بخصوص تقسيم ساعات اليوم ارجوا المشاركه استايل 10 264 03-11-16, 11:54 PM
آخر رد: الاصيله
Smile سؤال بخصوص قراءة العدد العشري ارجوا الدخول استايل 6 201 28-07-16, 11:51 PM
آخر رد: استايل
  كيف يمكن إضافة البيانات من text الى MSFlexGrid1 مباشرة ؟؟ softmail8 3 433 08-07-16, 07:25 PM
آخر رد: أحمد خلاف
  [vb6.0] هل يمكن ارسال بريد اليكترونى من برنامجى؟ ahmed_egypt 1 125 04-07-16, 01:26 AM
آخر رد: Amir_alzubidy
  [vb6.0] سؤال عن طريق ربط الفيجوال بقاعدة عمور2016 2 135 02-07-16, 07:24 PM
آخر رد: عمور2016
  [vb6.0] سؤال حول اتجاه الارقام التصاعدية chaabane 4 145 07-06-16, 06:32 PM
آخر رد: chaabane
  سوال هل يمكن فتح متصفح بالفيجوال عن طريق جوجل كروم بدلا من انترنت اكسبلور ahmedhhh2 5 170 05-06-16, 03:10 PM
آخر رد: ahmedhhh2
  سؤال : زر الطباعة في التقرير لا يعمل mh66 4 676 03-03-16, 10:59 AM
آخر رد: محمود العجيري
  هل يمكن قراءة نص من الويبكام بإستعمال OCR AEDC 0 114 21-02-16, 04:20 AM
آخر رد: AEDC
  [vb6.0] سؤال عن vb ضمن الاكسيل عبدالستار 2 251 21-01-16, 02:04 PM
آخر رد: الملاك الحزين

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


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