تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التقريب لاقرب ربع دينار
#1
السلام عليكم
عندي ارقام كسور واريد تقريبها الى اقرب 0.25 و 0.50 و 0.75

يعني لو الرقم 1.18 يتقرب الى 1
ولو 1.30 يتقرب الى 1.25
ولو 1.40 يتقرب الى 1.25 وهكذا
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم لم اشأ في الخوض في الدوال الجاهزة في نت فريم ورك ان كانت موجودة وتعمل مثل ماتريد
الذي اعرفه ان الدوال الموجودة اما ان تقرب الفاصلة نحو الادنى او نحو الاعلى او تحت النصف نحو الادنى وفوق النصف نحو الاعلى
لكن لايهمك فالدوال اصلا مبنية على اكواد شبيهة بما ساورده لك
اليك هذا الكود
كود :
  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       If TextBox1.Text <> "" Then
           TextBox1.Text = Val(TextBox1.Text).ToString("0.00")
           Dim KK() As String = TextBox1.Text.Split(".")
           Dim MySep As Double = CDbl(KK(1)) / 100

           If MySep >= 0.0 And MySep < 0.25 Then
               MySep = 0.0
               TextBox1.Text = (KK(0) + MySep).ToString("0.00")
           ElseIf MySep >= 0.25 And MySep < 0.5 Then
               MySep = 0.25
               TextBox1.Text = (KK(0) + MySep).ToString("0.00")
           ElseIf MySep >= 0.5 And MySep < 0.75 Then
               MySep = 0.5
               TextBox1.Text = (KK(0) + MySep).ToString("0.00")
           ElseIf MySep >= 0.75 And MySep < 1 Then
               MySep = 0.75
               TextBox1.Text = (KK(0) + MySep).ToString("0.00")
           End If

       End If
   End Sub
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة:
#3
مشكور جدا يا اخي
وربي يبارك فيك ويرحم والديك
الف الف شكر لك
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
الحمد لله والشكر لله 
ولك ايضا اخي الكريم المتألق9
وبارك الله فيك ولك
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







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



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


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