سوال در مورد اعداد تصادفی

[toytown]

سلام

من میخواستم بدونم میشه که برنامه با یه دکمه 100 عدد تصادفی غیر تکراری درست کنه و هر بار که دکمه رو بزنیم اعداد فرق کنه؟

ممنون میشم اگه جوابمو بدین

[Mr.pRoGraMmer]

سلام
داداش من خواب خواب بودم امیدوارم که دقیقا همون چیزی که میخوای باشه
کاری نداره که یه textbox فقط رو فرمت بزار منم برم بخوابم....

کد:

'Write By Amin Tatu
'setare_Aseman_Tanhaye@yahoo.com
Private Sub Form_Load()
For i = 1 To 100
Text1.Text = AminTatu1990(100) + (" ") & (Text1.Text)
Next i
End Sub

Function AminTatu1990(MaxNumberForRendomiz As Integer)
Dim intFirstNumber As String
intFirstNumber = Int((MaxNumberForRendomiz * Rnd) + 1)
AminTatu1990 = intFirstNumber
End Function

[CRazYFULL]

برای توليد اعداد تصادفی ميتونيد از تابع Rnd استفاده کنيد
برای اينکه اعداد تصادفی بر پايه زمان ايجاد بشن قبل از تابع Rnd بايد دستور Randomize Timer قرار بديد

توی اين مثال ساده اعداد از بين 1 تا 1000 ايجاد ميشه:

کد:

Private Sub Command1_Click()
Dim lngAdad As Long
Randomize Timer
lngAdad = Int(Rnd * 1000) + 1
Call MsgBox(lngAdad)
End Sub

[hamed_Arfaee]

سلام

برای تکراری نبودن اعداد باید تو آرایه ثبت بشن :

کد:

Dim a(100) As Integer
Private Sub Command1_Click()
Dim s As Integer
For i = 1 To 100
    Do
        s = Int(Rnd() * 1001) + 1
    Loop While (InArray(s))
    a(i) = s
    Next
End Sub
Private Function InArray(X As Integer) As Boolean
Dim res As Boolean: res = False
For i = 1 To UBound(a)
    If a(i) = X Then
        res = True
    End If
Next
InArray = res
End Function

[dreamvbfox]

کد:

If a(i) = X Then
res = True
End If
Next

سلام
براي افزايش سرعت روال بالا بهتره به محض برقراري شرط مقدار true رو بر گردونيم.

کد:

If a(i) = X Then InArray = true

موفق باشيد.

[hamed_Arfaee]

سلام
براي افزايش سرعت روال بالا بهتره به محض برقراري شرط مقدار true رو بر گردونيم.

کد:

If a(i) = X Then InArray = true

سلام
نکته خوبیه .
ولی این به تنهایی خواسته شما رو انجام نمیده
اگه با سی بود با Return کردن تابع تموم میشه ولی در بیسیک تا رسیدن به End function تابع تموم نشده و حلقه ادامه داره

پس در تکمیل همین حرف :

کد:

If a(i) = X Then
        res = True
        Exit For
    End If

و یا Exit function

[dreamvbfox]

سلام
نکته خوبیه .
ولی این به تنهایی خواسته شما رو انجام نمیده
اگه با سی بود با Return کردن تابع تموم میشه ولی در بیسیک تا رسیدن به End function تابع تموم نشده و حلقه ادامه داره
و یا Exit function

سلام حامد جان
ويبي ديگه يادم رفته !!

ممنون