بسم الله الرحمن الرحيم
استكمالا لحلقات التكرار
اليوم سنتحدث عن looping
ونسترجع ان اللوبنج من الحلقات التكرارية الشرطية
وسنتطرق الى الجمل الاتية في الحلقات التكرارية الشرطية
Do.........Loop
While
Do...........While
Do...........Until
اولهم
Do.........Loop
وطريقة كتابة الاكواد هتبقى ازاي نشوف المثال التالي
Do
MsgBox("Yasser")
Loop
الكود السابق بدايته DO ثم الاكواد الخاصة بنا داخل الجملة التكرارية ثم Loop لاعادة تنفيذ الكود مرة اخرى
طيب لما نطبق الكود دا ايه اللي هيحصل
اللي هيحصل ان البرنامج هيطلع لينا رسالة باسم ياسر
بس كدا لا دا هيفضل يطلعها على طول كل ما تطلع من واحده تيجي تانيه الى مالا نهاية ايه السبب
هي جملة شرطية طيب فين الشرط احنا مش حطينا شرط يبقي البرنامج هيفضل شغال رسايل على طول
وطبعا دا لو كود غير الرسالة مع التكرار الى مالا نهاية سيتعرض دائما برنامجنا الى التهنيج من كثرة التكرار
طيب عايزين نحل المشكلة ونحط شرط للموضوع دا
نشوف المثال التالي ونركز فيه شوية
Dim x As Byte = 1
Do
MsgBox(x)
x = x + 1
If x = 10 Then
Exit Do
End If
Loop
اول الكود مجرد اعلنا عن متغير من نوع بايت وعرفناه برقم1
وبعدين بدأنا الجملة ب Do
ثم رسالة بها قيمة المتغير
والسطر اللي بعده رفعنا قيمة المتغير +1 لكل حلقة تكرارية
وبعدين عشان نضع الشرط للجمله نستخدم IF
ونقول لو المتغير X يساوي 10 ايه اللي يحصل اخرج من الجملة التكرارية دي
يبقي الكود السابق هيحصل فيه ايه
بداية الكود المتغير x هيساوي1 وبعدين هنخش الجملة وتظهر رسالة برقم المتغير اللي هو 1 وهننزل على السطر اللي بعده
هنلاقي انه المتغير زاد رقم بقي 2 يروح على الجملة الشرطية وهي ان المتغير يبقي عشرة والمتغير لسه 2 يبقي هيتجاهل الشرط ويكمل ينزل يلاقي لووووب هوب يرجع تاني وهكذا
لحد اول ما الرقم يوصل 10 يروح للشرط يلاقي انه 10 يقوله عندك اخرج بقي من الدوخة دي واللفه دي
وبكدا عرفنا الجملة Do.........Loop
ندخل على الجملة الثانية وهي While
Dim x As Byte = 1
While x < 10
MsgBox("الحمد لله" & x)
x = x + 1
End While
ايه الكود دا نفس المتغير x
وندخل على الجملة While ودي جد على طول بتقولك الشرط ايه عشان اعرف اشتغل عليه من الاول بنقلها لو قيمة الاكس اصغر من 10
يطبع الحمد لله ورقم المتغير جمبها
والسطر اللي بعده طبعا عارفينه وهو زيادة المتغير +1
ويرجع تاني لحد ما يتحقق الشرط عند الرقم 10 تتوقف الجمله الموضوع سهل ومفيهوش اي صعوبة
وطبعا دا مثال مبسط للجمله نستطيع تركيب كود بطريقة احترافيه وطرق مختلفه كتييرررر
وندخل على الجملة الثالثة وهي Do...........While
Dim x As Byte = 1
Do While x < 10
MsgBox("الحمد لله" & x)
x = x + 1
Loop
باختصار الجملة دي تجمع Do & While مع بعض لان Do لوحدها كنا بنستخدم فيها If
اما الان الشرط موجود معها فلا داعي الى IF
ندخل على الجملة Do...........Until
والجملةدي عكس ال Do...........While
بمعني ان Do...........Until بتقول افعل الى ان يتحقق الشرط
Do...........While افعل عندما يتحقق الشرط
Dim x As Byte = 1
Do Until x > 10
MsgBox("الحمد لله" & x)
x = x + 1
Loop
هنا هيفضل يكرر الجملة الى ان تصل قيمة المتغير x الى اكبر من 10
وبكدا نكون شبه انتهينا من الجمل التكرارية المحددة والشرطية
تقبلو تحياتي
ياسر العربي
الإبتساماتإخفاء