كيفية القيام بما يلي: إنشاء إجراء
يجب إحاطة الإجراء بين عبارة تعريف بداية (Sub أو Function) و عبارة نهاية تعريف End Sub أو End Function). تقع كل التعليمات البرمجية للإجراء بين هذه العبارات.
الإجراء لا يمكن أن يحتوي على إجراء أخر لذا يجب أن يكون عبارات بدايتها و نهايتها خارج أي إجراء أخر.
إذا كان لديك تعليمة برمجية تنفّذ نفس المهمة في أماكن مختلفة يمكن كتابة المهمة مرة واحدة كإجراء ثم قم باستدعائه من أماكن مختلفة في التعليمات البرمجية.
لإنشاء إجراء لا يقوم بإرجاع القيمة
خارج أي إجراء آخر استخدام كشف Sub متبوعاً بكشف End Sub.
في عبارة Sub اتبع الكلمة الأساسية Sub مع اسم إجراء, ثم معلمة القائمة بين قوسين.
ضع عبارات التعليمات البرمجية للإجراء بين Sub و End Sub العبارات.
لـإنشاء إجراء لإرجاع قيمة
خارج أي إجراء آخر استخدام كشف Function متبوعاً بكشف End Function.
في عبارة Function اتبع كلمة أساسية Function مع اسم الإجراء ثم قائمة المعلمات في أقواس ، وبعد ذلك عبارة As تحدد نوع قيمة الإرجاع.
ضع عبارات التعليمات البرمجية للإجراء بين Function و End Function العبارات.
استخدم كشف Return لإرجاع القيمة للتعليمات البرمجية التي قامت بالنداء.
لإستدعاء الإجراء الجديد الخاص بك جديد مع كتل القديم, متكررة من تعليمات برمجية
تأكد من تحديد الإجراء الجديد في مكان أين القديم تعليمات برمجية لديه حق الوصول إليه.
في التعليمات البرمجية المتكررة و القديمة إستبدل العبارات التي تقوم بتنفيذ المهمة المتكررة بعبارة واحدة تستدعي إجراء Sub أو Function.
إذا كان الإجراء الخاص بك هو Function التي تقوم بإرجاع قيمة, تأكد من أن عبارة الاستدعاء تنفّذ مهمة مع القيمة التي تم إرجاعها مثل تخزينها في متغير ما، وإلا ستفقد القيمة.
مثال
الإجراء التاليFunction يحسب الجانب الأطول أو وتر مثلث قائم، قيم الجانبين الأخرين معلومة.
Function hypotenuse(ByVal side1 As Single, ByVal side2 As Single) As Single
Return Math.Sqrt((side1 ^ 2) + (side2 ^ 2))
End Function
راجع أيضًا:
المبادئ
برمجة كائن-مهيأ (C# و Visual Basic)