كتبه: karwanpro / بتاريخ: 2013-07-23 , سێ شه‌ممه‌
المصفوفة هي مجموعة مستطيلة من الأعداد منتظمة بشكل أعمدة وأسطر. يدعى كل جزء رقم في المصفوفة بعنصر أو مدخل. ويستخدم المصفوفات في البرنجة بشكل كبير وواسع حيث يعتبر كمخزن فيه مجموعات كبيرة من البيانات وباستطاعات البرنامج التعامل معها كيفما يرد المبرمج والوصول الى اي عنصر من عناصرها واجراء عمليات متنوعة عليها



تصريح عن المتغير يتم كما يلي:

1 - إما في الحدث

Dim a, b As Integer


a و b متحولات عددية

2- في قسم التصريحات General:
'تعريف متحول عددي
Dim no1 As Integer
'تعريف مصفوفة عددية سعتها 10 عناصر
Dim list(10) As Integer
'تعريف مصفوفة مؤلفة من 10 عناصر عرض و10 إرتفاع أي 100 عنصر
Dim matrix(10, 10) As Integer
'تعريف متغير نصي
Dim name1 As String
'تعريف متغير نصي بطول 50 حرف
Dim name1 As String * 50
'تعريف مصفوفة نصية تتكون من 10 عناصر
Dim list1(10) As String
'تعريف مصفوفة نصية تتألف من 10 عناصر بطول 50 حرف
Dim list1(10) As String * 50
'تعريف متغير للقيم نعم ولا
Dim a As Boolean


التصريح في وحدة نمطية Module:
'تعريف متغير عددي لكافة نوافذ البرنامج
Global no1 As Integer

'تعريف عدة متغيرات في مجموعة واحدة
Type user
user_no As String * 70
user_name As String * 30
user_mark As Integer
End Type


الأن نأتي إلى كيفية إستخدام المتغيرات
طريقة الإضافة إلى المتغير هي
مثلاً لو صرحنا عن متحول عددي a نكتب كما يلي:
a=90
أوعن طريق تعليمة الإسناد Let وتكتب كما يلي
Let a=90
أو يمكن إسناد قيمة عملية رياضية بين عددين مثل
Let a=5*6
لكي تظهر قيمة المتحول على الفورم أكتب التعليمة Print ثم إسم المتحول
Print a
ويمكنك عرض قيمة المتحول في صندوق نص Textbox
Text1=a
والأن سوف نعمل مثال بسيط للمتحولات ألة حاسبة:
أضف إلى الفورم أربع أزرار أمر جمع وطرح وضرب وقسمة
وأضف ثلاث اداة النص Text ولتكن أسمائها Text1 و Text2 وText3
ضع التصريح التالي في قسم General
Dim a, b As Integer
ثم في الأزرار ضع الأكواد
Code
On Error Resume Next
a = Text1.Text
b = Text2.Text
Text3.Text = a + b

الكود السابق للجمع فقط أبدل الإشارة + بالإشارت الإخرى

يجب ان تشمل المصفوفة على:
أ‌- اسم المصفوفة: الاسم الذي ستستعمله للمصفوفة في البرنامج
ب‌- نوع البيانات : يحدد نوع البيانات التي ستخزنها المصفوفة
ج- عدد الأبعاد : لمعظم المصفوفات بعد واحد (قائمة قيم) أو بعدين (جدول قيم)
د- عدد العناصر : يحدد عدد عناصر المصفوفة وبشكل افتراضي تكون أول خانة في المصفوفة برقم فهرس 0 (صفر) كما هو الحال مع مصفوفات التحكم
تسمى المصفوفات التي تحتوي على عدد عناصر محدد بمصفوفات ثابتة الحجم Fixed Size أما المصفوفات التي تحتوي على عدد عناصر متغير فهي مصفوفات يمكن توسيعها خلال تشغيل البرنامج ويطلق عليها اسم Dynamic مصفوفات ديناميكية تصريح مصفوفة ثابتة
التركيب النحوي الأساسي لتصريح مصفوفة ثابتة الحجم عامة هو (Public Arry Name(Dim iliements,Dim2 Elemets,... تغيير رقم البداية في المصفوفة
تغير جملة Option Base رقم أول عنصر في المصفوفة بجعله أي رقم بدلا من الرقم صفر الافتراضي فإذا أردت زيادة الوضوح في البرنامج بجعل رقم أول عنصر في المصفوفة هو العنصر رقم 1 بدلا من رقم 0 يمكنك وضع جملة Option Base التالية في وحدة نمطية قياسية Option Base 1 تربط هذه الجملة العنصر الأول (الأساس Base ) لكل المصفوفات في البرنامج بالرقم 1 مثال استخدام المصفوفات

بعد تجهيزك للفورم أضف إليه زرين أمر Command Button
غير خاصية Caption لكل من الأزرار كما يلي:
Command1 = إدخال
Command2 = إظهار النتيجة
ولا تنسى تغيير خاصية الإتجاه للفورم Right To Left

وأضف وحدة نمطية Module
أكتب السطرين التاليين في الوحة النمطية
Code
[code]Option Base 1
Public Degs(9) As Variant

أضف الكود التالي إلى زر تخزين القيم
cls: prompt$ = "إدخال قيمة"
For i% = 1 To 3
Title$ = "القيمة" & i%
Degs(i%) = InputBox(prompt$, Title$)
Next i%[/code]
تمحو جملة Cls في أعلى الأجراء الحدثي إخراج الجمل Print السابقة على النموذج ليصبح بإمكانك إدخال اكثر من مجموعة قيم

ثم أضف الكود التالي إلى الزر الثاني
Code
cls: Print "القيم": Print "-----------"
For i% = 1 To 3
Print "المادة" & i% & "قيمة" & Degs(i%): Print "-----------"


total! = total! + Degs(i%): Next i%
Print "مجموع القيم" & total!
Share

rss facebooki twitter google plus
فیسبوك
نصيحة برمجية
أصحاب المواقع
مواضيع اخرى
آخر كتاب قرأته