منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طلب كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود (/showthread.php?tid=40941)

طلب كود - الراس الكبيرة - 15-03-22

السلام عليكم عاوز كود يضهر رسالة تخبرني ان القيمة المدخله في التكست بوكس هي عدد عشري او عدد صحيح
وجزاكم الله خيرا

RE: طلب كود - ابراهيم ايبو - 16-03-22

السلام عليكم ورحمة الله وبركاته
تفضل اخي الكريم
كود :
   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


RE: طلب كود - الراس الكبيرة - 16-03-22

(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

جزاك الله خيرا اخي الكريم وشكرا على دعمك لي