سورس یک برنامه برای ساخت اعداد تصادفی 9 رقمی

[amini699]

یک سورس میخوام که اعداد تصادفی 9 رقمی درست کنه وانا رو چک کنه که تکراری نباشه و در یک تکس ذخیره کنه و اگه هم کسی سورس نداره کمکم کنه ممنون میشم:متفکر:

[__siavash__]

ببین این به دردت میخوره !
البته این دو رقمی تولید میکنه شاید با دستکاری بتونی 9 رقمی کنیش

[amini699]

ممنون سیاوش عزیز خوب بود ولی چطوری در یک فایل تکس ذخیره کنم

[RezaKia]

سلام،
این کد تغییر یافته یا به اصطلاح تصحیح شده کدی که siavash فرستاده بود.:بامزه:
امیدوارم بدرد بخوره



Public Sub MakeRandomNumber(ByVal intCount As Integer, ByRef alngRandomNumbers() As Long)
Dim intRandCounter, intArrayCounter As Integer
Dim lngRandomNumber As Long

ReDim alngRandomNumbers(intCount)

Randomize(Timer)

For intRandCounter = 1 To intCount
Do
lngRandomNumber = CLng(Rnd() * 999999999)

For intArrayCounter = 1 To intRandCounter
If alngRandomNumbers(intArrayCounter) = lngRandomNumber Then
Exit For
End If
Next intArrayCounter
Loop While intArrayCounter < intRandCounter

alngRandomNumbers(intRandCounter) = lngRandomNumber
Next intRandCounter
End Sub

[__siavash__]

دقیقا نمیدونم میخوای چه کار کنی
اما شاید منظورت این باشه


WinDir = Environ("Windir")

Open (WinDir & "\" & "Random.txt") For Output As #1
Print #1, randomNumber
Close #1