انت هنا الان : شبكة جامعة بابل > موقع الكلية > نظام التعليم الالكتروني > مشاهدة المحاضرة

هندسة برامجيات عملي

الكلية كلية العلوم للبنات     القسم قسم الحاسبات     المرحلة 3
أستاذ المادة رسل محمد نعمة       13/11/2018 17:58:08
ترتيب المصفوفاتSorting Array:
يمكننا ترتيب المصفوفات النصية حسب الترتيب الابجدي , كما يمكننا ترتيب المصفوفات الرقمية من الاصغر الى الاكبر لعمل ذلك يتم من خلال استخدام الدالة Sort التابعة للفئة Array ويمكننا استخدامها كما يلي :
Dim NamesArray(4) As String
NamesArray(0)= “Suha”
NamesArray(1)= “Ali”
NamesArray(2)= “Ahmed”
NamesArray(3)= “Jon”
NamesArray(4)=”Sarah”
Array.Sort(NamesArray)
Listbox1.Items.AddRange(NamesArray)
الدالة AddRange تسمح باضافة جميع عناصر المصفوفة الى الاداة ListBox بدل من استخدام For واضافة كل عنصر على حده من خلال الدالة Add.

قلب عناصر المصفوفه Reverse Array:
عملية قلب عناصر المصفوفه ليصبح اخر عنصر هو اول عنصر وهكذا من خلال استخدام الدالة Reverse التابعة لنفس الفئة Array.

*اكتب برنامج يقوم بادخال n من العناصر الى المصفوفه A_array وطباعة عناصر المصفوفة قبل اجراء عملية الترتب وعرض عناصرها بعد الترتيب وبعد عكس عناصر المصفوفة في ListBox ؟

المصفوفات المتعدده الابعاد
اشهر انواعها هي المصفوفات الثنائية ويتم الاعلان عنها بالصيغة التالية:
Dim Array_name(n,n) As Data_type
ويمكننا ايضا الاعلان عنها بالصيغة التالية:
Dim Array_name(0 to n,0 to n) As Data_type
ويتم اسناد القيم لها اما بالصوره التالية:
Dim myArray(1, 2) As Integer
myArray(0, 0) = 7
myArray(0, 1) = 2
myArray(0, 2) = 5
myArray(1, 0) = 3
myArray(1, 1) = 8
myArray(1, 2) = 6
او من خلال استخدام For كما هو مبين:
For row = 0 To 1
For col = 0 To 2
Listbox1.Items.Add(myArray(row, col))
Next
ترتيب المصفوفاتSorting Array:
يمكننا ترتيب المصفوفات النصية حسب الترتيب الابجدي , كما يمكننا ترتيب المصفوفات الرقمية من الاصغر الى الاكبر لعمل ذلك يتم من خلال استخدام الدالة Sort التابعة للفئة Array ويمكننا استخدامها كما يلي :
Dim NamesArray(4) As String
NamesArray(0)= “Suha”
NamesArray(1)= “Ali”
NamesArray(2)= “Ahmed”
NamesArray(3)= “Jon”
NamesArray(4)=”Sarah”
Array.Sort(NamesArray)
Listbox1.Items.AddRange(NamesArray)
الدالة AddRange تسمح باضافة جميع عناصر المصفوفة الى الاداة ListBox بدل من استخدام For واضافة كل عنصر على حده من خلال الدالة Add.

قلب عناصر المصفوفه Reverse Array:
عملية قلب عناصر المصفوفه ليصبح اخر عنصر هو اول عنصر وهكذا من خلال استخدام الدالة Reverse التابعة لنفس الفئة Array.

*اكتب برنامج يقوم بادخال n من العناصر الى المصفوفه A_array وطباعة عناصر المصفوفة قبل اجراء عملية الترتب وعرض عناصرها بعد الترتيب وبعد عكس عناصر المصفوفة في ListBox ؟

المصفوفات المتعدده الابعاد
اشهر انواعها هي المصفوفات الثنائية ويتم الاعلان عنها بالصيغة التالية:
Dim Array_name(n,n) As Data_type
ويمكننا ايضا الاعلان عنها بالصيغة التالية:
Dim Array_name(0 to n,0 to n) As Data_type
ويتم اسناد القيم لها اما بالصوره التالية:
Dim myArray(1, 2) As Integer
myArray(0, 0) = 7
myArray(0, 1) = 2
myArray(0, 2) = 5
myArray(1, 0) = 3
myArray(1, 1) = 8
myArray(1, 2) = 6
او من خلال استخدام For كما هو مبين:
For row = 0 To 1
For col = 0 To 2
Listbox1.Items.Add(myArray(row, col))
Next


المادة المعروضة اعلاه هي مدخل الى المحاضرة المرفوعة بواسطة استاذ(ة) المادة . وقد تبدو لك غير متكاملة . حيث يضع استاذ المادة في بعض الاحيان فقط الجزء الاول من المحاضرة من اجل الاطلاع على ما ستقوم بتحميله لاحقا . في نظام التعليم الالكتروني نوفر هذه الخدمة لكي نبقيك على اطلاع حول محتوى الملف الذي ستقوم بتحميله .