Search VB 2010

Sunday, April 17, 2011

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

تعرفنا على الخصائص Properties

نقوم بعمل مشروع جديد Project1 - نوعه Windows Application - و الهدف منه انشاء MsgBox - و يتكون من عدد (2) فورم
الاولى باسم (Form1) و الثانيه باسم (Msg) و ايضا Module1
فى الـفورم Form1 نضيف مفتاح
فى الفورم Msg نضيف عدد (2) Button + عدد (1) Label
- جميعنا يعرف الـ MsgBox و هى عبارة عن Form عاديه بها مجموعه من الخصائص و الدوال و الاجراءات المبرمجه و فى هذا المثال سنقوم بعمل MsgBox مصغر يمكننا استخدامه فى جميع المشروعات .
أكواد الموديول :
Public Function Msg1(ByVal Prompt As String)
Msg.Label1.Text = Prompt
Msg.Show()
و فى هذا الكود نقوم بعمل Function اسمها Msg1 مبنيه على متغير اسمه Prompt نوعه String متغير نصى
Prompt سيكون المسؤل عن نقل قيمة الــ Msg1 .
بينما فائدة هذه الداله هو استدعاء الفورم رقم 2 Msg و التى تمثل MsgBox المصغرة و مساواة قيمتها Prompt بقيمة Label1 فى الفورم Msg و بالتالى أى قيمة يأخذها Label1 هى قيمة الــ Prompt و بالتالى قيمة Msg1.
فى الفورم Form1 فى الحدث Button1_Click
Msg("Hello World")
الان قم بتنفيذ المشروع Run و عند الضغط على Button1 فى الـ Form1 لاحظ النتيجه ....
سنقوم الان بزيادة بعض الخصائص و القيم للـ Msg1 المصغرة . كما بالصورة رقم 17
لاحظ : الخصائص جاءت قبل Msg1.ShowDialog و المسؤله عن اظهار الـ Msg1 حيث يجب تنفيذ الاكواد قبل اظهار الرساله.
يمكنك كتابة جميع الاكواد الممكنه فى المنطقة قبل Msg1.ShowDialog
صورة رقم 17

- انتقل الى الحدث Button1_Click و اكتب Msg1 اضغط على مسافه ستجد أن معاملات الداله Msg1 مطلوبه منك قم بالتعويض عنها و نفذ المشروع ...


سنقوم الان باضافة دالة جديده و لكن بنفس الاسم و سنضع بعض الخصائص كما بالصورة رقم 18
صورة رقم 18
و لاحظ : عند التعويض فى الحدث Button1_Click عن قيمة الـ Msg1 ستجد أن المعاملات Parameters المراد التعويض عنها اصبحت نوعين عباره عن معاملات الداله الاولى و معاملات الداله الثانية و هذا يسمى بالـــ OverLoading
و يستخدم الــ OverLoading للتعامل مع الدوال كما فى المثال لاعطائها ديناميكية أكثر للتعامل فيمكنك عن طريق هذه الخاصيه أن تقوم باضافة أحداث و خصائص و إجراءات جديده للدالة Msg1 لا يمكنك تجميعها تحت سقف واحد و لكن عن طريق تقسيمها الى مجموعه من الدوال أو الاجراءات أو الخصاص و جميعها ستصب فى نفس الداله فى النهاية .
و عند التنفيذ يتلاحظ أن المشروع يطلب منك اختيار مجموعه معينه من اجراءات الداله Msg1 لتنفيذها ....
و على سبيل المثال قم باضافة داله ثالثه بنفس الاسم
Public Function Msg1 (ByVal Prompt As Integer)
Msg.Text = Prompt
Msg.ShowDialog()
لاحظ ان عند تنفيذ الكود أصبح مطلوب منك اختيار 3 مجموعات من الاكواد اتنفيذها منها Prompt كمتغير رقمى و هكذا ....

No comments:

Post a Comment

Visual Basic Online Course

Visual Basic Courses - Share