الدرس الثانى عشر ... تعرف على الدوال فى الفجوال بيسك 6

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

الدرس الثانى عشر ... تعرف على الدوال فى الفجوال بيسك 6

مُساهمة من طرف أحمد مناع في الإثنين ديسمبر 12, 2011 1:12 pm

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



أخواتى الافاضل أهلا وسهلا بكم فى الدرس الثانى عشر من دروس الفجوال بيسك 6 ...فى هذا الدرس أن شاء الله تعالى سنتكم عن الدوال البرمجية للفجوال بيسك 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>ولنا تكملة أن شاء الله تعالى فى هذا الموضوع ....أترككم فى رعاية الله و أمنه
المرفقات
Dawall.zip شرح معظم دوال الفجوال بيسك 6لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(96 Ko) عدد مرات التنزيل 18

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

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

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 809
النقاط : 1478
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

مُساهمة من طرف أحمد مناع في الثلاثاء ديسمبر 13, 2011 1:16 pm

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



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

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

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

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 809
النقاط : 1478
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الدرس الثانى عشر ... تعرف على الدوال فى الفجوال بيسك 6

مُساهمة من طرف مدونة وليدوف التطويرية في الأربعاء مارس 20, 2013 8:30 pm

تحية تقدير و إجلاء لكل القائمين على المنتدى الاكثر من رائع صراحة

مدونة وليدوف التطويرية
...
...

تاريخ التسجيل : 22/11/2011
المساهمات : 32
النقاط : 47
التقيم : 3
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الدرس الثانى عشر ... تعرف على الدوال فى الفجوال بيسك 6

مُساهمة من طرف أحمد مناع في الخميس مارس 21, 2013 8:56 am

مدونة وليدوف التطويرية كتب:تحية تقدير و إجلاء لكل القائمين على المنتدى الاكثر من رائع صراحة


شكرا يا اخى و نتمنى ان نكون عند حسن ظن الجميع

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

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

أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 809
النقاط : 1478
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: الدرس الثانى عشر ... تعرف على الدوال فى الفجوال بيسك 6

مُساهمة من طرف salamfaraj2002 في الثلاثاء أغسطس 11, 2015 4:32 am

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

salamfaraj2002
....
....

تاريخ التسجيل : 18/04/2015
المساهمات : 54
النقاط : 68
التقيم : 0
الدولة : ليبيا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى