كشف While...End While (Visual Basic)
يقم بتشغيل سلسلة من الكشوف طالما كان الشرط المعطى True.
While condition
[ statements ]
[ Exit While ]
[ statements ]
End While
الأجزاء
condition
مطلوبة. Booleanالتعبير اذا condition هو Nothing، يعاملها الـ Visual Basic كـ False.statements
اختياري. كشف واحد أو أكثر من التي تلي While، والتي تنفذ كل مرة condition هو True.Exit While
اختياري. تنقل التحكم خارج المقطع While.End While
مطلوبة. تنهي تعريف المقطع While.
ملاحظات
يستخدم While...End While البناء عندما تريد تكرار مجموعة من الكشوف في عدد من المرات الغير معلومة طالما بقي الشرط True. إذا كنت تريد مرونة أكثر مع مكان اختبار الشرط أو أي ناتج تقوم باختباره من أجل, قد تفضل كشف Do...التكرار الحلقي (Visual Basic). إذا أردت تكرار كشوف مجموعة من المرات الـ عبارة Visual Basic) For...Next) عادة يكون أفضل خيار.
condition هو True، جميعها statements تنفذ حتى End While الكشف يتم اجادها. ثم يعود التحكم إلى While الكشف و condition يتم فحصة مرة أخرى. condition ما زال True، يتم تكرار العملية. إذا كانت False، التحكم يرسل إلى العبارة التالية End While الكشف.
ملاحظة
الـكلمة الأساسية While يتم أيضاً استخدامها في كشف Do...التكرار الحلقي (Visual Basic),تخطي عبارة أثناء في (Visual Basic)و بند Take While في (Visual Basic) .
القواعد
**طبيعة الشرط.**الشرط عادةً نتيجة المقارنة بين قيمتين ولكن يمكن أن يكون أي تعبير يقيّم إلى قيمة نوع بيانات القيمة المنطقية في (Visual Basic) )True أو False). يتضمن هذا قيم أنواع بيانات أخرى مثل الأنواع الرقمية التي تم تحويلها إلى Boolean.
**اختبار الشرط.**While الكشف دوماً يتحقق من الشرط قبل أن تبدأ التكرار الحلقي. تنفيذ الحلقات يستمر بينما يبقى الشرط True.
عدد التكرارات. condition هو False عند دخول الحلقة أولاً, لا تنفذ حتى مرة واحدة.
التكرارات الحلقية المتداخلة. يمكنك إنشاء تكرارات حلقية While متداخلة بوضع تكرار حلقي داخل تكرار حلقي أخر. يمكنك أيضا مداخلة أنواع مختلفة من بنيات التحكم داخل بعضها البعض. لمزيد من المعلومات، راجع بنيات التحكم المتداخلة.
النقل خارج التكرار الحلقي. ينقل عبارة الخروج Vsual Basic) ) التحكم مباشرةً إلى العبارة التي تلي العبارة End While. قد تحتاج إلى إنهاء تكرار حلقي إذا اكتشفت شرط يجعل من غير الضروري أو من المستحيل متابعة التكرار، مثل قيمة خاطئة أو طلب إنهاء. يمكنك وضع أي عدد من عبارات Exit While في أي مكان في التكرار الحلقي While. Exit Whileتستخدم غالباً بعد تقييم شرط ما على سبيل المثال في بنية If...Then...Else .
**التكرارات الحلقية اللامنتهية.**استخدام واحد لـExit While يقوم على اختبار شرط قد يتسبب بتكرار حلقي لا منتهي ، وهو عبارة عن تكرار حلقي يعمل لعدد كبير جداً أو حتى لعدد لا نهائي من المرات. إذا اكتشفت شرط كهذا، يمكنك استخدام Exit While للهروب من التكرار الحلقي. لمزيد من المعلومات، راجع كشف Do...التكرار الحلقي (Visual Basic).
مثال
يستخدم هذا المثال While...End While البنية لزيادة متغير العداد. الكشوف في التكرار الحلقي ينفذ طالما يتم تقييم الشرط إلى True.
Dim counter As Integer = 0
While counter < 20
counter += 1
' Insert code to use current value of counter.
End While
MsgBox("While loop ran " & CStr(counter) & " times")
راجع أيضًا:
المرجع
كشف Do...التكرار الحلقي (Visual Basic)
عبارة Visual Basic) For...Next)
نوع بيانات القيمة المنطقية في (Visual Basic)