تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال حول تخصيص قيم المتغيرات
#1
السلام عليكم 

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


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

   
الرد
تم الشكر بواسطة:
#4
السلام عليكم

تفضل التعديل
كود :
Dim w() As Integer
w = {-1, -1, 0, 0}
كود :
Dim w() As Integer = {-1, -1, 0, 0}
الرد
تم الشكر بواسطة: fredo
#5
المشكلة تزول بهذه الطريقة ولكن عند اعادة التخصيص مره اخرى وتغيير القيم تظهر نفس المشكلة 

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

w() = {0,0,0,0,0}
الرد
تم الشكر بواسطة:
#6
الصحيح
كود :
w = {0, 0, 0, 0, 0}
بدون القوسين ()
الرد
تم الشكر بواسطة: fredo
#7
جربت ايضا بهذه الطريقة    لا جديد Sad

اعذرني على اتعابك معي
الرد
تم الشكر بواسطة:
#8
ضع مشروعك ليتم ايجاد الكود المناسب
الرد
تم الشكر بواسطة: fredo
#9
المشروع بسيط اريد عمل جملة 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في تغيير قيمة الخلية sofiane-phy 3 34 منذ 2 ساعة مضت
آخر رد: sofiane-phy
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 126 أمس, 01:26 AM
آخر رد: EYADISMAIL
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 14 257 09-01-19, 10:56 PM
آخر رد: abdullhadi999
  سؤال عن سبب ظهور خطا غير متوقع alipro 3 87 08-01-19, 04:28 AM
آخر رد: محمد كريّم
  سؤال عن ربط الاكسل مع vb philo 3 105 07-01-19, 02:57 PM
آخر رد: elgokr
Big Grin سؤال حول فحص اذا كان برنامج قيد التشغيل او لا ahmadpal 4 90 07-01-19, 02:50 PM
آخر رد: elgokr
  سؤال فى الداتا جريد فيو احمد خطاب 5 148 03-01-19, 08:59 PM
آخر رد: احمد خطاب
  سؤال حول امر الطباعة الفورية Osama Bayoumy 5 455 01-01-19, 01:02 AM
آخر رد: اسامه الهرماوي
  [VB.NET] سؤال في console farfour 1 57 29-12-18, 05:02 AM
آخر رد: trakktour
  سؤال فى الاستعلام احمد خطاب 0 55 25-12-18, 12:26 AM
آخر رد: احمد خطاب

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم