Visual Basic - While Loop (حلقة التكرار While)

تعليمة While تُستخدم لتنفيذ مجموعة من التعليمات بشكل متكرر طالما تحقق شرط معين. تتوقف الحلقة تلقائيًا إذا لم يعد الشرط صحيحًا.


While الشرط
    ' تعليمات تتكرر طالما الشرط True
End While


Dim count As Integer = 1

While count <= 5
    Console.WriteLine("العدد: " & count)
    count += 1
End While

✅ هذا المثال يطبع الأعداد من 1 إلى 5.

إذا كان الشرط في البداية غير صحيح، فلن تعمل الحلقة مطلقًا.


Dim x As Integer = 10

While x < 5
    Console.WriteLine("لن تظهر هذه الرسالة")
End While

تأكد دائمًا أن الشرط سيتغير ليصبح False في مرحلة ما لتجنب التكرار اللانهائي.


' هذا المثال يؤدي إلى حلقة لا تنتهي
While True
    Console.WriteLine("لا نهاية!")
End While

يمكنك استخدام While لقراءة قيم حتى يكتب المستخدم "خروج".


Dim input As String = ""

While input <> "خروج"
    Console.Write("أدخل كلمة (أو اكتب خروج): ")
    input = Console.ReadLine()
End While

Code3arabi | محمود السكري