رندوم کردن بدون تکرار

[مجید آرتا 5,870]

سلام

از اونجایی که یکی از دوستان رنودم کردن داده رو بدون اینکه تکرار بشه رو درخواست کرده بودن بنده یکم سرو کله زدم و با استفاده از تجارب دوستان کدشو نوشتیم

ببینید از اونجایی که موقع رندم کردن یک عدد برگشت داده میشه و این عدد رو جایی ذخیره می کنیم و در رندم سازی بعدی میاییم چک می کنیم عدد قبلی چنده و بعد عدد جدید رو به نمایش در میاریم

یکی از دوستان همین عمل رو توی دیتابیس میخوان انجام بدن و یکم مشکله به دلایل محدودیت های خوده بیسیک

بنده همین عملو توی دیتابیس انجام دادم ولی کد جالبی در نیومد باید یکم وقت کذاشته شه تا انجام بشه

واسه بنده که مبتدیم این کار سختیه وگرنه اساتید انجمن حتما راهی رو مد نظر دارند

به امید خدا راه حلی مناسب و بهینه واسه اون دوستی که این مشکلو داشتن پیدا می کنیم

Try
Dim arr() As Int
Dim n As Int : n=29
Dim m As Int : m=30
For i=0 To n
Dim k As Int : k=Rnd(1,m+1)
Do While (arr.Length=k) 
k=Rnd(1,m+1)
Loop
arr=Array As Int(k)
ListView1.AddSingleLine(arr(i))
Next
Catch
Log("")
End Try 

امیدوارم موفق باشیم

[V4hid مهمان]

سلام

خسته نباشی و ممنون

فکر کنم خیلی ساده تر هم میشد اینو نوشت

میتونستی یه لیست تعریف کنی و با یه if ساده رندم بدون تکرار بگیری

موفق باشی

[sepidpor 19]

سلام

به نظرم اگه بشه زمان رو به عنوان یه متغییر دخیل کرد در معادلمون بتونیم همیشه یه رندوم متفاوت بگیریم

[sajjad3011 29]

Mohammad Karami اگه میشه روشتو توضیح بده با یک if ساده چطوری میشه عدد تصادفی بدون تکرار گرفت ؟ اشتباه نمی کنی؟

[sajjad3011 29]

اینم روش من که در VB classic یا همون VB6 استفاده کردم تقدیم دوستان *همینه*:

http://s5.picofile.com/file/8153302468/random_bi_tekrar_vb6.jpg

با کمی فکر می تونید به b4a ببرید*مکار*

[sajjad3011 29]

http://gameover.blog.ir/1394/05/14/%D8%A8%D9%87%D8%AA%D8%B1%DB%8C%D9%86-%D8%A7%D9%84%DA%AF%D9%88%D8%B1%DB%8C%D8%AA%D9%85-%D8%AA%D9%88%D9%84%DB%8C%D8%AF-n-%D8%B9%D8%AF%D8%AF-%D8%AA%D8%B5%D8%A7%D8%AF%D9%81%DB%8C-%D8%A8%D8%AF%D9%88%D9%86-%D8%AA%DA%A9%D8%B1%D8%A7%D8%B1-%D8%AF%D8%B1-%DA%AF%DB%8C%D9%85-%D9%85%DB%8C%DA%A9%D8%B1-vb6-basic4android