أكاديمية الصقر للتدريب

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




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





الكلاس موديول class modules الجزء الثانى

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



05-10-2018 12:22 صباحا
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1294
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 64
قوة السمعة : 7840
الاعجاب : 2229
 offline 

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


الدرس السابق اعطيت لكم مثال بسيط للكلاس ليصلكم مفهومه ببساطه

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

يأخى يعني هيحصل حاجة لما تكتب كلمة شكر
وكنت احب ايضا ان اراكم ترفقون امثله بطبيق على الشرح 30

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

Private MType As String
Public MPrice As Double
Sub Price()
    MsgBox MPrice
End Sub

وفتحنا موديول سموه مثلا MainEMobile عشان نبقى عارفين ان دا خاص بالكلاس دا
وكتبنا الكود التالى

Sub Alsaqr_Eslam()
Dim sony As New EMobile
sony.MPrice = 9999999
sony.Price
End Sub

فكانت النتيجة هي رساله بسعر الموبايل ، كل دا شرحناه الدرس السابق
هنا هنكمل على نفس المثال يعنى جهز المشروع معاك وطبق ورايا

احنا لما بنحدد الخصائص قولت كانى بعلن عن متغير بس بدلا من كتابة Dim كتبت Public
ودا زعلنى على فكره كلوا بيقرا لكن محدش فكر يسالنى ليه استخدمت Public
هعديها المره دى واقولكم ياحلوين فى مصطلح اسمه encapsulation ودا معناه تضمين او تغليف
المقصود بيها ياغالى هو تضمين خاصية محددة داخل الكلاس فقط ودا نعمله ازاى
دا بقى هو الـ Private تعالوا على نفس الكلاس ونغير Public ونكتب Private قبل الخاصيه MPrice
وبعدين روحوا للموديول العادى اللى المفروض سميناه MainEMobile زى ما اتفقنا
واعمل Run للكود هتلاقى فيه خطا
وكمان لو كتبتوا الاوبجيكت sony وبعدين دوت معتتش هتظهر فى القائمه
تفتكروا ليه ياحلوين ؟! g

محمود: رفع ايده وبيقول انا انا انا ، اتفضل احوده

حوده: عشان فى الكلاس كتبنا قبل الخاصيه MPrice كلمة Private
وبكدا ياستاذ اسلام اصبحت الخاصية دى غير مقروءه خارج الكلاس
يعنى نستخدمها داخل الكلاس بس
اسلام: سقفه كبيره لحوده برفوا ياحوده
هو دا بقى مصطلح encapsulation يعنى احنا عملنا تضمين للخاصيه دى داخل الكلاس نفسه
ياسر بيقولى انا عايز مثال عملى ولا هو رغى وخلاص ، وهو كذلك
نرجع الـ Private زى ما كان لـ Public
ونكتب قبل الخاصيه MType كلمة Private
نروح نكون سلوك تانى وقولنا السلوك هو تنفيذ امر محدد ويكتب مثل الماكروا فى الموديول العادى

اكتبوا ورايا ياحلوين الـ m*ethod دا

Sub Etype()
    MType = Range("A1").Value
    MsgBox "The phone type is """ & MType & """"
End Sub

كدا كونت m*ethod اسمه Etype
هنا استخدمت MType بانه ياخد قيمة الخلية A1 وبعدين الm*ethod هينفذ امر انه يظهر رسالة بنوع الموبايل اللى انا هكتبه فى الخليه A1

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

اذا ايها الشعب هيا بنا نكتب فى الموديل العادى الكود التالى ومن ثم نضغط Run

Sub Alsaqr_Eslam()
Dim sony As New EMobile
sony.MPrice = 9999999
sony.Price
sony.Etype
End Sub


ماذا تلاحظ يافتى ، تلاحظ ان الكود قام باظهار رسالة للسعر وهو تنفيذ الميثود الاول
وظهر رساله لنوع الموبايل اللى انت كتبته فى الخلية A1 وهو تنفيذ الميثود التانى

اذا هل يختلط الزيت بالماء ياسيدى الفاضل


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

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

كان معكم اخوكم فى الله اسلام عبدالله
دمتم فى حفظ الله ورعايته 81

أثارت هذه المشاركة إعجاب: YasserKhalil، ابراهيم الحداد،





05-10-2018 01:52 صباحا
مشاهدة مشاركة منفردة [1]
ابراهيم الحداد
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 138
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 20
قوة السمعة : 1062
الاعجاب : 290
 offline 
look/images/icons/i1.gif الكلاس موديول class modules الجزء الثانى
السلام عليكم ورحمة الله
بارك الله فيك و فى والديك
فى ميزان حسناتك باذن الله

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




05-10-2018 09:05 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 333
قوة السمعة : 14756
الاعجاب : 5509
 offline 
look/images/icons/i1.gif الكلاس موديول class modules الجزء الثانى
بارك الله فيك أخي الحبيب اسلام وجزاك الله كل خير
وإليك التطبيق عشان خاطر عيونك يا غالي

تقبل تحياتي




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: Eslam Abdullah،




05-10-2018 11:42 صباحا
مشاهدة مشاركة منفردة [3]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1294
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 64
قوة السمعة : 7840
الاعجاب : 2229
 offline 
look/images/icons/i1.gif الكلاس موديول class modules الجزء الثانى
جزاك الله خيرا استاذى الحبيب ياسر 81
بس خلى بالك من متطلبات الدرس
انا قولت ان الخاصيه  MType  هتبقى  Private
اذا فإستخدامها داخل الكلاس فقط 63

أثارت هذه المشاركة إعجاب: YasserKhalil،




05-10-2018 11:46 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 333
قوة السمعة : 14756
الاعجاب : 5509
 offline 
look/images/icons/i1.gif الكلاس موديول class modules الجزء الثانى
أنا قرأت الموضوع بشكل سريع .. لأن إنت عارف الوقت ضيق ويدوب بعرف ألم الموضوعات بشكل سريع
تحياتي

أثارت هذه المشاركة إعجاب: Eslam Abdullah،




05-10-2018 11:53 صباحا
مشاهدة مشاركة منفردة [5]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1294
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 64
قوة السمعة : 7840
الاعجاب : 2229
 offline 
look/images/icons/i1.gif الكلاس موديول class modules الجزء الثانى
ههههههههههههه كنت عارف كدا
تسلم أحبيب القلب بهزر معاك biggrin2

أثارت هذه المشاركة إعجاب: YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الكلاس موديول class module الجزء الأول Eslam Abdullah
13 653 الترياق
الكلاس موديول class modules الجزء الثالث Eslam Abdullah
3 202 Eslam Abdullah

الكلمات الدلالية
الكلاس ، موديول ، class ، modules ، الجزء ، الثانى ،


 







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



الساعة الآن 02:12 صباحا

أعلن هنا
أعلن هنا
أعلن هنا