مهارات برمجة الفيجوال بيزك

مهارات برمجة الفيجوال بيزك

.

الحلقة التكرارية Do While...Loop

استخدام الحلقة التكرارية (Do While ... Loop)

تستخدم لتكرار مجموعة أوامر فى حالة عدم معرفة عدد مرات التكرار بناء علي شرط معين .



صيغة الجملة Do While ... Loop

                  Do While         (Conditional Expression) شرط بداية التكرار
                                                                             
                   Code                                       
                                                                                                                                                   
                   Loop                                       
                                
المقصود بـ ( Do While) تنفيذ الكود ( Code) طالما التعبير الشرطى صحيح ( True) .
 عند وصول البرنامج الى الامر Do While
1)   اذا كان الشرط صحيح  True فان الحاسب يقوم بتنفيذ الكود Code  الذى يلى الشرط وحتى اخر امر قبل كلمة Loop  ثم يعود مرة اخرى الى Do While ليتم تقييم الشرط مرة اخرى .
2)   فان كانت النتيجة مرة اخرى True فيستمر التكرار .
3)   وان كانت نتيجة الشرط False فينتهى التكرار ويتم تنفيذ الاوامر التى تلى كلمة Loop.
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
خلى بالك :-
§       يتم تنفيذ الاوامرالموجوده بعد Do While   ما دام الشرط صحيحأ ويستمر تنفيذ اوامر التكرار طالما كان الشرط قيمته (True ).
§       يمكن التعامل مع التعبير الشرطى باضافة معاملات الربط المنطقية AND   و  OR
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

تمرين باستخدام جمل التكرار

تمرين 



     لحساب مجموع الأعداد الفردية من 1 إلى8
Private Sub Button1_Click
Dim i = 1, total As Integer
Do While i <= 8
total = total + i
i = i + 2
MessageBox.Show(total)
Loop
  End Sub
 Private Sub Button1_Click
Dim i, total As Integer
For i = 1 To 8 Step 2
total = total + i
MessageBox.Show(total)
Next
  End Sub


4 التعليقات

إضغط هنا لـ التعليقات
Unknown
المدير
10 مايو 2015 في 11:06 ص ×

لانهاء الحلقة التكرارية do while عندما تصبح قيمة ال n=2 فكيف يتم كتابة جملة Do while

رد
avatar
Unknown
المدير
12 مايو 2015 في 11:16 ص ×

طب لانهاء الحلقة التكرارية do while عندما تصبح قيمة ال n<>2 فكيف يتم كتابة جملة Do while

رد
avatar
شكرا لك ولمرورك