أرجو المساعدة فى كتابة كود أرقام عشوائيه

مغلق

بدأه waterfall في 2 سبتمبر 2004 · 3 رد · 483 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#12 سبتمبر 2004 في 19:39 صاحب الموضوع

أرجو المساعدة فى كتابة كود أرقام عشوائيه، حيث فى المثال المرفق الأرقام العشوائيه أرقام صحيحه، ولكنى أريدها أرقام بكسور عشريه..

كمثال أريد توليد أرقام عشوائيه بين رقمى ( 4.59 و 4.80 ) مثلآ وذلك بدل الأرقام الصحيحه التى فى الكود المرفق ،مع عدم تكرار الرقم مره أخرى...

وشكرآ لمساعدتكم

#24 سبتمبر 2004 في 07:11

اعتقد لو استخدمت هدا الكود سيعطي لك النتيجة المطلوبة

Private Sub Command1_Click()

Dim x As Double

For i = 1 To 1000

x = 5 * Rnd

If x >= 4.59 And x <= 4.8 Then

Label1.Caption = x

End If

End Sub

#34 سبتمبر 2004 في 08:03

جزاك الله خيرآ ياأخى..

#413 سبتمبر 2004 في 13:09

اقتباس
جزاك الله خيرآ ياأخى.mostafa1_007.

قل لن يصيبنا إلا ما كتب الله لنا

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