السلام عليكم لدي سؤال وهو كيف اقوم بملء عناصر مصفوفة بقيم معينة مثلا لدي عدة اعداد i حيث
-192<i<192
ولدي مصفوفة ولتكن A
ما أريد هو أن تصير القيم المتضمنة في المصفوفة هي
-192,191,190........190,191,192
حيث يكون العنصر رقم 0 هو 192- و1 هو 191- وهكذا توجد طريقة ادخال كل عنصر على حدة ولكني لا أريد تكرارها 394 مرة لهذا أبحث عن طريقة مختصرة
شكرا مسبقا
تم تعديل هذه المشاركة بواسطة OricalcosZy في 14 سبتمبر 2010 في 20:55
Zefri Yahya - ArabTeam 2000
تفضل اخي العزيز هذا هو الكود الخاص باضافة عناصر المصفوفة المطلوبة كمافي الكود التالي والمثال المرفق
Dim a(384) As Integer
Dim i As Integer
For i = 0 To 384
a(i) = -192
a(i) += i
ListBox1.Items.Add(a(i))
Nextتحياتي
عن عبد الله بن مسعود رضي الله عنه قال: سألت النبي صلى الله عليه وسلم أي العمل أحب إلى الله عز وجل؟ قال: ( الصلاة على وقتها) قال: ثم أي؟ قال: ( بر الوالدين ) قال ثم أي؟ قال: ( الجهاد في سبيل الله )
رابط المصحف الرقمي الفلاشي بأكثر من روايات - القرآن الكريم
شكر لك أخي الكريم ....
أعطيت وأوفيت
فقط ان كان في الامكان ان تشرح الكود قليلا
Zefri Yahya - ArabTeam 2000
Dim a(384) As Integer
في هذا السطر تم الاعلان عن مصفوفة من نوع عدد صحيح وحجمها 384
Dim i As Integer
في هذا السطر تم تعريف متغير يستخدم كعداد لعناصر المصفوفة باسم i
For i = 0 To 384
في هذا السطر تم تحديد عداد لعناصر المصفوفة تبدا من الصفر وتنتهي الى 384 ( عداد عناصر المصفوفة وليس قيم المصفوفة )
a(i) = -192
في هذا السطر تم اسناد القيمة الابتدائية للمصفوفة وهي -192
a(i) += i
في هذا السطر تم زيادة قيمة المصفوفة ب 1 كل مره مثلا -192 , -191 , -190 ............ 192
ListBox1.Items.Add(a(i))
في هذا السطر يتم اضافة قيم المصفوفة الى ال listbox
والعفو على الاطالة
عن عبد الله بن مسعود رضي الله عنه قال: سألت النبي صلى الله عليه وسلم أي العمل أحب إلى الله عز وجل؟ قال: ( الصلاة على وقتها) قال: ثم أي؟ قال: ( بر الوالدين ) قال ثم أي؟ قال: ( الجهاد في سبيل الله )
رابط المصحف الرقمي الفلاشي بأكثر من روايات - القرآن الكريم
جزاك الله خيراً ااخي