ماهي المصفوفات

للرفع

أنت عندك متغير إسمه X مثلاً و هو يعبر عن مثلاً درجات الطلاب في الثانوية العامة

مثلاً X = 94 يعني الطالب درجته 94

و لكن هل أنت عندك طالب واحد أم عدة طلاب ؟؟

عدة طلاب

فبدلاً من أن تقول

Dim x1 , x2 , x3 , x4 , ........ x100

قل

Dim x(100)

هكذا سيكون لديك 101 متغير

فرقم 1 هو 0 و 2 هو 1 و 3 هو 2

لكن إذا أردت للمصفوفة أن تبدأ من 1 قل

option base 1
Dim x(100)

عندما تريد أن تقول أن الطالب ال77 أخذ 88% تقول

x(77) = 88

و يمكنك أن تتحكم في المائة متغير مرة واحدة

مثلاً الطلاب سوف يأخذون 2% زيادة على درجاتهم تقول :

Dim i
for i = 1 to 100 step 1
x(i) = x(i) + 2
next i

شكرا أخي الكريم على التوضيح وجعله في ميزان حسناتك.

و يمكنك ذلك في الlabels و texts و هذه الأشياء

كيف ؟؟؟

تنشئ عدة labels و كلهم يكون إسمهم مثلاً label1 و لكن كل واحد له index مختلف

مثلاً عندك label1 و عنده الـindex يساوي 0

و واحد آخر إسمه label1 و لكن الـindex يساوي 1 و هكذا

و أيضاً عندما تريد أن تتحكم في واحد منهم تقول

label(66).caption = "ll"

و إذا أردت أن تتحكم فيهم مرة واحدة إفعل كما فعلنا في المرة السابقة مع المتغيرات

و في كود الlabel قل :

Private Sub Label1_Click(Index As Integer)

End Sub

مثلا عملت click على label و تريد أن يتغير لونه قل

Private Sub Label1_Click(Index As Integer)
Label1(Index).BackColor = RGB(86, 36, 0)
End Sub