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



أخواتى الافاضل أهلا وسهلا بكم فى الدرس الثانى عشر من دروس الفجوال بيسك 6 ...فى هذا الدرس أن شاء الله تعالى سنتكم عن الدوال البرمجية للفجوال بيسك 6




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



الدوال في الفيجول بيسك تنقسم إلى:


1. الدوال الرياضية . Mathematics Functions


2. دوال سلاسل البيانات . String Functions


3. دوال الوقت و التاريخ Date and Time Functions


4. دوال التحقق من أنواع البيانات Data Type Inspection Functions


5. دوال المدخلات و المخرجات Program Output and User Input Functions


6. دوال مالية Financial Functions


7. دوال التحويلات Conversion Function


8. دوال التعامل مع الفهارس


9. دوال التعامل مع الملفات


10. دوال المصفوفات


11. و دوال متنوعة أخري


12. دوال معرفة من قبل المبرمج. User Defined Functions ( UDF )

ونلاحظ أن نوع الدوال من رقم (1) حتى رقم (7) أنها دوال داخلية ضمن اللغة، أي تأتي مُعرفة في لغة الفيجول بيسك و مبرمجة مسبقاً لكي تستخدمها مباشرة.ً أما النوع الأخير فيتم تعريفه بواسطة المبرمج،


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





1_دوال التاريخ و الوقت ....


أ/ الدالة Now

وتستخدم لعرض التاريخ و الوقت الحالي المخزن في نظام التشغيل وهو الشكل القصير ...مثال عملى ...قمم بتصميم نموذج واضعا عليه أداة العنوان label وزر أمر commad وقم بتسمية أعرض الوقت و التاريخ ثم نكت الكود التالى تحت زر الامر فى حدث كليك ..

الكود:



Label1.Caption = Now()




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








ويجب أن تلاحظ أننا كتبنا هذه الدالة بعد يساوى بدون علامات أقتباس و ذلك لاننا لو وضعنا علامات أقتباس على كملة "Now"...ستجد أن البرنامج قد عرض تلك الكمة و ليس التاريخ


ب / الدالة Time


وتستخدم لعرض الوقت الحالي فقط دون التاريخ المخزن في نظام التشغيل...مثال عملى وهو نفس المثال السابق وكل ما عليك هو كتابة الكود التالى تحت زر الامر وفى حدث الضغط كليك .

الكود:



Label1.Caption = Time()




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


ج / الدالة Date



وتستخدم لعرض التاريخ فقط دون الوقت والمخزن فى نظام التشغيل لديك ....مثال عملى وهو نفس المثال السابق ايضا و الكود سيكون على النحو التالى :

الكود:



Label1.Caption = Date()



د / الدالة Day و الدالة Month والدالة Year


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

الكود:





Label1.Caption = Day(Date)




و لعرض الشهر يكون على النحو التالى :

الكود:

Label1.Caption = month(Date)


ولعرض السنة يكون على النحو التالى :

الكود:

Label1.Caption = Year(Date)


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



ثانيا :دوال المدخلات و المخرجات



أ / دالـة صندوق الرسالة أو مربعات الحوار MsgBox



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


و أبسط كود لعرض رسالة للمستخدم تكون على النحو التالى :

الكود:



MsgBox "هذا مثال بسيط لإظهار رسالة"





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






يجب ملاحظة أننا قد كتبانا الدالة MsgBox ثم بعد ذلك الرسالة المراد أظهارها للمستخدم بين علامتى تنصيص كما هو ظاهر فى الشكل السابق ....جرب تشغيل البرنامج و أضغط على زر "أعرض التاريخ" ستجد أنه قد ظهرت رسالة بها زر واحد (ok)و تحتوى على النص السابق ذكرة كما فى الشكل التالى :






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

الكود:

 



<p>MsgBox "هل تريد أظهار التاريخ ؟", vbOKOnly + vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تأكيد"

<p>في العبارة السابقة ستجد إننا أضفنا بعض الثوابت وهي كما يلى :


الثابت vbOKOnly وهو لإظهار الزر موافق

الثابت vbInformation يمثل رمز علامة المعلومات

الثابت vbMsgBoxRight المسئول عن تعريب شريط العنوان وتغير اتجاه من الشمال إلي اليمين

الثابت vbMsgBoxRtlReadingالمسئول عن تعريب شريط مربع الرسالة وتغير اتجاه من الشمال إلي اليمين

وبعد إسناد الثوابت التي تحتاجها في رسالتك تسند للمربع الرسالة العنوان التي تريد إظهاره في شريط عنوان الرسالة "مثال" بين علامتي تنصيص ...وعلامتي التنصيص هنا لتبين للفيجوال بيسك أن ما بداخلي عبارة عن نص فقط أي يعامل كمعاملة النصوص . . . أما ما بين كل ثابت و هو عبارة عن معامل الجمع ( + ) وهو يستخدم لمزج العبارات أو دمجها كما المعامل (&)

تعالوا الان نشغل البرنامج ولاحظ التغير عند تشغيل البرنامج كما يلى :








<p>واليكم الان قائمة بجميع الثوابت التى يمكنك أسنادها الى الدالة وهى :




<p>ثوابت أزرار مربع حوار الرسالة

الثابت ( vbOKOnly ) القيمة ( 0 ) الأزرار التي ستظهر ( موافق )

الثابت ( vbOKCancel ) القيمة ( 1 ) الأزرار التي ستظهر ( موافق و إلغاء الأمر )

الثابت (vbAbortRetryIgnore ) القيمة ( 2 ) الأزرار التي ستظهر ( إحباط و إعادة المحاولة و تجاهل )

الثابت ( vbYeasNoCancel ) القيمة ( 3 ) الأزرار التي ستظهر ( نعم و لا و إلغاء الأمر )

الثابت ( vbYesNo ) القيمة ( 4 ) الأزرار التي ستظهر ( نعم و لا )

الثابت ( vbRetryCancel ) القيمة ( 5 ) الأزرار التي ستظهر (إعادة المحاولة و إلغاء الأمر )



ثوابت رموز مربع حوار الرسالة


الثابت ( vbCirtical ) القيمة ( 16 ) الأزرار التي ستظهر (رمز الخطأ الحرج )

الثابت ( vbQuestion ) القيمة ( 32 ) الأزرار التي ستظهر ( رمز إشارة الاستفهام )

الثابت (vbExclamation ) القيمة ( 48 ) الأزرار التي ستظهر ( رمز التعجب )

الثابت ( vbInformation ) القيمة ( 64 ) الأزرار التي ستظهر ( رمز المعلومات )

<p>ملحوظة :

يمكنك ان تضع مكان كل ثابت من الثوابت السابقة القيمة العدية الخاصة به ستجد أن القيمة العددية تغني عن اسم الثابت نفسه ... فاذا رغبت مثلا فى عرض رساله تحتوى على الزين Ok + Cancel ومعهما علامة الاستقهام فانك تجمع 1 + 64 = 65


<p>ب / دالـة صندوق الآدخال InputBox




<p><p>وتستخدم هذه الدالة لاستقبال معلومات نصية أو رقمية من قبل المستخدم وهو عبارة عن مربع حوار مع رسالة وزرين هما OK و Cancel ويستطيع المستخدم إدخال نص ما داخل الحقل النصي وإغلاق مربع الحوار بالنقر علي الزر K
<p>و أبسط كود لاستخدام هذه الدالة يكون على النحو التالى :




<p><p>

الكود:

 
<p>Name =InputBox(":اكتب اسمك هنا "," مثال علي مربع حوار إدخال ")
<p>

<p>مثال تطبيقى ....نفترض أنك تريد من برنامجك أن يأخذ أسم المستخدم ثم بعد ذلك يقوم البرنامج بكتابتة على الفورم ...الحل بيسط نقوم بعمل فورم جديد ثم نضع علية أداة عنوان label و زر أمر command ثم نكتب فى الكود التالى تحت زر الامر:











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








<p>وبعد ذلك يقوم بطباعة النص الذى قمت بكتابتة على النموذج كما فى الصورة التالية









<p><p><p><P align=center>ولنا تكملة أن شاء الله تعالى فى هذا الموضوع ....أترككم فى رعاية الله و أمنه

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



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

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