تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Continue Statement (Visual Basic)
#1
كاتب الموضوع : جهاد العريقي



هذة الجملة تفيد في الانتقال بين التكرارات او Loops
الشكل العام


كود :
[COLOR=#000000][COLOR=#007700]Continue { Do | For | While }  
[/COLOR][/COLOR]


يمكن الانتقال كن Loop الى اخر عن طريق هذة الجملة Continue ويتم ذلك با ختبار شرط الحلقة او التكرار .
ويمكن استخدام هذة الجملة في أي مكان من التكرار الذي نريد الانتقال منة وهذة الجملة تسمح بنقل التحكم تماما مثل الجملة
GO TO Statement

مثال على هذة الجملة :



كود :
[COLOR=#000000][COLOR=#0000bb]
Dim row[/COLOR][color=#007700], [/color][color=#0000bb]col [/color][color=#007700]As [/color][COLOR=#0000bb]Integer  
Dim lastrow [/COLOR][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][COLOR=#0000bb]6
Dim lastcol [/COLOR][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][COLOR=#0000bb]10  
Dim a[/COLOR][color=#007700](,) As [/color][color=#0000bb]Double [/color][color=#007700]= New [/color][color=#0000bb]Double[/color][color=#007700]([/color][color=#0000bb]lastrow[/color][color=#007700], [/color][color=#0000bb]lastcol[/color][COLOR=#007700]) {}  
[/COLOR][color=#0000bb]Dim b[/color][color=#007700]([/color][color=#0000bb]7[/color][color=#007700]) As [/color][color=#0000bb]Double row [/color][color=#007700]= -[/color][COLOR=#0000bb]1

[/COLOR][color=#007700]While [/color][color=#0000bb]row [/color][color=#007700]< [/color][color=#0000bb]lastrow row [/color][color=#007700]+= [/color][color=#0000bb]1 col [/color][color=#007700]= -[/color][COLOR=#0000bb]1  
  
[/COLOR][color=#007700]While [/color][color=#0000bb]col [/color][color=#007700]< [/color][COLOR=#0000bb]lastcol  
      col [/COLOR][color=#007700]+= [/color][COLOR=#0000bb]1  
      a[/COLOR][color=#007700]([/color][color=#0000bb]row[/color][color=#007700], [/color][color=#0000bb]col[/color][color=#007700]) = [/color][COLOR=#0000bb]0

[/COLOR][color=#007700]For [/color][color=#0000bb]i [/color][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][color=#0000bb]0 To b[/color][color=#007700].[/color][color=#0000bb]GetUpperBound[/color][color=#007700]([/color][color=#0000bb]0[/color][COLOR=#007700])

  If [/COLOR][color=#0000bb]b[/color][color=#007700]([/color][color=#0000bb]i[/color][color=#007700]) = [/color][COLOR=#0000bb]col Then  
      
     [/COLOR][COLOR=#007700]Continue While  

  Else  
     [/COLOR][color=#0000bb]a[/color][color=#007700]([/color][color=#0000bb]row[/color][color=#007700], [/color][color=#0000bb]col[/color][color=#007700]) += ([/color][color=#0000bb]row [/color][color=#007700]+ [/color][color=#0000bb]b[/color][color=#007700]([/color][color=#0000bb]i[/color][color=#007700])) / ([/color][color=#0000bb]col [/color][color=#007700]- [/color][color=#0000bb]b[/color][color=#007700]([/color][color=#0000bb]i[/color][COLOR=#007700]))

  [/COLOR][color=#0000bb]End [/color][COLOR=#007700]If  

[/COLOR][COLOR=#0000bb]Next i

End [/COLOR][COLOR=#007700]While
[/COLOR][color=#0000bb]End [/color][COLOR=#007700]While  
[/COLOR][/COLOR]

في المثال السابق استخدمنا While Continue لتجاوز العمود في المصفوفة وذلك حسب الشرط If b(i)=col يعني اذا تم القسمة على صفر .

ومن الملاحظ ان Continue داحل الحلقة For وتقوم با التحويل الى الجملة


كود :
[color=#000000][COLOR=#007700]While [/color][color=#0000bb]col [/color][color=#007700]< [/color][COLOR=#0000bb]lastcol  
[/COLOR][/COLOR]

اي الى عمق التكرار التالي يعني While الحلقة التي تحتوي التكرارFor .
تم الشكر بواسطة:



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


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