+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : Continue Statement (Visual Basic) (/showthread.php?tid=4703)
Continue Statement (Visual Basic) - RaggiTech - 01-10-12
كاتب الموضوع : جهاد العريقي
هذة الجملة تفيد في الانتقال بين التكرارات او 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 .