[messry]

(13-04-21, 01:14 AM)حسن الجلب كتب : السلام عليكم
عايز كود يتحقق من العدد الصحيح أو العشري

وعليكم السلام

كود :

Dim num1 As Double
       If Double.TryParse(TextBox1.Text, num1) Then
           Dim num2 As Double
           num2 = num1 Mod 1
           If num2 = 0 Then
               ‘ هذا رقم صحيح
           Else
               ‘ هذا رقم عشري
           End If
        Else
           ‘        هذا ليس رقم
       End If