[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم في الفيجوال يوجد لدينا بعض الدوال للمكتبة Math كما ذكر اخي الغالي محمد كريم جزاه الله خيرا
ولكن هذه الدوال تجبر الرقم من المنتصف الى الادنى او من المنتصف الى الاعلى او الى الادنى مهما كان او الى الاعلى مهما كان
وانت تريد التعامل بالربع وهذا (حسب معلوماتي غير متوفر) والحل ان نقوم بانشاء كود يعمل ماتريد وفق التالي:

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ' تجريد الرقم الموجود في مربع النص من الكسور مهما كانت وجبرها الى الصفر
       Dim AA As Integer = Math.Floor(Val(TextBox1.Text))
       ' طرح الرقم المجبور من الرقم الموجود في مربع النص مع تحويله الى نوع دبل والناتج هو الكسر العشري المتبقي ووضعه في متغير
       Dim Numbr As Double = FormatNumber((CDbl(TextBox1.Text) - AA), 2)
       ' الان حالات هذا المتغير والذي يمثل القسم العشري للرقم وتحويل كل حالة الى المطلوب
       If Numbr >= 0.1 And Numbr <= 0.25 Then
           Numbr = 0.25
       ElseIf Numbr > 0.25 And Numbr <= 0.50 Then
           Numbr = 0.5
       ElseIf Numbr > 0.50 And Numbr <= 0.75 Then
           Numbr = 0.75
       ElseIf Numbr > 0.75 And Numbr <= 0.99 Then
           Numbr = 1
       Else
           Numbr = Numbr
       End If
       ' الان نعرف الرقم النهائي بعد جمع التحويل مع الرقم المجرد
       Dim Lastnumbr As Double = AA + Numbr
       ' تفريغ مربع النص
       TextBox1.Text = ""
       ' اعادة املاء مربع النص بالرقم النهائي مع جعل الفاصلة بؤقمين
       TextBox1.Text = FormatNumber((Lastnumbr), 2)

   End Sub