[fredo]

السلام عليكم 

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


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

[thevirus]

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

PHP كود :

Dim w(4) As Integer = {val1,val2,val3,val4,val5}                        d 


مثلاً عندما تريد التعبير عنها في عدة سطور 

PHP كود :

w(0) = val1
w(1) = val2
w(2) = val3
w(3) = val4
w(4) = val5 


السبب هو انك عرفت مصفوفة مكونة من خمس واعطيتها 4 قيم

[fredo]

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

   

[مساعدة]

السلام عليكم

تفضل التعديل

كود :

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

كود :

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

[fredo]

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

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

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

[مساعدة]

الصحيح

كود :

w = {0, 0, 0, 0, 0}

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

[fredo]

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

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

[مساعدة]

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

[fredo]

المشروع بسيط اريد عمل جملة 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