شرح امر array , ubound

[Wael Hamed_1975]

الكثير من الاكواد بها هذان الامران ولقد بحثت في مواقع اجنبية كثيرة ولكن للاسف الشديد لم افهم المقصود منهما برجاء شرح الاوامر حتي يتسنا لي وللبعض فهم الاكواد وشكراً

[الـعيدروس]

array  هذي عبارة عن جدول او جداول

ubound للاشارة عن البعد الاخير سوى لاعمدة  او للصفوف للجداول

مثلا

استخدام Ubound للـ Array

A = Array(1,2,3,4,5)

لمعرفة عدد بيانات المتغر A

msgbox Ubound(A)

طبيعة الحالة النتيجة 4 لان اي جدول يبداء بصفر وليس بـ 1 الا اذا تم الاشارة في بداية المودويل بالجملة Option Base 1 كالتالي

Option Base 1
Sub Test()
Dim A

A = Array(1, 2, 3, 4, 5)

MsgBox UBound(A) ' 5

End Sub

 

او بدون الاشارة كالتالي النتيجة 4

Sub Test()
Dim A

A = Array(1, 2, 3, 4, 5)

MsgBox UBound(A) ' 4

End Sub

وبطبيعة الحالة عند استخدام الحلقات التكرارية يستخدم للمصفوفات للاشارة للبداية بكلمة Lbound  بدلاً الخطاء اذا اشرت بـ 0 او 1

وللاشارة بالنهاية بـ Ubound كالمثال التالي

Option Base 1
Sub Test()
Dim A

A = Array(1, 2, 3, 4, 5)

For i = LBound(A) To UBound(A)
    MsgBox A(i) ' 1,2,3,4,5
Next i

End Sub

 

 

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

[الـعيدروس]

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

 

تم تعديل سبتمبر 23, 2019 بواسطه الـعيدروس

[Wael Hamed_1975]

شكراً للأخوة المحترمين جزاهم الله كل خير وجعلهم في ميزان حسناتهم ومتعهم باسماعهم وابصارهم .ورزقهم خير الدنيا والاخرة.