الفصل الرابع الأعلان عن الإجراء Sub

الاجراء ( procedure   )

هو مجموعة من الاوامر و التعليمات  (  code   ) تحت اسم ما عند استدعاء هذا الاسم يتم تنفيذ هذه الاوامر و التعليمات

الاجراءات نوعين

النوع الاول ( Sub)  لا يعود بقيمة

النوع الثانى ( Function)  يعود بقيمة

الاعلان عن الاجراء  Sub

نلجا للأعلان عن ( Sub  ) فى حالة اذا كان لدينا كود (  Code ) سيتكرر كتابته فى اكثر من مرة من موضع داخل التصنيف (  class ) و كذلك بهدف تنظيم كتابة الكود و سهولة قراءته و فهمه

الصيغة العامة للاعلان عن Sub

Sub Name ( Parameters)

Code        

EndSub

نلاحظ ان

1-     Name   تعبر  عن اسم الاجراء

2-  ( Parameters) عبارة عن القيم التى سوف تستقبل عند استدعاء  ( procedure   )  و التى تستخدم فى الكود 

الاعلان عن الدالة  Function

للاعلان عن (Function    ) فى حالة ان يكون لدينا كود سوف ينتج عنه قيمة نريد اخراجها للمستخدم او استخدامها فى البرنامج مثل ايجاد محيط الدائرة او حساب مساحة مربع او حساب ضريبة مستحقة 

صيغة الاعلان عن الدالة  Function 

Function Name  parameters  As  DataType

Code

Return  Value

EndFunction

حيث ان :

1-    (  Name  )   تعبر عن اسم الدالة  (Function    )

2-      (DataType ) تعبر عن نوع البيان الخاصة بالقيمة الراجعة من الدالة (Function    )

3-      (  Parameters )  تمثل الوسائط التى سوف تستخدم فى الكود  (   Code  )

4-      (   Code  ) مجموعة الاوامر و التعليمات التى ستنفذ عند استدعاء الدالة (Function    )

5-       (  Value  ) القيمة الراجعة من الدالة  (Function    )

مثال حساب مجموع رقمين 

بعد فتح نافذة الكود  نكتب الكود

Public  Class  Forms

Function Sum ( ByVal  First  As Single , ByVal Second  As Single  )  As Single  

Dim total  As Single  

Total = First + Second

Return total

End  Function

ملاحظات

1-    تم الاعلان عن الدالة من نوع (  Sum  )  من نوع  (  Single )  و تستقبل قيمتين و هما  (  First )   و (   Second )   حيث تم الاعلان عن متغير  (  Total )  من النوع   (  Single )   ثم تخصيص ناتج جمع القيمتين (  First ) و (  Second )   للمتغير   (  Total )   ثم ارجاع القيمة (  Total )  باستخدام   (   Return ) 

2-  القيمة  (  Total )   يتم تخزينها فى اسم الدالة   (  Sum )  كما سيتضح عند استدعاءها

تذكر ان :

المتغيرات (Variables  )   يمكن تخصيص قيم لها أثناء الاعلان و أثناء سير تنفيذ البرنامج و كذلك استخدام القيم المخزنة بها

الثوابت (  Constants ) يمكن تخصيص قيم لها أثناء الاعلان فقط  كذلك استخدام القيم المخزنة بها

الدوال (  Function    )لا يمكن تخصيص قيم لها و إنما تستدعى فتنتج قيمة تخزن بها ثم يمكنك أستخدام هذه القيمة المخزنة بها .

مثال حساب مساحة الدائرة

الاعلان عن الدالة (  Area  ) لحساب مساحة الدائرة

Function  Area ( ByVal  Radius    As Single  )  As Single  

Const   X  As   Single  =  22  /  7

Dim   Area    As Single     

radius  =  TextBox1.Tex

res = X * radius  ^ 2

Return res

End  Function

حيث تم الإعلان عن الدالة (  Area  ) و الإعلان عن الوسيط  (radius  ) حيث يكون ناتج الدالة (  Single  ) و تم الاعلان عن المتغيرين ( X )  كثابت  (Constant ) يخزن به القيم (  22  /  7   ) و (  res  ) لتخزين ناتج حساب مساحة الدائرة

استدعاء الدالة  (Area )

MessageBox.Show (Area (2) )

تم استدعاء الدالة ( Area ) و إعطاء قيمة ب ( 2 ) و عرض الناتج من خلال صندوق رسالة (MessageBox )

الدوال المعرفة مسبقا  (  Predefined Functions  )

هى دوال معرفة فى لغة البرمجة فيجوال بيزك و يتم استدعاؤها مباشرة مثل

1-   الدالة  (    Show )

2-   الدالة (  IsNumeric ) 

3-   الدالة (   Now )

اولا الدالة  (    Show )

  و تستخدم لإظهار صندوق رسالة "  MessageBox "يتحدد محتوياته حسب الوسائط المعطاة فى الدالة 

مثال

MessageBox.Show( "تم التسجيل بنجاح   ", "  تسجيل طالب جديد  "  )

ثانيا الدالة  (  IsNumeric ) 

تستخدم فى اختبار القيم هل هى رقمية ام غير رقمية

الدالة  (  IsNumeric )  لها ناتج اما  ( True ) اذا كانت القيمة رقمية او  ( False  )  اذا كانت القيمة غير رقمية

مثال

Label1.text = IsNumeric (  "  five  "  )

1-   ثالثا الدالة (   Now )

من خلالها يمكن استعراض الوقت و التاريخ المسجل بنظام الكمبيوتر

مثال  لاستدعاء الدالة

اكتب الكود التالى فى جدث  button1_click

Private Sub button1-click ( ByVal sender As object,

MessageBox.Show (  Now( )  )