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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb هل يوجد كود لإرسال رسائل SMS للجوال عن طريق النت أو مودم شريحة جوال ياسر عبد الكريم 4 87 09-10-17, 07:32 PM
آخر رد: ياسر عبد الكريم
  استخدام DoEvents dr.mostashar 1 103 08-07-17, 10:56 PM
آخر رد: 5271
  كيفية اتصال قاعدة البيانات بالانترنت عن طريق google drive HaniLeo 18 577 08-07-17, 12:31 PM
آخر رد: Ahmed_Mansoor
Question [سؤال] كيفية استخدام أداة WebBrowser ahmed101 5 2,202 17-06-17, 08:04 AM
آخر رد: lval6402@gmail.com
  مشكلة في حفظ البيانات عن طريق الليست بوكس مصمم هاوي 3 218 28-04-17, 05:23 AM
آخر رد: Ahmed_Mansoor
  احتاج طريقة للطرح او الجمع في المصفوفات abudawoodd 9 552 25-01-17, 11:01 AM
آخر رد: abudawoodd
  [vb6.0] ربط الفجوال بيسيك بالاكسل عن طريق اداة الادو ADODC larbihamri 8 623 15-01-17, 03:07 PM
آخر رد: larbihamri
  عرض المصفوفات اسلام الكبابى 6 414 07-01-17, 04:41 PM
آخر رد: اسلام الكبابى
Question [vb6.0] كيف يتم تحريك الفوم عن طريق Label1 ؟؟ Microformt 2 233 12-12-16, 02:03 PM
آخر رد: عبد العزيز البسكري
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 10 1,745 27-09-16, 12:13 AM
آخر رد: زياد مقداد

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


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