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





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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن اشتراط الاتصال بالأنترنت لتثبيت برنامج مبرمج بال vb6 AEDC 1 58 10-09-17, 01:49 PM
آخر رد: Ahmed_Mansoor
  هل يمكن تشغيل برنامج بالفيجوال على الهاتف الجوال الحلوانى 4 162 17-08-17, 02:26 PM
آخر رد: أبو نوره
  [سؤال] سؤال في حفظ البيانات او رسالة عمور2016 4 122 29-07-17, 05:40 AM
آخر رد: Ahmed_Mansoor
  [سؤال] سؤال حول نسخ المشروع (المجلد) amer2000 7 155 29-07-17, 01:11 AM
آخر رد: Ahmed_Mansoor
  [كود] كيف اعمل شرط على text box علشان يدخل ارقام فقط noor alhuda 2 408 03-05-17, 01:59 AM
آخر رد: قتيبه عباد
  كيف يمكن التحكم بالترقيم في حال البحث gonm64 2 202 10-04-17, 11:27 PM
آخر رد: Ahmed_Mansoor
  سؤال حول اظهار النمادج او الفريم في شجرة التفرع عمور2016 2 363 19-02-17, 03:44 AM
آخر رد: sendbad100
  سؤال في الكتابة على التكست عمور2016 3 262 18-02-17, 12:21 PM
آخر رد: عمور2016
  سؤال هام فى الفيجوال بيسك فيجوال 6 الحلوانى 3 495 17-01-17, 04:14 PM
آخر رد: Ashraf Elafify
Wink [vb6.0] سؤال في الفيجوال بيسك6 amer2000 7 424 23-12-16, 03:27 AM
آخر رد: amer2000

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


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