الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

المساعدة في الرقم العشوائي

مغلق
بدأه عباس رجب في 22 ديسمبر 2005 · 3 رد · 404 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أريد كود يقوم بالإختيار العشوائي من بيانات موجودة في الليست بوكس

ويا حبذا لو اختار أكثر من بيانات من الليست بوكس

وللتوضيح نفترض أن لدينا ليست بوكس وبه البيانات التالية على التوالي

1

2

3

4

5

6

7

8

9

10

وأردت من خلال زر كوماند أن يختار منهم 4 أرقام بشكل عشوائي ويضعهم في تيكست بوكس كالتالي مثلا 3425

أرجو المساعدة

ولكم الشكر على سرعة الرد

إلى متى نظل عاجزين عن الإبداع في عالم البرمجة[وسط][/وسط]

#2

أين الرد يا أحبائي

إلى متى نظل عاجزين عن الإبداع في عالم البرمجة[وسط][/وسط]

#3

جرب هذا الكود اخي عباس رجب وتحقق من الأخطاء فقد كتبه مباشرة :

dim i,randNum as integer
dim str as,nStr String

For i = 0 to List1.ListCount-1
     Str = Str & List1.List(i)
Next i

For i = 0 to 3
    RandNum =((List1.ListCount-1) * Rnd + 1)
    nStr = nStr &  Mid(str,RandNum,1)
Next i

Msgbox nStr

بالتوفيق B)

#4

نعم بالفعل هذا هو الحل أخي فواز الشمري

ولقد أوفيت بالحل

ولم يكن هناك سوى خطأ بسيط في تعريف المتغيرات نتيجة للسرعة في الكتابة

والف شكر مرة أخرى

إلى متى نظل عاجزين عن الإبداع في عالم البرمجة[وسط][/وسط]

هذا الموضوع مغلق.

مواضيع مشابهة