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

السلام عليكم 

أريد الإعلان عن متغير به عدة عناصر من نفس النوع 
فقمت بالإعلان عن هذه المصفوفة 
Dim w(4) As Integer


ولكن وجهتني مشكلة عندما اردت تخصيص القيم لعناصرها 
w = {1-,1-,0,0}
ظهر خط ازرق اسفل الاقواس 
فهل امر التخصيص هذا خطأ؟
علما بان المشكلة تختفي اذا قمت بتخصيص كل متغير على حدى 
مثل 
W(1) = 1
W(2) = 0
ولكن برنامجي يتطلب التخصيص في نفس السطر؛ أي على نهج المثال الاول 
------
الاستفسار الثاني
كيف يمكنني كتابة اكثر من امر في نفس السطر 
مثلا تخصيص قيمة لمتغير A و بجانبه امر تخصيص للمتغير B
او تخصيص قيمة لخاصية وبجانبه قيمة لخاصية اخرى على نفس السطر 
-------

لأن الفهرسة تبدأ من الصفر عندما تسوي Dim x(4) As Integer سيكون كالتالي 
مثلاً عندما تريد التعبير عنها في عدة سطور 
السبب هو انك عرفت مصفوفة مكونة من خمس واعطيتها 4 قيم

جربت تظهر لي هذه المشكلة

[attachment=13398]

السلام عليكم

تفضل التعديل

المشكلة تزول بهذه الطريقة ولكن عند اعادة التخصيص مره اخرى وتغيير القيم تظهر نفس المشكلة 

Dim w() As Integer = {1, 1, 0, 0, 0}

w() = {0,0,0,0,0}

الصحيح
بدون القوسين ()

جربت ايضا بهذه الطريقة    لا جديد 

اعذرني على اتعابك معي

ضع مشروعك ليتم ايجاد الكود المناسب

المشروع بسيط اريد عمل جملة if

فاذا نفذ شرط الاول
يقوم بتعديل قيم العناصر في المتغيرات
w = {0, 0, 0, 0, 0}
الشرط الثاني
w = {1, 1, 0, 0, 0}
الشرط الثالث
w = {1, 0, 1, 0, 0}
وهكذا وانا اقوم بتغيير القيم هذه
مثلا
if a = 1 then
w = {0, 0, 0, 0, 0}
elseif a = 2 then
w = {1, 1, 0, 0, 0}
else
w = {1, 0, 1, 0, 0}
end if