Posts

Showing posts from April 17, 2011

Author

Ahmed Samir

Evry1falls is my online name

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

Image
فى الدرس السابق تعرفنا على الخصائص 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 و عند الضغط عل…

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

Image
فى الدرس السابق تعلمنا المزيد عن الــ Class ... الخصائص أو Properties - كيف نقوم بعمل خاصيه داخل الـــ Class ؟؟؟ - لكى نجيب على هذ التساؤل يجب أولا قراءة الاتى بتمعن : ............. ما هى وظيفة الخاصية ؟ - هى نفس وظيفة المخزن (المتغير) تقوم بتخزين قيمة داخلها لحين استخدامها ............ - سنقوم بعمل مشروع جديد Windows Application يحتوى على Form و Class 1) نفتح الـ Class1 و نكتب فيه الكود الاتى : Public Proprty Test() و نضغط على Enter تلاحظ : تم اضافة سطور جديده تلقائيا كما بالصورة رقم 10 حيث Get هى المسؤله عن استرجاع القيمه Value Set هى المسؤله عن تخزين القيمه Value القيمة Value هى القيمة الافتراضيه لمدخلات الخاصيه أو بمعنى اخر هى المسؤله عن تخزين القيمه ف الاجراء Set و يمكن استبدالها بأى اسم متغير اخر, و لكن يجب ان يكون نوع المتغير Value من نفس نوع الخاصيه بمعنى : اذا قمنا بكتابة كود الخاصيه الموضح بالصورة 10 بشكل تانى : Public Property Test() As Double Get Codes ....................... End Get Set (ByVal Value as Double) Codes ....................... End Set End Property ايضا من ضمن الفروق ين المتغير (…

Comment Via facebook