logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





05-10-2018 12:22 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
بسم الله والحمد لله والصلاة والسلام على رسول الله
أهلا ومرحبا بكم من جديد اخوانى الكرام فى اللقاء الثانى من دروس الكلاس موديول


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

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

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

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

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

CODE
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
نروح نكون سلوك تانى وقولنا السلوك هو تنفيذ امر محدد ويكتب مثل الماكروا فى الموديول العادى

اكتبوا ورايا ياحلوين الـ Method دا

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

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

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

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

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


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

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

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

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

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




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




look/images/icons/i1.gif الكلاس موديول class modules الجزء الثانى
  05-10-2018 09:05 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36757
الاعجاب : 185
بارك الله فيك أخي الحبيب اسلام وجزاك الله كل خير
وإليك التطبيق عشان خاطر عيونك يا غالي

تقبل تحياتي
 
 
  Class 2nd.rar   تحميل rar مرات التحميل :(1)
الحجم :(15.882) KB





look/images/icons/i1.gif الكلاس موديول class modules الجزء الثانى
  05-10-2018 11:42 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
جزاك الله خيرا استاذى الحبيب ياسر 81
بس خلى بالك من متطلبات الدرس
انا قولت ان الخاصيه MType هتبقى Private
اذا فإستخدامها داخل الكلاس فقط 63




look/images/icons/i1.gif الكلاس موديول class modules الجزء الثانى
  05-10-2018 11:46 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36757
الاعجاب : 185
أنا قرأت الموضوع بشكل سريع .. لأن إنت عارف الوقت ضيق ويدوب بعرف ألم الموضوعات بشكل سريع
تحياتي




look/images/icons/i1.gif الكلاس موديول class modules الجزء الثانى
  05-10-2018 11:53 صباحاً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10861
الاعجاب : 6
موقعي : زيارة موقعي
ههههههههههههه كنت عارف كدا
تسلم أحبيب القلب بهزر معاك biggrin2




اضافة رد جديد اضافة موضوع جديد



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

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









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

الساعة الآن 02:09 PM