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

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



loop - Mohamed20 - 15-10-16

عندى

كود :
 Dim test1 As String() = {1, 2, 3, 4, 5, 6, 8, 7}

   Dim test2 As String() = {77, 88, 99, 22, 10, 33, 44}

اريد ان اعرف اذا كان رقم موجود ام لا

كود :
Dim find As String = 7


كود :
       For Each fd In test1
           If find.Contains(fd) Then
               Label1.Text = "Found"
               Label3.Text = 0
           Else
               Label1.Text = "Not"
               Label3.Text += 1
               Exit For
           End If
       Next

       For Each fd In test2
           If find.Contains(fd) Then
               Label2.Text = "Found"
               Label4.Text = 0
           Else
               Label2.Text = "Not"
               Label4.Text += 1
               Exit For
           End If
       Next
على الرغم من انه متواجد لاكن الناتج يطلع غير متواجد


RE: loop - ممدوح - 15-10-16

عموما التحقق من وجود قيمة محددة في مصفوفة يستخدم Contains

وفي احدى مصفوفات مثالك يتم كالتالي
كود :
Dim test1 As String() = {1, 2, 3, 4, 5, 6, 8, 7}

Dim find As String = 7

If find.Contains(find) Then
    Label1.Text = "Found"
Else
    Label1.Text = "Not"
End If

ولو أردت أن تعرف أين يقع ما تبحث عنه داخل المصفوفة تستخدم Array.IndexOf
كود :
Dim index As Integer = Array.IndexOf(test1, find)



RE: loop - silverlight - 15-10-16

الكود التالي يوضح لك أحد الأساليب لكيفية كتابة Loop وذلك بهدف إيجاد القيمة التي تبحث عنها

PHP كود :
Dim list As String() = {12345687}
 
       Dim s As String 7
        Dim found 
As Boolean False
        For i 
As Integer 0 To list.Count 1
            If s 
= list(iThen
                found 
True
                Exit 
For
 
           End If
 
       Next


        
' do something 
        If found Then
            Me.Text = "Found"
        Else
            Me.Text = "Not Found"
        End If 



RE: loop - Mohamed20 - 15-10-16

جزاكم الله خير