OOP VB .Net Toturials and Examples - دروس فى ال أو أو بى

We discussed OOP concepts and started a project called ''Email Validation'' using the built-in-function IndexOf

In addition to the previous project, we will add New Form and we want now to repeat the previous SUB to Validate the Email on the new Form, to do so, we will need to copy the whole code and paste it to the new Form, now what if we wanted to add 20 New Form that require Email Validations for each Form of the 20 ... What would we do then ?! The answer is simple :
We shall use the OOP concepts to work this problem out ....

Creating SUB

We will create SUN [Validate_Email()] so we can validate Email in whole project without the need to copy and paste the same procedure 20 times for each Form.

Sub ValidateEmail ()

صورة رقم (3)
يحتوى هذا الاجراء على نفس الكود المراد تكراره , أى اننا سنقوم بعمل Cut للكود من مكانه و لصقه فالاجراء الجديد و التعويض عن الاكواد باسم الاجراء فقط كما بالصورة رقم 3
قم بتجربة البرنامج ستجد أن نفس النتيجه ظهرت .
الان سنقوم ببعض التغييرات على الـ Sub حيث سنقوم ببناء الـ Sub على متغير و يكون بهذا الشكل .
صوره رقم (4)
 Sub ValidateEmail (ByVal Txt As TextBox)
 الجمله التى بين الاقواس (ByVal Txt as TextBox) تسمى Parameter و سنقوم بتعديل الكود الموجود بالـ Sub حيث سنستبدل الــ Controls من نوع TextBox بالمتغير Txt و ايضا فى الحدث المسؤل عن تنفيذ الــ Sub  سنلاحظ وجود خط أحمر معناه أن الاجراء اصح ناقص (غير صحيح) حيث ينقصه المتغير المبنى عليه Txt و بما أننا نقوم بعمل Validate للــ TextBox2 فاننا سنضع بين الاقواس فى الــ Sub كلمة TextBox2 كما موضح بالصورة رقم 4.
قم بتجربة البرنامج سيعطيك نفس النتيجه .
الان سنقوم بالتعديل مره ثالثه فى الاكواد حيث سنستبدل المتغير Txt من نوع TextBox بالمتغير Txt1 من نوع String بهذا الشكل.
Sub ValidateEmail (ByVal Txt1 As String)
صورة رقم (5)
أى اننا نريد التعويض عن المتغير النصى هذه المره , أى اننا سنعوض عن TextBox2.Text بالكامل فى الاجراء بدلا من TextBox2 و سنقوم بتغيير الكود حيث سنستبدل Txt.Text بالكامل بــ Txt فقط .... كما بالصورة رقم 5 .
مثال أخر لتوضيح عمل الاجراءات Sub
الفرق بين الاجراءات المبنية على متغيرات اجبارية و المبنية على متغيرات اختياريه .
المتغيرات الاجبارية هى التى يجب ان تذكر عند كتابة الاجراء .
المتغيرات الاختياريه يمكن كتابتها و يمكن التغاضى عنها .
سنقوم الان بعمل فورم ثالث Form3 فى نفس المشروع المفتوح EmailValidation و سنقوم بعمل اجراء Test بهذا الشكل
Sub Test (ByVal X As Integer, Optional ByVal Y As Integer = 10)
الاجراء الموضح أمام حضرتك عباره عن عدد (2) Arguements الاول (X) و الثانى (Y) و نوعهم (Integer) أى متغير رقمى .

صورة رقم (6)
المتغير الثانى يحتوى على كلمة Optional و ذلك معناه أنه عندما التعويض عن الاجراء Test فانه من الممكن تجاهل قيمة (Y) حيث أنها اختياريه و لكن ستكون قيمتها دائما 10 اذا تم تجاهلها.
قم بكتابة المثال الموجود بالصورة رقم (6) حيث Form3 بها فقط Button1 و الكود سينفذ من خلال الحدث Button1_Click
ستلاحظ ان الكود يتم تنفيذه على الرغم من عدم كتابة المتغير الاختيارى و لكن لا يعمل بدون الاجبارى X ..
ملحوظة : المتغيرات الاختيارية تكتب فى منطقة الــ Parameters فى النهايه دائما (لا تنسى) مثال :
إجراء صيحيح
Sub Test(ByVal X As Integer , ByVal Y As String , ByVal L As Boolean , Optional ByVal N as Integer)
اجراء خاطىء
Sub Test(ByVal X As Integer , ByVal Y As String , Optional ByVal L As Boolean , ByVal N as Integer)
اجراء خاطىء
Sub Test(Optional ByVal X As Integer , ByVal Y As String , ByVal L As Boolean , ByVal N as Integer)
لاحظ ايضا لم نستخدم Public أو Private .... و ذلك لأننا كنا نعمل على مستوى الفورم فقط و بالتالى استخدامهم غير ضرورى.

Comments

Popular posts from this blog

Visual Basic Online Courses DataGridView Add Edit Delete

Visual Basic 2010 Working With DataBase Full Project Example

Visual Basic 2010 - Button Sound / Music Play