تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طريق استخدام المصفوفات
#1
السلام عليكم ممكن حل السؤال ضروري جدا جدا 
 كتب المقطع (الكتلة) البرمجي بلغة VB6التي تعلن عن مصفوفة ب اسم DAYS ARRAY من النوع VARIANT غير محدد الحجم ثم اسند لها ايام الاسبوع مثل"SUN" باستخدام الدالة array بعد تعيين حجم لها اضف الى المصفوفه 10 ارقام عشوائية تقع بين 1-100 و من ثم طباعة عناصر المصفةفة على النموذج
الرد }}}}
تم الشكر بواسطة:
#2
أهلا أختي الكريمه , هذا الكود ضعيه في داخل كود زر :

PHP كود :
Dim Days_Array() As Variant
Dim I 
As Integer

Days_Array 
= Array("Sunday""Monday""Tuesday""Wednesday""Thursday""Friday""Saturday")

ReDim Preserve Days_Array(16) As Variant

For 7 To 16
    Randomize
    Days_Array
(I) = Int((100 Rnd) + 1)
Next

For 0 To 16
    
Print Days_Array(I)
Next 
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] ربط الفجوال بيسيك بالاكسل عن طريق اداة الادو ADODC larbihamri 8 212 15-01-17, 03:07 PM
آخر رد: larbihamri
  عرض المصفوفات اسلام الكبابى 6 186 07-01-17, 04:41 PM
آخر رد: اسلام الكبابى
Question [vb6.0] كيف يتم تحريك الفوم عن طريق Label1 ؟؟ Microformt 2 115 12-12-16, 02:03 PM
آخر رد: عبد العزيز البسكري
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 10 997 27-09-16, 12:13 AM
آخر رد: زياد مقداد
Shocked [مثال] ربط قاعدة بيانات محمية في تقرير كرستال عن طريق الكود ياسر عبد الكريم 2 157 26-09-16, 11:54 PM
آخر رد: ياسر عبد الكريم
  تحديد موقع الشخص عن طريق ip hsansalhh 0 137 02-07-16, 03:51 AM
آخر رد: hsansalhh
  فتح ملف اكسل واضافه البيانات عن طريق الفورم الى الخلايا norhan 28 1,471 04-04-16, 09:50 PM
آخر رد: norhan
  [vb6.0] فتح موقع عن طريق ادخال text poor prince 3 269 04-04-16, 01:20 AM
آخر رد: poor prince
  المساعدة فى امر الضغط على الزر عن طريق زر اخر mhareek 2 190 14-03-16, 01:52 PM
آخر رد: mhareek
  [vb6.0] طباعة جدول في ملف وورد عن طريق الفيجوال بيسك6 besomoon 0 285 14-03-16, 01:16 PM
آخر رد: besomoon

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


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