كيف أستطيع توليد أرقام عشوائية بالفيجوال بيسك 6 ...؟

Randomize
MsgBox Int((10 * Rnd) + 1)

التصريح Randomize يعمل مع الدالة Rnd

و نستفيد منه عدم التكرارية و الحصول علي عشوائية افضل

لانه يعتمد علي ساعة النظام لديك

"" مــنــقــول""

كما ذكر الاخ جمال الجملة Randomize تقوم بهذا العمل كما يمكنك استعمال الموقت لاخراج ارقام عشوائية تعتمد على seed مختلف كل مرة

msgbox rnd(timer)

أخي الكريم لقد وجدت الحل وهو بالإعتماد على الوقت لأنه وكما تعلم أن الوقت يتغير كل ثانية ولهذا قمت بعمل مثال وأرفقتة وأي شيئ لا تفهمة أعلمني.

___________.rar

اخواني

الحدث randomize جميل لكن انا اريد مثلا عندي ارقام من الصفر الى 14 عند ضغط الزر يختار رقم عشوائي و يحذفه (يحذفه اقصد عند الضغطة الثانية لا يطلع) واذا عصيت اربعة عشرة مرة يطلع مسج بوكس بان الارقام خلصت

جزاكم الله اخواني الأكارم

هل أستطيع أن أحذف الرقم فلا يعود يظهر مرة أخرى عند تشغيل البرنامج لهذه المرة فقط ......؟

الــســـلام عــلــيــكــم

الــحــل بــالــمــرفـــقـــات

____.zip

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

شكرا جزيلا أخ جمال

خذوا هذا الكود و جربوه

Private Sub Command1_Click()
Dim x, i, r, j
r = 10
x = (Hour(Now) * Second(Now) * Minute(Now) * Month(Now) * Day(Now) * Year(Now))
For i = 0 To 11
If x / r > 1 Then
r = r * 10
End If
If x / r <= 1 Then
j = x / r
Exit For
End If
Next i
Label1.Caption = Int(Rnd * (j * 1000))
End Sub

هذا أفضل

Dim x, i, r, j
r = 10
x = Hour(Now) + Second(Now) + Minute(Now)
For i = 0 To 2
If x / r > 1 Then
r = r * 10
End If
If x / r <= 1 Then
j = x / r
Exit For
End If
Next i
Label1.Caption = Int(Rnd * (j * 10))

بعد عام أو اكثر

السلام عليكم و رحمة الله و بركاته

بالرغم من مرور أكثر من عام علي مشاركتي الأخيرة في هذه الصفحة إلا أنني فضلت أن اشارك عسي أن ينتفع بها الجميع

أولا : قمت بتجربة العديد من الاكواد التي تفضل بها الإخوة الافاضل(في هذا الموقع أو المواقع الأخري) للحصول علي أرقام عشوائية ((((لا تتكرر))))

و للأسف كانت نتيجة جميع الأكواد لا تتعدي 80% بالرغم من استخدامهم لعنصر الزمن المتغير بالطبع و التصريحRandomize ....الخ

ثانيا: لم أجد غير كودي الذي ارفقته من عام بنجاح 100%(ليس غرورا و الله العظيم)إلا أنه كان يفتقد لشرح تفصيلاته و عناصره أما الآن

فيسعدني أن أقدم الكود بعد تحسينه و اضافة شرح لكل سطر في الكود (عسي أن ينتفع به المؤمنون) و لا أطلب منكم سوي الدعاء لي و لأهلي و للمسلمين و المسلمات و المؤمنين و المؤمنات بكل خير في الدنيا و الآخرة

الكود بالمرفقات

random.zip