تقييم الموضوع :
  • 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 
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 10 847 27-09-16, 12:13 AM
آخر رد: زياد مقداد
Shocked [مثال] ربط قاعدة بيانات محمية في تقرير كرستال عن طريق الكود ياسر عبد الكريم 2 110 26-09-16, 11:54 PM
آخر رد: ياسر عبد الكريم
  تحديد موقع الشخص عن طريق ip hsansalhh 0 111 02-07-16, 03:51 AM
آخر رد: hsansalhh
  فتح ملف اكسل واضافه البيانات عن طريق الفورم الى الخلايا norhan 28 1,222 04-04-16, 09:50 PM
آخر رد: norhan
  [vb6.0] فتح موقع عن طريق ادخال text poor prince 3 215 04-04-16, 01:20 AM
آخر رد: poor prince
  المساعدة فى امر الضغط على الزر عن طريق زر اخر mhareek 2 158 14-03-16, 01:52 PM
آخر رد: mhareek
  [vb6.0] طباعة جدول في ملف وورد عن طريق الفيجوال بيسك6 besomoon 0 257 14-03-16, 01:16 PM
آخر رد: besomoon
  [vb6.0] استفسار .. بخصوص استخدام المتغيرات كعداد MutazMurshed 3 169 25-02-16, 03:44 PM
آخر رد: Omar 6.0
Question [vb6.0] كيف اربط تقرير آكتف ريبورت برنامجي المرفق عن طريق الكود ؟؟ Microformt 10 2,151 26-12-15, 03:43 AM
آخر رد: awidan76
Question [vb6.0] هل يمكن عمل قاعدة بيانات لجهاز البصمة عن طريق اكسس ؟؟ Microformt 2 507 03-11-15, 04:54 PM
آخر رد: Microformt

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


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