المهارات المستخدمة مع المصفوفات

المحاضرة السادسة عشر: المهارات المستخدمة مع المصفوفات

في المشروع الأتي سنستخدم طريقة تعتبر(من وجهة نظر المبرمج) من افضل الطرق للتعامل مع المصفوفات في بيئة VB حيث انه في المثال المستخدم في المحاضرة السابقة استخدمنا مربعات نص وهذه الحالة غير ايجابية حيث لايمكن استخدامها في حالة كون عناصر المصفوفة ذات عددكبير جدا (مثلا مصفوفة تتكون من 100 عنصر) ، وهذا يتطلب منا انشاء مربعات نص كثيرة جدا ، كذلك غير فعالة في حالة تحديد عناصر المصفوفة خلال تنفيذ البرنامج. كذلك تم استخدام سطح النموذج لطباعة عناصر المصفوفة وهذه الحالة غير فعالة ايضا حيث انها سوف تشغل مساحة غير معروفة مسبقا من سطح النموذج وهذا ما يؤثر سلبا على الكيانات الاخرى.
مثال:
في هذا المشروع سنتعلم كيفية التعامل من خلال الأداة Inputbox لقراءة عناصرها واستخدام مربع نص واحد فقط لإظهار نتائج المعالجة كطباعة جميع عناصر المصفوفة او جزء منها ،سنقوم في هذا المشروع بقراءة مصفوفة مربعه(3x3) باستخدام الاداة inputbox ثم نقوم بابدال عناصر العمود الاول مع عناصر العمود الاخير من المصفوفة ثم نقوم بطباعة المصفوفة قبل وبعد عملية التبديل في مربع النص.



اعداد واجهة المشروع:-








اعداد خصائص الكيانات:-
الكيان الخاصية الإعداد
Command1 Caption Read/replace
Command2 Caption Exit
Text1 Name txt1
Multiline True

كتابة شفرات المشروع:-
• شفرة الامر exit : end

• شفرة الامر read/replace
Dim a(3, 3) As Integer
Dim i As Integer, j As Integer
Dim x As Single
For i = 0 To 2
For j = 0 To 2
a(i, j) = InputBox("inter any number")
Next j
Next i
For i = 0 To 2
For j = 0 To 2
txt1.Text = txt1.Text & a(i, j) & Space(2)