انتاج ارقام عشوائية

مغلق

بدأه صاعق في 29 مايو 2006 · 3 رد · 558 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#129 مايو 2006 في 15:47 صاحب الموضوع

بسم الله الرحمن الرحيم

كلنا نعرف الدالة Rnd والتي تقوم بانتاج الأرقام العشوائية ولكن هناك مشكلة واجهتني وهي أن هذه الدالة تعطي قيم متشابهة في كل مرة يعمل فيها البرنامج .

حالوت أن أعمل كود مشابه لتالي

a=int(rnd * val(Second(Time)) )

ولكن هذه الطريقة غير مجدية أيضا .

أرجو ممن يملك أي معلومة أن يجيب.

وشكرا

#229 مايو 2006 في 16:23

اكتب قبلها

randomize

#329 مايو 2006 في 17:41

هذا هو الكود

Private Sub Cmd_Click(Index As Integer)
	Randomize

	a=int(rnd * 100)
	 label1=a

End Sub

#430 مايو 2006 في 06:38

شكرا لك أخي yasserstars جربت الطريقة ونجحت.

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