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

ممكن مساعده في الفيجول واكون ممنونه منكم..

اذا عندي مصفوفه مثلا تتكون من [e1,e3,e4,e5,e6,e8,e1,e2,e4,e5,e6,e8]

كيف استطيع ان الغي العناصر المتكرره فيها وارتبها بالتسلل اي تصبح

[e1,e2,e3,e4,e5,e6,e8]

؟؟؟؟؟؟؟

والسؤال الثاني اذا لم اعرف طول مصفوفه واريد افتح for بحجم المصفوفه فكيف هو الكود لذلك
؟؟؟؟؟؟

ارجووو المساعده وشكرررا
الرد
تم الشكر بواسطة:
#2
ج1:
تضيفها الى لست

و بعدين

كود :
xx=list1.listcount-1
for i=0 to xx
text1.text=list1.list(0)
for  for ii=0 to xx
if text1.text = list1.list(ii) then
list1.removeitem(ii)
endif
next ii
x=list1.listcount-1
list1.additem(x)
list1.list(x)=text1.text
next i
للترتيب من خصائص اللست توجد خاصية stored اجعلها true
ج2: تضع المصفوفة في لست ثم
text2.text =list1.listcount
الرد
تم الشكر بواسطة: Easy4ever
#3
شكرا asto بس انا عندي كود كبير وبداخله وصلت الى مصفوفه مثلا [upper(12)=[e1,e3,e4,e5,e6,e8,e1,e2,e4,e5,e6,e8 واريد احذف العناصر المتكرره فيها اي تصبح
[e1,e2,e3,e4,e5,e6,e8] .........فكيف اضعها في لست Huh ممكن طريقه اخرى واكدر اضيفه بنفس الكود الي عندي ؟؟؟؟؟؟؟؟؟؟؟؟؟
الرد
تم الشكر بواسطة:
#4
بسيطة
كود :
for i=0 to 11
list1.additem(i)
list1.list(i)=upper(i)
next i


لكن بعد تعريف المصفوفة على شكل

redim upper(12(


و ادخال العناصر اليها

بالشكل
upper(0)="e1"
او  ادخالها في تكست واحد و بينها فواصل و استعمال الامر Split ثم
upper(0)=Split(text3.text,",")(0(
حتى آخر عنصر
الرد
تم الشكر بواسطة: Easy4ever
#5
شكررراااا جزيلا عاشت الايادي
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up مساعدة في اداة DataGrid توليب 4 150 10-02-19, 02:59 PM
آخر رد: توليب
  [vb6.0] اريد مساعدة في برنامج صلاحيات المستخدمين توليب 3 231 24-01-19, 07:58 PM
آخر رد: توليب
  مساعدة في كود tighrmte 1 129 10-01-19, 06:51 AM
آخر رد: عبدالله الصافي
Video احتاج مساعدة من مبرمجي الفجوال بسيك 6 hicham716 41 1,483 07-01-19, 03:13 AM
آخر رد: hicham716
  احتاج مساعدة في الكومبو بوكس scsi7000 3 210 28-12-18, 11:22 AM
آخر رد: scsi7000
  مساعدة في اداة MMcontrol VB.NET 2 232 23-11-18, 03:20 AM
آخر رد: VB.NET
  السلام عليكم ممكن مساعدة يا اخوان كيف بدي اربط الفورم في الاكسل ضروري بارك الله فيكم محمد جبريل 3 273 29-08-18, 08:56 PM
آخر رد: مصمم هاوي
  [مشروع] مساعدة في البرمجة بالاكواد sulimanalahdl 22 967 15-08-18, 08:16 PM
آخر رد: elgokr
Big Grin [vb6.0] مساعدة في خصوص اداة Winstock anoname 2 231 30-07-18, 09:26 PM
آخر رد: anoname
  [سؤال] كيف ممكن احمي source code من السرقه؟ mera 7 418 15-07-18, 12:01 PM
آخر رد: mera

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


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