تقييم الموضوع :
  • 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
جزاكم الله خير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في عمل Loop في CheckedListBox ثم حفظها في جدول SQL صالح عبدالله 3 445 16-10-23, 01:05 AM
آخر رد: صالح عبدالله
  السلام عليكم محتاج اعرف شئ في loop اليوم السابع 7 1,909 14-01-21, 08:25 AM
آخر رد: سعود
  [VB.NET] مساعده في كود loop number dubai.eig 2 1,469 30-04-20, 10:45 PM
آخر رد: dubai.eig
  [سؤال] عايز اعمل LOop على ListBox عاصم النجار 9 2,408 05-04-20, 08:36 PM
آخر رد: aljzazy
  for loop تكرار الادوات dasktop 3 1,626 13-07-19, 09:10 PM
آخر رد: ابراهيم ايبو
  التايمر وال for loop dasktop 10 3,254 11-07-19, 08:07 AM
آخر رد: dasktop
  loop Mohamed20 2 1,594 06-01-18, 04:48 PM
آخر رد: Mohamed20
  for next loop تناسيم 4 2,433 23-05-17, 08:19 PM
آخر رد: Fantastico
  [VB.NET] الأمر (الكود) loop للميديا بلاير visualist2015 2 1,752 17-11-15, 03:08 PM
آخر رد: visualist2015

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


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