دروس
المصفوفات (الدرس الأول)
احصائيات سريعة
اقسام على الموقع
دروس في أنظمة التشغيل | ماي سكيول - MySQL | لفيجوال بيسك - Visual Basic | المات لاب Matlab | اللينكس و اليونكس | الاسمبلي - ASSEMBLY | الاوتلوك - Outlook | البرمجة تحت اللنكس -Linux Programming | البرمجة تحت وندوز بواسطة دوال ال win API | البرمجة في بيئة الدوت نت .Net | التصمبم والرسوم | الدلفي - Delphi | الجافا - Java | السي - C | الصوت و الصورة | الوورد - Word | القسم العام للأوفيس | الكوبول - COBOL | control panel-ftp | اوراكل - Oracle | اكسل - Excel | تحميل الملفات | برامج متنوعة | برامج التصفح | برامج الحماية | برامج إنترنت | تعرّف على الويب | بوربوينت - Power Point | images | دروس : كمبيوتر وصيانة | دروس مجلة نيوك phpnuke | دروس مسنجر MSN - yahoo - Gmail | دروس منتديات vBulletin | دروس الجوالات والهواتف | دروس السي بنل cpanel | دروس اكسس access | دروس بيونت شوب برو - point shop pro | دروس برمجة php - mysql | دروس برامج منوعة software | دروس ثري دي ماكس 3D max | دروس تطوير المواقع والمنتديات | دروس جافا سكريبت JavaScript | دروس دريم ويفر DreamWeaver | دروس شبكات Networks | دروس سويش - swish | دروس فلاش - flash | دروس فلاش mx | دروس فى نظام الوندوز WINDOWS | دروس فىالباسكال - Pascal | دروس فيجوال بيسك Visual Basic | دروس فرونت بيج - frontpage | دروس فوتوشوب photoshop | دروس هكر hacker crack virus | سي ++ | سي شارب - #C | فيجوال سي ++ - ++ Visual C | قسم البرمجة العام | دروس فى لغة HTML
البحث في المواد

اكثر المحتويات زيارة
ما هو البريد الإلكتروني ( الايميل (55,759 مشاهده)
أنواع العلاقات وطريقة الربط بين الجداول. (44,063 مشاهده)
تعريف الفن التشكيلي: (32,973 مشاهده)
نظام التشغيل (Windows) (31,317 مشاهده)
ما هي شبكة الانترنت: (30,677 مشاهده)
دروس في الأوفيس الأكسس - Access0- (29,312 مشاهده)
تغيير لغة واجهة التطبيق من عربي الى انجليزي وبالعكس لـ Windows-based applications (27,968 مشاهده)
للمبتدئين : كل ما تريد معرفته عن الوقت - التاريخ - والأدوات المتعلقة بهما . (21,606 مشاهده)
ربط قاعدة بيانات أكسس (MS Access) مع برنامج الفيجوال بيسك بطريقة(ODBC) (21,211 مشاهده)
الدوال في الاكسل (20,616 مشاهده)
ما هو آكسس ( Access ) ؟ (20,113 مشاهده)
ما هو برنامج الاكسل -00 (19,867 مشاهده)
التعامل مع List Box و Combo Box (19,478 مشاهده)
ما هو البوربوينت (19,394 مشاهده)
لإجراء العمليات الحسابية (17,172 مشاهده)
شرح طريقة استعمال الأوتلوك مع بريد الهوتميل (17,088 مشاهده)
انشاء قاعدة بيانات وكيفية ربطها (16,888 مشاهده)
مفهوم قواعد البيانات 1 (16,368 مشاهده)
مميزات أوراكل (15,809 مشاهده)
اضافة الحركات للصور والنصوص (15,348 مشاهده)
ما هو المات لاب MATLAB؟ (15,189 مشاهده)
بدايات لغة الجافا (15,111 مشاهده)
أربعة مكونات رئيسية (15,034 مشاهده)
حذف حساب بريد إلكتروني (14,912 مشاهده)
كيف تجعل برنامجك أكثر تألقا وجمالا باستخدام أداة Active Skin- (14,793 مشاهده)
جديد مواد مع عشوائي
التحويل التلقائي للحروف ل- ل- ه إلى اسم الجلالة0---- (5,002 مشاهده)
النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0---النسبة المئوية لا تظهر بالخط العربي & الشدة وألف المد في لفظ الجلالة0--- (4,473 مشاهده)
ضبط خيارات اللغة فى الـ Microsoft Word0--- (4,561 مشاهده)
استخدام لوحة المفاتيح في الـ Word0---- (4,884 مشاهده)
إضافة كلمة سر إلي ملفات الورد دون استخدام برامج0--- (4,482 مشاهده)
دمج المراسلات0-- (3,268 مشاهده)
وضع صورة كخلفية للنص0-- (4,089 مشاهده)
السماح للمستخدمين بتعديل أجزاء من ملف وورد محمي (Word2003)0--- (3,348 مشاهده)
كتابة الأرقام الكسرية ورموز المعادلات0-- (3,968 مشاهده)
درس كامل عن الدمج السهل من لوحة المفاتيح ف0-ي برنامج الـ Word (3,434 مشاهده)
دورة الأكسس: الدرس السادس : منوعات في أكسيس .0--- (8,766 مشاهده)
دورة الأكسيس : الدرس الرابع : العلاقات0---- (5,163 مشاهده)
أساسيات في Access0--0 (5,284 مشاهده)
تصميم تقرير لطباعة البيانات0---- (6,166 مشاهده)
تصميم نموذج استعراض البيانات‏0--تصميم نموذج استعراض البيانات‏0-- (4,701 مشاهده)
تصميم نموذج إدخال‎ ‎البيانات0--- (4,957 مشاهده)
إنشاء قوائم خاصة باستخدام الماكرو(1)0-- (4,033 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (2)0-- (3,303 مشاهده)
خطوات إنشاء الماكرو في تذييل النموذج (1)0- (3,215 مشاهده)
استعلامات SQL في Access - تعديل الجداول وإضافة الحقول0- (4,474 مشاهده)
استعلامات SQL في Access - تحديث البيانات الجدولية0-- (3,886 مشاهده)
الاستعلامات الإجرائية -4 (استعلام الحذف)0--- (2,791 مشاهده)
الاستعلامات الإجرائية -2 (استعلام الإلحاق)0--- (2,985 مشاهده)
تصميم تقرير لطباعة الإجمالي0--- (3,261 مشاهده)
استعلامات التحديد Select Query مع أمثله (1)0--- (4,271 مشاهده)
روابط ذات صلة
دروس > لفيجوال بيسك - Visual Basic > المصفوفات (الدرس الأول)
الاسم: المصفوفات (الدرس الأول) المصفوفات (الدرس الأول)
المصفوفات (الدرس الأول) مرات القرائه: 6,291 مرة/مرات
التقييم: 0
قم بدعوة صديق
اعلانات في الموقع على جميع الصفحات
ï»؟

ظ…ط³ط§ط­ط© ط§ط¹ظ„ط§ظ†ظٹط© ظ…طھط§ط­ط©

المصفوفات (الدرس الأول)


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



 



محتوى الدرس:





  1. الإعلان عن مصفوفات الحجم الثابتFixed-size Array.

  2. تحديد الحدين الأعلى والأدنى للمصفوفة Upper bound & Lower bound.

  3. المصفوفات متعددة الأبعاد Multi-Dimensional Arrays.

  4. جملة Option Base.

  5. استخدام الـLoops لمعالجة المصفوفات.




الإعلان عن مصفوفات الحجم الثابتFixed-size Array:



هناك ثلاث طرق للإعلان عن هذا النوع تعتمد على النطاق scope الذي سوف تغطيه المصفوفة:





  • للإعلان عن مصفوفة عامة Puplic Array تستخدم جملة Puplic في قسم الإعلان Declaration Section للوحدة Module.

  • للإعلان عن Module-Level Array تستخدم جملة Private في قسم الإعلان الخاص بـProcedure.

  • للإعلان عن Local Array  تستخدم جملة Dim في الـProcedure.


 





 



تحديد الحدين الأعلى والأدنى للمصفوفة Upper bound & Lower bound:





  • عند الإعلان عن مصفوفة، يكتب الحد الأعلى بعد الاسم وبين الأقواس.

  • لا يمكن أن يزيد الحد الأعلى عن نطاق نوع المتغير Long Data Type.

  • الحد الأدنى الإفتراضي Default هو الصفر.

  • لتحديد الحد الأدنى، ينبغي كتابته صراحة باستخدام كلمة To، كما سنرى في الأمثلة.


أمثلة:



مثال (1):

إعلان عن مصفوفة StudentId يمكن وضعه في جزء الأعلان الخاص بالـModule أو داخل الـProcedure:

Dim StudentId (1000) As Integer



وبذلك يكون عدد عناصر هذه المصفوفة 1001 عنصر. ولجعلها مصفوفة عامة، نستبدل Dim بـ Public كالتالي:



Public StudentId (1000) As Integer



ولتحديد الحد الأدنى لهذه المصفوفة بـ1 وبالتالي يصبح عدد عناصرها = 1000 عنصر فقط، نكتب To كالتالي:



Public StudentId (1 To 1000) As Integer



مثال (2):



الإعلان عن مصفوفة بها 51 عنصر مرقمة من 0 إلى 50  من دون تحديد نوع بيانات عناصرها، سيعتبر النوع Variants مباشرة:





Dim DayArray (50)



مثال(3):



الإعلان عن المتغير BirthDate على أنه مصفوفة من التواريخ المفهرسة من 1 حتى 10:



Dim BirthDate (1 To 10) As Date





 



المصفوفات متعددة الأبعاد Multi-Dimensional Arrays:



يقصد بكلمة بُعد هو عدد الدلائل (Indexes) المستخدمة للرجوع إلى عنصر في المصفوفة. تستخدم المصفوفات متعددة الأبعاد لتخزين بيانات مرتبطة ببعضها البعض.
مثال على ذلك:
تخزين كل نقطة Pixel موجودة على شاشة الحاسوب نحتاج لتخزين إحداثياتها x & y وهذا ممكن باستخدام مصفوفة ذات بعدين.




يمكن معرفة أبعاد مصفوفة بالنظر إلى تعريفها؛ حيث يتم الإعلان عن مصفوفة متعددة الأبعاد بذكر قيمة لأبعادها بعد اسمها مباشرة وداخل الأقواس، يتم فصل قيمة كل بعد بالفاصلة، سواء كانت ذات بعدين أو ثلاثة أبعاد كما ستوضح الأمثلة الآتية:



-Static A(3, 4) As Double



-Static A(1 To 10, 1 To 10) As Integer



- Dim B (3, 1 To 10, 1 To 15)



ملاحظة:







  • عدد عناصر المصفوفة متعددة الأبعاد يمكن معرفته بضرب قيم الأبعاد ببعضها.





  • عند إضافة أبعاد المصفوفة فإن مساحة التخزين المطلوبة سوف تزيد زيادة كبيرة ولذلك ينبغي الاحتراس وتفادي استخدام النوع Variant قدر الإمكان لما يتطلبه من مساحة تخزينية كبيرة!



 



 



جملة Option Base:



تستخدم في الـModule Level للإعلان عن الحد الأدنى المفترض لدلائل subscripts المصفوفات التي سوف تظهر في الـModule.



الصيغة Syntax:



 Option Base { 0 | 1 }



مع ملاحظة:







  • القيمة الافتراضية هي صفر دوماً، ولذلك لا داعي لكتابة Option Base 0 إلا إذا كنّا نريد تذكير قارئ الـcode بذلك!





  • إذا استخدمت هذه الجملة ينبغي ظهورها مرة واحدة وقبل أي Procedure وقبل أي جملة إعلان عن مصفوفات.





  • جملة Option Base لها تأثير فقط على الحد الأدنى للمصفوفات في الـModule التي توجد به الجملة.



مثال:



يوضح المثال التالي كيفية تحديد القيمة الافتراضية للحد الأدنى لدلائل المصفوفات، ثم يوضح كيفية استخدام دالة الإعلام عن الحد الأدنى لمصفوفة (LBound):



Option Base 1

Dim Lower
Dim MyArray(20), TwoArray(3, 4)
Dim ZeroArray(0 To 5)

'Use LBound function to test lower bound of arrays.

Lower = LBound (MyArray)                                       'Returns 1
Lower = LBound (TowArray, 2)                                 'Returns 1
Lower = LBound (ZeroArray)                                     'Returns 0





استخدام الـLoops لمعالجة المصفوفات:



يمكن بكفاءة وسهولة معالجة المصفوفات باستخدام الـLoops وخصوصاً المصفوفات متعددة الأبعاد حيث يتم معالجتها باستخدام Loops متداخلة.



مثال:



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



Dim I As Integer, J As Integer
Static A(1 To 10, 1 To 10) As Integer
        For I=1 To 10
            For J=1 To 10
             A(I, J)= I*10*J
    Next J
Next I





أرجو من الله أخي الكريم أن يكون الدرس واضح ومفيد، وإلى لقاء في درس جديد


 

درس المصفوفات (الدرس الأول)

أضف هذه المادة في موقعك:
مواد مشابهة:
Visual Basic (2) Visual Basic (2)
Visual Basic (2)
(مرات المشاهدة: 1,101 مرات)
ادوات البرنامج ومراحل كتابة البرنامج ادوات البرنامج ومراحل كتابة البرنامج
ادوات البرنامج ومراحل كتابة البرنامج
(مرات المشاهدة: 2,468 مرات)
شرح واجهة الفيجوال بيسك شرح واجهة الفيجوال بيسك
شرح واجهة الفيجوال بيسك
(مرات المشاهدة: 7,058 مرات)
برمجة Dao من خلال فيجوال بيسك (3/4) برمجة Dao من خلال فيجوال بيسك (3/4)
برمجة Dao من خلال فيجوال بيسك (3/4)
(مرات المشاهدة: 2,915 مرات)
طريقة حفظ العمل كبرنامج تنفيذي طريقة حفظ العمل كبرنامج تنفيذي
طريقة حفظ العمل كبرنامج تنفيذي
(مرات المشاهدة: 8,482 مرات)
التعامل مع الفورم : النماذج التعامل مع الفورم : النماذج
التعامل مع الفورم : النماذج
(مرات المشاهدة: 5,342 مرات)
نبذه عن الفيجوال بيسك نبذه عن الفيجوال بيسك
نبذه عن الفيجوال بيسك
(مرات المشاهدة: 6,437 مرات)
معنى الخصائص ، ضبط الخصائص معنى الخصائص ، ضبط الخصائص
معنى الخصائص ، ضبط الخصائص
(مرات المشاهدة: 5,537 مرات)
استخدام معالج البرامج لإنشاء أول برنامج لك-الجزء الأول استخدام معالج البرامج لإنشاء أول برنامج لك-الجزء الأول
استخدام معالج البرامج لإنشاء أول برنامج لك-الجزء الأول
(مرات المشاهدة: 1,464 مرات)
فوائد متنوعة لكافة المبرمجين (3) فوائد متنوعة لكافة المبرمجين (3)

(مرات المشاهدة: 1,584 مرات)

About
جميع الحقوق في هذا الموقع محفوظة وكل المواد على الاقسام ملك لاصحابها :Copyright © All rights reserved