تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود
#1
السلام عليكم عاوز كود يضهر رسالة تخبرني ان القيمة المدخله في التكست بوكس هي عدد عشري او عدد صحيح
وجزاكم الله خيرا
الرد }}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       If IsNumeric(TextBox1.Text) Then
           Dim kk As Integer = Math.Abs(Convert.ToDouble(TextBox1.Text))
           If Convert.ToDouble(TextBox1.Text) - kk <> 0 Then
               MsgBox("كسر عشري")
           Else
               MsgBox("عدد صحيح")
           End If

       Else
           MsgBox("هذا نص وليس عدد")
       End If
   End Sub
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}
تم الشكر بواسطة: الراس الكبيرة
#3
(16-03-22, 02:17 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم
كود :
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       If IsNumeric(TextBox1.Text) Then
           Dim kk As Integer = Math.Abs(Convert.ToDouble(TextBox1.Text))
           If Convert.ToDouble(TextBox1.Text) - kk <> 0 Then
               MsgBox("كسر عشري")
           Else
               MsgBox("عدد صحيح")
           End If

       Else
           MsgBox("هذا نص وليس عدد")
       End If
   End Sub

جزاك الله خيرا اخي الكريم وشكرا على دعمك لي
الرد }}
تم الشكر بواسطة:


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


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