Structure of control in Visual Basic 1

Structure of control

مقدمة عن بنى التحكم


يمكن القول أن بنية التحكم هي طريقة نقل التحكم من مكان إلى آخر في الكود فمثلا يمكنك أن تأمر البرنامج أن يفعل جزء معين من الكود في حال تحقق شرط معين وأن يفعل جزءاً آخرا منه في حال عدم تحققه,كما يمكنك أن تأمر البرنامج أن يستمر في تكرار تنفيذ جزء من الكود حتى يتحقق شرط معين أو طالما بقي شرط معين محققاً..ويمكنك أن تترك البرنامج ينفذ التعليمات بالتسلسل( تعليمة تعليمة) وهي بنية التحكم الافتراضية.



بنية التحكم التسلسلية


في هذه الطريقة,يتم تنفيذ التعليمات تعليمة تعليمة, وكمثال على ذلك: افتح برنامج الفيجوال بيسك,أضف فورم,ضع فيه عنصر تحكم من النوع مربع النص واترك الخاصية  Name له كما هي(Text1) ثم أضف زر تحكم(زر أمر) واترك الخاصية Name كما هي, بإمكانك تغيير تسمية الزر (الخاصية Caption) إلى "أظهر النص".

                             اكتب الكود التالي:

Private Sub Command1_click()

                                                                                  Text1.text = ""

Text1.Text = "Prel"

Text1.Text = Text1.text & "ware"

Text1.Text = Text1.text & " 

Association"

end sub

لاحظ من خلال الكود السابق أنه تم في البداية جعل نص مربع النص يساوي "" أي لا 

شيء,ثم ينتقل البرنامج لتنفيذ الأمر الذي يليه وهو جعل النص "Prel" ثم يضيف للنص السابق كلمة "ware" ثم يضيف للنص السابق كلمة " Association" لاحظ أن التعليمات نفذت بشكل متسلسل مما جعل النص الموجود في مربع النص يكون "Prelware Association".

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

تقوم بنى التحكم الشرطية بتنفيذ أجزاء معينة من الكود حسب صحة شرط معين,سنتعرف على ذلك, وهناك عدة أنواع للبنى الشرطية.

عبارة IfàThen:

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

والشكل العام لعبارة If  Then  هو:

If Condition Then

  Statement1

  Statement2

  Statement..

                                                                                              End If

Statement1

Statement2

Statement..

End If 

حيث Condition هو الشرط الواجب تحققه لتنفذ كتلة ال If.

أما Statement(s) هي التعليمة/التعليمات التي تنفذ في حال تحقق الشرط Condition.

أما Then فكل مل يليها يتم تنفيذه حتى نصل إلى عبارة End If(في حال تحقق الشرط).

أما  End If فتدل على أن الكتلة الشرطية انتهت.

الكود المحصور بين عبارتي Then  و End If هو الكود الذي يتم تنفيذه في حال تحقق الشرط.

في حال عدم تحقق الشرط,فأن التحكم ينتقل مباشرة إلى التعليمة التي تلي عبارة End if ويتم تنفيذها.

إذا: في البداية يقوم البرنامج بالتحقق من صحة الشرط,إذا كان الشرط محققا فإن التعبير الشرطي يأخذ القيمة True ثم يتم تنفيذ الكود الواقع بين كلمتي Then و End If وإن كان غير محقق فإن البرنامج يقوم يتجاوز التعبير الشرطي ويقوم بتنفيذ التعليمات التي تلي عبارة End If.

ملاحظة: يسبب نسيان عبارة End if أو Then الوقوع في خطأ قواعدي.

عبارة IfàThenàElseèElseIf..:

تقوم هذه العبارة بعمل مشابه لعمل ifèthenèelseè إلا أنها تقوم باختبار تحقق عدة شروط,أي إن لم يحقق الشرط الأول تقوم باختبار الشرط الثاني ثم الثالث وهكذا حتى يتحقق أحد الشروط فتقوم بتنفيذ كوده وإن لم يتحقق أي من الشروط فإنها تقوم بتنفيذ الكود المتعلق بكلمة Else.

توضع كلمة Else والكود المتعلق في نهاية الكتلة الشرطية قبل End If.

عند تحقق الشرط الأول فإن البرنامج ينفذ الكود المحصور بين كلمة Then وكلمة ElseIf

الأولى وفي حال تحقق شرط متعلق بإحدى كلمات ElseIf فإنه يتم تنفيذ الكود الواقع بينه و

بين كلمة ElseIf التي تليه,وفي حال عدم وجود ElseIf بعده يتم تنفيذ الكود حتى كلمة Else وفي حال عدم وجودها أيضا يتم تنفيذ الكود حتى كلمة End If.

وإن لم يتحقق أي من الشروط فإنها تقوم بتنفيذ الكود المتعلق بكلمة Else.

أما الشكل العام لعبارة IfàThenàElseèElseIf.. فهو:

If Condition Then

  Statement1

  Statement..

ElseIf Condition2 Then

Statement1

Statement..

Else If Condition.. Then

…

                                                                                               End If