الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

دروس متقدمة في الأكسس للمبتدئين (الدرس الثاني)

مغلقرائج
بدأه فهد الدوسري في 10 فبراير 2003 · 53 رد · 11,241 مشاهدة · في قسم الدروس والمشاريع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

دروس متقدمة في الأكسس للمبتدئين (الدرس الأول)

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

الدرس الثاني هو :

استخدام الدالة Select Case

هي أشبه ما تكون بالدالة If .. Then ولكنها تختلف عنها بالتعدد أي أنها تكون في الشروط المتعددة .

طريقة بناؤها كما يلي :

Select Case الكائن

Case حالة_الكائن

الحدث_المراد_عمله_في_هذه_الحالة_للكائن

End Select

===

نضرب مثال لتقريب عمل هذه الدالة :

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

طالب أخذ درجة 60 فيكون تقديره مثلاً جيد

طالب آخر أخذ درجة 90 فيكون تقديره ممتاز وهكذا ..

فإذا مرت علينا مثل هذه الحالة أي شروط متعددة فنستخدم معها هذه الدالة

فالتقدير هنا متعدد فهو تارة يكون ضعيف أو مقبول أو جيد أو جيد جداً أو ممتاز وكل هذا مبنى على مجموع الدرجات التي تحصل عليها الطالب .

===

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

لدينا نموذج وفيه مربعي نص الأول باسم (المجموع) والثاني باسم (التقدير)

نضع في حدث (عند الخروج) لمربع النص المسمى (المجموع) هذا الحدث لكي يخرج علينا التقدير باستخدام الدالة Select Case كالتالي :

Select Case المجموع

Case 0 To 48

التقدير = "ضعيف"

Case 49 To 60

التقدير = "مقبول"

Case 61 To 74

التقدير = "جيد"

Case 75 To 88

التقدير = "جيد جداً"

Case 89 To 100

التقدير = "ممتاز"

End Select

نكتب أي رقم من 1 إلى 100 في الحقل (المجموع) ليخرج علينا تقديره في الحقل (التقدير)

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

وتفسير الدالة السابقة كما يلي :

المجموع صفر إلى المجموع 48 يكون التقدير ضعيف

المجموع 49 إلى المجموع 60 يكون التقدير مقبول

المجموع 61 إلى المجموع 74 يكون التقدير جيد

المجموع 75 إلى المجموع 88 يكون التقدير جيد جداً

المجموع 89 إلى المجموع 100 يكون التقدير ممتاز

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

الاختبار الأول :

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

أرجو للجميع دوام التوفيق

#2

السلام عليكم

الاخ العزيز فهد

حبذا لو كتبت المتغيرات باللغة الانجليزية وهذا والله ليس إنتقاصا للغة الضاد ولكن كما تعلم الحاسب يدعم كل ما هو أشول

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

أرى انه تكتب باللغة الانجليزية وذلك لعدم تشوة الترتيب فقط لاغير

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

'يتم الشرح بالعربي
Tagdeer="Good"

تحياتي

صورة
صورة

حسابي في الفيس بوك
http://goo.gl/XIzwL

حسابي في تويتر
http://goo.gl/6p4e3

 

 
 
#3

السلام عليكم

حل الاختبار الاول

تحياتي

صورة
صورة

حسابي في الفيس بوك
http://goo.gl/XIzwL

حسابي في تويتر
http://goo.gl/6p4e3

 

 
 
#4

السلام عليكم

حل الاختبار الاول

test1.rar

#5

أخوي فيصل بالنسبة لي فأنا ضعيف في اللغة الإنجليزية فستر ما واجهت ولا تدقق كثيراً :o

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

======

بالنسبة للاختبار الأول

أخوي فيصل إجابتك 100% صحيحة رغم مخالفتك لما طلب منك;)

أخوي الهاجري إجابتك 100% صحيحة وحسب ما طلب منك تماماً

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

أتمنى لكم دوام التوفيق

#6

الأخ الكريم/ فهد الدوسري

مرفق الإجابة على الإختبار الأول :

altqdeer.zip

ibnmusqat.gif
#7

إجابة موفقة أخي ابن مسقط

#8

أخي العزيز فهد والأخوه الزملاء المشتركين في دروسه

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

وهي مفيده بحق سائلا المولى عز وجل أن يجعل في موازين الأخ فهد من الحسنات كثر ماستفدنا من هذه الدروس

ماادري إذا تقبلوني أبدأ معكم من الدرس الثاني .. وشكرا

ملحوظه :

-أرجو نثبيت هذه الدروس وأقترح أن يتم جمعها في مستند لفائدة الجميع .

-كيف يتم إعلامي بالبريد في حالة ورود مشاركات لهذا الموضوع مع العلم بأنني مسترك بالمنتدى.

أرفق الإختبار الأول من الدرس الثاني :

تحياتي

أخوكم أبو عبدالله

çلهîêèçٌ_çلمول_لüselect.rar

#9

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

وبعد كل عام وانتم بخير وكل المشاركين

اخي الكريم /فهد الدوسري

اجابة السوال الاول

select_case_1nd_test.zip

#10

كل عام وأنتم بخير ، وإن شاء الله نشوف دروس أكثر وأكثر

#11

أخي ABO ABDUUL إجابة صحيحة 100% وأنصحك بتطبيق الدرس الأول لأننا سوف نتطرق له إن شاء الله في هذا الدرس .. وأهلاً بك معنا

أخي salem_1212إجابة صحيحة 100% ومظهر جميل للنموذج بارك الله فيك

ولكن لو تركت الاسم(المجموع)بدلاً من (totall) لكان أفضل .

أخي المهاجر01 وأنت بألف خير وجميع المسلمين

===========

أخواني ممن يطبق معنا هذه الدروس

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

سوف أوضح سبب ذلك حتى لاتفهموني خطأ:-

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

أرجو أن أكون وضحت سبب تشددي بتطبيق المطلوب وعدم تغيير المسميات .

أما الحركات الأخرى في النموذج ففيها زيادة فائدة للجميع ولا نمانع من وجودها .

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

أتمنى من الله لكم دوام التوفيق

#12
اقتباس
أرجو أن تفهموا قصدي من هذا الكلام وهو ليس موجه لشخص بعينه بل للجميع دون استثناء

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

#13

بارك الله فيك أستاذي محمد طاهر

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

الاختبار الثاني:

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

المطلوب : نموذج وفيه مربع نص غير منظم باسم (ناتج) و زر أمر باسم(مختلف)

هذه المرة سوف نتحكم في عنوان هذا الزر وبحسب العنوان يكون هناك أمر (ركزوا في هذا الدرس قليلاً ) لما فيه من الفائدة

ملاحظة :أقصد بالعنوان هو ما يكتب على هذا الزر وليس اسم هذا الزر

طريقة التعامل مع أزرار الأمر كما يلي للتوضيج فقط .

مختلف.Caption = "خروج"

في حدث (عند النقر ) لهذا الزر نريد ما يلي :-

في البداية نريد أن يكون عنوان الزر هو (حفظ) .يعني نكتب على الزر حفظ

ونطبق عليه الدالة بهذه الطريقة

-إذا كان عنوان الزر هو (حفظ) وعند الضغط عليه يكتب في مربع النص كلمة (حفظ) ويتغير عنوان الزر إلى (فتح)

-إذا كان عنوان الزر هو (فتح) وعند الضغط عليه يكتب في مربع النص كلمة (فتح) ويتغير عنوان الزر إلى (حذف)

-إذا كان عنوان الزر هو (حذف) وعند الضغط عليه يكتب في مربع النص كلمة (حذف) ويتغير عنوان الزر إلى (إضافة)

-إذا كان عنوان الزر هو (إضافة) وعند الضغط عليه يكتب في مربع النص كلمة (إضافة) ويتغير عنوان الزر إلى (إغلاق)

-إذا كان عنوان الزر هو (إغلاق) وعند الضغط عليه يكتب في مربع النص كلمة (إغلاق) ويتغير عنوان الزر إلى (خروج)

-إذا كان عنوان الزر هو (خروج) وعند الضغط عليه يكتب في مربع النص كلمة (خروج) ويتغير عنوان الزر إلى (حفظ)

أرجو أن يكون الاختبار واضحا ومن لديه إشكالية فليتفضل بها

وإلى الأمام دوماً إن شاء الله

#14

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

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

ارفق اجابةالاختبار الثاني ارجو ان تكون صحيحة :

test2.zip

#15

أخي الكريم/ فهد الدوسري

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

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

test_2.zip

ibnmusqat.gif
#16

السلام عليكم

حل الاختبار الثاني

test2.rar

#17

يبدو أن الجميع متأثر بالدالة if....then

فجميع الإجابات على السؤال الثاني خاطئة للأسف

#18

أستاذي الغالي فهد

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

وكذلك من مشاركات الأخوة في هذه المنتدى الرائع

أرجو أن تقبل مني حل الدرس الثاني وآسف على التأخير

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

وجزاك الله الف خير ووفقك في حياتك العلمية والعملية

وجعلها الله في موازين حسناتك

وبدل سيئاتك حسنات وأسكنك في الفردوس الأعلى

آمــــــــــــــــــــــــــين

selectcase.zip

#19

الأخ البابور جزاك الله ألف خير على هذا الكلام والدعاء

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

الأخ : البابور إجابتك الأولى والثانية صحيحة 100% ولكنك لم تطبق المطلوب بحذافيره فقد غيرت المسميات التي في الاختبار الثاني وكذلك الاختبار الأول

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

سوف أوضح سبب ذلك حتى لاتفهموني خطأ:-

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

أرجو أن أكون وضحت سبب تشددي بتطبيق المطلوب وعدم تغيير المسميات .

أما الحركات الأخرى في النموذج ففيها زيادة فائدة للجميع ولا نمانع من وجودها .

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

وتقبل تحياتي

#20
اقتباس
ولكنك لم تطبق المطلوب بحذافيره فقد غيرت المسميات التي في الاختبار الثاني وكذلك الاختبار الأول

المعذرة منك مرة أخرى وأنا أعترف بخطأى الغير مقصود

و الإلتزام التام من مميزات المعلم المتميز مثلك

جزاك الله الف خير

#21

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

اخي واستاذي فهد الدوسري المحترم

لقد اعدت الاختبار الثاني على طريقة select caseحيث انة في المرة السابقة كان على قاعدة if

فبدون الخطاء لا يمكن التعلم

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

مرفق الملف بعد التعديل(f)

test2.zip

#22

الأستاذ الكريم/ فهد الدوسري

أرجو المعذرة على سوء الفهم .

مرفق الحل بعد التعديل ، أرجو أن يكون حسب المطلوب.

test_2.zip

ibnmusqat.gif
#23

اخوي البابور أشكر لك كريم أخلاقك وتقبلك لكلامي بصدر رحب

الحمد لله إجابات رائعة وصحيحة اخوي salem_1212 و اخوي ابن مسقط

وفعلاً من لا يخطئ لا يتعلم

#24

اعادة للاختبار رقم 2

عذرا لعدم متابعتي للدرس جيدا والتمعن

في السؤال جيدا :(

test2.rar

#25

إجابة صحيحة أخوي alhajri

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…