مواضيع ذات صلة
- حلقة For التكرارية في فيجوال بيسك
- حلقات التكرار في سي++
- أساسيات الفيجوال بيسك
- تعليمات الفيجوال بيسك
- صندوق كتابة الشيفرة والأحداث في الفيجوال بيسك
- انشاء برنامج من مشروع فيجوال بيسك وعمل setup له
- التعامل مع الفورم Form في فيجوال بيسك
- مزايا وعيوب فيجوال بيسك
- كائن التطبيقات OLE في فيجوال بيسك
- المصفوفات والمتغيرات فيجوال بيسك
إن في البرمجة امورا يحتاج الى تنفيذ امر معين لعدة مرات وفي البرامج الكبيرة لالاف المرات وكتابة كل تلك الاوامر يتعب المبرمج من جهة ويجعل من حجم البرنامج كبير من جهة اخرى لذلك الامر do جاءت لحل هذه المعضلة فهي تقوم بتدوير الامر لمرات عديدة الى ان يكون حدث معين وبذلك يخرج من الدائرة فهي بكتابة كلملت قليلة ينفذ أوامر كثيرة
يجب أن تصرح عن متحول قبلها لكي تعمل الجملة:
ربما شرح الجملة غير مفهوم قليلاً .
في السطر الأول صرحنا عن متحول عددي
السطر الثاني بداية جملة التكرار
السطر الثالث زيادة قيمة المتحول a في كل حلقة تكرار
السطر الرابع تكتب التعليمة التي تريدها
السطر الخامس هو عدد مرات التكرار وهو سوف يكون قيمة المتحول a مثلاً :a<6 أو a=5
لذلك سوف يتم عمل التعليمة التي كتبتها 5 مرات ولهذا السبب قلنا عليك التصريح عن متحول لأنه دون ذلك سوف تكرر التعليمة إلى مالانهاية.
سوف نعمل مثال للتعرف أكثر على الجملة:
أضف فورم وزر أمر Command أكتب الشيفرة التالية:
تكررا الحدث 9 مرات كما في السطر الأخير a=9
يجب أن تصرح عن متحول قبلها لكي تعمل الجملة:
Code
Dim a As Integer
Do
a=a+1
التعليمة
Loob Until (a Value)
Do
a=a+1
التعليمة
Loob Until (a Value)
ربما شرح الجملة غير مفهوم قليلاً .
في السطر الأول صرحنا عن متحول عددي
السطر الثاني بداية جملة التكرار
السطر الثالث زيادة قيمة المتحول a في كل حلقة تكرار
السطر الرابع تكتب التعليمة التي تريدها
السطر الخامس هو عدد مرات التكرار وهو سوف يكون قيمة المتحول a مثلاً :a<6 أو a=5
لذلك سوف يتم عمل التعليمة التي كتبتها 5 مرات ولهذا السبب قلنا عليك التصريح عن متحول لأنه دون ذلك سوف تكرر التعليمة إلى مالانهاية.
سوف نعمل مثال للتعرف أكثر على الجملة:
أضف فورم وزر أمر Command أكتب الشيفرة التالية:
Code
Dim a As Integer
Do
a = a + 1
MsgBox a
Print a
Loop Until (a = 9)
Do
a = a + 1
MsgBox a
Print a
Loop Until (a = 9)
تكررا الحدث 9 مرات كما في السطر الأخير a=9