منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
نقاش حول المصفوفات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نقاش حول المصفوفات (/showthread.php?tid=7258)

الصفحات: 1 2


نقاش حول المصفوفات - عمرحربة - 05-12-12

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

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


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

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

يارب أكون تمكنت من توصيل الفهم
رجاء الفهمني يقول حتي وإن لم يجد حل يكفي إنه فهمني



نقاش حول المصفوفات - Osama_Ghareeb - 06-12-12

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

إستخدم أمر conv.Count لمعرفة عدد القيم في المصفوفة


نقاش حول المصفوفات - عمرحربة - 06-12-12

بارك الله فيك
طيب أنا محتاج ال 8 قيم حتي لو كانت اصفار
كيف يتم ذلك ؟



نقاش حول المصفوفات - Osama_Ghareeb - 06-12-12

كود :
For I =0 To conv.Count
Dim a = conv(i)
'MsgBox(a.ToString)
Next



نقاش حول المصفوفات - عمرحربة - 06-12-12

جزاك الله خير

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

index was outside the bounds of the array

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


نقاش حول المصفوفات - عمرحربة - 06-12-12

حاولت أكتب التالي :

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

اريد مكان الاستفهامات يكون جملة ملء الحقول الفارغة بالأصفار



نقاش حول المصفوفات - Osama_Ghareeb - 06-12-12

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



نقاش حول المصفوفات - عمرحربة - 06-12-12

جميل جدا جدا وهذا هو المطلوب

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


نقاش حول المصفوفات - Osama_Ghareeb - 06-12-12

ضيف أي شي بدك ياه بالقيم داخل الحلقة التكرارية


نقاش حول المصفوفات - عمرحربة - 06-12-12

جزاك الله خير وبارك الله فيك
تسلم كتير
إن شاء الله سأوافيك بالجديد