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



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





انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)

السلام عليكم ورحمة الله وبركاته الحلقة الثانية : مهارة استخدام مفتاح F8 لتتبع الكود - تخزين المصفوفة بطريقة Array - دال ..



08-09-2017 04:45 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11394
الاعجاب : 4047
 offline 

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

الحلقة الثانية : مهارة استخدام مفتاح F8 لتتبع الكود - تخزين المصفوفة بطريقة Array - دالتي LBound و UBound

يرجع مرجوعنا لموضوعنا واللي لسه هيبدأ يرجع للحلقة الأولى عشان يقدر يتابع المسلسل .. رابط الحلقة الأولى لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب 
كنا وصلنا في آخر الحلقة الأولى إننا نعلن عن مصفوفة أحادية الأبعاد ونخزن فيها 5 أسماء ودا الكود اللي استخدمناه وشرحناه 
Sub Test()
    Dim arr(1 To 5)
    
    arr(1) = "Yasser"
    arr(2) = "Araby"
    arr(3) = "Khalil"
    arr(4) = "Hossam"
    arr(5) = "Khattab"
    
    
End Sub


نكمل يا محسن الحتة اللي نسيناها في الحلقة اللي فاتت (وهي حتة فنية ملهاش علاقة بالموضوع وليها علاقة بالموضوع .. ألغاز من أولها yes)
الحتة اللي هنشرحها دلوقتي ليها علاقة بالموضوع عشان نعرف إزاي بيتم تخزين المصفوفة بالقيم واحدة واحدة ، وملهاش علاقة بالموضوع لأن الحتة دي من أساسيات التعامل مع الأكواد بشكل عام .. الحتة دي ايه ؟ إحنا طالعين من العيد الكبير وكله دماغه راحت قصدي بطنه راحت للـ Meat 
الحتة دي هي مهارة لازم نتعلمها لأن المهارة دي بصراحة كانت سبب كبير في إني أتعلم الأكواد بنفسي وأفهم بنفسي اللي بيحصل .. واحد شايفه عمال بيدعي عليا وبيقولي بطل أم الرغي وخلصني .. أوكيه !!!
المهارة دي هي استخدام مفتاح F8 لتنفيذ أسطر الكود سطر بسطر
هنجرب المهارة دي مرة واحدة مع الكود الموجود عشان تعرفوا ايه اللي بيحصل ..
ضع الكود في موديول عادي (الكود فوق في أول الموضوع)
الآن ضع قدمك على أول الطريق وقدمك هنا هو مؤشر الماوس وأول الطريق أول الكود ...
اضغط F8 من لوحة المفاتيح (وطبعاً متنساش تفتح نافذة اللوكال) عشان تتفرج وتشوف ، وكله ع المكشوف ، نصور لكم صورة وأرجع لكم
MTAwODQzMQ5656001
مع أول ضغطة بدأت النافذة يظهر فيها حاجات كتيرة .. ظهر فيها اسم المصفوفة ومحرر الأكواد جهز المصفوفة وفنطها وخلاها 5 عناصر بيبدأو من 1 إلى 5 زي ما قلنا له في سطر الإعلان .. بس العناصر دي فاضية لسه ومفيهاش قيم ، فلو بصينا في عمود Value في نافذة اللوكال هنلاقي Empty أي فراغ

نسمي الله ونضغط F8 للمرة التانية .. محصلش أي تغيير في نافذة اللوكال بس السطر الأصفر وقف على سطر 
arr(1) = "Yasser"

بس لو بصينا على النافذة هنلاقي الفهرس رقم 1 ما زال فارغ .. اللي بيحصل هنا يا جمال إن السطر بيكون لونه أصفر معناه إن لسه السطر متنفذش (لم يتم تنفيذ السطر بعد) >> أومال بيتنفذ إمتى يا حسين؟! بيتنفذ بعد الانتقال للسطر التالي ، عشان كدا نضغط F8 كلاكيت تالت مرة
MjcyNDA3MQ8686002
هنا بدأت المعركة .. تم الانتقال من السطر الذي نقوم فيه بتعبئة الاسم Yasser إلى السطر التالي وهنا بدأت المصفوفة في عملية التعبئة ، فتم تعبئة العنصر الأول بالاسم Yasser كما هو موضح بالصورة .. أسيبكم تكملوا الضغط على F8 وفي كل مرة بصوا على نافذة اللوكال (يمكن تطلع من النافذة بنت حلوة تخليكم تنسوا الأكواد  laugh wink_3
نقف إمتى ؟ أول ما السطر الأصفر يقف على جملة End Sub ونرجع نشوف النافذة ونشوف محتوياتها هنلاقي إن في كل مرة بيتم تعبئة المصفوفة بعنصر جديد
المهارة دي مطلوب تتعلموها كويس عشان هتفيدكم في تتبع أسطر أي كود ومن خلاله تقدروا تتعلموا مهارات جديدة
تصدقوا وأنا ببص ع النافذة طلعت لي بنتي الجميلة الكتكوتة وبتضحكي لي (يا محظوظ يا ياسر) .. بس المشكلة إني نسيت هقول ايه !! عموماً نشد سطر ونشوف ربنا هيرزقنا بايه 
**************************
نتعلم حاجة جديدة وهي إزاي نعبي المصفوفة بطريقة تانية
الطريقة اللي فاتت شغالة بس مملة أوي .. لأن كل عنصر هيكون في سطر مستقل (نشوف حاجة تانية) ألا وهي استخدام Array ودي بقا هنقدر ننفذ عملية التخزين في سطر واحد بدل 5 أسطر
نشوف السطرين دول ونرجع نشرحهم
    Dim arr2
    
    arr2 = Array("Yasser", "Araby", "Khalil", "Hossam", "Khattab")

هنا مينفعش نحدد أبعاد المصفوفة مع الطريقة دي فنكتب اسم المتغير وبس وممكن نزود عليه As Variant بالشكل ده
Dim arr2 As Variant

لكن لو حبينا نحدد أبعاد المصفوفة هنا ونضع هذا السطر مثلاً 
Dim arr2(1 To 5)

هيطلع لنا رسالة خطأ بالشكل ده
NDk2ODEx003
المهم الطريقة دي مش هنحدد فيها الأبعاد (هو محرر الأكواد هيعرف الأبعاد لوحده)
نقطة تانية هنا رقم الفهرس هيبدأ من صفر (طيب لو حبيت إنها تبدأ من 1 .. الحل في الحلقة اللي فاتت؟ نضع جملة معينة في أول الموديول وليس داخل الكود) .. عايز تعرفها ارجع للحلقة الأولى عشان مش بحب التكرار ولا بحب أقول اسم الجملة دي Option b*ase 1 لأني قلتها قبل كدا وأنا مش بحب التكرار يا شطار

نخلي رقم الفهرس يبدأ من صفر .. ايه المشكلة يعني ؟ هو الصفر وحش !! دا حتى الصفر رغم إنه صفر لكن بيدي قيمة لو اتحط في مكانه الصحيح ، يعني الواحد واحد ولو جاله الصفر ووضع على يمينه أصبح عشرة ولو حطينا صفرين أصبح 100 (المهم إننا نحط الصفر في مكانه الصحيح .. ودا لو حصل في مجتمعنا وكل واحد وضع في مكانه الصحيح لكنا وأصبحنا لنا قيمة) >> شكلي خرجت برا الموضوع .. أعتذر إليكم
طيب ناخذ شوت سكرين للكود الجديد عشان نشوف الطريقتين مع بعض
MTk2MTAwMDE100004
تمام ..كدا يبقا عرفنا إزاي نخزن قيم المصفوفة بطريقتين .. طبعاً الطريقة التانية أفضل لأنها في سطر واحد بتلخص الموضوع (أرتاح شوية وأرجع لكم)
*****************************
ننتقل لنقطة جديدة وهي التعرف على دالتين هما LBound و UBound .. دول لازمتهم ايه؟ دول ببساطة عشان نعرف رقم أول فهرس في المصفوفة ورقم آخر فهرس في المصفوفة
في الكود اللي فات هنكمل عليه عشان نفهم أكتر ...
هنستخدم دالة MsgBox عشان نظهر النتائج في رسالة
دا الكود بالكامل بعد آخر إضافة
Sub Test()
    Dim arr(1 To 5)
    arr(1) = "Yasser"
    arr(2) = "Araby"
    arr(3) = "Khalil"
    arr(4) = "Hossam"
    arr(5) = "Khattab"
    
    Dim arr2 As Variant
    arr2 = Array("Yasser", "Araby", "Khalil", "Hossam", "Khattab")
    
    MsgBox LBound(arr)
    MsgBox UBound(arr)
    MsgBox LBound(arr2)
    MsgBox UBound(arr2)
End Sub


الدالة LBound اختصار Lower Boundary أي الحد الأدنى (ببساطة رقم أول فهرس في المصفوفة)
والدالة UBound اختصار Upper Boundary أي الحد الأعلى (ببساطة رقم آخر فهرس في المصفوفة) ..
الدالتين دول بنضع اسم المصفوفة بين قوسين
جربوا الكود بنفسكم ولاحظوا النتائج لكل مصفوفة على حدا (عندك مصفوفتين يا هشام .. ركز يا أيمن)
MzA1MjA0MQ7979005
وإلى هنا تعبت يداي وأكتفي بهذا القدر حتى تتمكنوا من المتابعة والتطبيق ، ولو فيه أي شيء أو نقطة غير واضحة الرجاء عدم التردد في الاستفسار ، وهكون في انتظاركم على نار ، وأشوفكم بخير يا شطار 
وإلى أن القاكم على خير ، تقبلوا وافر تقديري واحترامي

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


أثارت هذه المشاركة إعجاب: Hisham، ashrafsharaf، ابوحمزه، محمد الدسوقى، حسين مامون، الصقر، خالد عيسى، عبدالله الصاري، Yasser Elaraby، ALI ALI، منير القدسي، abdulwahed catran، محمد حمدان، زيزو العجوز، ahmed moh، ابراهيم80، عبدالجيد، احمدزمان،





08-09-2017 04:53 مساء
مشاهدة مشاركة منفردة [1]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 452
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 464
الاعجاب : 184
 offline 
look/images/icons/i1.gif انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)
استاذ ياسر شكرا الك لسرعة ردك وستجابتك 
انا اشكرك واحييك من كل قلبي
 

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




08-09-2017 04:56 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11394
الاعجاب : 4047
 offline 
look/images/icons/i1.gif انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)
بارك الله فيك أخي العزيز خالد ومشكور على حسن المتابعة
تقبل تحياتي

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




08-09-2017 08:32 مساء
مشاهدة مشاركة منفردة [3]
ابوحمزه
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 233
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 1-1-1983
الدعوات : 1
يتابعهم : 4
يتابعونه : 4
قوة السمعة : 69
الاعجاب : 20
 offline 
look/images/icons/i1.gif انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)
اسلوبك رائع دائما اخى الفاضل ابو البراء.. زادك الله علماً نافعاً .. استمرررررر 


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




08-09-2017 08:47 مساء
مشاهدة مشاركة منفردة [4]
Kamel meraghni
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 99
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 7
يتابعونه : 5
قوة السمعة : 536
الاعجاب : 118
 offline 
look/images/icons/i1.gif انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)
سلمت يداك بارك الله فيك

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


توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142



08-09-2017 08:57 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11394
الاعجاب : 4047
 offline 
look/images/icons/i1.gif انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)
الأخ أبو حمزة
الأخ كامل
بارك الله فيكم وجزاكم الله خيراً ومشكور على مروركم العطر بالموضوع

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




08-09-2017 09:13 مساء
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 360
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 40
يتابعهم : 7
يتابعونه : 237
قوة السمعة : 2386
الاعجاب : 594
 offline 
look/images/icons/i1.gif انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)
بارك الله فيك أخى الحبيب أبو البراء
على هذا الشرح الرائع والأسلوب الأروع
ونفعنا دومـًـــا بعلمك
والله نسأل أن يمن عليك دائما به

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




08-09-2017 09:27 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11394
الاعجاب : 4047
 offline 
look/images/icons/i1.gif انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)
جزاك الله خيراً أخي الغالي محمد الدسوقي وإن شاء الله تكون الدروس دي فاتحة خير لينا كلنا بحيث نرتقي في التعامل بالأكواد وننشيء جيل قادر على تحدي الغرب الذين سبقونا بمئات السنين
بارك الله فيك ونرجو تطبيق الدروس أول بأول والبحث أيضاً في الموضوع لمزيد من الإفادة والاستفادة ، فأنا أطالبكم بالبحث في الموضوع بحيث تثبت المعلومة من ناحية ومن ناحية أخرى تضيفوا لي معلومات جديدة

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




09-09-2017 03:16 صباحا
مشاهدة مشاركة منفردة [8]
سوزي كارم
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 07-09-2017
رقم العضوية : 419
المشاركات : 158
الجنس : أنثى
تاريخ الميلاد : 4-2-1999
الدعوات : 1
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 104
الاعجاب : 30
 offline 
look/images/icons/i1.gif انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)
المشاركة الأصلية كتبت بواسطة: YasserKhalil  »
   بارك الله فيك ونرجو تطبيق الدروس أول بأول والبحث أيضاً في الموضوع لمزيد من الإفادة والاستفادة ، فأنا أطالبكم بالبحث في الموضوع بحيث تثبت المعلومة من ناحية ومن ناحية أخرى تضيفوا لي معلومات جديدة

كيف يتم البحث اكتب ايه في جوجل وهل يوجد مواقع معينه محترمه فيها المزيد ؟





09-09-2017 08:21 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11394
الاعجاب : 4047
 offline 
look/images/icons/i1.gif انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)
بارك الله فيكي أختى الفاضلة
أنا أستخدم جوجل في البحث .. يمكنك كتابة كلمات دلالية مثل VBA Arrays tutorials for beginners
أو شيء من هذا القبيل وستجدين آلاف المواقع التي يمكن الاستزادة منها
الفكرة في أن يقوم الأعضاء بالبحث لأعلمهم كيف يتعلموا لا أن يتلقنوا المعلومة وحسب (الطريقة التقليدية في التعلم بطريقة التلقين في نظري طريقة فاشلة لا تساعد على الإبداع)

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

أثارت هذه المشاركة إعجاب: سوزي كارم،




09-09-2017 08:24 صباحا
مشاهدة مشاركة منفردة [10]
حسين مامون
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 23
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
يتابعهم : 5
يتابعونه : 1
قوة السمعة : 33
الاعجاب : 10
 offline 
look/images/icons/i1.gif انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)
تابع  يا استاذنا سلمت يداك اسال الله ان يزيدك 

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




09-09-2017 08:27 صباحا
مشاهدة مشاركة منفردة [11]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1329
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 9831
الاعجاب : 2446
 offline 
look/images/icons/i1.gif انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)
رائع يا ابوبراء استمر اسال الله تعالى لك التوفيق والسداد

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




09-09-2017 08:30 صباحا
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 298
قوة السمعة : 11394
الاعجاب : 4047
 offline 
look/images/icons/i1.gif انسى اللي فات واشتغل بالمصفوفات (الحلقة الثانية)
بارك الله فيك أخي الكريم حسين ..
أخي العزيز حسام الأروع هو مرورك العطر ، ولكن أنت تحديداً أريد منك تفاعل بالموضوع ومساهمات تثري الموضوع فأنت أهل لذلك
تقبلوا وافر تقديري واحترامي

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود جلب البيانات المتواجدة في الشيت الى الليست بوكس واليوزرفورم مفعل مصطفى شولاني
4 143 مصطفى شولاني
التحكم في الليست بوكس ahmed mordy
8 193 ahmed mordy
اضافة كود جمع عمودين في الليست بوكس ahmed mordy
15 315 YasserKhalil
تعديل كود الفورم لإظهار نتائج البحث فى الليست بوكس أحمد يوسف
12 335 أحمد يوسف
اسرع كود للبحث والفلترة من خلال التكست بوكس TEXTBOXواظهار النتائج فى الليست بوكسLISTBOX emad ghazi
7 471 ناصر سعيد1

الكلمات الدلالية
انسى ، اللي ، واشتغل ، بالمصفوفات ، (الحلقة ، الثانية) ،


 







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



الساعة الآن 05:54 صباحا

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