تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
loop
#1
عندى

كود :
 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
على الرغم من انه متواجد لاكن الناتج يطلع غير متواجد
الرد }}}}
تم الشكر بواسطة:
#2
عموما التحقق من وجود قيمة محددة في مصفوفة يستخدم 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)
الرد }}}}
تم الشكر بواسطة: Mohamed20 , Mohamed20
#3
الكود التالي يوضح لك أحد الأساليب لكيفية كتابة 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 
الرد }}}}
تم الشكر بواسطة: Mohamed20
#4
جزاكم الله خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] الأمر (الكود) loop للميديا بلاير visualist2015 2 237 17-11-15, 03:08 PM
آخر رد: visualist2015

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم