16-03-16, 11:02 PM
17-03-16, 02:35 AM
استحدم الدالة التالية
مثال
في حالة الكود الخاص بك
PHP كود :
Public Function IsOddValue(value As Integer) As Boolean
Return value Mod 2 <> 0
End Function
PHP كود :
For i = 1 To 20
' التأكد من هل الرقم فردي
If IsOdd(i) Then
' أضف فقط الأرقام الزوجية الي الليست بوكس
ListBox1.Items.Add(i + 1)
End If
Next
PHP كود :
If TextBox1.Text.Length Mod 2 = 0
' do something
End If
هنا يكون الرقم فردي و غير هذا يكون الرقم زوجي
17-03-16, 02:37 AM
(16-03-16, 11:02 PM)أسامة كتب : [ -> ]Textbox Text Length اريد ان اعرف اذا كان عدد Length فردى او زوجى
تفضل هاذا الكود
PHP كود :
Dim nm As String = 0
nm = Val(TextBox1.Text.Length) / Val("2")
If InStr(nm, ".") Then
MsgBox("رقم فردي")
Else
MsgBox("رقم زوجي")
End If
شكرا لك
17-03-16, 03:54 AM
السلام عليكم...
نرجو الاستفادة و السلام.
PHP كود :
If (TextBox1.Text.Length mod 2) = 0 Then
' زوجي
Else
' فردي
End If
نرجو الاستفادة و السلام.
17-03-16, 11:54 AM
شكرآ جزيلآ جميع الاكواد تعمل