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

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



Textbox Text Length - أسامة - 16-03-16

Textbox Text Length اريد ان اعرف اذا كان عدد Length فردى او زوجى


RE: Textbox Text Length - silverlight - 17-03-16

استحدم الدالة التالية

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(1)
 
           End If
 
       Next 
في حالة الكود الخاص بك
PHP كود :
If TextBox1.Text.Length Mod 2 0
' do something
End If

هنا يكون الرقم فردي و غير هذا يكون الرقم زوجي 



RE: Textbox Text Length - hassan - 17-03-16

(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 


شكرا لك


RE: Textbox Text Length - ناجي إبراهيم - 17-03-16

السلام عليكم...

PHP كود :
If (TextBox1.Text.Length mod 2) = 0 Then
    
' زوجي
Else
    ' 
فردي
End 
If 

نرجو الاستفادة و السلام.


RE: Textbox Text Length - أسامة - 17-03-16

شكرآ جزيلآ جميع الاكواد تعمل


RE: Textbox Text Length - hassan - 17-03-16

(17-03-16, 11:54 AM)أسامة كتب : شكرآ جزيلآ جميع الاكواد تعمل

العفوووو اخي