منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - دورة تعليم البرمجة باستخدام VB.net,

تصميم برنامج الخطوه الاولى على فيجوال البيسك وراح يكون دروس ايضاءكثيره

Sat, 03 Aug 2013 02:42:16 +0000

شرح تصميم برنامج على فيجوال البيسك بالفديو كااول برنامج لك على فيجوال البيسك 2010

اتبع الفديووو وانشاءالله راح يكون في دروس اكثر

تصميم برنامج مع ربط قاعدة البيانات من فجيوال البيسك

اظغط على الرابط

http://www.youtube.com/watch?v=yyBwklopdao

اتمنى ان اكون وفقت في هذا الشرح

السلام عليكم

Mon, 22 Jul 2013 10:20:07 +0000

اذا امكن محتاجة دورة فجول بيسك 6 ولكم كل الشكر والامتنان

الفصل (11) :oop بالتفصيل ..الجزء الاول

Sun, 30 Sep 2012 02:35:34 +0000

صاحب الموضوع الأخ :- Mohammed Asaad

OOP

_______________________________________

ملاحظة:
كاتب هذا الدرس الاستاذ أحمد نجم
_______________________________________

عندما نتحدث عن الـ OOP أو ما يسمى بالـ [ Object-Oriented Programming ] ، فهنا نحن بصدد الحدي عن البرمجة الكائنية التوجهية او ما يسمى بالبرمجة الموجهة للكائنات. يتناول هذا الموضوع باذن الله تعالى مميزات وسمات ومبادئ الـ OOP والكامنة في الثلاث مبادئ الأساسية كما يلي :

الوراثة ... Inheritance
التغليف ... Encapsulation
التعدد أو تعدد الأوجه ... Polymorphism

هذا بالإضافة لعدة مميزات أو مبادئ أخرى منبثقة من تلك الأساسية التي سبق وأن ذكرناها ، يمكنك متابعة ومعرفة الكثير عن الفئات أو ما يسمى بالـ Class في الدرس رقم ( 10 ) على الرابط الفصل(10):مدخل الى الفئات..الجزء الثاني

ولكن دعونا نبدأ من هنا ، فأولاً كي نتعامل مع الفئات فيجب أن يكون لكل فئة أحداثها وخصائصها وطرقها ( وظائفها ). فلو تناولنا عناصر الفئة الثلاث المذكورين فيما سبق فسيكون الآتي :

الخاصية [ Property ] ... الخاصية هي إحدى الطرق التي عن طريقها يتم تخزين نوع أو شكل معين من أنواع البيانات ، ومن الممكن أن تكون هذه القيمة بسيطة كاسم أو رقم أو تاريخ ، ومن الممكن أن تكون معقدة نسبياً كالمصفوفات أو تكون الخاصية أساسا عبارة عن كائن مستقل له خصائصه وأحداثه وطرقه أو وظائفه. للعلم هناك خصائص من النوع ( Read/Write ) وهناك نوع آخر وهو ( Read-Only ).

الطريقة أو الوسيلة [ Method ] ... تمثل الطريقة دالة أو إجراء ( Function Or Subroutine ). وتعتبر الطريقة أو الوظيفة كجزء من الكود داخل الفئة Class مما يضفي عليها السمة الأساسية للفئات وكذلك تواجد الطرق داخل الفئات لتنفيذ مجموعة من سطور الكود ضمنياً وتنفيذ وظيفة أو مهمة معينة ظاهرياً.

الحدث [ Event ] ... الحدث بكل بساطة هو عبارة عن إخطار حركي. يعني هذا أن الحدث يستدعي قطع أو إجراءات معينة من الكود داخل الـ Class كي يخبرها أن بعض الأحداث أو الشروط داخل الفئة قد وقعت بالفعل.

اعلم بالطبع أني لم أضف لديك جديداً بل بكل تأكيد قد شوشت عقلك وأذهبت لديك ببعض المفاهيم إلى حيث لا تدري ، ولكن أصغ لي مرة أخيرة وتخيل معي هذا المثال البسيط.
بفرض مثلاً أنه لدينا فئة أو Class بالمسمى ( Job ) ، فهيا بنا نحلل ما جاء بها كما يلي :

أولاً - الخواص [ Properties ] :

JobDescription ( وصف أو تعريف الوظيفة ) = وهي خاصية تحتوي على وصف نصي للوظيفة.
WorkHours ( ساعات العمل ) = وهي خاصية تحتوي على عدد ساعات العمل لتلك الوظيفة.
JobCustomer ( المتقدم للوظيفة ) = وهنا ستختلف نوع الخاصية فهنا سنقوم بتعريف الخاصية JobCustomer على أنها عبارة عن كائن مشتق من فئة Class آخر بالاسم Customer. والفئة Customer تحتوي على خصائص وأحداث وطرق ووظائف ومتغيرات وكذلك دوال وإجراءات.
EstimatedHours ( الساعات المُقدرة ) = عدد الساعات المبدئية المُقدرة لأداء هذه الوظيفة.

ثانياً – الطرق أو الوسائل [ Methods ] :

AssignJob (اعتماد الوظيفة ) = هذا الإجراء يقوم بتنفيذ اعتماد الوظيفة من الموظف المختص بالتعيين إلى العميل المتقدم للوظيفة.
BillJob ( كشف حساب ) = يقوم مثلا هذا الإجراء بطباعة كشف حساب على سبيل المثال للشخص المتقدم للوظيفة.
EstimatedCost ( التكلفة المقدرة ) = دالة تقوم بالرجوع بالتكلفة المُقدرة بناءا على ما ورد في عقد خدمات العميل أو المتقدم للوظيفة وكذلك الساعات المُقدرة التي وردت بالخصائص سابقاً EstimatedHours.

ثالثاً – الأحداث [ Events ] :

Created ( إنشاء الوظيفة ) = يوفر هذا الحدث إمكانية التحكم بالفئة أو التطبيق عند إنشاء الوظيفة عن طريق كتابة ما يشاء في هذا الحدث.
Assigned ( التعيين ) = يتم تنفيذ ما ورد في هذا الحدث عند موافقة الموظف على العميل المتقدم للوظيفة وإعطاء أمر التعيين.
Rejected ( الرفض أو ترك المهمة ) = يتم تنفيذ هذا الحدث عند رفض إكمال المهمة من قِبَل الموظف ، ربما حدث هذا لعدم اكتمال أوراق العميل او ربما لظروف طارئة للموظف او عدم تواجد الخبرة الكافية للقيام بهذه المهمة.
Canceled ( إلغاء الأمر ) = وهذا مثلاً يتم من قِبَل العميل قبل إصدار أمر التعيين.

كانت هذه نظرة سريعة على فئة أو Class تحتوي على أحداث وخصائص ودوال وإجراءات وهذا فقط على سبيل المثال. نأتي بعد ذلك لملحوظة مهمة وهي مجمل ما سبق فتعريف الفئة هي عبارة عن مصدر أو كيان أو شخصية برمجية مستقلة تغلف او تحتوي على مجموعة من التعليمات البرمجية على اختلاف أنواعها ( خصائص أو أحداث أو دوال وإجراءات ). لا يعني ما سبق هو شرط تواجد الثلاث مكونات السابقة داخل كل فئة ، ولكن نحن نتحدث عن الأحوال القياسية.
بعد الحصول على نسخة من الفئة ووضع محتوياتها داخل كيان آخر عن طريق جمل التصاريح مهما اختلفت صيغتها كمثل :

كود :
[b][SIZE=4][color=#0000ff]Dim [/color]MyObj[color=#0000ff] As New [/color][color=#add8e6]Class1[/color][/SIZE][/b]

فهنا يتضح الفرق بين الكائن والفئة على النحو التالي ، فهنا الفئة هي المسماة Class1 ، أما إن الكائن فهو المقصود به الكيان البرمجي الذي قمنا بوضع كافة خصائص الفئة بداخله وهو المسمى في مثالنا MyObj.

___________________________

** ملحوظة مهمة **
___________________________

يعتبر الـ Visual Basic .NET مكتظ بالفئات ، فعلى سبيل المثال تعتبر كل أداة موجودة داخل الـ Component عبارة عن Class مستقلة لها أحداثها وخصائصها وطرقها ، وتعتبر الفئة الأب هي الفئة المسماة Control. وعند استخدامك لهذه الأدوات فما أنت تعمل إلا مع كائنات مشتقة من مصدرها الأساسي ، فلو فرضنا أننا لدينا TextBox على الـ Form فمربع النص هذا عبارة عن كائن مشتق من الفئة المسماة TextBox ويحمل هذا الكائن كافة ما يميز هذه الفئة المشتق منها. باختصار وكما يقول البعض [ Visual Basic .NET is jam-packed with classes ].

___________________________

التغليف [ Encapsulation ]

الواجهة العامة للفئات Class's Interface تتكون مما سبق ذكره وهي الخصائص وكذلك الطرق والأحداث ، وعندما أتحدث عن الواجهة العامة أقصد بذلك الوظائف والأحداث والخصائص التي تظهر للمستخدم خارج الفئة.

كود :
[b][SIZE=4][color=#0000ff]Dim [/color]CN [color=#0000ff]As New[/color] SqlClient.[color=#add8e6]SqlConnection[/color][/SIZE][/b][b][SIZE=4]

[/SIZE][/b][b][SIZE=4]CN.Open()[/SIZE][/b]

لو نظرنا في هذين السطرين السابقين فسيتضح ما يلي ... أولاً الفئة المسماة SqlConnection عبارة عن فئة مشتقة من مكتبة أو فئة كبرى مسماة SqlClient ، أما عن الكائن CN فهو كائن يحمل خصائص الفئة SqlConnection فإذا كتبت في محرر VB .NET اسم الكائن CN ثم ضغطت علامة ( . ) ستظهر كافة الخصائص والطرق الخاصة بالفئة SqlConnection ولكن ستظهر أسماء تلك الخصائص والطرق وليس الأكواد التي كُتبت بها تلك الطرق والخصائص.

تعال نضرب مثال آخر .. في مثالنا السابق عن الفئة المسماة Job فهناك طريقة أو أجراء بالاسم AssignJob ولكن من الطبيعي لتنفيذ هذه الوظيفة السابق ذكرها أن يكون هناك دالة أثناء التنفيذ بأن يقوم البرنامج بفحص مؤهلات أحد الموظفين للقيام بمتابعة تعيين العميل المتقدم للوظيفة كي ينفذ الوظيفة الرئيسية وهي التعيين ولتكن مثلاً اسم الدالة الفرعية او الثانوية هذه بالاسم FindQualifiedEmployee. وفيما سبق قصدت بأن الدالة المسماة FindQualifiedEmployee غير ظاهرة لمستخدم الـ Class لذا فهي تم تعريفها أو التصريح عنها بالمفتاح Private أما عن الإجراء AssignJobفتم التصريح عنه بالمفتاح Public. طبقاً لما سبق فإن مستخدم الفئةJobستظهر له الطريقة AssignJob عند التصريح عن كائن كنسخة من الفئة ، أما الدالة FindQualifiedEmployee فهي خاصة بالفئة فقط ولا تظهر للمستخدم للفئة.
بكل اختصار في حديثنا عن التغليف أو الـ Encapsulation ، أنت تتحكم فيما يظهر لمستخدم الفئة وفيما لا يظهر من خصائص وطرق وأحداث. وما يظهر فهو يؤدي الوظيفة التي وُجِدَت من أجلها الفئة ( Class ) ، أما ما لا يظهر للمستخدم من أحداث وخصائص وطرق فهو يخدم ما يظهر مما سبق.
يمكنك الاستفادة من مميزات التغليف Encapsulation بعيداً عن الفئات. في العِقد السابق قبل اعتماد بعض اللغات لمبادئ الـ Object-Oriented كان المبرمجين يقومون بصناعة مكتبات الكود أو تطبيقات معينة وتدعم أيضاً التغليف وبنفس المفهوم الحالي ولكن كان آنذاك بمعنى آخر . على سبيل المثال : لو لدينا مكتبة تحتوي على وظائف ودوال لعلم المثلثات Trigonometry مثلدوالالـ Sines أو Cosines أو Tangents أو Ar ctagents ...الخ ، ولتنفيذ هذه الحسابات فيجب أن تحتوي المكتبة على وظائف ودوال مساعدة خفيّة تساهم في الوصول لنتائج الدوال الأساسية السابق ذكرها.

الوراثة [ Inheritance ]

الوراثة ضمن مبادئ الـ OOP عبارة عن اشتقاق فئة من فئة أخرى. وتكون الفئة الجديدة المشتقة ( ChildClass or DerivedClass or SubClassing ) تحتوي على كافة خصائص وأحداث وطرق الفئة الأب ParentClass. هذا بالإضافة إلى انك تستطيع إضافة أحداث وخصائص ودوال وإجراءات جديدة إضافة لما حصلت عليه عن طريق الوراثة من الفئة الأب من الخصائص والأحداث والدوال والإجراءات.

على سبيل المثال : لدينا فئة بالاسم Person ولهذه الفئة بعض المتغيرات كـ ( FirstName , LastName , Age , Address , EMail ) ، ومثلاً هناك وظيفة اسمها DialPhone وهذه تختص بقيام التطبيق بالاتصال تليفونياً بالشخص وكذلك وظيفة أخرى اسمها SendMail وهذه تُمكن المستخدم من إرسال بريد إلكتروني للشخص.

_______
التتمة بالاسفل...

الفصل(16): مدخل لمسارات التنفيذ Threading

Sun, 23 Sep 2012 14:46:49 +0000

السلام عليكم ورحمة الله وبركاته
في هذا الفصل سنتطرق لموضوع نال أهمية واضحة في عالم الدوت نت
سأتطرق لعدة أمثلة توضح مضمون فصلنا لهذا اليوم إن شاء الله

ملاحظة : بعض الأمثلة اقتبستها من مصادر أخرى لوضوحها

لنأخذ مثلا برنامج الوورد.. نعرف جميعا أن برنامج الوورد يقوم بعملية التدقيق الإملائي وعند كتابة أي كلمة يقوم الورد بالبحث عنها في معجمه وإن لم يجدها يخبرك بأنها خاطئة
في الحقيقة عملية البحث في معجم يحتوي على كم هائل من الكلمات عملية ليست بالبسيطة وتستغرق وقت ومصادر ليست بالقليلة.. وإن كان الأمر أن يقوم البرنامج بعملية تدقيق بعد كل حرف - وهذا ما يحدث فعلا - بتفكيرنا وعلمنا الضيق بواسطة برنامج واحد لمكثنا وقتا طويلا في كتابة جملة واحدة فقط وهنا تأتي فكرة التطبيقات متعددة مسارات التنفيذ
حيث تم إنشاء مسار خاص بالمدقق وحده بشكل لا يؤثر على عمل البرنامج.

إن لم تتضح الفكرة بالمثال السابق لنتناول المثال التالي:
مضادات الفيروسات تقوم بالكثير من المهام في نفس الوقت ( مراقبة المنافذ وفحص الملفات و تحديثات للبرنامج ووو)
من البديهي جدا أن كل ذلك لا يتم في مسار واحد وإلا لما استطاع البرنامج القيام بهذه المهام في ذات الوقت.

الآن أتمنى أن تكون الفكرة قد وصلت ولندخل لموضوعنا بإذن الله.

في بادئ الأمر دعني أناقش معك المثال التالي من باب التوضيح:
الآن قم بانشاء مشروع جديد وضع فيه بوتون واحد وأداة Label وأداة تايمر
دعنا نقوم بعملية ربط نصوص في حلقة تكرارية ل 100000 مرة.

كود :
[align=left]

[color=#000000][COLOR=#007700]Private [/color][color=#0000BB]Sub Button1_Click[/color][color=#007700]([/color][color=#0000BB]ByVal sender [/color][color=#007700]As [/color][color=#0000BB]System[/color][color=#007700].[/color][color=#0000BB]Object[/color][color=#007700], [/color][color=#0000BB]ByVal e [/color][color=#007700]As [/color][color=#0000BB]System[/color][color=#007700].[/color][color=#0000BB]EventArgs[/color][color=#007700]) [/color][color=#0000BB]Handles Button1[/color][color=#007700].[/color][COLOR=#0000BB]Click

Dim MyString  [/COLOR][color=#007700]As [/color][color=#0000BB]String [/color][color=#007700]= [/color][COLOR=#DD0000]""

        [/COLOR][color=#007700]For [/color][color=#0000BB]I [/color][color=#007700]= [/color][COLOR=#0000BB]0 To 100000

            MyString [/COLOR][color=#007700]&= [/color][COLOR=#DD0000]"o"

        [/COLOR][COLOR=#0000BB]Next

End Sub

[/COLOR][/COLOR][/align]

نفذ البرنامج واضغط على البوتون الذي وضعته.
ستجد أن البرنامج توقف عن الاستجابة لثوان عديدة مما سيثير استفزاز المستخدم
وسبب التوقف - لم يتوقف فعلا - أن البرنامج مشغول ب100000 عملية ربط نصوص
لتفادي هذه المشكلة دعنا نجعل تنفيذ عملية الربط في مسار آخر حتى لا يؤثر ذلك على عمل البرنامج ومن هنا يستدعي الأمر الإعلان عن Thread جديد
في البداية قم باستيراد مجال الأسماء System.Threading

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]Imports System[/color][color=#007700].[/color][COLOR=#0000BB]Threading  

[/COLOR][/COLOR][/align]

الآن نقوم بتعريف كائن جديد من نوع Thread

كود :
[align=left][color=#000000][COLOR=#0000BB]             [COLOR=#000000] [COLOR=#0000BB]Dim NewThread [/color][color=#007700]As New [/color][color=#0000BB]Thread[/color][color=#007700]([/color][color=#0000BB]AddressOf DoIt[/color][color=#007700])  [/color][/COLOR]

[/COLOR][/COLOR][/align]

تجد أنه من الضروري تمرير وسيط باستخدام الكلمة المحجوزة AddressOf وفي المثال التعليمة السابقة مررنا له إجراء DoIt

وهذا الإجراء الذي قمنا بتمريره قبل قليل

كود :
[align=left][color=#000000][COLOR=#0000BB] Sub DoIt[/color][COLOR=#007700]()

        For [/COLOR][color=#0000BB]I [/color][color=#007700]= [/color][COLOR=#0000BB]0 To 100000

            MyString [/COLOR][color=#007700]&= [/color][COLOR=#DD0000]"o"

        [/COLOR][COLOR=#0000BB]Next

        NewThread[/COLOR][color=#007700].[/color][color=#0000BB]Abort[/color][COLOR=#007700]()

    [/COLOR][COLOR=#0000BB]End Sub 

[/COLOR][/COLOR][/align]

تجد أننا قمنا بعملية الربط داخل الإجراء DoIt

لتنفيذ الThread الذي أعلنا عنه (NewThread) استخدم الطريقة Start

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]NewThread[/color][color=#007700].[/color][color=#0000BB]Start[/color][color=#007700]()[/color][/COLOR]

[/align]

الآن بعد تشغيل المسار الآخر دعنا نراقب ما وصلت إليه عملية الربط باستخدام تايمر جديد

وهذا الكود بشكله النهائي للمثال الأخير لربط المفاهيم بعضها ببعض

كود :
[align=left][color=#000000][COLOR=#0000BB]   Dim MyString [/color][color=#007700]As [/color][color=#0000BB]String [/color][color=#007700]= [/color][COLOR=#DD0000]""

    [/COLOR][color=#0000BB]Dim NewThread [/color][color=#007700]As New [/color][color=#0000BB]Threading[/color][color=#007700].[/color][color=#0000BB]Thread[/color][color=#007700]([/color][color=#0000BB]AddressOf DoIt[/color][COLOR=#007700])

    Private [/COLOR][color=#0000BB]Sub Button1_Click[/color][color=#007700]([/color][color=#0000BB]ByVal sender [/color][color=#007700]As [/color][color=#0000BB]System[/color][color=#007700].[/color][color=#0000BB]Object[/color][color=#007700], [/color][color=#0000BB]ByVal e [/color][color=#007700]As [/color][color=#0000BB]System[/color][color=#007700].[/color][color=#0000BB]EventArgs[/color][color=#007700]) [/color][color=#0000BB]Handles Button1[/color][color=#007700].[/color][COLOR=#0000BB]Click

        NewThread[/COLOR][color=#007700].[/color][color=#0000BB]Start[/color][COLOR=#007700]()

        [/COLOR][color=#0000BB]Button1[/color][color=#007700].[/color][color=#0000BB]Enabled [/color][color=#007700]= [/color][COLOR=#0000BB]False

    End Sub

    Sub DoIt[/COLOR][COLOR=#007700]()

        For [/COLOR][color=#0000BB]I [/color][color=#007700]= [/color][COLOR=#0000BB]0 To 100000

            MyString [/COLOR][color=#007700]&= [/color][COLOR=#DD0000]"o"

        [/COLOR][COLOR=#0000BB]Next

        NewThread[/COLOR][color=#007700].[/color][color=#0000BB]Abort[/color][COLOR=#007700]()

    [/COLOR][COLOR=#0000BB]End Sub

    [/COLOR][color=#007700]Private [/color][color=#0000BB]Sub Timer1_Tick[/color][color=#007700]([/color][color=#0000BB]ByVal sender [/color][color=#007700]As [/color][color=#0000BB]System[/color][color=#007700].[/color][color=#0000BB]Object[/color][color=#007700], [/color][color=#0000BB]ByVal e [/color][color=#007700]As [/color][color=#0000BB]System[/color][color=#007700].[/color][color=#0000BB]EventArgs[/color][color=#007700]) [/color][color=#0000BB]Handles Timer1[/color][color=#007700].[/color][COLOR=#0000BB]Tick

        Label1[/COLOR][color=#007700].[/color][color=#0000BB]**** [/color][color=#007700]= [/color][color=#0000BB]MyString[/color][color=#007700].[/color][COLOR=#0000BB]Length

    End Sub

    [/COLOR][color=#007700]Private [/color][color=#0000BB]Sub Form1_Load[/color][color=#007700]([/color][color=#0000BB]ByVal sender [/color][color=#007700]As [/color][color=#0000BB]Object[/color][color=#007700], [/color][color=#0000BB]ByVal e [/color][color=#007700]As [/color][color=#0000BB]System[/color][color=#007700].[/color][color=#0000BB]EventArgs[/color][color=#007700]) [/color][color=#0000BB]Handles Me[/color][color=#007700].[/color][COLOR=#0000BB]Load

        Timer1[/COLOR][color=#007700].[/color][color=#0000BB]Enabled [/color][color=#007700]= [/color][COLOR=#0000BB]True

    End Sub 

[/COLOR][/COLOR][/align]

بهذا إن شاء الله نكون أتممنا توضيح مفهوم الThreads

نأتي الآن لطرق الThread

Start

وهي إشارة لبدء تنفيذ الThread

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]NewThread[/color][color=#007700].[/color][color=#0000BB]Start[/color][COLOR=#007700]()  

[/COLOR][/COLOR][/align]

Abort

وهي لإحباط و إيقاف ال Thread

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]NewThread[/color][color=#007700].[/color][color=#0000BB]Abort[/color][COLOR=#007700]()  

[/COLOR][/COLOR][/align]

Suspend

وهي للإيقاف المؤقت لل Tread

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]NewThread[/color][color=#007700].[/color][color=#0000BB]Suspend[/color][color=#007700]()  [/color][/COLOR]

[/align]

Resume

وهي لمتابعة الThread بعد اللإيقاف المؤقت له

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]NewThread[/color][color=#007700].[/color][color=#0000BB]Resume[/color][COLOR=#007700]()  

[/COLOR][/COLOR][/align]

Sleep

وهي لايقاف الThread بشكل مؤقت لفترة زمنية تقوم بتحديدها

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]NewThread[/color][color=#007700].[/color][color=#0000BB]Sleep[/color][color=#007700]([/color][color=#0000BB]1000[/color][color=#007700])  [/color][color=#0000BB]Will Suspend [/color][color=#007700]for [/color][COLOR=#0000BB]1 second  

[/COLOR][/COLOR][/align]

يمكننا التحكم بالمسار الحالي من خلال

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]Thread[/color][color=#007700].[/color][COLOR=#0000BB]CurrentThread  

[/COLOR][/COLOR][/align]

مثال:

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]Thread[/color][color=#007700].[/color][color=#0000BB]CurrentThread[/color][color=#007700].[/color][color=#0000BB]Abort[/color][COLOR=#007700]()  

[/COLOR][/COLOR][/align]

ونأتي لخاصية من خواص الThread
IsAlive()

كود :
[color=#007700]If [/color][color=#0000BB]NewThread[/color][color=#007700].[/color][color=#0000BB]IsAlive[/color][color=#007700]() [/color][COLOR=#0000BB]Then

[/COLOR][color=#DD0000]''[/color][COLOR=#0000BB]Statements

End [/COLOR][COLOR=#007700]If 

[/COLOR]

قرأت عبارة في كتاب الاستاذ تركي العسيري طريفة

كود :
من الغباء الاستعلام عن الخاصية IsAlive لمسار التنفيذ الحالي:[align=left] If Thread.CurrentThread.IsAlive() Then ......

[/align]

 فهي ستعود بالقيمة True دائما لأسباب منطقية .

طبعا تعرفوا السبب !

أيضا يمكن إسناد اسم لكل مسار تنفيذ ما يساعدك على مراقبة عمل برنامج بدقة

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]NewThread[/color][color=#007700].[/color][color=#0000BB]Name [/color][color=#007700]= [/color][COLOR=#DD0000]"My Thread"  

[/COLOR][/COLOR][/align]

أيضا يمكنك معرفة حالة الThread باستخدام الخاصية ThreadState

كود :
[align=left]             [color=#000000] [COLOR=#0000BB][/color][color=#007700]If [/color][color=#0000BB]NewThread[/color][color=#007700].[/color][color=#0000BB]ThreadState [/color][color=#007700]= [/color][color=#0000BB]ThreadState[/color][color=#007700].[/color][color=#0000BB]Running Then[/color][COLOR=#007700].....  

[/COLOR][/COLOR][/align]

والحالات التي يمكن أن تصادف الThread هي

ThreadState.Aborted
ThreadState.AbortRequested
ThreadState.Background
ThreadState.Running
ThreadState.Stopped
ThreadState.StopRequested
ThreadState.Suspended
ThreadState.SuspendRequested
ThreadState.Unstarted
ThreadState.WaitSleepJoin

نأتي لنقطة أخيرة في فصلنا لهذا اليوم
يمكن تعيين الأفضلية للمسارات باستخدام الخاصية Priority
وبها خمس تعيينات

الأقل
أقل من العادي
عادي
أكثر من العادي
الأكثر

بهذا نتمم فصلنا لهذا اليوم
والسلام عليكم

إخوانكم Lo2i و Mohammed Asaad

الفصل(15): الفئتان Stack و Queue

Sun, 23 Sep 2012 14:28:35 +0000

السلام عليكم ورحمة الله وبركاته
موضوعنا لليوم خفيف وبسيط

الفئة Stack :
يمكن تسمية الفئة Stack بالمكدسة وهي تطبق خوارزمية LIFO - Last In First Out
بمعنى أول ما يدخل أول ما يخرج
ويمكن تمثيل العملية بالشكل التالي

لنعرف كائن جديد من هذه الفئة :

كود :
[color=#000000] [COLOR=#0000BB]Dim stk [/color][color=#007700]As New [/color][color=#0000BB]Stack[/color][color=#007700]([/color][color=#0000BB]Of String[/color][color=#007700])  [/color][/COLOR]

في السطر السابق صرحنا عن كائن جديد من نوع Stack وجعلناها مكدسة كائنات من النوع String

طرق هذه الفئة - ليس جميعها - :

Push

تفوم هذه الطريقة بعملية إضافة عنصر جديد للمكدسة:

كود :
[color=#000000][COLOR=#0000BB]stk[/color][color=#007700].[/color][color=#0000BB]Push[/color][color=#007700]([/color][color=#DD0000]"Mohammed"[/color][COLOR=#007700])

[/COLOR][color=#0000BB]stk[/color][color=#007700].[/color][color=#0000BB]Push[/color][color=#007700]([/color][color=#DD0000]"Lo2i"[/color][COLOR=#007700])

[/COLOR][color=#0000BB]stk[/color][color=#007700].[/color][color=#0000BB]Push[/color][color=#007700]([/color][color=#DD0000]"Islam"[/color][COLOR=#007700])

[/COLOR][/COLOR]

تقوم هذه الطريقة بقراءة العنصر الأخير ومن ثم إزالته:

كود :
[color=#000000][COLOR=#0000BB]يصبح عدد العناصر بعد الازالة 2      WriteLine[/color][color=#007700]([/color][color=#0000BB]stk[/color][color=#007700].[/color][color=#0000BB]Pop[/color][color=#007700]) [/color][COLOR=#DD0000]' Islam

   يصبح عدد العناصر بعد الازالة 1      WriteLine(stk.Pop) ' [/COLOR][COLOR=#0000BB]Lo2i

   يصبح عدد العناصر بعد الازالة 0      WriteLine[/COLOR][color=#007700]([/color][color=#0000BB]stk[/color][color=#007700].[/color][color=#0000BB]Pop[/color][color=#007700])  [/color][COLOR=#0000BB]Mohammed

[/COLOR][/COLOR]

[COLOR=#000000][COLOR=#0000BB]

[/COLOR][/COLOR]

وبعد أن أصبحت المكدسة فارغة لو قمنا بعملية إزالة أخرى سيصدر خطأ لأن المكدسة فارغة...

Clear

تقوم بإزالة جميع العناصر

كود :
[color=#000000] [COLOR=#0000BB]stk[/color][color=#007700].[/color][COLOR=#0000BB]Clear

[/COLOR][/COLOR]

Contains

تقوم هذه الطريقة بالتحقق فيما إذا كانت القيمة الممرة لها محتواة داخل المكدسة أم لا

كود :
[color=#000000][COLOR=#007700]If [/color][color=#0000BB]stk[/color][color=#007700].[/color][color=#0000BB]Contains[/color][color=#007700]([/color][color=#DD0000]"Lo2i"[/color][color=#007700]) [/color][COLOR=#0000BB]Then

 MsgBox[/COLOR][color=#007700]([/color][color=#DD0000]"True"[/color][COLOR=#007700])

 [/COLOR][color=#0000BB]End [/color][COLOR=#007700]If

[/COLOR][/COLOR]

CopyTo

تقوم هذه الطريقة بنسخ عناصر المكدسة لمصفوفة مع تحديد رقم الفهرس من المصفوفة للبدء بالنسخ انطلاقا منه

كود :
[color=#000000][COLOR=#0000BB]Dim stk [/color][color=#007700]As New [/color][color=#0000BB]Stack[/color][color=#007700]([/color][color=#0000BB]Of String[/color][COLOR=#007700])

[/COLOR][color=#0000BB]stk[/color][color=#007700].[/color][color=#0000BB]Push[/color][color=#007700]([/color][color=#DD0000]"Mohammed"[/color][COLOR=#007700])

[/COLOR][color=#0000BB]stk[/color][color=#007700].[/color][color=#0000BB]Push[/color][color=#007700]([/color][color=#DD0000]"Lo2i"[/color][COLOR=#007700])

[/COLOR][color=#0000BB]stk[/color][color=#007700].[/color][color=#0000BB]Push[/color][color=#007700]([/color][color=#DD0000]"Islam"[/color][COLOR=#007700])

[/COLOR][color=#0000BB]Dim A[/color][color=#007700]([/color][color=#0000BB]2[/color][color=#007700]) As [/color][COLOR=#0000BB]String

stk[/COLOR][color=#007700].[/color][color=#0000BB]CopyTo[/color][color=#007700]([/color][color=#0000BB]A[/color][color=#007700], [/color][color=#0000BB]0[/color][COLOR=#007700])

For [/COLOR][color=#0000BB]I [/color][color=#007700]= [/color][color=#0000BB]0 To UBound[/color][color=#007700]([/color][color=#0000BB]A[/color][COLOR=#007700])

[/COLOR][color=#0000BB]WriteLine[/color][color=#007700]([/color][color=#0000BB]A[/color][color=#007700]([/color][color=#0000BB]I[/color][COLOR=#007700]))

[/COLOR][color=#0000BB]Next[/color][/COLOR]

والناتج :

كود :
Islam

 Lo2i

 Mohammed

لاحظ أنه عند عملية النسخ لا يبدأ بالنسخ من الصفر بل من آخر عنصر وصولا لأول عنصر
أيضا يجب الانتباه بألا تخرج عملية النسخ عن حدود المصفوفة

Count

خاصية للقراءة فقط تعود بعدد عناصر المكدسة

كود :
[color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]stk[/color][color=#007700].[/color][color=#0000BB]Count[/color][COLOR=#007700])  

[/COLOR][/COLOR]

Peek

تقوم هذه الطريقة بارجاع قيمة آخر عنصر دون حذف

كود :
[color=#000000] [COLOR=#0000BB]stk[/color][color=#007700].[/color][COLOR=#0000BB]Peek  

[/COLOR][/COLOR]

ToArray

تقوم بإرجاع مصفوفة بالعناصر الموجودة في المكدسة ويجب أن تكون من نفس النوع للمكدسة

كود :
[color=#000000] [COLOR=#0000BB]Dim strArray[/color][color=#007700]() As [/color][color=#0000BB]String [/color][color=#007700]= [/color][color=#0000BB]stk[/color][color=#007700].[/color][color=#0000BB]ToArray  [/color][/COLOR]

الآن ننتهي من الفئة Stack

الفئة Queue:
يمكن تسميتها بالطابور وتطبق مبدأ FIFO - First In First Out
أي ما يضاف أولا يخرج أولا
ويمكن تمثيل العملية بالشكل التالي :

طرقها :

Enqueue

تقوم هذه الطريقة بإضافة عنصر للطابور

كود :
[color=#000000][COLOR=#0000BB]        Dim que [/color][color=#007700]As New [/color][color=#0000BB]Queue[/color][color=#007700]([/color][color=#0000BB]Of String[/color][COLOR=#007700])

         [/COLOR][color=#0000BB]que[/color][color=#007700].[/color][color=#0000BB]Enqueue[/color][color=#007700]([/color][color=#DD0000]"Mohammed"[/color][COLOR=#007700])

         [/COLOR][color=#0000BB]que[/color][color=#007700].[/color][color=#0000BB]Enqueue[/color][color=#007700]([/color][color=#DD0000]"Lo2i"[/color][COLOR=#007700])

         [/COLOR][color=#0000BB]que[/color][color=#007700].[/color][color=#0000BB]Enqueue[/color][color=#007700]([/color][color=#DD0000]"Islam"[/color][COLOR=#007700]) 

[/COLOR][/COLOR][color=#000000][COLOR=#007700] [/color][/COLOR]

Dequeue

تقوم هذه الطريقة بازالة العنصر الأول في الطابور

كود :
            [color=#000000] [COLOR=#0000BB]que[/color][color=#007700].[/color][color=#0000BB]Dequeue[/color][color=#007700]()  [/color][/COLOR][COLOR=#000000][COLOR=#007700]

[/COLOR][/COLOR]

أما بالنسبة لباقي الطرق فلا تختلف كثيرا عن المكدسة

الفصل (13):- العمليات الرياضية في الدوت نيت بإستخدام الفئة System.Math

Sun, 23 Sep 2012 13:45:01 +0000

السلام عليكم ورحمة الله وبركاته :_

درسنا اليوم عن كيفية التعامل مع الدوال الرياضية من خلال الفئة :_ system.math

أولاً وقبل البداية يجب علينا ان نستورد الفئة math

من خلال الكود التالي :-

كود :
[align=left] Imports System.Math  

[/align]

=====================
===============
========
====
==

من اهم الاستخدامات لهذا النطاق في الدوت نيت :-

معرفة جتا الزاوية من خلال sin
معرفة ظل الزاوية من خلال tan
معرفة جيب الزاوية من خلال cos

ويوجد ايضاً شي مهم وهو للمدرسة

معرفة الجذر التربيعي من خلال sqrt
القيمة المطلقة لعدد ما من خلال abs
معرفة العدد اذا اكبر من صفر او اصغر من خلال sign

وهناك ايضاً عمليات المقارنة مثل :_

اظهار اكبر قيمة من معامليين رئيسيين من خلال max
اظهار اقل قيمة من معامليين رئيسيين من خلال min
لتقريب العدد إلى الفاصلة من خلال round
لاعطاء رقم صحيح غير قابل لوضع الفاصلة من خلال fix

نبدأ اولاً بتعريف متغير لاستخدامه في البرنامج كما تعلمنا هنا ...
---------------------------------------------------------------------
بداية سنقوم بتعريف متغيرات تحمل قيمة كل انواع المتغيرات لاستخدامه مع الجميع

بهذا الكود :_

كود :
[align=left] Dim x, y ,zAs Object

        x = 12

        y = 12.12

z = 16

[/align]

=================
هذا الكود الخاص لمعرفة ظل الزاوية من خلاله

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]Tan[/color][color=#007700]([/color][color=#0000BB]x[/color][COLOR=#007700]))  

[/COLOR][/COLOR][/align]

ونستطيع ايضاً كتابته بهذا الشكل

كود :
                     [color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]System[/color][color=#007700].[/color][color=#0000BB]Math[/color][color=#007700].[/color][color=#0000BB]Tan[/color][color=#007700]([/color][color=#0000BB]x[/color][COLOR=#007700]))

[/COLOR][/COLOR][/align]

وكلاهما سيعطي نفس النتيجة
==================
هذا الكود الخاص بجتا الزاوية

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]Sin[/color][color=#007700]([/color][color=#0000BB]x[/color][color=#007700]))[/color][/COLOR]

[/align]

وايضاً يمكننا استخدامه بالطريقة الطويلة كما سبف ذكره مع ظل الزاوية
=================
ها الكود لمعرفة بجيب الزاوية

كود :
[align=left]

             [color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]Cos[/color][color=#007700]([/color][color=#0000BB]x[/color][COLOR=#007700]))

[/COLOR][/COLOR][/align]

[COLOR=#000000][COLOR=#007700]

[/COLOR][/COLOR]

ويمكننا ايضاً استخدام هذا الكود لمعرفة الجذر التربيعي لرقم ما :-

كود :
[align=left]

             [color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]Sqrt[/color][color=#007700]([/color][color=#0000BB]z[/color][COLOR=#007700]))  

[/COLOR][/COLOR][COLOR=#000000][COLOR=#007700]

[/COLOR][/COLOR][/align]

لاظهار القيمة المطلقة لعدد ما

ماهي القيمة المطلقة :_ القيمة المطلقة هي القيمة التي يتحول فيها اي عدد سالب الاشارة إلى موجب الاشارة

لاحظ الكود التالي :-

كود :
[align=left]                       [color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]System[/color][color=#007700].[/color][color=#0000BB]Math[/color][color=#007700].[/color][color=#0000BB]Abs[/color][color=#007700](-[/color][color=#0000BB]10[/color][COLOR=#007700]))  

[/COLOR][/COLOR][/align]

ولاحظ انك يمكنك استخدامه بالطريقة المختصرة

كالتالي :_

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]msgbox [/color][color=#007700]([/color][color=#0000BB]abs[/color][color=#007700](-[/color][color=#0000BB]100[/color][COLOR=#007700]))  

[/COLOR][/COLOR][/align]

الدالة sign ترجع قيمة (-1) اذا كان الرقم الذي بداخلها صفر او اقل
وترجع القيمة (+1) اذا كان الرقم الذي بداخلها اكبر من صفر .

ويمكننا استخدامها باطريقة التالية :-

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]Sign[/color][color=#007700](+[/color][color=#0000BB]10[/color][color=#007700]))  [/color][/COLOR]

[/align]

هنا سيتم ارجاع قيمة ( +1 ) لان الرقم الذي بداخلها اكبر من صفر

اما هنا

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]Sign[/color][color=#007700](-[/color][color=#0000BB]10[/color][COLOR=#007700]))  

[/COLOR][/COLOR][/align]

هنا سيتم ارجاع قيمة ( -1 ) لان الرقم الذي بداخلها اصغر من صفر

-------------------------------------------------------------------

ومن خلال هذا الكود الصغير نستطيع حساب اي الرقميين السابقيين اكبر

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]System[/color][color=#007700].[/color][color=#0000BB]Math[/color][color=#007700].[/color][color=#0000BB]Max[/color][color=#007700]([/color][color=#0000BB]12[/color][color=#007700], [/color][color=#0000BB]14[/color][COLOR=#007700]))  

[/COLOR][/COLOR][/align]

طبعاً سيعطي في الرسالة الرقم 14 لا نه اكبر من 12

وفي الكود التالي نستطيع حساب اي الرقميين السابقيين اصغر

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]System[/color][color=#007700].[/color][color=#0000BB]Math[/color][color=#007700].[/color][color=#0000BB]Min[/color][color=#007700]([/color][color=#0000BB]10[/color][color=#007700], [/color][color=#0000BB]9[/color][COLOR=#007700]))  

[/COLOR][/COLOR][/align]

سيتم ارجاع الرقم 9 لانه اصغر من ال 10
-----------------------------------------------------------------------

تقريبا العدد إلى فاصلة من خلال الكود التالي

مثلاً اذا احببنا ان نأخد اول رقميين بعد الفاصلة في الرقم المدخل

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]System[/color][color=#007700].[/color][color=#0000BB]Math[/color][color=#007700].[/color][color=#0000BB]Round[/color][color=#007700]([/color][color=#0000BB]12.12345[/color][color=#007700], [/color][color=#0000BB]2[/color][COLOR=#007700]))  

[/COLOR][/COLOR][/align]

في الكود التالي سوف يدخل الرقم (12.12345) في الذاكرة ويختار اول رقميين بعد الفاصلة

يعني سوف يكون المخرج الرقم التالي (12.12)

واذا احببت ان تاخد اول 3 ارقام بعد الفاصلة تكتب 3 عوضاً عن 2 وهكذا

------------------------------

اذا احببت ان تعطي ناتج بدون كسور واعشار زائدة اخر الرقم

ابسط طريقة هي استخدام الدالة fix

وبعد ان عرفنا في الاعلى المتغير المتغير y على ان قيمته تساوي 12.12

نسعمل الان على اخراج المتغير Y بدون الرقم الذي بعد الفاصلة

اي اني اريد الرقم رقم صحيح

نستخدم الكود التالي :-

كود :
[align=left]             [color=#000000] [COLOR=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]Fix[/color][color=#007700]([/color][color=#0000BB]y[/color][COLOR=#007700]))  

[/COLOR][/COLOR][/align]

ستجد ان المخرج عندك سيكون رقم (12)

وهناك اسهل طريقة لمنع المستخدم من ادخال الفاصلة في صندوق النص

من خلال الكود التالي

كود :
[align=left][color=#000000][COLOR=#0000BB]****Box1[/color][color=#007700].[/color][color=#0000BB]SelectionStart [/color][color=#007700]= [/color][color=#0000BB]Len[/color][color=#007700]([/color][color=#0000BB]****Box1[/color][color=#007700].[/color][color=#0000BB]****[/color][COLOR=#007700])

[/COLOR][color=#0000BB]****Box1[/color][color=#007700].[/color][color=#0000BB]**** [/color][color=#007700]= [/color][color=#0000BB]Fix[/color][color=#007700]([/color][color=#0000BB]****Box1[/color][color=#007700].[/color][color=#0000BB]****[/color][COLOR=#007700])

[/COLOR][color=#0000BB]****Box1[/color][color=#007700].[/color][color=#0000BB]SelectionStart [/color][color=#007700]= [/color][color=#0000BB]Len[/color][color=#007700]([/color][color=#0000BB]****Box1[/color][color=#007700].[/color][color=#0000BB]****[/color][color=#007700])[/color][/COLOR][color=#000000][COLOR=#007700][COLOR=Red][/color]

[/COLOR][/COLOR][/align]

==========
========
=====
===
=

في النهاية ارجوا ان يكون الدرس في غاية السهولة

[align=center]
وانتظرونا في الدرس القادم ان شاء الله

تقبلوا تحياتنا :_

Lo2i و Mohammed Asaad

الفصل(12): Oop بالتفصيل...الجزء الثاني

Sun, 23 Sep 2012 13:09:17 +0000

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
نبدا من حيث انتهينا من الفصل السابق
يجب قراءة الفصل السابق لتتمكن من الاستمرار في هذا الفصل
الفصل 11

وهذا الفصل ايضا كتب بقلم الاستاذ احمد نجم

وراثة الواجهاتInterface Inheritance

تحدثنا سالفاً عن اشتقاق او وراثة فئة من أخرى وفيها تورث الفئة المشتقة كافة خصائص ووسائل وأحداث الفئة الأب وكذلك أيضاً وراثة الكود المكتوب بالداخل كاملاً. يُمكنك Visual Basic .NET من تعريف أو التصريح عن الواجهات ، والواجهة ما هي إلا واجهة لفئة ما واسمها خير دليل على هذا وهي لا تحتوي على أية أكواد للتنفيذ. بعد تصريحك عن واجهة جديدة يمكنك استخدام الكلمة [FONT=&]Implements[/FONT][FONT=&][/FONT] وذلك كي تشتق أو تستدعي كافة الوسائل والخصائص والأحداث التي تم التصريح عنها داخل الواجهة.

كي تتضح لديك الرؤية أكثر من ذلك ، اتبع ما يلي ... قم بالتصريح عن هذين المتغيرين كما هو موضح أدناه :

كود :
[align=left]Dim CN1 As New System.Data.OleDb.OleDbConnection

[/align]

العجيب في هذين التصريحين أنك إذا نظرت في الوسائل والخصائص المصاحبة للكائن [FONT=&]CN1[/FONT] ستجدها بنفس الترتيب ونفس الهجاء بالنسبة للكائن [FONT=&]CN2[/FONT] ، ولكن مع اختلاف الوظيفة ... يعني مثلا الوظيفة [FONT=&]Open[/FONT] فهي مصاحبة لكلا الكائنين ولكنها مع [FONT=&]CN1[/FONT] تتصل بأي قاعدة بيانات حسب جملة الاتصال الممررة إليها [FONT=&]Connection[/FONT][FONT=&]String[/FONT] ، أما مع الكائن [FONT=&]CN2[/FONT] فهي لا تتعامل إلا مع محركات قواعد بيانات [FONT=&]MS[/FONT][FONT=&]SQL[/FONT][FONT=&]Server[/FONT] فقط بالرغم من أن اسم الوظيفة واحد في كلا الكائنين ... هنا يتضح معنى الواجهات.
سأوضح لك مرة أخرى وبمثال آخر .. بفرض أنك مدير مشروع برمجي معين وليكن هذا المشروع خاص بصناعة مكتبة DLL للتعامل مع ملفات MS OFFICE ، وقد قررت كمدير مشروع أن تقوم بعمل أربعة فئات [FONT=&]4[/FONT][FONT=&]Classes[/FONT] ، الأولى منهم لـ MS Word والثانية لـ MS Access والثالثة لـ MS PowerPoint والرابعة لـ MS Excel ، وتم الاتفاق على عدة وظائف مثلا كالآتي :

[FONT=&]Method [/FONT][FONT=&]>> [/FONT][FONT=&]OpenFile[/FONT]
[FONT=&]Method [/FONT][FONT=&]>> [/FONT][FONT=&]DeleteFile[/FONT]
[FONT=&]Property >> FileName[/FONT]
[FONT=&]Method [/FONT][FONT=&]>> FileSize[/FONT]

وهذا فقط كان على سبيل المثال .. تعال معي نرجع سوياً إلى موضوعنا الأساسي ، أنت كمدير مشروع كما ذكرنا سالفا أنك تريد تواجد هذه الخصائص والوسائل في كل فئة من الأربعة فئات المرجو إنشائها. هل الحل أنك تقوم بالنسخ واللصق ومن ثم تغيير الأكواد ، أم الإملاء على المطورين ومن ثم تجد الأخطاء ؟؟؟ ... هنا سنلجأ إلى استخدام الواجهات فهي من ستحل الموضوع.

من القائمة Project اختر العنصر Add Component ثم اختر العنصر Interface كما هو موضح بالصورة أدناه :

قد قمت بالتصريح عن الوسائل والخصائص السالف ذكرها في الواجهة كما يلي ... ولا زلت أكرر أننا لا نكتب أية أكواد داخل الواجهة ، فقط نقوم بالتعريف والتصريح عن مكونات الفئة كما يلي :

كود :
[align=left]Public Interface MyInterface

'This subroutine to open the file by using [FileName] property value  

    Sub OpenFile()

    'Use this property to specify file path or read the file path to open it or delete it

    Property FileName() As String

    'This subroutine to delete the file by using [FileName] property value

    Sub DeleteFile()

    'This function used to return the file size by using [FileName] property value

    Function FileSize() As Double

End Interface[b][FONT=Tahoma]

[/FONT][/b][/align]

أنا فقط قمت بعمل مثال عابر ومبسط ، فيمكنك عزيزي القارئ أن تقوم بالتصريح عما تحب وكيف تحب ومتي تحب ... قم بالتصريح مثلا عن متغيرات عادية وأحداث ووسائل وخصائص ، أما أن لضيق الوقت أردت إيصال الفكرة فقط. أنا متشوق بالفعل حتى أريك كيف يتم وراثة هذه الواجهة داخل الفئات التي قمنا بإنشائها سابقاً ، فكل ما عليك إلا الدخول داخل كل فئة وتكتب هذه العبارة :

كود :
[align=left]Implements MyInterface[b][FONT=Tahoma]

[/FONT][/b][/align]

ستجد نفسك في الفئة مثلا الخاصة بالـ MS Excel قد حصلت على النتيجة التالية كوراثة حقيقية لما تم التصريح عنه في الواجهة [FONT=&]MyInterface[/FONT]:

كود :
[align=left]Public Class Excel  

Implements MyInterface    

     Public Sub DeleteFile() Implements MyInterface.DeleteFile    

End Sub

     Public Property FileName() As String Implements MyInterface.FileName 

         Get

        End Get 

        Set(ByVal value As String)

        End Set

End Property

    Public Function FileSize() As Double Implements MyInterface.FileSize

    End Function

    Public Sub OpenFile() Implements MyInterface.OpenFile

    End Sub

  End Class

[/align]

هذه هي بالفعل شكل الفئة بعد وراثة الواجهة وما عليك إلا توزيع الهيكل العام لهذه المكتبة DLL على المطورين في المشروع وهم يقوموا بكتابة الكود فقط داخل الوسائل والخصائص والأحداث المصرح عنها ... يمكنك تحميل المشروع من الرابط التالي :
http://www.4shared.com/rar/8gCjzUtj/21250864124.html
أو من المرفقات بإسم : مرفق 1

** ملحوظة **
كما ذكرنا سابقاً أن Visual Basic .NET لا يسمح لك بالوراثة من أكثر من فئة ، ولكن داخل الفئة الواحدة يمكنك وراثة أكثر من واجهة.

كلمة أخيرة في مبدأ الوراثة .. الكلمات المفتاحية

[FONT=&]Access Modifiers[/FONT]

[FONT=&]Public[/FONT]: يجعل المتغير أو الوسيلة معرفة على مستوى الفئة ككل وكذلك على مستوى المشروع بالكامل ، كما يمكنك الحصول على هذا المتغير أو هذه الوسيلة إذا قمت بأخذ نسخة Instance من الفئة في أي مكان آخر على اختلاف نوع المشاريع سواء ******sApplications أو ClassLibrary ... الخ. كما أن هذا المتغير أو الوسية من النوع [FONT=&]Public[/FONT] تظهر في حالات الوارثة في الفئات المشتقة.
[FONT=&]Friend[/FONT]: يجعل الإجراء معرف على مستوى الفئة ككل وداخل المشروع الحالي بصفة عامة ، لكن اذا تم دمج الفئة في ملف DLL وأخذ نسخة لكائن من الفئة فإن الاجراءات من هذا النوع لا تظهر.
[FONT=&]Default[/FONT]: وهنا نحن بصدد الحديث عن عدم استخدام الكلمات المفتاحية والتي يعتبرها المترجم من أنها من النوع [FONT=&]Public[/FONT] وينطبق عليها ما ورد سابقاً.
[FONT=&]Private[/FONT]: يجعل الإجراء معرف على مستوى على الفئة فقط ، ولا يظهر في أي مكان خارجها.
[FONT=&]Protected[/FONT]: يشبه الـ [FONT=&]Private[/FONT] تماماً ولكن يختلف عنه في نقطة ، ألا وهي أنه في حالة التوريث فإن الفئة المشتقة [FONT=&]Derived[/FONT][FONT=&]Class[/FONT] يظهر بداخله الإجراءات والمتغيرات من النوع [FONT=&]Protected[/FONT] ، ولكن إذا أخذت نسخة من الفئة الأب [FONT=&]****[/FONT][FONT=&]Class[/FONT] أو ما يسمى بالـ [FONT=&]Parent[/FONT][FONT=&]Class[/FONT] فلن تظهر المتغيرات ولا الإجراءات من النوع [FONT=&]Protected[/FONT].

يمكنك مراجعة المثال التالي ، فهو عبارة عن فئة بالاسم ( MyClass ) وبها بعض الإجراءات باختلاف الكلمات المفتاحية لكل منها:
http://www.4shared.com/rar/pmYpsxLx/31250864124.html
أو من المرفقات بإسم : مرفق 2

مرفق 1.rar (الحجم : 55.41 ك ب / التحميلات : 48)

مرفق 2.rar (الحجم : 10.8 ك ب / التحميلات : 48)

الفصل(10):مدخل الى الفئات..الجزء الثاني

Sun, 23 Sep 2012 12:48:51 +0000

السلام عليكم ورحمة الله وبركاته
بسم الله الرحمن الرحيم
في هذا الفصل نكمل ما قد من حيث انتهينا في الفصل السابق:

[h=3]الفصل(9):مدخل الى الفئاتClasses - الجزء الأول[/h]

وقد ذكرنا أن الفئات تحتوي أربعة أجزاء وهي:

[*=center]الحقول(Fields)
[*=center]الطرق(Methods)
[*=center]الخصائص(properties)
[*=center]الأحداث(Events)

وتحدثنا عن الحقول والطرق واليوم ان شاء الله سنبدأ بالخصائص...

الخصائص Properties
بطبيعة الحال فإن أي كائن يمتلك سمات وخصائص وهذا هو المبدأ الذي تطبقه البرمجة الكائنية OOP .
الأمر بسيط لكن يحتاج قليل من التركيز.
الآن يمكنك البدء بصنع خاصية باستخدام الكلمة المحجوزة Property وننهيها ب End Property
مثال:

كود :
[align=left]Class Person

Property ****() As String

...

...

...

End Property

End Class

[/align]

الآن داخل الفئة أضفنا الخاصية **** لكن قد تلاحظ أنها تأخذ شكل الطريقة Method كما أنها تأخذ شكل الحقل Field
اذن يمكن القول بان الخاصية عبارة عن مدمج ما بين الحقل و الطريقة.
لكن الخاصية تحتاج الى ضبط قيمة كما نحتاج ايضا الى قراءة الخاصية.
يمكن ذلك باستخدام الكلمتين المحجوزتين Get و Set

أولا: الدالةGet:
تستخدم هذه الدالة لتزويدنا بقيمة الخاصية الحالية. لكن علينا مسبقا تعريف متغير جديد من نوع الخاصية ليحمل القيمة وقت استرجاعها او ضبطها
مثال:

كود :
[align=left]Class Person

Dim m_**** As String

Property ****() As String

Get

Return m_****

End Get

....

....

....

End Property

End Class

[/align]

الآن كما نرى قمنا بصنع خاصية جديدة باسم **** وقبلها عرفنا متغير من نوع الخاصية سنستخدمه في عملية الضبط والاسترجاع لهذه الخاصية ويفضل تسمية هذا المتغير تسمية قريبة من اسم الخاصية ويمكنك ملاحظة ان معظم البرامج تستخدم تسمية المتغير بهذه الطريقة m_**** أي باضافة m_ في بداية المتغير وبعدها كتابة اسم الخاصية ويمكنكم ملاحظة أن الدالةGet تحتاج ناتج والذي ارجعناه بواسطة الكلمة المحجوزة Return والتي شرحناها في فصل الاجراءات والدوال

لكن كيف يمكننا الحصول على قيمة الخاصية ..
سهل جدا:
انظر المثال التالي:

كود :
[align=left]Class Person

Dim m_**** As String = "Islam Son"

Property ****() As String

Get

Return m_****

End Get

..

..

..

End Property

End Class

[/align]

الآن قمنا بصنع نفس الخاصية السابقة واسندنا للمتغير m_**** قيمة افتراضية "Islam Son" والآن داخل اي اجراء استخدم التالي للاستعلام عن القيمة:

كود :
[align=left]Dim Lo2i As New Person

MsgBox(Lo2i.****)

[/align]

انظر الناتج..

ثانيا:الاجراء Set
الآن بعد أن عرفنا كيف نقوم بالاستعلام فايضا قد يلزمنا اجراء لاسناد قيمة للخاصية
يتم ذلك عن طريق الاجراء Set
مثال:

كود :
[align=left]Class Person

Dim m_**** As String = "Islam Son"

Property ****() As String

...

...

...

Set(ByVal value As String)

m_**** = value

End Set

End Property

End Class

[/align]

كما نرى فان الطريقة الخاصة بضبط القيمة هي Set ..كيف تعمل؟؟
تقوم هذه الطريقة بستقبال الوسيط الذي نرسله بنفس نوع الخاصية وسميت افتراضيا بValue ويمكنك تغيير المسمى فلا فرق وداخل هذا الاجراء قمنا باسناد قيمة الوسيط المرسل الى المتغير m_**** حتى عند الاستعلام يرجع لنا بنفس القيمة التي مررناها له
هذا المثال يوضح كلا من Get وSet
المثال:

كود :
[align=left]Class Person

        Dim m_**** As String

        Property ****() As String

            Get

                Return m_****

            End Get

            Set(ByVal value As String)

                m_**** = value

            End Set

        End Property

    End Class

[/align]

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles My****.Load

        Dim Lo2i As New Person

        Lo2i.**** = "Lo2i"

        MsgBox(Lo2i.****)

    End Sub

ويمكنك ملاحظة التالي:
عند استخدام هذه التعليمة

كود :
[align=left]Lo2i.**** = "Lo2i"

[/align]

فان الاجراء المستخدم هو Set لانه يتم اسناد قيمة للخاصية

كود :
[align=left] MsgBox(Lo2i.****)

[/align]

فان الاجراء المستخدم حينها هو Get لانه يتم الاستعلام عن قيمة الخاصية

ايضا ماذا ان اردنا جعل الخاصية محمية من القراءة فقط نريدها للكتابة .....يمكنك باستخدام الكلمة المحجوزة WriteOnly وبالتالي فان وجود الدالة Get يسبب خطأ كما ان عملية الاستعلام عن قيمة الخاصية ايضا يسبب خطأ
مثال:

كود :
[align=left] Class Person

Dim m_**** As String

WriteOnly Property ****() As String

Set(ByVal value As String)

m_**** = value

End Set

End Property

End Class

 [/align]

وهذا يفيد في منع الحصول على معلومات سرية مثلا ككلمة المرور..

الآن هل يمكن ارسال اكثر من وسيط للخاصية...لا مشكلة
مثال:

كود :
[align=left]Class Person

        Dim m_****(1) As String

        Property ****(ByVal Index As Integer) As String

            Get

                Return m_****(Index)

            End Get

            Set(ByVal value As String)

                m_****(Index) = value

            End Set

        End Property

End Class

 [/align]

الآن قمنا بصنع خاصية الاسم وجعلنا المتغير المقترن بها على شكل مصفوفة تحتوي على عنصرين(1+1) على اعتبار الاسم الاول والاخير
وأضفنا وسيط للخاصية باسم Index ليعمل عمل فهرس للاسمين الاول والثاني وعند عملية الاسناد في Set ترى ان القيم المسندة تكون على شكل مصفوفة
الآن:

كود :
[align=left] Dim Lo2i As New Person

Dim Full**** As String

Lo2i.****(0) = "Lo2i "

Lo2i.****(1) = "VB4ARAB"

For i = 0 To 1 Step 1

Full**** &= Lo2i.****(i)

Next

MsgBox(Full****)

[/align]

أعلنا عن Lo2i كPerson وقمنا باسناد القيمة الاولى والثانية للخاصية **** التي تحمل معنى مصفوفة مكونة من عنصرين
وقمنا بصنع عداد لربط قيمتين الخاصية وقمنا بعرض ناتج الربط والذي يحمله المتغير Full**** في رسالة

___________________________
مداخلة: "&" عملية تقوم بربط النصوص. أما "&=" تقوم بربط ما قبل = بما بعدها
أي أن:

كود :
Full**** &= "Mr_MOHAMMED"

تعادل

كود :
Full**** = Full**** & "Mr_MOHAMMED"

ويمكن استخدام هذه الصورة مع باقي العمليات الجبرية ..أي أن:

كود :
x += y

تعادل

كود :
[align=left] x = x + y

[/align]

___________________________

ملاحظتان:

[*=center]يمكن استخدام مبدأ إعادة التعريف OverLoading مع الخصائص
[*=center]يمكن استخدام الخصائص في الوحدات البرمجية Modules والتركيبات Structures

الخصائص الافتراضية:
هي الخصائص التي تمثل الفئة بشكل افتراضي ويمكنك جعل خاصية افتراضية باستخدام الكلمة المحجوزة Defualt
مثال:

كود :
[align=left]Class Person

        Dim m_****(1) As String

        Default Property ****(ByVal Index As Integer) As String

            Get

                Return m_****(Index)

            End Get

            Set(ByVal value As String)

                m_****(Index) = value

            End Set

        End Property

    End Class

[/align]

كود :
[align=left]

Dim Lo2i As New Person

        Dim Full**** As String

        Lo2i(0) = "Lo2i "

        Lo2i(1) = "VB4ARAB"

        For i = 0 To 1 Step 1

            Full**** &= Lo2i(i)

        Next

        MsgBox(Full****)

    End Sub

[/align]

قد تلاحظ أنه لا يتوجب ذكر الخاصية في عملية الاسناد أو الاستعلام لانها كما قلنا تمثل الفئة
يمكنك ملاحظة هذا الشيء في فيجوال بيسك 6
فالتعليمتان التاليتان لهما نفس الوظيفة

كود :
[align=left]****1.****="Mr_MOHAMMED"

[/align]

كود :
[align=left] ****1 = "Mr_MOHAMMED"

[/align]

ومن هذا نستنتج ان الخاصية الافتراضية هي ****

الأحداث Events
بالنسبة لموضوع الاحداث فضلت عدم الحديث عنها في هذا الموضوع -ليس لضعف او عجز في موضوعها لكن لعدم مناسبة الموضوع للمبتدئين- لكن بالتأكيد سنتطرق لهذا الموضوع في دورتنا في الجانب العملي حيث تلزمنا وسنفصل فيها وقتها قدر الامكان ان شاء الله وسنربطها ربطا مباشرا مع فصلنا هذا وسترونها موضوعا سهلا وبسيطا ان شاء الله

مع تحيات
Lo2i و Mohammed Asaad
انتظروا الدرس القادم

الفصل(9):مدخل الى الفئاتClasses - الجزء الأول

Sun, 23 Sep 2012 12:17:38 +0000

السلام عليكم ورحمة الله وبركاته
بسم الله الرحمن الرحيم

عندما نتحدث عن الفيجوال بيسك دوت نت فاننا نتحدث عن لغة كائنية(غرضية) التوجه...
كتوضيح: العالم من حولنا مليء بالكائنات وكل كائن له خصائصه وسماته وهذا ما يتم تطبيقه في لغة البرمجة كائنية التوجه حيث يتم اعتبار مساحة العمل كالعالم فتكون الكائنات وتحدد خصائصها وسماتها وتستخدم ظواهرها في عملك..

الآن سنتطرق الى أهم مواضيع البرمجة كائنية التوجه OOP وهو موضوع الفئات Classes..
الفئة(Class): عبارة عن قالب يمكنك بواستطه تشكيل الكائنات التي حددت صفاتها ومن ثم استخدمها..كتشبيه يمكن اعتبارها كقالب الأحذية -أعزكم الله- التي يمكنك بواستطها انشاء حذاء بمواصفات هذا القالب.

يتم انشاء Class باستخدام الكلمة المحجوزة Class وتنهيه بالعبارة المشهورة End Class
مثال:

كود :
[align=left][color=#000000][COLOR=#007700]Class [/color][COLOR=#0000BB]Class****

End [/COLOR][color=#007700]Class[/color][/COLOR]

[/align]

كما أسلفنا فان الفئة عبارة عن كائن له خصائصه وظواهره لذلك فان الكلاس يحتوي على أعضاء وظواهر تصفه حركاته
لنأخذ مثال:

كود :
[align=left][color=#000000][COLOR=#007700]Class [/color][COLOR=#0000BB]Person

[/COLOR][color=#007700]Public [/color][color=#0000BB]**** [/color][color=#007700]As [/color][COLOR=#0000BB]String

[/COLOR][color=#007700]Public [/color][color=#0000BB]Age [/color][color=#007700]As [/color][COLOR=#0000BB]Integer

[/COLOR][color=#007700]Public [/color][color=#0000BB]Weight [/color][color=#007700]As [/color][COLOR=#0000BB]Double

End [/COLOR][COLOR=#007700]Class

[/COLOR][/COLOR][/align]

الآن كما ترى فاننا قمنا ببناء فئة جديدة أسميناها Person وأضفنا لها خصائص الاسم والعمر والوزن
ولكي تستطيع الوصول الى عناصر الفئة فانظر المثال التالي:

كود :
[align=left][COLOR=#000000][COLOR=#007700]

[/COLOR][/COLOR][color=#000000][COLOR=#0000BB]Dim x [/color][color=#007700]As New [/color][COLOR=#0000BB]Person

x[/COLOR][color=#007700].[/color][color=#0000BB]**** [/color][color=#007700]= [/color][COLOR=#DD0000]"Lo2i"

[/COLOR][color=#0000BB]x[/color][color=#007700].[/color][color=#0000BB]Age [/color][color=#007700]= [/color][COLOR=#0000BB]20

x[/COLOR][color=#007700].[/color][color=#0000BB]Weight [/color][color=#007700]= [/color][COLOR=#0000BB]70

MsgBox[/COLOR][color=#007700]([/color][color=#DD0000]"**** is " [/color][color=#007700]& [/color][color=#0000BB]x[/color][color=#007700].[/color][color=#0000BB]**** [/color][color=#007700]& [/color][color=#0000BB]vbCrLf [/color][color=#007700]& [/color][color=#DD0000]"Age: " [/color][color=#007700]& [/color][color=#0000BB]Str[/color][color=#007700]([/color][color=#0000BB]x[/color][color=#007700].[/color][color=#0000BB]Age[/color][color=#007700]) & [/color][color=#0000BB]vbCrLf [/color][color=#007700]& [/color][color=#DD0000]"Weight: " [/color][color=#007700]& [/color][color=#0000BB]Str[/color][color=#007700]([/color][color=#0000BB]x[/color][color=#007700].[/color][color=#0000BB]Weight[/color][COLOR=#007700]))

[/COLOR][/COLOR][/align]

كما ترى فاننا قمنا بالاعلان عن متغير جديد من نوع الفئة التي صغنا معالمها وأسندنا لعناصرها قيم جديدة وبعدها استعلمنا عن القيم التي تحملها عناصرها
والنتيجة:
[h=3][/h]

لعلك انتبهت إلى أن الفئة بتركيبتها البرمجية تشبه كثيرا تركيبة Structure فيمكن صنع فئة من تركيبة Structure باستبدال كلمة Structure بكلمة Class
راجع: الفصل(3): التركيبات أنواعها واستخداماتها

لكن هناك شيء من الاختلاف بين الفئة والتركيبة Structue
1)
الفئة من النوع المرجعي بينما التركيبة Structure من النوع ذات القيمة
راجع: الفصل(8): الدوال والاجراءات
2)
الفئة يمكن أن لا تحتوي على أعضاء بينما التركيبة تصدر رسالة خطأ عند خلوها من العناصر

كود :
[COLOR=#000000][COLOR=#007700]Class empty

 [/COLOR][COLOR=#0000BB]No Problems

End [/COLOR][color=#007700]Class[/color][/COLOR]

كود :
[align=left][color=#000000][COLOR=#0000BB]Structure [/color][COLOR=#007700]empty

 [/COLOR][color=#DD0000]'Error ****: Error Structure '[/color][color=#007700]empty [/color][color=#0000BB]must contain at least one instance member variable [/color][color=#007700]or [/color][COLOR=#0000BB]Event declaration

End Structure

[/COLOR][/COLOR][/align]

أي ان التركيبة empty يجب أن تحتوي على عضو ابتدائي متغير أو اجراء

3)
المحدد الافتراضي للفئة هو Private
بينما المحدد الافتراضي لتركيبة الStructure هو Public

4)
يمكننا تطبيق مبدأ الورائة والاشتقاق على الفئات
بينما التركيبات فلا
___________________________
ملاحظة: يمكن للفئة أن تكون متداخلة Nested
مثال:

كود :
[align=left]

[color=#000000][COLOR=#007700]Class [/color][COLOR=#0000BB]Person

   [/COLOR][color=#007700]Class [/color][COLOR=#0000BB]****

      [/COLOR][color=#007700]Public [/color][color=#0000BB]First [/color][color=#007700]As [/color][COLOR=#0000BB]String

      [/COLOR][color=#007700]Public [/color][color=#0000BB]Last [/color][color=#007700]As [/color][COLOR=#0000BB]String

   End [/COLOR][COLOR=#007700]Class

   Public [/COLOR][color=#0000BB]Age [/color][color=#007700]As [/color][COLOR=#0000BB]Integer

End [/COLOR][COLOR=#007700]Class 

[/COLOR][/COLOR][/align]

___________________________

ملاحظة أخرى:بامكاننا استخدام الفئة كوسيط نرسله للاجراءات والدوال بالطريقتين التي ذكرناها (الارسال بالمرجع أو بالقيمة) وبالرغم من انك ارسلته بالقيمة فان الجراء الحاضن سيغير قيمة المرسل بالرغم من ان ارسال الوسيط تم بالقيمة وهذا يتطابق مع الفرق الذي ذكرناه بالاعلى أن الفئة من النوع المرجعي...

كل ما سبق نظرة مبسطة جدا عن الفئات...

الآن تحدثنا أن الفئة تمثل كائن والكائن له أعضاء إذن الفئة لها أعضاء ويمكن تقسيمها لاربعة مكونات:

الحقول(Fields)
الطرق(Methods)
الخصائص(properties)
الأحداث(Events)

نبدأ بالحقول:

الحقول Fields
تعتبر الحقول أصغر وأبسط مكونات الفئة وما هي الا متغيرات عادية.
مثال:

كود :
[align=left][color=#000000][COLOR=#007700]Class [/color][COLOR=#0000BB]Person

Dim **** [/COLOR][color=#007700]As [/color][color=#0000BB]String   [/color][COLOR=#DD0000]'Field

Dim Age As Integer   '[/COLOR][COLOR=#0000BB]Field

[/COLOR][COLOR=#007700]...

...

...

[/COLOR][color=#0000BB]End [/color][COLOR=#007700]Class

[/COLOR][/COLOR][/align]

كما نرى فان هذه الفئة تحتوى على فئتين أو أكثر وهما **** و Age
أيضا من مجمل الفروق بين الفئة والتركيبة Structure فان حقول الفئة يكمن اسناد قيم لها وقت كتابة الفئة بخلاف التركيبة Structure
توضيح:

كود :
[align=left][color=#000000][COLOR=#007700]Class [/color][COLOR=#0000BB]Person

Dim **** [/COLOR][color=#007700]As [/color][color=#0000BB]String [/color][color=#007700]= [/color][COLOR=#DD0000]"Mr_MOHAMMED" 'No Problem

Dim Age As Age =18 '[/COLOR][COLOR=#0000BB]No Problem

End [/COLOR][COLOR=#007700]Class

[/COLOR][/COLOR][/align]

كود :
[align=left]

[COLOR=#000000][COLOR=#0000BB]Structure Person

Dim **** [/COLOR][color=#007700]As [/color][color=#0000BB]String [/color][color=#007700]= [/color][COLOR=#DD0000]"Mr_MOHAMMED" 'Error

Dim Age As Age =18 '[/COLOR][COLOR=#0000BB]Error

End Structure 

[/COLOR][/COLOR][/align]

وبالتطرق لقضية أخرى : بامكانك تعريف حقل داخل الفئة من نوع هذه الفئة وهذا يفيد في خوارزميات المكدسة(LIFO) والطوابير(FIFO)
مثال:

كود :
[align=left][color=#000000][COLOR=#007700]Class [/color][COLOR=#0000BB]Person

Dim Im [/COLOR][color=#007700]As [/color][COLOR=#0000BB]Person

[/COLOR][COLOR=#007700]...

...

[/COLOR][color=#0000BB]End [/color][COLOR=#007700]Class 

[/COLOR][/COLOR][/align]

_____________
مداخلة بسيطة:
المكدسة (LIFO) اختصار ل Last In First Out أي آخر ما يدخل أول ما يخرج
الطابور(FIFO) اختصار ل First In First Out أي أول ما يدخل أول ما يخرج
_____________

يمكن للحقول أن تكون على شكل مصفوفات
مثال:

كود :
[align=left][color=#000000][COLOR=#007700]Class [/color][COLOR=#0000BB]Person

Dim ****[/COLOR][color=#007700]() As [/color][color=#0000BB]String [/color][color=#007700]= {[/color][color=#DD0000]"Mr" [/color][color=#007700], [/color][color=#DD0000]"_" [/color][color=#007700], [/color][color=#DD0000]"MOHAMMED"[/color][COLOR=#007700]}

[/COLOR][color=#0000BB]End [/color][COLOR=#007700]Class

[/COLOR][/COLOR][/align]

لكن ماذا ان أردت حماية الحقل من تغيير قيمته ..يمكن ذلك باستخدام الكلمة المحجوزة ReadOnly وتعني للقراءة فقط

كود :
[align=left][color=#000000][COLOR=#007700]Class [/color][COLOR=#0000BB]Person

[/COLOR][color=#007700]Public [/color][color=#0000BB]ReadOnly Relegion [/color][color=#007700]As [/color][color=#0000BB]String [/color][color=#007700]= [/color][COLOR=#DD0000]"Islam and broud"

[/COLOR][color=#0000BB]End [/color][COLOR=#007700]Class 

[/COLOR][/COLOR][/align]

وبذلك لن يستطيع المستخدم تغيير قيمة المتغير بعد جعله مقروء فقط
لحظة...بماذ تختلف ReadOnly عن Const أي ماذا يختلف هذا المتغير المحمي عن الثابت ان لن نقدر على تغيير قيمته
الاختلاف بينهما أن الثابت يجب عليك اسناد قيمته وقت كتابته أم المتغير المحمي فلك الخيار اما أن تسند قيمته وفت كتابته أو تعطيه قيمته عند أول عملية اسناد ولن يتغير بعدها في ي عملية اسناد أخرى

الطرق Methods

الطرق ما هي الا اجراءات ودوال ويمكنك مراجعتها من هذا الفصل:
[h=3]الفصل(8): الدوال والاجراءات[/h]
كيف يمكنني الاستفادة من الطرق:

1) بوساطة الطرق يمكنك صنع أحداث هذا الكائن
توضيح:
الآن نحن البشر نستطيع المشي يمكننا تطبيق ذلك بكل سهولة في عالم البرمجة الكائنية
لنقم بصنع فئة نسميها انسان ونطبق عليها المبدأ السابق:
في داخل جسم الفئة Person نضيف اجراء جديد نسميه Walk وداخل هذا الاجراء نحدد كيفية المشي

كود :
[align=left][color=#000000][COLOR=#007700]Class [/color][COLOR=#0000BB]Person

 Sub walk[/COLOR][COLOR=#007700]()

....

....

....

 [/COLOR][COLOR=#0000BB]End Sub

End [/COLOR][COLOR=#007700]Class

[/COLOR][/COLOR][/align]

وطريقة استدعاء هذا الاجراء هي كالتالي:

كود :
[align=left]

[color=#000000] [COLOR=#0000BB]Dim Lo2i [/color][color=#007700]As [/color][COLOR=#0000BB]Person

Lo2i[/COLOR][color=#007700].[/color][color=#0000BB]Walk[/color][COLOR=#007700]()

[/COLOR][/COLOR][/align]

وبهذا نكون قد صنعنا متغير من النوع Person أسميناه Lo2i (سامحني يا لؤي بدي اغلبك معي ) وقمنا باستدعاء اجراء المشي الخاص بLo2i ...

2) مثال رائع وجدته في كتاب الاستاذ تركي العسيري...
باستخدام الطرق يمكنك اختصار الاسطر والوقت في اسناد القيم لعناصر الفئة
توضيح:

كود :
[align=left][color=#000000][COLOR=#007700]Class [/color][COLOR=#0000BB]PersonRecord

        [/COLOR][color=#007700]Public [/color][color=#0000BB]**** [/color][color=#007700]As [/color][COLOR=#0000BB]String

        [/COLOR][color=#007700]Public [/color][color=#0000BB]Age [/color][color=#007700]As [/color][COLOR=#0000BB]Integer

        [/COLOR][color=#007700]Public [/color][color=#0000BB]Address [/color][color=#007700]As [/color][COLOR=#0000BB]String

 End [/COLOR][COLOR=#007700]Class

[/COLOR][/COLOR][/align]

في المثال السابق تم صنع فئة جديدة سميت PersonRecord وتم اضافة بضعة حقول لها **** و Age وAdress ويمكننا اسناد القيم لتلك الحقول بالشكل التالي:

كود :
[align=left]

[color=#000000][COLOR=#0000BB]Dim PersonObject [/color][color=#007700]As New [/color][COLOR=#0000BB]PersonRecord 

PersonObject[/COLOR][color=#007700].[/color][color=#0000BB]**** [/color][color=#007700]= [/color][COLOR=#DD0000]"Turki" 

[/COLOR][color=#0000BB]PersonObject[/color][color=#007700].[/color][color=#0000BB]Age [/color][color=#007700]= [/color][COLOR=#0000BB]99 

PersonObject[/COLOR][color=#007700].[/color][color=#0000BB]Address [/color][color=#007700]= [/color][COLOR=#DD0000]"Suadia"

[/COLOR][/COLOR][/align]

لكن كيف تفيدنا الطرق باختصار الأسطر والوقت
دعنا نرجع لذات الفئة, باضافة اجراء داخل الفئة لعملية اسناد القيم الثلاثة:

كود :
[align=left][color=#000000][COLOR=#0000BB]    [/color][color=#007700]Class [/color][COLOR=#0000BB]PersonRecord

        [/COLOR][color=#007700]Public [/color][color=#0000BB]**** [/color][color=#007700]As [/color][COLOR=#0000BB]String

        [/COLOR][color=#007700]Public [/color][color=#0000BB]Age [/color][color=#007700]As [/color][COLOR=#0000BB]Integer

        [/COLOR][color=#007700]Public [/color][color=#0000BB]Address [/color][color=#007700]As [/color][COLOR=#0000BB]String

Sub SetValues[/COLOR][color=#007700]([/color][color=#0000BB]ByVal Person**** [/color][color=#007700]As [/color][color=#0000BB]String[/color][color=#007700],[/color][color=#0000BB]ByVal PersonAge [/color][color=#007700]As [/color][color=#0000BB]Integer[/color][color=#007700], [/color][color=#0000BB]ByVal PersonAddress [/color][color=#007700]As [/color][color=#0000BB]String[/color][COLOR=#007700]) 

        [/COLOR][color=#0000BB]**** [/color][color=#007700]= [/color][COLOR=#0000BB]Person**** 

        Age [/COLOR][color=#007700]= [/color][COLOR=#0000BB]PersonAge 

        Address [/COLOR][color=#007700]= [/color][COLOR=#0000BB]PersonAddress 

    End Sub 

 End [/COLOR][COLOR=#007700]Class  

[/COLOR][/COLOR][/align]

الشرح:
اضفنا اجراء جديد باسم SetValues ومهمته اسناد القيم للحقول الثلاثة وفي هذا الاجراء نقوم بتمرير ثلاثة وسيطات حسب الحقول المراد استغراقها وبالتالي فان عملية الاسناد اصبحت بالشكل التالي:

كود :
[align=left]

[color=#000000][COLOR=#0000BB]Dim PersonObject [/color][color=#007700]As New [/color][COLOR=#0000BB]PersonRecord 

PersonObject[/COLOR][color=#007700].[/color][color=#0000BB]SetValues[/color][color=#007700]([/color][color=#DD0000]"Turki"[/color][color=#007700], [/color][color=#0000BB]99[/color][color=#007700], [/color][color=#DD0000]"Suadia"[/color][COLOR=#007700]) 

[/COLOR][/COLOR][/align]

[SIZE=5]مبدأ إعادة التعريف OverLoading[/SIZE]

من مبادئ البرمجة الكائنية التوجه مبدأ إعادة تعريف الطرق بوسيطات مختلفة وجوبا:
مثال:
لدينا الطريقة OverTest سنقيم عليها مبدا إعادة التعريف:

كود :
[align=left][color=#000000][COLOR=#0000BB]Sub OverTest[/color][COLOR=#007700]()

[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][/COLOR][/align]

كود :
[align=left][color=#000000][COLOR=#0000BB]Sub OverTest[/color][color=#007700]([/color][color=#0000BB]ByVal Var1 [/color][color=#007700]As [/color][color=#0000BB]Integer[/color][COLOR=#007700])

[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][/COLOR][/align]

كود :
[align=left][color=#000000][COLOR=#0000BB]Sub OverTest[/color][color=#007700]([/color][color=#0000BB]ByVal Var2 [/color][color=#007700]As [/color][color=#0000BB]String[/color][COLOR=#007700])

[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][/COLOR][/align]

قد تلاحظ أننا قمنا بتغيير نوع المتغير Var1 في الاجراء الثالث بالرغم من تغيير المتغير وهذا من أسس مبدأ إعادة الوراثة...
اذ ان الأمر اعادة التعريف التالية تصدر خطأ لاننا بالرغم من تغيير اسم الوسيط لم نغير نوعه ولك التجربة

كود :
[align=left][color=#000000][COLOR=#0000BB]Sub OverTest [/color][color=#007700]( [/color][color=#0000BB]ByVal Var1 [/color][color=#007700]As [/color][color=#0000BB]Integer[/color][COLOR=#007700])

[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][/COLOR][/align]

كود :
[align=left][color=#000000][COLOR=#0000BB]Sub OverTest [/color][color=#007700]( [/color][color=#0000BB]ByVal Var2 [/color][color=#007700]As [/color][color=#0000BB]Integer[/color][COLOR=#007700])

[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][/COLOR][/align]

معوقات عملية إعادة التعريف

السبب الذي وضحناه بالاعلى..ثبات نوع الوسيط
تغيير نوع الارسال يصدر خطأ:

المثال التالي يصدر خطأ لتغيير نوع ارسال الوسطيات

كود :
[align=left][color=#000000][COLOR=#0000BB]Sub OverTest [/color][color=#007700]( [/color][color=#0000BB]ByVal Var1 [/color][color=#007700]As [/color][color=#0000BB]Integer[/color][COLOR=#007700])

[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][/COLOR][/align]

كود :
[align=left][color=#000000][COLOR=#0000BB]OverTest [/color][color=#007700]( [/color][color=#0000BB]ByRef Var2 [/color][color=#007700]As [/color][color=#0000BB]Integer[/color][COLOR=#007700])

[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][/COLOR][/align]

تغيير محدد الوصول أيضا يصدر خطأ

المثال التالي يصدر خطأ لتغيير محدد الوصول

كود :
[align=left][color=#000000][COLOR=#007700]Public [/color][color=#0000BB]Sub OverTest [/color][color=#007700]( [/color][color=#0000BB]ByVal Var1 [/color][color=#007700]As [/color][color=#0000BB]Integer[/color][COLOR=#007700])

 [/COLOR][COLOR=#0000BB]End Sub

[/COLOR][/COLOR][/align]

كود :
[align=left][COLOR=#000000][COLOR=#0000BB]

[/COLOR][/COLOR][color=#000000][COLOR=#007700]Private [/color][color=#0000BB]Sub OverTest [/color][color=#007700]( [/color][color=#0000BB]ByRef Var2 [/color][color=#007700]As [/color][color=#0000BB]Integer[/color][COLOR=#007700])

 [/COLOR][COLOR=#0000BB]End Sub

[/COLOR][/COLOR][/align]

في النهاية عند تطبيق مبدأ اعادة التعريف يستحسن استخدام الكلمة المحجوزة OverLoads لتسريع عمل المترجم
مثال:

كود :
[align=left][color=#000000][COLOR=#0000BB]OverLoads Sub OverTest[/color][color=#007700]([/color][color=#0000BB]ByVal Var1 [/color][color=#007700]As [/color][color=#0000BB]Integer[/color][COLOR=#007700])

[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][/COLOR][/align]

كود :
[align=left][color=#000000][COLOR=#0000BB]OverLoads Sub OverTest[/color][color=#007700]([/color][color=#0000BB]ByVal Var2 [/color][color=#007700]As [/color][color=#0000BB]String[/color][COLOR=#007700])

[/COLOR][COLOR=#0000BB]End Sub

[/COLOR][/COLOR][/align]

تكمن أهمية مبدأ إعادة التعريف في تسهيل عمل المبرمج :
المثال التالي سيوضح كيف:
الآن عندما نطلب من المستخدم ادخال عمره هل نضمن أنه سيدخله حرفيا ام رقميا...بهذا ستضطر لخوارزمية اكثر تعقيدا بدءا بقنص الأخطاء الواردة مرورا بتحويل المدخلات في حال خالفت المطلوب انتهاء بخطأ وارد في حال فشل العمليتين السابقتين..
لذلك يفيدنا مبدأ إعادة التعريف في تخطي هذا الخطأ كالتالي:

كود :
[align=left][color=#000000][COLOR=#007700]Class [/color][COLOR=#0000BB]Person

Overloads Sub SetAge[/COLOR][color=#007700]([/color][color=#0000BB]ByVal Age [/color][color=#007700]As [/color][color=#0000BB]String[/color][COLOR=#007700])

[/COLOR][COLOR=#0000BB]End Sub

Overloads Sub SetAge[/COLOR][color=#007700]([/color][color=#0000BB]ByVal Age [/color][color=#007700]As [/color][color=#0000BB]Integer[/color][COLOR=#007700])

[/COLOR][COLOR=#0000BB]End Sub

End [/COLOR][COLOR=#007700]Class

[/COLOR][/COLOR][/align]

-----------------------------------
In Form.Load

كود :
[color=#000000][COLOR=#0000BB]Dim Lo2i [/color][color=#007700]As New [/color][COLOR=#0000BB]Person

Lo2i[/COLOR][color=#007700].[/color][color=#0000BB]SetAge[/color][color=#007700]([/color][color=#0000BB]19[/color][COLOR=#007700])

[/COLOR][color=#0000BB]Lo2i[/color][color=#007700].[/color][color=#0000BB]SetAge[/color][color=#007700]([/color][color=#DD0000]"تسعة عشر"[/color][COLOR=#007700])

[/COLOR][/COLOR]

الآن في حال ادخال المستخدم قيمة حرفية سيتم التعامل معها وفق الاجراء الاول الذي يستقبل نصا بينما إن أدخل قيمة رقمية سيتم التعامل معها وفق الاجراء الثاني الذي يستقبل رقما بهذا نتخطى احتمالات الوقوع في خطأ من جراء ادخال قيمة غير النوع المحدد

نكتفي بمبدأ إعادة التعريف حول موضوع الطرق وهناك بعض القضايا الأخرى التي سيتم شرحها باذن الله وقت حاجتنا لها ان شاء الله

بهذا نكون قد أنهينا فصلنا لهذا اليوم وسنتحدث في الفصل القادم عن الجزء المتبقي من الفئات ان شاء الله

مع تحيات:
Lo2i و Mohammed Asaad

انتظروا الدرس القادم

الفصل(8): الدوال والاجراءات

Sun, 23 Sep 2012 08:41:02 +0000

السلام عليكم ورحمة الله وبركاته
بسم الله الرحمن الرحيم
اليوم سوف نتطرق لموضوع بالغ الأهمية في فيجوال بيسك دوت نت وهو الاجراءات و الدوال.
أفضل شرح هذا الدرس باستخدام مشروع Widows Appllication

أولا:الدوال Functions
الدالة Function : هي عبارة عن برنامج صغير يستقبل وسيطات(Parameters) ويطبق بعض العمليات عليها ثم يخرج لنا ناتج الدالة...وتكون بالشكل التالي:

كود :
Function FunctionName ( Parameters)

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

القسم الأول: الدوال الموجودة في فيجوال بيسك دوت نت
بداية الدوال الموجودة في فيجوال بيسك دوت نت كثيرة جدا وسنشرح القليل منها ان شاء الله

هناك دوالة رياضية و هناك دوال لها وظائف تقنية كالتحويل وبعض الوظائف الأخرى..
هناك تركيبة(Structure-راجع فصل التركيبات) خاصة باللغة تسمى بMath وتحتوي الكثير من الدوال ويمكن استخدامها بسهولة..
مثال: حساب القيمة المطلقة لقيمة عددية(نعرف القيمة المطلقة بانها القيمة الموجبة للمقدار سواء كان موجبا أو سالبا)
أنشيء نموذج جديد وضع فيه أداة نص TextBox وأداة تسمية Label وأداة زر Button واضبط الخصائص ليظهر بالشكل التالي:

وفي اجراء Click للزر Button أدخل الكود التالي:

كود :
Label1.Text = Math.Abs(Integer.Parse(TextBox1.Text))

ببساطة: استدعينا الدالة Abs من التركيبة Math والتي تقوم بحساب القيمة المطلقة ولاحظ أننا استخدمنا الدالة Integer.Parse لتحويل محتوى النص من صورته النصية إلى عددية

مثال آخر:

Label1.Text = Math.Pow( 2 , 3 )

وضعت هذا المثال لتوضيح أن الدالة لا تقتصر على وسيط واحد بل أكثر حسب المراد وتقوم الدالة Pow بحساب القوة الثالثة للأساس 2 ويمكنك تغيير القيم حسب رغبتك.

وبتطرق بسيط إلى الدوال التي تقوم بوظائف تقنية كالتحويل بنستعرض بعض الأمثلة:
مثال: تحويل القيمة النصية إلى قيمة عددية
كما رأينا في مثال حساب القيمة المطلقة فاننا قمنا بعملية تحويل من نص(مدخل صندوق النص) إلى قيمة عددية لان الدالة Abs لا تتعامل مع نصوص بل أعداد وجرب إزالة التحويل وسيظهر الخطأ.
اذن ان اردنا التحويل من قيمة نصية لعددية يمكننا استخدام الدالة Integer.Parse(String) وتقوم بتحويل النص الوسيط إلى قيمة عددية

مثال آخر:تحويل القيمة العددية لنصية:
هناك بعض الدوال التي لا تستطيع التعامل مع القيمة على صورتها العددية بل تحتاج وسيط نصي فنقوم بتحويل الصورة العددية إلى صورتها النصية باستخدام الدالة

كود :
[align=left]     Str(Number) 

 [/align]

فهذه الدالة تستقبل وسيط عددي ويكون ناتجها صورة نصية

بهذا نكون انتهينا من الدوال الموجودة في فيجوال بيسك دوت نت

الآن ماذا اذا أردت صنع دالة خاصة مثلا تقوم بحساب مساحة دائرة...؟
يمكنك بناء دالة باستخدام الكلمة المحجوزة Function كما وضحنا في بداية الدرس
بداية الصورة الافتراضية للدالةو بما أن للدالة ناتج و قيمة فالافضل تحديد نوع الدالة:

كود :
[align=left]     Function Fun_Name (Parameters) As Type 

 [/align]

الآن سوف نسمي الدالة باسم CircleArea وعلينا تحديد الوسيطات اللازمة لعلمية حساب المساحة وكما هو معروف لا يلزمنا سوى نصف قطر الدائرة وبالنسبة للقيمة ط (PI) يمكننا استخدامها من خلال الثابت Math.PI
تمعن في الكود التالي:

كود :
[align=left]     Function CircleArea(ByVal Radius As Integer) As Double

    Dim Area As Double

    Area = Math.PI * Math.Pow(Radius, 2)

    Return Area

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As      System.EventArgs) Handles Button1.Click

    Label1.Text = CircleArea(Integer.Parse(TextBox1.Text))

    End Sub 

 [/align]

الآن انظر معي:
قمنا بصنع دالة سميناها CircleArea والتي تقوم بحساب مساحة الدائرة حسب نصف قطرها المدخل
وبعدها قمنا بتحديد الوسطيات وهي Radius نصف القطر
والآن كما قلنا فان للدالة ناتج لها يمكن استخراجه من عمليات الدالة الداخلية لكن كيف يمكن اعطاء هذه الدالة تلك القيمة بعد انتاجها داخل الدالة....
يمكن ذلك باحدى طريقتين:

[*=center]استخدام الكلمة المحجوزة Return
[*=center]اسناد ناتج الدالة المطلوب إلى الدالة مباشرة

توضيح:
في المثال الاخير أردنا أن يكون ناتج الدالة هو المتغير Area ويمكن إعطاء قيمته للدالة كالتالي:
الاولى:
استخدمنا الأمر Return واستخدمناه كالتالي:

كود :
Return Area

ويقوم باعطاء قيمة Area لناتج الدالة

الثانية:
يمكننا استبدال الأمر Return بالاسناد المباشر للقيمة كمثال:

كود :
CicleArea=Area

أما بالنسبة لByVal و ByRef فيتم شرحهما بعد قليل
لكن ماذا ان اردت الخروج من الدالة عند الوصول لنتيجة معينة
يمكن ذلك بسهولة باستخدام الأمر Exit Funtion
مثال:

كود :
[align=left]                         [align=right]                             [align=left]                                 [align=right]                                     [align=left]                                         Function Fun_Name (Parameters) As String

                                        If X > 2 Then Exit Function

                                        End Function 

 [/align]

                                 [/align]

                             [/align]

                         [/align]

                     [/align]

ويمكنك استخدام الدالة في أي مكان حسبما تحديدك لمحدوديتها كما وضحنا في الفصول السابقة عن المحدودية ومجال الاستخدام
وبهذا يمكنك استنتاج أن من أهم فوائد الدوال توفير الوقت وتقليل حجم الكود.

ثانيا:الاجراءات الفرعية Subs
تختلف هذه عن سابقتها بانها لا تخرج لنا نواتج وانما تقوم بتنفيذ تعليمات وفقا للوسيطات
بداية أيضا هناك اجراءات موجودة اصلا في فيجوال بيسك دوت نت وأخرى تصنعها انت
صياغة الاجراء الفرعي مشابهة لصياغة الدالة باختلاف أن الدالة يمكنك تحديد نوع ناتجها بينما الاجراء الفرعي تستطيع تحديد مقبض الإجراء
أولا : الدوال الموجودة في فيجوال بيسك دوت نت
سوف نستعرض مثالا من الاجراءات الموجود في فيجوال بيسك دوت نت ونوضح أجزاءه
مثال:

كود :
[align=left]     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As      System.EventArgs) Handles Button1.Click

    End Sub 

 [/align]

الشرح:

[*=center]الكلمة المحجوزة Private تفيد أن الاجراء يمكن استخدامه فقط داخل نموذج الحاضن فقط
[*=center]الكلمة المحجوز Sub تفيد اننا نبدا بصنع اجراء فرعي
[*=center]Button1_Click هو اسم الاجراء
[*=center]ما بين القوسين تمثل الوسيطات المرسلة للحدث
[*=center]الآن Handle تفيد كيف يتم اجراء الحدث وهنا ألحقناها ب Button1.Click وهنا نفيد الاجراء أن يتم تنفيذ الاجراء عند القيام بالضغط على Button1
[*=center]End Sub تفيد بانتهاء الاجراء

الآن اصنع الاجراء الخاص بك بنفسك:
بداية الصيغة العامة للاجراء الفرعي هي

Sub

كود :
Sub_Name (Parameters)

    Statements

    End Sub

والآن لنقوم بتصميم اجراء فرعي يقوم باغلاق النموذج الذي نمرره للاجراء

كود :
Sub CloseForm(frm As Form)

            frm.Close()

            End Sub

لكن كيف يمكن استدعاء هذا الحدث وتمرير الوسيطات له
ضع زر Button جديد واضغط عليه ضغطا مزدوجا وقم يكتابة الكود التالي:

رمز برمجي:

CloseForm(Me)

هنا قمنا باستدعاء الاجراء CloseForm ومررنا له النموذج الحالي(Me)
ويمكن أيضا استدعاء الاجراء بالطريقة التاليه باستخدام الكلمة المحجوزة Call
مثال:

رمز برمجي:

Call CloseForm(Me)

الآن انتهينا من الدوال والاجراءات وبقت علينا قضية تتعلق بتمرير الوسيطات
الارسال بالقيمة او الارسال بالمرجع

أولا: الارسال بالقيمة باستخدام الكلمة المحجوزة ByVal
هنا يتم تمرير المتغيرات دون تغيير القيمة الاصلية للمتغير وبالتالي يتم ارسال نسخة جديدة من البيانات المرسلة في كل مرة تستدعي فيها الاجراء لذا فهي تستهلك مزيدا من الوقت لكنها لا تؤثر على باقي أجزاء البرنامج لانها تقوم بارسال نسخة جديدة من البيانات المرسلة.

ثانيا:الارسال بالمرجع باستخدام الكلمة المحجوزة ByRef
هنا يتم ارسال مؤشر للمتغير مما يمكنك بتغيير قيمة المتغير الاصلية وهنا لا يتم انشاء نسخة جديدة من البيانات بل فقط يتم ارسال البيانات الاصلية وهنا تكون العملية اسرع من الارسال بالقيمة

بهذا نكون قد انتهينا ان شاء الله من الشرح لهذا الفصل وسوف اعرض مثالا يجمع الكثير مما تم دراسته في الفصول السابقة.

أولا :قم بفتح مشروع جديد من نوع Windows Appllication
وأضف نموذج غير الاصلي وأيضا قم باضافة وحدة نمطية (Module) ويمكن استخدام الModule في صناعة الاجراءات واستخدامها في كامل اجزاء المشروع

ثانيا:سمي النموذج الاول بـ MainForm والثاني بـMsgForm
واضف الأدوات الظاهرة بالشكل واضبط خصائصها كما هو واضح:

في داخل الموديول أضف الكود التالي:

كود :
Const PI As Double = 3.14

        Structure Circle

            Public Function CalculateArea(ByVal Radius As Integer) As Double

                Return (PI * Math.Pow(Radius, 2))

            End Function

            Public Function CalculateLength(ByVal Radius As Integer) As Double

                Return (PI * Radius * 2)

            End Function

            Public Sub ShowMsg(ByVal Text As String, ByVal Title As String)

                MsgForm.Label1.Text = Text

                MsgForm.Text = Title

                MsgForm.ShowDialog()

            End Sub

            Dim A As String

        End Structure

في هذا الكود قمنا بتعريف ثابت اسميناه PI واسندنا اليه القيمة 3.14
وقمنا ببناء تركيبة من نوع Structure واسميناها Circle ووضعنا فيها دالتين واحدة تقوم بحساب محيط الدائرة والثانية تقوم بحساب مساحة الدائرة
كما قمنا بصنع اجراء يقوم بعرض النموذج MsgForm من خلال الامر ShowDialog الذي يقوم باظهار النموذج على شكل مربع حوار مثل مربعات الرسائل

أما في نموذج MainForm فتمعن في الأكواد التالية داخل النموذج

وكذلك نموذج الMsgForm

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles Button1.Click

Me.Close()

End Sub

وقد وضعت لكم المثال كاملا بالمرفقات
أو من الرابط التالي

http://www.4shared.com/rar/zxklLlvC/Example.html

نتمنى ان تكونوا قد استمعتم معنا

أبلغكم تحياتنا

Lo2i و Mohammed Asaad
انتظروا الدرس القادم

Example.rar (الحجم : 66.9 ك ب / التحميلات : 193)

الفصل (7):- اوامر التكرار والدوران ( شرح مفصل )

Sun, 23 Sep 2012 08:04:11 +0000

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

سيكون درسنا اليوم ان شاء الله عن جمل التكرار والدوران وسيكون عملنا الكلي على الكونسول
ولفتح مشروع كونسول جديد اتبع الصورة التالية :_

لقد قمنا بإيضاح شيء بسيط حول الكونسول في الفصل الاول هنا

والان سوف نتعلم سوياً كيفية استخدام جمل التكرار والدوران داخل هذا الكونسول

ملاحظة هامة :_ المصفوفات غالباً مايتم استخدامها مع جمل التكرار والدوران
لذلك سوف نتعلم ذلك الان

==================================================

اولاً :- ماهي جمل التكرار :-

جمل التكرار :-

باختصار هي جزء من البرنامج يتكرر

فمثلاً اذا اردنا ان نضيف على الكومبو ال قائمة المنسادلة الارقام من

إلى

100

فهل من المعقول ان نقوم بكتابة 100 سطر لاجل ذلك ؟؟
بالطبع لا ....

---------------------------------------

وسينتج لنا كود كبير جدأً وبدون اي فائدة منه :- مثل

كود :
[color=#0000BB]ComboBox1[/color][color=#007700].[/color][color=#0000BB]Items[/color][color=#007700].[/color][color=#0000BB]Add[/color][color=#007700]([/color][color=#0000BB]1[/color][COLOR=#007700])

[/COLOR][color=#0000BB]ComboBox1[/color][color=#007700].[/color][color=#0000BB]Items[/color][color=#007700].[/color][color=#0000BB]Add[/color][color=#007700]([/color][color=#0000BB]2[/color][COLOR=#007700])

[/COLOR][color=#0000BB]ComboBox1[/color][color=#007700].[/color][color=#0000BB]Items[/color][color=#007700].[/color][color=#0000BB]Add[/color][color=#007700]([/color][color=#0000BB]3[/color][COLOR=#007700])

[/COLOR]

.
.
.

كود :
[FONT=Verdana][FONT=arial][b]

[color=#0000BB]ComboBox1[/color][color=#007700].[/color][color=#0000BB]Items[/color][color=#007700].[/color][color=#0000BB]Add[/color][color=#007700]([/color][color=#0000BB]99[/color][COLOR=#007700])

[/COLOR][color=#0000BB]ComboBox1[/color][color=#007700].[/color][color=#0000BB]Items[/color][color=#007700].[/color][color=#0000BB]Add[/color][color=#007700]([/color][color=#0000BB]100[/color][COLOR=#007700]) 

[/COLOR][/b][/FONT][/FONT]

الان سنجرب ان نضيف اليه الارقام ولكن باستخدام جملة التكرار for مثلاً :-

كود :
[color=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#007700]For [/color][color=#0000BB]i [/color][color=#007700]= [/color][COLOR=#0000BB]1 to 100

ComboBox1[/COLOR][color=#007700].[/color][color=#0000BB]Items[/color][color=#007700].[/color][color=#0000BB]Add[/color][color=#007700]([/color][color=#0000BB]i[/color][COLOR=#007700])

[/COLOR][color=#0000BB]next [/color]

[/b][/FONT][/FONT][/align]

[/COLOR]

بهذه الكود هنا سوف يقوم بعمل اضافة للاعداد من 1 إلى 100 ولا حظ ان كلمة next تاتي مع حلقة for دائماً

---------------------------------------------

أقسام جمل التكرار:
1-جمل التكرار باستخدام For..Next
2-جمل التكرار باستخدام Do...Loop

-------------------------------

*******************************************

اولاً :- جملة التكرار for --- next

يمكننا استخدام هذه الجملة عندما نريد تكرار التعليمة حسب المراد

فمثلاً كما في المثال السابق حدد انا نريد الارقام من 1 إلى 100 وبهذا صار التكرار معلوماً لدينا

وتكون الصيغة العامة لجملة التكرار for .... next بالشكل التالي :-

كود :
[FONT=Verdana][FONT=arial][b][COLOR=#007700]

For [/COLOR][color=#0000BB]i [/color][color=#007700]= ([/color][color=#0000BB]ٍStartValue[/color][color=#007700]) [/color][color=#0000BB]to [/color][color=#007700]([/color][color=#0000BB]EndValue[/color][COLOR=#007700])

[/COLOR][COLOR=#0000BB]Condition

Next i 

[/COLOR][/b][/FONT][/FONT]

......................./\/\/\/\\/\/\/...........................

مثلاً هذا الكود لاضافة مصفوفة جديدة ومن خلال جملة التكرار اريدها ان تضع الاسماء التي بداخل المصفوفة
وتكتب في الكونسول

كود :
[color=#000000][align=left][FONT=Verdana][FONT=arial][b] [COLOR=#0000BB]Dim *****rab[/color][color=#007700]() As [/color][color=#0000BB]String [/color][color=#007700]= {[/color][color=#DD0000]"lo2i"[/color][color=#007700], [/color][color=#DD0000]"ali"[/color][color=#007700], [/color][color=#DD0000]"mohammed"[/color][color=#007700], [/color][color=#DD0000]"samer"[/color][color=#007700], [/color][color=#DD0000]"some one"[/color][COLOR=#007700]}

For [/COLOR][color=#0000BB]i [/color][color=#007700]= [/color][COLOR=#0000BB]0 To 4

Console[/COLOR][color=#007700].[/color][color=#0000BB]WriteLine[/color][color=#007700]([/color][color=#DD0000]"the name is " [/color][color=#007700]& [/color][color=#0000BB]*****rab[/color][color=#007700]([/color][color=#0000BB]i[/color][COLOR=#007700]))

[/COLOR][COLOR=#0000BB]Next

Console[/COLOR][color=#007700].[/color][color=#0000BB]ReadKey[/color][color=#007700]() [/color]

[/b][/FONT][/FONT][/align]

[/COLOR]

------------------------------------------

قمنا بتعريف مصفوفة جديد وادخلنا فيها القيم التالية -

كود :
[color=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#007700]{[/color][color=#DD0000]"lo2i"[/color][color=#007700], [/color][color=#DD0000]"ali"[/color][color=#007700], [/color][color=#DD0000]"mohammed"[/color][color=#007700], [/color][color=#DD0000]"samer"[/color][color=#007700], [/color][color=#DD0000]"some one"[/color][color=#007700]} [/color]

[/b][/FONT][/FONT][/align]

[/COLOR]

استخدمنا الكلمة المحجوزة

for

قمنا بتنفيذ تكرار جديد واعطينا قيمة له هي ان يبدأ بالعد من الصفر وينتهي ب اربعة
اي 0 1 2 3 4 اي خمس مرات

الصفر رقم منفصل -
الواحد رقم منفصل -
الاثنين رقم منفصل -
الثلاثة رقم منفصل -
الاربعة رقم منفصل –

يمكنك تجريب النتيجة بنفسك الان لعمل ذلك
ولا حظ هنا اننا كتبنا هذا الكود

كود :
[color=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#0000BB]Console[/color][color=#007700].[/color][color=#0000BB]WriteLine[/color][color=#007700]([/color][color=#DD0000]"the name is " [/color][color=#007700]& [/color][color=#0000BB]*****rab[/color][color=#007700]([/color][color=#0000BB]i[/color][color=#007700])) [/color]

[/b][/FONT][/FONT][/align]

[/COLOR]

وهو الكود الذي سيقوم بتكرار نفسه خمس مرات على التوالي

ملاحظة هامة جداً :-

سيقوم تكرار العد على العداد الذي نقوم بتعريفه في جملة التكرار
فمثلاً قيمة i
لاول مرة سيكون 0

وبعد وصوله للكلمة المحجوزة next

سوف يعود لبداية التكرار
بعد ان تصبح قيمته 2
وهكذا حتى تصل إلى خمسة
اذا وصل العداد إلى الرقم 5 خرج من جملة التكرار
وادى الاكواد التالية ...

ولا تنسوا انه يمكننا الحصول على القيمة التي بداخل اي مصفوفة من خلال الكود التالي

كود :
[color=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#0000BB]Textbox1[/color][color=#007700].[/color][color=#0000BB]text [/color][color=#007700]= [/color][color=#0000BB]*****rab[/color][color=#007700]([/color][color=#0000BB]1[/color][color=#007700]) [/color]

[/b][/FONT][/FONT][/align]

[/COLOR]

وسيظهر لنا في التيكست اسم lo2i

طيب لماذا في جملة التكرار لم نقم بكتابة عدد داخل فهرس المصفوفة

كما تلاحظون كتبنا داخل فهرس المصفوفة العداد i
الذي عرفناه على انه جملة تكرار تبدأ من الصفر وتنهي عند الاربعة

*********************************************

نعم المسألة بسيطة اكثر مما تتصور
فكما قلنا ان العداد سوف يبدأ من القيمة صفر وهي اول قيمة في المصفوقة ايضاً
لان المصفوفة كمان قيمها تبدأ من العدد ر قم صفر
وعند وصوله اول مرة إلى كلمة next
سوف يذهب إلى ال for
وتكون قيمته 1
وسيعرض لنا القيمة الاولى في المصفوفة التي تأتي بعد الصفر
وهكذا

&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

[SIZE=7]ثانياً :- جملة التكرار Do...Loop[/SIZE]

القسم الأول:توضيح الحلقة Do...Loop

هذا التكرار لا يقيدنا بقيم البداية أو النهاية بل يتحدد فقط بتحقق الشرط وبالنسبة للحلقة For..Next نحدد مقدار الزيادة أو النقصان في مقدار العداد

الفرق بين ال for next

Do...Loop

الفرق كما ذكرنا في التعريف ان جملة ال for next قمنا بتحديد مقدار الاضافة ومقدار العداد له
اما جملة التكرار do while

فهي غير محددة وينتهي تكرارها بالاعتماد على الشرط التي اعطيته بها

مثلاً في هذا الكود هنا

كود :
[color=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#007700]For [/color][color=#0000BB]x [/color][color=#007700]= [/color][COLOR=#0000BB]o to 2

Msgbox x

Next [/COLOR]

[/b][/FONT][/FONT][/align]

[/COLOR]

ستظهر لنا ثلاث رسايل فيها التالي:-

اقتباس:

الاولى رقم 1

الثانية رقم 2

الثالثة رقم 3

واما الكود التالي لجملة التكرار ال

do ..Loop

كود :
[color=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#0000BB]Dim x [/color][color=#007700]As [/color][COLOR=#0000BB]Integer

x [/COLOR][color=#007700]= [/color][COLOR=#0000BB]0

[/COLOR][color=#007700]Do While [/color][color=#0000BB]Not x [/color][color=#007700]= [/color][COLOR=#0000BB]4

MsgBox[/COLOR][color=#007700]([/color][color=#0000BB]x[/color][COLOR=#007700])

[/COLOR][color=#0000BB]x [/color][color=#007700]= [/color][color=#0000BB]x [/color][color=#007700]+ [/color][COLOR=#0000BB]1

Loop [/COLOR]

[/b][/FONT][/FONT][/align]

[/COLOR]

--------------------

سيقوم الكود التالي بطباعة المسج الرسالة msgbox 3 مرات على التوالي :

وبهذا //؟

اعتقد ان الفرق اصبح واضح الان

.................................................. .....................................

القسم الثاني:جزأي الحلقة Do...Loop

[*=center]الحلقة Do While...Loop
[*=center]الحلقة Do Until...Loop

أولا:الحلقة Do While...Loop
باختصار تقوم هذه الحلقة بتنفيذ التعليمات المحتواة طالما تحقق الشرط وعند فشل الشرط تتوقف هذه الحلقة
مثال بسيط:

كود :
Dim I As Integer = 0 Do While I < 10 Console.Write(I) I = I + 1 Console.WriteLine() Loop Console.ReadKey()

الآن سيقوم البرنامج باختبار الشرط عند اول عملية تنفيذ وسيرى أن الشرط قد تحقق لان صفر اقل من عشرة وهكذا الى ان يصل الرقم تسعة فيزيد البرنامج 1 ويفشل الشرط وبهذا تنتهي الحلقة
والناتج:

0
1
2
3
4
5
6
7
8
9

ثانيا:الحلقة Do Until...Loop
تقوم هذه الحلقة بتنفيذ التعليمات داخل كتلة Do...Loop طالما لم يتحقق الشرط وبمجرد تحققه تتوقف الحلقة(اذن كما نرى فهي تعمل عكس الحلقة Do While...Loop
مثال:

كود :
Dim I As Integer = 0 Do Until I >= 10 Console.Write(I) I = I + 1 Console.WriteLine() Loop Console.ReadKey()

كما نرى فان الشرط هو مضاد تماما للشرط في الحلقة السابقة لكن نتج نفس النتائج بالضبط!!كيف ذلك؟

الآن ستبدأ الحلقة باختبار الشرط ووجده خاطئ لذلك ينفذ التعليمات الى ان يتحقق الشرط وعندما يصل الرقم تسعة فبزيادة 1 تصبح عشرة وبالتالي يصبح الشرط صحيحا وتتوقف الحلقة
وناتج الحلقة هو

0
1
2
3
4
5
6
7
8
9

القسم الثالث:الفحص قبل الحلقة أو بعد الحلقة

الجزء الأول: الفحص المبدأي: Pre-Test
يقوم البرنامج بفحص الشرط ثم ينفذ الحلقة بعد التحقق من صحة الشرط
مثال: جميع أمثلة Do..Loop السابقة هي من هذا النوع من الفحص

الجزء الثاني:الفحص بعد تنفيذ الحلقة: Posted-Test
يقوم البرنامج بتنفيذ التعليمات لاول مرة ثم يقوم بعد تنفيذ التعليمات للمرة الأولى بفحص الشرط
أي أنه ينفذ التعليمات لاول مرة بالرغم من صحة الشرط المعطى:
مثال: نظام (هل تريد اعادة البرنامج في تطبيقات الكونسول)
الآن سأوضح الفكرة بهذا الكود:

كود :
[align=right][align=left][align=right][align=left][align=right][align=left][align=right][align=left][align=center][align=right][align=center]Dim    again As String Do Console.Write("Do you Want to re-start The    Program?(Y/N)") again = Console.ReadLine() Loop While (again = "Y" Or    again = "y")

[/align]

[/align]

[/align]

[/align]

[/align]

[/align]

[/align]

[/align]

[/align]

[/align]

[/align]

[b][/CODE]

الآن نخبر البرنامج أول مرة أن يقوم بتنفيذ التعليمات وبعد ذلك يقوم البرنامج بالتحقق من قيمة again التي أدخلناها وقت التنفيذ فاذا كانت تساوي y أو Y فنخبره بتكرار الحلقة وان لم يكن يتخطى الحلقة

[/b]

ثالثاً :-

طبعاً النوع هذا لا يعتبر نوع بحد مايعتبر طريقة استثنائية ثانية
فمثلاً اذا اردنا ان نقوم بتعبئة الكونسول 10 مرات ali
بدون ذكر اي من الكلمات for او do while
فسنعمل طريقة التالية لتعبئة الكونسول بدون استخدام اي من جمل التكرار المعروفة
وهذه هي الطريقة :_

كود :
[align=center][COLOR=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#0000BB]

Dim s [/COLOR][color=#007700]As [/color][COLOR=#0000BB]Integer

s [/COLOR][color=#007700]= [/color][COLOR=#0000BB]0

lo2i[/COLOR][COLOR=#007700]:

[/COLOR][color=#0000BB]s [/color][color=#007700]= [/color][color=#0000BB]s [/color][color=#007700]+ [/color][COLOR=#0000BB]1

Console[/COLOR][color=#007700].[/color][color=#0000BB]WriteLine[/color][color=#007700]([/color][color=#DD0000]"ali"[/color][COLOR=#007700])

If [/COLOR][color=#0000BB]s [/color][color=#007700]< [/color][COLOR=#0000BB]5 Then GoTo lo2i

Console[/COLOR][color=#007700].[/color][color=#0000BB]ReadKey[/color][color=#007700]() [/color]

[/b][/FONT][/FONT][/align]

[/COLOR][/align]

شرح الكود السابق :-

السطر الاول :-

كود :
[align=center][color=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#0000BB] Dim s [/color][color=#007700]As [/color][color=#0000BB]Integer [/color]

[/b][/FONT][/FONT][/align]

[/COLOR][/align]

عرفنا متغير من نوع رقمي وللتعلم المزيد حول المتغيرات والثوابت ادخل هنا

****

السطر الثاني :-

كود :
[align=center][color=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#0000BB]s [/color][color=#007700]= [/color][color=#0000BB]0 [/color]

[/b][/FONT][/FONT][/align]

[/COLOR][/align]

اسندنا قيمة للمتغير s وهي صفر .

*****

السطر الثالث :-

كود :
[align=center][color=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#0000BB]lo2i[/color][color=#007700]: [/color]

[/b][/FONT][/FONT][/align]

[/COLOR][/align]

ماهذا

((سنشرحه بعد قليل))

السطر الخامس :-

كود :
[align=center][color=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#0000BB]Console[/color][color=#007700].[/color][color=#0000BB]WriteLine[/color][color=#007700]([/color][color=#DD0000]"ali"[/color][color=#007700]) [/color]

[/b][/FONT][/FONT][/align]

[/COLOR][/align]

الكود الذي تستطيع من خلاله كتابة اي شيء في الكونسول

وهنا اخترنا اسم علي ali

**********

السطر السادس:-

كود :
[align=center][color=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#007700]If [/color][color=#0000BB]s [/color][color=#007700]< [/color][color=#0000BB]5 Then GoTo lo2i [/color]

[/b][/FONT][/FONT][/align]

[/COLOR][/align]

جملة شرطية واعتقد انها واضحة بعد ماقمت بقرأءة هذا الدرس هنا

ومضمون هذه الحملة الشرطية انه اذا كانت قيمة المتعير s

اذهب إلى كلمة لؤي lo2i

وابدأ بالقراءة من هناك ...

****************

السطر السابع :-

كود :
[align=center][color=#000000][align=left][FONT=Verdana][FONT=arial][b][COLOR=#0000BB]Console[/color][color=#007700].[/color][color=#0000BB]ReadKey[/color][color=#007700]() [/color]

[/b][/FONT][/FONT][/align]

[/COLOR][/align]

هذا الكود اذا لم تضعه فسوف تفتح لك شاشة الكونسول وتقفل بدون ان ترى اي شيء كتب فيها

لذلك يجب عليك ان تقوم بكتابته لكي تستطيع القراءة من الكونسول ...

**********

اي انه باستخدام جملة ال Goto

يمكنك البدء من سطر جديد في الكود ام من اجراء معين

ولا حظ ان كلمة Lo2i يكتب بعدها : نقطتان رئسيتان

كما هو موضح في الصورة التالية :-

=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

[b]يتبع[/b]

الفصل(6):صنع القرار...الجزء الثاني-تكوين الشروط

Sat, 22 Sep 2012 20:45:28 +0000

بسم الله الرحمن الرحيم

تكوين الشروط (Condition)

تحدثنا في الفصل السابق عن الجزء الأول من صنع القرار ..ألا وهو الجمل الشرطية.
الفصل(5):صنع القرار...الجزء الأول-الجمل الشرطية

وفي هذا الموضوع ان شاء الله سنتحدث عن الجزء المكمل وهو كيف نكتب الشروط...
وهذا الدرس ابسط من سابقه كثيرا ان شاء الله

بشكل عام
الشروط يمكن أن تكون مفردة أو مزدوجة
كيف ؟
جميع الحالات السابق كنا نقوم بفحص صحة شرط وحيد فقط لكن ماذا عن التحقق من شرطين أو أكثر ؟
يمكن وبكل سهولة بواسطة الروابط المنطقية And Or Not ..إلخ
(تذكر أنك تتحدث مع الحاسوب وهو يفهمك قدر بلاغتك)

أولا: المعامل(And)
عندما نريد تطبيق تعليمة مرتبطة بشرطين فيمكننا ذلك عبر المثال التالي:

If Condition1 And Condition2 Then
Statement
End If

كما نرى فان التعليمة تنفذ ففي حال صحة الشرطين وفشل أحدهما يعطي نتيجة خاطئة لمجمل الشرطين(ارجع لجدول الصحة)
أي انه بفشل الشرط الأول فالبرغم من صحة الثاني فإن المجمل خاطئي ولا تطبق التعليمة والعكس صحيح
وبصحة الشرطين فان يكون المجمل صحيح وتطبق التعليمة

Truth Table For (And Logical Operator)
________________________________

Condition1-------Condition2-------Result

________________________________
True-------------True--------------True
True-------------False-------------False
False------------True--------------False
False----------- False------------- False
________________________________

ثانيا:المعامل Or
عندما نريد تطبيق تعليمة مرتبطة بصحة واحد على الاقل من شرطين فاننا نستخدم المعامل Or
أي أنه يكفي صحة أحد الشرطين فقط لتطبيق التعليمة
أنظر جدول الصحة الخاص بالمعامل Or

Truth Table For (Or Logical Operator)
________________________________
Condition1-------Condition2-------Result
________________________________
True-------------True--------------True
True-------------False-------------True
False------------True--------------True
False----------- False------------- False
________________________________

وكما نرى فان فشل الشرطين معا يؤدي لفشل المجمل بالكامل

ثالثا: المعامل Not
عندما مريد تطبيق تعليمة مرتبطة بفشل الشرط نستخدم المعامل Not
أي أن مجمل الشرط صحيح عندما يكون الشرط داخل Not خاطئ
انظر جدول الصحة الخاص يالمعامل Not

Truth Table For (Not Logical Operator)
____________________
Condition-------Result
____________________
True-------------False
False-------------True
____________________

رابعا:المعامل AndAlso

لا تختلف عن المعامل And كثيرا لكن هناك فرق جوهري بينهما
المعامل And بالرغم من فشل الشرط الأول فانه يتحقق من الشرط الثاني والنتيجة عرفت مسبقا بالفشل وبهذا عملية اضافية لا داعي لها
المعامل AndAlso عندما يفشل الشرط الأول فانه يتخطى الشرط الثاني معلنا فشل المجمل بالرغم من نتيجة الشرط الآخر

خامسا:المعامل OrElse
لا تختلف عن المعامل Or كثيرا لكن هناك فرق جوهري بينهما
المعامل Or بالرغم من صحة الشرط الأول فانه يتحقق من الشرط الثاني والنتيجة عرفت مسبقا بصحة المجمل وبهذا عملية اضافية لا داعي منها
المعامل OrElse عندما يتأكد من صحة الشرط الأول فانه يتخطى الشرط الثاني معلنا صحة المجمل بالرغم من نتيجة الشرط الثاني

مسألة أخيرة:
هل لاحظت يوما في أحد المصادر الكود التالي:

If x Then statement

فقد راينا أن الشرط هنا لا يحمل معنى المقارنة اذن كيف يتم التحقق من صحة الشرط من فشله
دعنا نرجع قليلا الى المتغيرات وانواعها: كما نعرف فان هناك متغيرات من النوع Boolean(منطقي)
والآن أيضا دعنا نركز في الشروط التي شرحناها مسبقا فكل الشروط تخرج بنتيجة True او False
وهذا ما حدث مع المتغير X فقد تم الاعلان عنه كمتغير منطقي وبهذا تكون قيمته اما True او False(هونها بتهون..!!)
===================================
نرجو ان نكون قد افدناكم

أبلغكم تحياتنا
Lo2i و Mohammed Asaad
انتظروا الدرس القادم

الفصل(5):صنع القرار...الجزء الأول-الجمل الشرطية

Sat, 22 Sep 2012 20:41:53 +0000

السلام عليكم ورحمة الله وبركاته
بسم الله الرحمن الرحيم

سنتحدث اليوم عن قضية هامة جدا في البرمجة وهي صنع القرار .
صنع القرار : توجيه سير البرنامج عند الوصول لنتيجة معينة.

يتم ذلك عن طريق الجمل الشرطية والتي تنقسم لقسمين:

الجمل الشرطية باستخدام الكلمة المحجوزة If
الجمل الشرطية باستخدام الكلمتان المحجوزتان Select Case

أولاً:الجمل الشرطية باستخدام If
للتوضيح:يقصد ب Condition الشرط قيد الفحص
و Statement التعليمة التي يتم تنفيذها عند تحقيق الشرط
يمكن استخدام القاعدة If باكثر من صورة:
التصنيف الأول - من حيث التركيب:

1)

If Condition Then Statement

وهنا اذا تأكد البرنامج من صحة الشرط يتم تنفيذ التعليمة بعد Then وان فشل الشرط يتم تخطيها

مثال:

كود :
If Mark > 90 Then Result = "Very Good"

If Condition Then
Statement
End If

وهنا اذا تأكد البرنامج من صحة الشرط يتم تنفيذ التعليمة داخل الIf وان فشل الشرط يتم تخطيها
مثال:

كود :
If Mark>90 ThenResult = "Very Good"End If

If Condition Then
Statement1
Statement2
Statement3

....
....
End If

وهنا اذا تأكد البرنامج من صحة الشرط يتم تنفيذ التعليمات داخل الIf وان فشل الشرط يتم تخطيها

مثال:

كود :
If Mark>90 ThenResult1="Very"Result2="Good"Result=Result1+Result2End If

If Condition Then
Statement1
Statement2
ElseStatement3
....
End If

وهنا نخبر البرنامج انه في حال صحة الشرط يتم تطبيق التعليمات Statement1 و Statement2
وفي حال فشل الشرط يتم تنفيذ التعليمات بعد Else وهي تستخدم لتنفيذ التعليمات التي تحتضنها في حال فشل الشروط السابقة لها.
ملاحظة:Else تعني غير

مثال:

كود :
If Mark>50 ThenResult="Successful"ElseResult="Not Successful"End If

If Condition1 Then
Statement1
ElseIf Condition2
Statement2
Else
Statement3
....
End If

وهنا نخبر البرنامج انه اذا تأكد من صحة الشرط الأول يتم تنفيذ ما بعد Then في نفس سطر الشرط إلى أن تنتهي بابتداء الشرط الآخر وهكذا مع بقية الشروط في حال فشل الشروط السالقة وصولا الى Else والتي تنفذ في حال فشل كل الشروط السابقة

التصنيف الثاني-من حيث التوزيع:
1) في سطر واحد:

If Condition Then Statement
If Condition Then Statement1 : Statement2 :.....
If Condition Then Statement1 Else Statement2

حيث في الصورة الثانية بتحقق الشروط يتم تنفيذ التعليمات المرتبطة ويتم الفصل بينها بعلامة ":"
أما في الصورة الثالثة فتعادل الصورة رقم 4 في التصنيف الأول
2) في أكثر من سطر:

If Condition Then
Statement
End If

وباقي الحالات في التصنيف العلوي ما عدا الرقم واحد ينطبق عليها تصنيف اكثر من سطر
كما في الامثلة السابقة
ملاحظة مهمة: في حال تعدد الاسطر علينا انهاء كتلة الشرط If ب End If لكي يستطيع المترجم تحديد نهابة كتلة If

مثال يوضح قاعدة If وهو حساب معدل ثلاث علامات وعرض النتيجة
1) قم بانشاء مشروع جديد من نوع Windows Application بلغة فيجوال بيسك دوت نت
2) أضف ثلاث صناديق نص (TextBox) للنموذج واضف زر تحكم Button وأداتان تسمية Label.
3)أعد ضبط الخصائص

4) اضغط ضغطا مزدوجا على زر التحكم Button ليتم ادخال الكود في حدث من احداثه والحدث الافتراضي له هو Click

كود :
Dim Mark1, Mark2, Mark3, Total As Integer

        Dim Abrave As Double

        Mark1 = Integer.Parse(TextBox1.Text)

        Mark2 = Integer.Parse(TextBox2.Text)

        Mark3 = Integer.Parse(TextBox3.Text)

        Total = Mark1 + Mark2 + Mark3

        Abrave = (Total / 3)

        Label1.Text = Abrave.ToString

        If Abrave > 90 Then

            Label2.Text = "ممتاز"

        ElseIf Abrave > 80 Then

            Label2.Text = "جيد جدا"

        ElseIf Abrave > 70 Then

            Label2.Text = "جيد"

        ElseIf Abrave > 60 Then

            Label2.Text = "متوسط"

        ElseIf Abrave > 50 Then

            Label2.Text = "مقبول"

        Else

            Label2.Text = "راسب"

        End If

الآن قمنا بحجز اربع وتغيرات من النوع Integer وهم الثلاث علامات ومجموعهم وقمنا بحجز متغير آخر من النوع Double وهو المعدل لانه من المتوقع أن يحمل المعدل كسور عشرية

لعلك لاحظت جديد في الكود وهو الدالة

كود :
Integer.Parse(String)

كما نعلم فان القيم التي يتم ادخالها لمربع النص TextBox تكون على شكل نص وهنا لا نحتاجها كنص بل نريدها عدد صحيح وهي تعمل عكس عمل .ToString وتقوم بتغيير نوع المدخل من نص إلى رقم صحيح

ملاحظة:كتلة If هي كتلة متداخلة(Nested)
ثانيا: الجمل الشرطية باستخدام Select Case
لا تختلف قاعدة Select Case كثيرا عن قاعدة If من ناحية الوظيف لكن لكل حادث حديث
كيف يمكننا استخدام Select Case
1)
يمكننا استخدام لمقارنة قيمة واحدة
مثال:

كود :
Dim X As Integer = 20Select Case XCase 20 MsgBox("القيمة هي 20")Case ElseMsgBox("القيمة غير 20")End Select

وهنا قمنا باختبار هل المتغير X يحمل القيمة 20 أم لا

2)
مقارنة مدى معين
تمعن في المثال التالي:

كود :
Select Case X

Case Is >= 90  

Result = "ممتاز"

Case 80 To 89

Result = "جيد جدا"

Case 70 To 79

Result = "جيد"

Case 60 To 69

Result = "متوسط"

Case 50 To 59

Result = "مقبول"

Case Else

Result="راسب"

End Select

الآن نستطيع القول اننا انتهينا من الجمل الشرط بنوعيها الرئيسين والآن انتظروا الجزء الثاني في الفصل القادم -ان شاء الله-

أبلغكم تحياتنا
Lo2i و Mohammed Asaad
انتظروا الدرس القادم

الفصل(4): المصفوفات

Sat, 22 Sep 2012 20:24:14 +0000

السلام عليكم إخواني الكرام
كيف حالكم ؟

هذا الموضوع ملك للأستاذ Mohammed Asaad وقد طلبت منه أن أنقل مشاركاته ووافق بحمد الله

السلام عليكم ورحمة الله وبركاته
بسم الله الرحمن الرحيم

درسنا لليوم ان شاء الله سيتحدث عن المصفوفات(من الموضوعات ذات الأهمية الكبرى في عالم البرمجة)

______________
ملاحظة: الموضوع ليس موضوعي بل موضوع اخي وحبييبي لؤي لكن مجرد اضافة بسيطة رفض رفضا قاطعا انو ينزله والشكر اولا واخير لاخي لؤي
_____________

بداية اعلم عزيزي أن المصفوفة عبارة عن مجموعة من المتغيرات التي تحمل عدة قيم تحت مسمى واحد بطريقة مفهرسة

سوف نقوم بشرح هذا الفصل تحت مشروع الConsole
قم بفتح مشروع Console جديد وسوف نوضح تعريفنا السابق...

كود :
Sub Main()

        Dim Days(6) As String

        Dim i As Integer

        Days(0) = "Saturday"

        Days(1) = "Sunday"

        Days(2) = "Monday"

        Days(3) = "Tuesday"

        Days(4) = "Wednesday"

        Days(5) = "Thursday"

        Days(6) = "Friday"

        For i = 0 To 6 Step 1

            Console.Write(Days(i))

            Console.WriteLine()

        Next

        Console.ReadKey()

    End Sub

مداخلة: بالنسبة لبعض الأكواد
الامر

كود :
Console.Write(String)

يقوم بقنص النص المدخل وعرضه على الشاشة

الأمر

كود :
Console.WriteLine()

يقوم بطباعة سطر جديد

الأمر

كود :
Console.ReadKey()

يقوم بقنص مفاتيح الكيبورد لتنفيذ ما بعده

بالنسبة للحلقة باستخدام For سوف
نضع لها فصلا كاملا ان شاء الله في القريب
كذلك مشروع الConsole سنوضحه في فصل
كامل وباختصار هو يستخدم للاشياء البسيطة كدرسنا كما يستخدم في العمليات الخفيفة
كالنسخ والحذف وما الى ذلك...

الآن كما نرى فاننا قمنا بحجز مصفوفة كنص باسم Days و وجعلنا عناصرها 7
عناصر...كيف؟؟
في فيجوال بيسك دوت نت نعلن عن المصفوفة بالشكل التالي:

Dim Array(n) As Type

بحيث أن عدد عناصر المصفوفة يساوي n+1
والآن هل لاحظت أن أول عنصر تبدأ فهرسته
من صفر
لعلك عرفت أن n ترمز إلى فهرس المصفوفة
فإذا أردنا استخراج أو اسناد
قيمة للعنصر(النوني n ) في المصفوفة فنرمز له باسم المصفوفة وبداخل القوسين العدد
n-1
باختصار: كما رأينا المصفوفة عبارة عن (متغير أو ثابت) يحمل عدة قيم بسحب
المحجوز من البداية...

الآن فلنتعمق أكثر(لكن لن نغرق باذن
الله)
المصفوفات لا تقتصر على ما شرحناه فهي اكبر من ذلك ... والآن سندخل في
أنواع المصفوفات

أنواع المصفوفات
:eek: (مش للهدرجة....هونها
بتهون)

الآن تقسم المصفوفات الى أكثر من نوع:

مصفوفات أحادية الرتبة
مصفوفات ثنائية الرتبة
مصفوفات متعددة الرتبة

أولا: المصفوفات أحادية الرتبة..
اعلم
عزيزي أن المثال بالأعلى هو عبارة عن مصفوفة أحادية الرتبة
المصفوفة أحادية
الرتبة تتكون من صف واحد وعدة أعمدة أو عمود واحد وعدة صفوف
طريقة الإعلان:

كود :
Dim Array(n) As Type

مثال:

كود :
Dim MyLovers(3) As String

MyLovers(0) ="MOHAMMED"

MyLovers(1) = "Lo2i"

MyLovers(2) = "7hoooda"

MyLovers(3) = "The Rest

الآن كما رأينا قمنا بحجز مصفوفة من 4 عناصر(3+1)
وقمنا باسناد قيمة لكل عنصر
حسب فهرسته في المصفوفة( مش قلنالك هينة..!)

ثانيا: المصفوفات ثنائية
الرتبة..
الآن دعنا نرتفع بالسلم درجة للأعلى...
المصفوفة ثنائية الرتبة :هي
المصفوفة التي تكون رتبتها مقيدة برقمين (كتشبيه ثنائية الأبعاد)
وعدد عناصر
المصفوفة تساوي عدد الصفوف مضروبا بعدد الأعمدة

طريقة الإعلان:

كود :
Dim Array(m,n) As Type

مثال:

كود :
Dim ages(2, 2) As Integer 

        ages(0, 0) = 1 

        ages(0, 1) = 2 

        ages(0, 2) = 3 

        ages(1, 0) = 4 

        ages(1, 1) = 5 

        ages(1, 2) = 6 

        ages(2, 0) = 7 

        ages(2, 1) = 8 

       ages(2, 2) = 9

لكن ما الذي حدث؟
اقتباس:
_______________
عدد عناصر المصفوفة تساوي عدد
الصفوف مضروبا بعدد الأعمدة
_______________

لكن عدد عناصر المصفوفة 9
والمفروض 2*2 =4
احذر عزيزي من الوقوع في هذا الخطأ الفادح....كما قلنا بالأعلى
فان رتبة المصفوفة (فهرستها) تبدأ من الصفر أي أن عدد عناصر المصفوفة أعلاه لا
يساوي 2*2 بل يساوي (2+1)*(2+1) = 3*3 =9(مش قلنا هونها
بتهون.!)

ثالثا:المصفوفة متعددة الرتبة وتكون ثلاثية الأبعاد وطريقة الحجز
كالتالي:

كود :
Dim Array(x,y,z) As Type

ولكن لا أظنك تحتاج اليها في حياتك البرمجية لذلك حبذت عدم الحديث
عنها..

طرق حجز المصفوفات في
الذاكرة

الطريقة الأولى:طريقة الحجز باعطاء الرتبة ثم إسناد القيم....كما
جميع الأمثلة السابقة..
الطريقة الثانية: الحجز بدون اعطاء الرتبة مع الاسناد
المباشر للقيم
مثال:

كود :
Dim *****() as string ={“mohammed”,”7hoooda”,hitmaker”,”lo2i”}

وبالتالي يقوم المترجم تلقائيا بحجز مصفوفة
بعدد عناصر المصفوفة المعطاة
بهذا نكون انتهينا ان شاء الله من درسنا
...يا اخي هونها بتهون!!

أبلغكم تحياتنا
Lo2i و Mohammed Asaad
انتظروا الدرس
القادم

الفصل(2):الثوابت والمتغيرات وخصائصها....نظرة مفصلة

Sat, 22 Sep 2012 20:14:38 +0000

السلام عليكم إخواني الكرام
كيف حالكم ؟

هذا الموضوع ملك للأستاذ lo2i وقد طلب مني بأن أنقل مشاركاته

بسم الله الرحمن الرحيم
السلام
عليكم ورحمة الله وبركاته

عند فتح الفيجوال بيسك 2008 ستظهر لنا هذه النافذة هنا ويمكنك من خلالها
تحديد اللغة
التي ستبرمج بها والية العمل التي تريدها داخل البرنامج والصورة
توضح :_

[b]
الدرس الثالث :_ الثوابت والمتغيرات .
[/b]

[b]اولاً الثوابت :-
[/b]
تنقسم الثوابت في لغة الفيجوال بسيك 2008 إلى ثلاثة اقسام رئيسية وهي نصية او رقمية ومنطقية
ويمكننا تعريف ثابت في البرنامج من خلال الكلمة المحجوزة

كود :
[color=#000000][COLOR=#007700][FONT=Simplified Arabic Fixed]const[/FONT][/color][/COLOR]

ولاحظ هنا اخي الكريم في الفيجوال بيسك 2008 لا يمكنك تعريف ثابت
إلا من خلال المبدأ التالي

كود :
[COLOR=#007700]Const   [/color][color=#0000bb]name  [/color][color=#007700]as  [/color][color=#0000bb]type  [/color][color=#007700]=  [/color][color=#0000bb]value[/color]

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#007700]Const   [/color][color=#0000bb]اسم الثابت       [/color][color=#007700]as  [/color][color=#0000bb]قيمته [/color][color=#007700]=   [/color][color=#0000bb]نوعه [/color][/FONT][/COLOR]

ولاحظ هنا عند كتابة الثابت لا يمكنك نسب قيمة له إلا في
نفس السطر الذي قمت بكتابة الثابت فيه .

اي انه لايمكنك ان تكتب الثابت في سطر وقيمة الثابت في سطر اخر
وهذا من الاشياء
التي تميز المتغير عن الثابت
امثلة على تعريف ثوابت جديدة لاستخدامها في
البرنامج :-

اي انه لايمكنك ان تكتب الثابت في سطر وقيمة الثابت في سطر اخر
وهذا من الاشياء التي تميز المتغير عن الثابت
امثلة على تعريف ثوابت
جديدة لاستخدامها في البرنامج :-

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#007700]Const [/color][color=#0000bb]name [/color][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][color=#dd0000]"mohammed"  [/color][/FONT][/COLOR]

' ثابت من نوع نص

كود :
[COLOR=#007700]Const [/color][color=#0000bb]age [/color][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][color=#0000bb]22[/color]

' ثابت من نوع عدد صحيح

كود :
[FONT=Simplified Arabic Fixed][COLOR=#007700]Const [/color][color=#0000bb]marry [/color][color=#007700]As [/color][color=#0000bb]Boolean [/color][color=#007700]= [/color][/FONT][color=#0000bb][FONT=Simplified Arabic Fixed]False[/FONT][/color]

' ثابت من نوع قيمة منطقية

الطرق التي من خلالها تستطيع تعريف ثوابت
لبرنامج :-

1 - الطريقة التقليدية تعريف ثابت ونسب قيمة له مثل

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#007700]Const [/color][color=#0000bb]name [/color][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][color=#dd0000]"ali"  [/color][/FONT][/COLOR]

2 - كتابة الثابت بدون تحديد نوع له مثل
:-

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#007700]Const [/color][color=#0000bb]name [/color][color=#007700]= [/color][color=#dd0000]"lo2i" [/color][/FONT][/COLOR]

3 - كتابة اكثر من ثابت مع تحديد القيمة لها في سطر واحد :- مثل

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#007700]Const [/color][color=#0000bb]name [/color][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][color=#dd0000]"mohammed"[/color][color=#007700], [/color][color=#0000bb]age [/color][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][color=#0000bb]22 [/color][/FONT][/COLOR]

4 - كتابة اكثر من ثابت بودن تحديد نوع الثابت
مثل

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#007700]Const [/color][color=#0000bb]name [/color][color=#007700]= [/color][color=#dd0000]"mohammed"[/color][color=#007700], [/color][color=#0000bb]age [/color][color=#007700]= [/color][color=#0000bb]33[/color][color=#007700], [/color][color=#0000bb]marry [/color][color=#007700]= [/color][color=#0000bb]False  [/color][/FONT][/COLOR]

لاحظ هنا اننا لم نستخدم كلمة تعريف الثابت إلا في بداية الجملة فقط

[b]فوائد الثوابت في البرنامج
:_

1- تسهيل البرمجة عندما تريد التعويض بقيمة ثابتة لعدد
غير معين من المتغيرات.

فمثلاً اذا اردت ان ان تعٌرف ثابت لعمر اعضاء في
المنتدى
اسماؤهم كالتالي :_ أحمد و محمد و لؤي
ونريد اعطاء عمر واحد لكل
الاعضاء

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#007700]Const [/color][color=#0000bb]age [/color][color=#007700]As [/color][color=#0000bb]Integer [/color][color=#007700]= [/color][/FONT][FONT=Simplified Arabic Fixed][COLOR=#0000bb]20

Dim person1 [/COLOR][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][/FONT][FONT=Simplified Arabic Fixed][COLOR=#dd0000]"ahmad"

[/COLOR][color=#0000bb]Dim person2 [/color][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][/FONT][FONT=Simplified Arabic Fixed][COLOR=#dd0000]"mohammed"

[/COLOR][color=#0000bb]Dim person3 [/color][color=#007700]As [/color][color=#0000bb]String [/color][color=#007700]= [/color][/FONT][FONT=Simplified Arabic Fixed][COLOR=#dd0000]"lo2i"

[/COLOR][color=#0000bb]MsgBox[/color][color=#007700]([/color][color=#0000bb]person1 [/color][color=#007700]& [/color][color=#dd0000]" = " [/color][color=#007700]& [/color][color=#0000bb]age [/color][color=#007700]& [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][color=#0000bb]person2 [/color][color=#007700]& [/color][color=#dd0000]" = " [/color][color=#007700]& [/color][color=#0000bb]age [/color][color=#007700]& [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][color=#0000bb]person3 [/color][color=#007700]& [/color][color=#dd0000]" = " [/color][color=#007700]& [/color][color=#0000bb]age[/color][color=#007700]) [/color][/FONT][/COLOR]

ووظيفة الدالة VBCRLF
هي كالتالي :-
الدالة تعمل على اعطاء سطر جديد في الرسالة ويمكن ايضاً استخدامها في اكثر من مجال
في التيكست وفي اللابيل وفي اكثر من اداة
وضيغتها كالتالي :_ & VBCRLF &

****************************
[/b]

2- انها تتعامل مع المصفوفات بكل يسر وسهولة ويمكنها الوصول إلى مصفوفة معينة

================================================== ==========

[b]ال[/b][b]اخطاء المتوقعة حدوثها عند تعاملك مع الثوابت :-
[/b]
اولاً :-
تغيير قيمة الثابت في البرنامج او اثناء التشغيل مثال لذلك :-

كود :
[color=#000000][COLOR=#0000BB][/color][FONT=Simplified Arabic Fixed][color=#007700]Const [/color][color=#0000BB]age [/color][color=#007700]As [/color][color=#0000BB]Integer [/color][color=#007700]= [/color][/FONT][FONT=Simplified Arabic Fixed][COLOR=#0000BB]20

        age [/COLOR][color=#007700]= [/color][color=#0000BB]22  [/color][/FONT][/COLOR]

ثانياً:-
تعريف الثابت في سطر ونسب
القيمة له في سطر اخر كما قلنا سابقاً .
مثال لذلك ..

كود :
[color=#000000][COLOR=#0000BB][/color][FONT=Simplified Arabic Fixed][color=#007700]Const [/color][color=#0000BB]age [/color][color=#007700]As [/color][/FONT][FONT=Simplified Arabic Fixed][COLOR=#0000BB]Integer 

        age [/COLOR][color=#007700]= [/color][color=#0000BB]18  [/color][/FONT][/COLOR]

ملاحظة هامة جداً جداً :- عند تعاملنا مع الثوابت يجب علينا ادخال القيمة للثابت في نفس جملة
تعريف الثابت .

ولا حظ هنا انا الفرق بين النقطة الاولى والثانية
هي ماسيوضحه هذا الشكل

وهي ان الكود الاول اعطى قيمة للثابت في تعريف الثابت
وفي الخطوة الثانية حاول تغيير القيمة وهنا هو الخطأ قما قلنا سابقاً الثابت لا يمكن تغييره في وقت تنفيذ البرنامج.
------------------------------------
[b]الكود الثاني الخطأ فيه هنا انه لم يعطي قيمة للثابت في التعريف
[/b]واقصد بالتعريف هنا اي تعريف الثابت باستخدام الكلمة المحجوزة واعطاه قيمة في سطر جديد .

---------------------------------------------------------------------------------------------------
[b]ملاحظة يمكنك عمل ثابت بالبرنامج
بدون تحديد نوعه اي نصي او حرفي مثل

كود :
[color=#000000][COLOR=#0000BB][/color][FONT=Simplified Arabic Fixed][color=#007700]Const [/color][color=#0000BB]a [/color][color=#007700]= [/color][/FONT][COLOR=#DD0000][FONT=Simplified Arabic Fixed]"lo2i"  

[/FONT]

[/COLOR][color=#0000BB][/color][/COLOR]

كود :
[color=#000000][COLOR=#0000BB][/color][FONT=Simplified Arabic Fixed][color=#007700]Const [/color][color=#0000BB]s [/color][color=#007700]= [/color][color=#0000BB]123  [/color][/FONT][/COLOR]

كود :
[color=#000000][COLOR=#0000BB][/color][FONT=Simplified Arabic Fixed][color=#007700]Const [/color][color=#0000BB]x [/color][color=#007700]= [/color][color=#0000BB]true [/color][/FONT][/COLOR]

ولكن في هذه الحالة يمكنك اعطاء اي قيمة كانت
له حرفية نصية منطقية(اي قيمة صحيحة او
خاطئة)

==================================

ثانياً المتغيرات
:-

تعريفها :-[/b] موقع محدد في
الذاكرةيمكن ان يحتوي بيانات من اي نوع فالمتغير لايعطي قيمة ثابتة بل يمكن تغييرها
بعكس الثابت .

[b]الشروط اللازمة لكتابة اسماء
المتغيرات في البرنامج:

1 - عدم استخدام الكلمات المحجوزة في البرنامج

كود :
[color=#000000][COLOR=#0000BB][/color][FONT=Simplified Arabic Fixed][color=#007700](if       [/color][color=#0000BB]dim      [/color][color=#007700]while     do      ......)  [/color][/FONT][/COLOR]

2[SIZE=4] - عدم البدء برقم في اسم المتغير مثل لذلك
:-

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#0000BB]Dim 1a [/color][color=#007700]as [/color][color=#0000BB]string  [/color][/FONT][/COLOR]

3 - يمنع استخدام الرموز في اسماء المتغيرات مثل

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#0000BB]Dim [/color][color=#007700]? as [/color][color=#0000BB]Integer [/color][/FONT][/COLOR]

4 - يمنع استخدام النقطة او الفاصلة في اسم
المتغير مثل :-

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#0000BB]Dim a.1 [/color][color=#007700]as [/color][/FONT][FONT=Simplified Arabic Fixed][COLOR=#0000BB]string

        Dim a[/COLOR][color=#007700],[/color][color=#0000BB]1 [/color][color=#007700]as [/color][color=#0000BB]String  [/color][/FONT][/COLOR]

[/SIZE][/b]طرق تعريف المتغيرات في البرنامج باستخدام الكلمة المحجوزة Dim
[SIZE=4]
[/SIZE][SIZE=4]1 – الطريقة الافتراضية لتعريف
المتغيرات

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#0000BB]Dim name [/color][color=#007700]As [/color][color=#0000BB]String  [/color][/FONT][/COLOR]

[SIZE=4]2 - طريقة تعريف متغير منفصل مع نسب القيمة له في نفس السطر

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#0000BB]Dim name [/color][color=#007700]As [/color][color=#0000BB]String [/color][color=#007700]= [/color][color=#DD0000]"ali"[/color][/FONT][/COLOR]

3 - طريقة تعريف اكثر من متغير في سطر واحد
ويكونوا لنفس النوع (اي كلاهما من نوع نصي او كلاهما من نوع رقمي) مثل لذلك

كود :
[FONT=Simplified Arabic Fixed][COLOR=#0000BB]Dim f_name[/color][color=#007700], [/color][color=#0000BB]l_name [/color][color=#007700]As [/color][/FONT][COLOR=#0000BB][FONT=Simplified Arabic Fixed]String

[/SIZE][/SIZE][/FONT][/COLOR][SIZE=4]في هذا المتغير عرفنا متغيريين من نوع نص اسم المتغير الاول
والثاني L_name
F_name
[/SIZE][SIZE=4][SIZE=4]
4 - تعريف متغيرات مختلفة في نفس
السطر (اي مختلفة في النوع اي متغير نصي ومتغير رقمي ومتغير منطقي) مثل

كود :
[COLOR=#0000BB]Dim name [/color][color=#007700]As [/color][color=#0000BB]String[/color][color=#007700], [/color][color=#0000BB]age [/color][color=#007700]As [/color][color=#0000BB]Integer[/color][color=#007700], [/color][color=#0000BB]marry [/color][color=#007700]As [/color][COLOR=#0000BB]Boolean

لاحظ هنا اننا كتبنا المتغيرات جميعها بكلمة واحد فقط
للتعريف وهي Dim

5 - تعريف متغيرات من غير نوع في
سطر واحد ونسب القيم لها مثل

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#0000BB]Dim name [/color][color=#007700]As [/color][color=#0000BB]String [/color][color=#007700]= [/color][color=#DD0000]"mr.mohammed"[/color][color=#007700], [/color][color=#0000BB]age [/color][color=#007700]As [/color][color=#0000BB]Integer [/color][color=#007700]= [/color][color=#0000BB]12[/color][color=#007700], [/color][color=#0000BB]marry [/color][color=#007700]As [/color][color=#0000BB]Boolean [/color][color=#007700]= [/color][color=#0000BB]True[/color][/FONT][/COLOR]

[/SIZE][/SIZE][/COLOR][SIZE=4][SIZE=4]
لاحظ اننا عرفنا 3 متغيرات من انواع مختلفة منها النصي ومنها الرقمي ومنها
المنطقي..
6 - تعريف متغير من دون ذكر الكلمة Dim مثل :-[/SIZE][/SIZE][SIZE=4][SIZE=4]

كود :
[color=#000000][FONT=Simplified Arabic Fixed][COLOR=#0000BB]Name[/color][color=#007700]=[/color][color=#DD0000]"lo2i" [/color][/FONT][/COLOR]

طرق تعريف المتغيرات في البرنامج
:_

باستخدام الكلمة المحجوزة static

1 - يمكنك استخدمها بهذه الطريقة

كود :
[color=#000000][COLOR=#0000BB][/color][FONT=Simplified Arabic Fixed][color=#007700]Static [/color][color=#0000BB]name [/color][color=#007700]As [/color][color=#0000BB]String  [/color][/FONT][/COLOR]

وسيبقى البرنامج محتفظاً بها داخل البرنامج من لحظة
تشغيله إلى لحظة ايقافه
المعلومات المستخدمة لاضافة المتغيرات باستخدام الامر
Dim
لاتختلف عن طرق اضافة المتغيرات في الاستاتيك static

الفرق بين الكلمتين Dim و static

عندما تريد من المتغير ان يحتفظ باقيمة داخل اجراء خاص فقط تستخدم
له هذه الكلمة Dim

عندما تريد من المتغير ان يحتفظ بقيمة المتغير طيلة فترة عمر
البرنامج يمكنك استخدام هذه Static الانواع من المتغيرات

مع التنبيه ان الكلمة الاولى تكون اخف على
الذاكرة من الكلمة الثانية
لان الاولى تحتفظ بالقيمة داخل
اجراء منفصل بها والثانية تحتفظ بها طيلة وقت البرنامج.

انواع المتغيرات التي يمكن التعامل معها نوضح كل
ذلك
من خلال الجدول التالي

[/SIZE][/SIZE][SIZE=4][SIZE=4]

ويمكننا القول هنا ان انواع المتغيرات تنقسم إلى ثلاث اقسام رئيسية وهي كالتالي :-
[SIZE=3]1 - متغيرات عددية .
2 - متغيرات نصية .
3 - متغيرات منطقية.
4 - متغير عام ويحمل كل هذه القيم .

*******************************

سوف اعطي هنا امثلة بسيطة عن المتغيرات النصية

كود :
[color=#000000][SIZE=3][COLOR=#0000BB]Dim NAME [/color][color=#007700]As [/color][/SIZE][SIZE=3][COLOR=#0000BB]String

        [/COLOR][color=#007700]Static [/color][color=#0000BB]NAME2 [/color][color=#007700]As [/color][/SIZE][SIZE=3][COLOR=#0000BB]String

        NAME [/COLOR][color=#007700]= [/color][/SIZE][SIZE=3][COLOR=#DD0000]"ali"

        [/COLOR][color=#0000BB]NAME2 [/color][color=#007700]= [/color][/SIZE][SIZE=3][COLOR=#DD0000]"MOHAMMED"

        [/COLOR][color=#0000BB]MsgBox[/color][color=#007700]([/color][color=#0000BB]NAME [/color][color=#007700]& [/color][color=#DD0000]"   " [/color][color=#007700]& [/color][color=#0000BB]NAME2[/color]

)

امثلة عن المتغيرات الرقيمة
:_

كود :
[FONT=Simplified Arabic Fixed][color=#0000bb]Dim num1 [/color][color=#007700]As [/color][/FONT][FONT=Simplified Arabic Fixed][COLOR=#0000BB]Integer

        [/COLOR][color=#007700]Static [/color][color=#0000BB]num2 [/color][color=#007700]As [/color][/FONT][FONT=Simplified Arabic Fixed][COLOR=#0000BB]Integer

        num1 [/COLOR][color=#007700]= [/color][/FONT][FONT=Simplified Arabic Fixed][COLOR=#0000BB]10

        num2 [/COLOR][color=#007700]= [/color][/FONT][FONT=Simplified Arabic Fixed][COLOR=#0000BB]10

        MsgBox[/COLOR][color=#007700]([/color][color=#0000BB]num1 [/color][color=#007700]* [/color][color=#0000BB]num2[/color][/FONT][COLOR=#007700][FONT=Simplified Arabic Fixed])  [/FONT]

[/COLOR]

امثلة عن العمليات المنطقية في المتغيرات :-

كود :
[color=#000000][COLOR=#0000BB]Dim value [/color][color=#007700]As [/color][COLOR=#0000BB]Boolean

        value [/COLOR][color=#007700]= [/color][COLOR=#0000BB]True

        value [/COLOR][color=#007700]= [/color][COLOR=#0000BB]false

        MsgBox[/COLOR][color=#007700]([/color][color=#0000BB]value[/color][color=#007700])[/color][/COLOR]

مثال على تعريف المتغير العام في البرنامج :-

كود :
[color=#000000][COLOR=#0000BB]Dim s [/color][color=#007700]As [/color][COLOR=#0000BB]Object

        s [/COLOR][color=#007700]= [/color][COLOR=#0000BB]12345

        s [/COLOR][color=#007700]= [/color][COLOR=#0000BB]12.345

        s [/COLOR][color=#007700]= [/color][COLOR=#DD0000]"mohammed"

        [/COLOR][color=#0000BB]s [/color][color=#007700]= [/color][COLOR=#DD0000]"lo2i"

        [/COLOR][color=#0000BB]s [/color][color=#007700]= [/color][COLOR=#0000BB]True

        s [/COLOR][color=#007700]= [/color][COLOR=#0000BB]False

        MsgBox[/COLOR][color=#007700]([/color][color=#0000BB]s[/color][color=#007700])[/color][/COLOR]

كما قلنا سابقاً يمكننا الاستعان بهذا النوع من المتغيرات اذا كنا غير متأكدين من المدخلات التي يدخلها المستخدم .

*************************************
[b]

المتغيرات والمساحات التخزينية التي تأخذها من الذاكرة توضحها الصورة التالية :-

طبعاً اخواني لن نستطيع ان نحصر كل خصائص المتغيرات والثوابت في هذا الدرس

لذلك تركت لكم اسلوب التنقيب بنفسكم عن الحل لان هذا من اهم اساسيات تعلم البرمجة

واخيراً وليس اخراً اعتذر عن تأخر الدرس بسبب انقطاع الانترنت

أبلغكم تحياتنا

[SIZE=4]Lo2i و [/SIZE]Mohammed Asaad
انتظروا الدرس القادم
*************[/SIZE][/COLOR][/SIZE][/SIZE][/SIZE][/b]