منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : نقاش حول المصفوفات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
بعد حمد الله تعالي
نصلي ونسلم علي الحبيب المصطفي
السلام عليكم
قبل يومين طرحت مشكلة خاصة بالمصفوفات ولم أجد من يتجاوب مع الموضوع
واجهتني مشكلة أخري ولكنني وجدت لها حل مؤقت ولايفي بالغرض بالكامل ولن أطرح الحل لأنه غبي بصراحة Cool

لم استطع الشرح بالعربي لكن سأشرح الكود حتي يكون الجميع في الصورة <إبتسموا Big Grin
المهم هذا هو الكود
المشروع عبارة عن تحكم في عدة أجهزة عن طريق منفذ الطابعة


المشكلة :
index was outside the bounds of the array
تظهر عندما تكون قيمة x أقل من
128 بالثنائي تساوي 10000000 اي الـled رقم 8 تعمل
أو 255 بالثنائي تساوي 11111111 اي كل الـLeds تعمل

بمعني انه يتم تجاهل اي أصفار إذ كانت من ناحية الشمال <هذا علي حسب فهمي والله أعلم

يارب أكون تمكنت من توصيل الفهم
رجاء الفهمني يقول حتي وإن لم يجد حل يكفي إنه فهمني
سبب الخطأ إنك بتطلب القيمة رقم 8 مثلا في مصفوفة تحتوي على 7 قيم فقط

إستخدم أمر conv.Count لمعرفة عدد القيم في المصفوفة
بارك الله فيك
طيب أنا محتاج ال 8 قيم حتي لو كانت اصفار
كيف يتم ذلك ؟
كود :
For I =0 To conv.Count
Dim a = conv(i)
'MsgBox(a.ToString)
Next
جزاك الله خير

لكن المشكلة لاتزال قائمة

index was outside the bounds of the array

اليك مااريده
إذا كان عدد خانات المصفوفة أقل من 8 أريد ملئ باقي الخانات أصفار
حاولت أكتب التالي :

if conv.count<8 then
conv.setvalue() '????here

اريد مكان الاستفهامات يكون جملة ملء الحقول الفارغة بالأصفار
عفوا نسيت أمر بسيط
كود :
For I =0 To conv.Count [COLOR=#ff0000]- 1
[/COLOR] Dim a = conv(i)
'MsgBox(a.ToString)
Next
جميل جدا جدا وهذا هو المطلوب

أريد القيم في متغيرات حتي يمكنني التعامل معها مرة أخري
+
المشاركة السابقة(اريد عرض الخانات الفارغة موجودة قيمتها صفر)
ضيف أي شي بدك ياه بالقيم داخل الحلقة التكرارية
جزاك الله خير وبارك الله فيك
تسلم كتير
إن شاء الله سأوافيك بالجديد
الصفحات : 1 2