Structure of control in Visual Basic 2

                                                       

                                                     Structure of control

                                          تكملة باقى دروس بنية التحكم فى الفيجوال بيك

عبارة Select Case

تستخدم هذه الطريقة في حال وجود عدة قيم  واحتمالات لعبارة معينة واحدة.

مثلا يقوم المستخدم بإدخال رقم أصغر من 5 فيقوم الحاسوب بطباعة  رسالة

بحسب الرقم المدخل,فعوضا عن تكرار استخدام عبارات If أو ElseIf فإننا

نقوم باستخدام Select Case.

نقوم بتحديد العبارة التي سترجع لنا القيمة وذلك بوضعها بعد عبارة Select Case

ثم نقوم بوضع كل احتمال بعد كلمة Case وتحتها الكود المرتبط بهذا الاحتمال.

والشكل العام لـ Select Case هو:

Select Case Expression

 Case Value1

   Statement(s)

 Case Value2

   Statement(s)

 Case ………

 Case Else

   Statement(s)

                                                                                                 End If

حيث أن Expression هي العبارة التي ستختبر قيمتها,مثلا Text1.text أو …

أما Value (1,2,3,..) فهي قيم العبارة Expression.

وهذه بمثابة If Expression=ValueX Then Statement(s)

أي أن البرنامج يقوم بإرجاع قيمة Expression ويقوم باختبار ما إذا كانت تساوي إحـدى القيم الموجودة بعد إحدى كلمات Case وفي حال كانت كذلك فإنه يقوم بتنفيذ الكــــود الذي يقع بين القيمـــــة الموجودة يمين كلمة Case و كلمة Case التي تليها أو (End select أو Case Else).

في حال لم تتوافق واحدة أو أكثر من القيم المحددة بعد كلمات Case مع قيمة Expression فإن البرنامج يقوم بتنفيذ الكود المتعلق بكلمة Case Else.

ملاحظة : ليس من الضروري كتابة عبارة Case Else إلا في حال تطلب

البرنامج ذلك.

يمكنك استخدام كلمة To مع بعض أنواع القيم كالأرقام مثلا,حيث يمكنك مثلا أن تكتب

Case 2 To 5 بدلا من  Case 2.....Case3.......Case4........Case5.......

بنى التحكم التّكرارية

تستخدم بنى التحكم التكرارية للاستمرار في تنفيذ كتلة معينة من الكود طالما بقي شرط محققا أو حتى تحقق شرط أو لعدد_ يحدده المستخدم_ من المرات.

عبارة WhileèWend

تستخدم هذه الطريقة للاستمرار في تنفيذ كود معين و إعادة تنفيذه..طالما بقي الشرط  المتعلق بها محققا, وفي حال عدم تحقق الشرط فإن التحكم ينتقل من البنية التكـرارية

إلى التعليمة التي تليها.

والشكل العلم لعبارة WhileèWend هو:

While Condition

  Statement1

  Statement2

  Statement..

                                                                                                 Wend

مثال: إليك برنامج يقوم بإظهار رسالة للمستخدم 5 مرات ويكتب بالرسالة ترتيب التكرار:

أنشئ فورم واكتب فيه الكود التالي:

Private Sub  Form_Load  ()

Dim Counter As Integer

Counter = 0

 While Counter < 6

 MsgBox Counter

 Counter = Counter + 1

 Wend

End Sub