اعداد غیرتکراری

[Forutan 28]

سلام دوستان

من میخوام بصورت رندوم بین 1 تا list.Size چندتا عدد غیرتکراری بگیرم، ساده ترین حالتش اینه که گاهی اوقات تکراری میده :

Rnd(1,List.Size)

یه روش و راه حل قطعی واسه این مورد میخوام ممنون میشم راهنمایی کنید

[DexterFstone 396]

سلام و درود

Dim Data as List ' لیستی که مقداری داخل خودش دارد
Dim cData as List

sub example
	If cData.size == 0 Then cData = Data
	Dim r as int = rnd(0,cData.size)
	Dim v as object = cData.get(r)
	cData.removeAt(r)
	return v
	

میایم و مقدارهای کلی که داریم را داخل یک لیست پیشفرض قرار میدیم تا به اطلاعات اصلی آسیب نرسه (شرط if)

بعد برای اینکه راندوم هر یک را بگیریم بدون اینکه تکراری بشن مگر اینکه چرخه یکدور تموم شده باشه (با حذف شرط if میتونین غیر فعالش کنید) یک عددتصادفی دریافت میکنیم و معادل با همون عدد را از لیست گرفته و معادل عدد دریافتی از لیست را حذف میکنیم و در آخر مقدار تصادفی را بازگشت میدیم

[Forutan 28]

10 ساعت قبل، DexterFstone گفته است:

 

سلام ، سپاس از وقتی که گذاشتید

خروجی رو به این صورت میده:

[IsInitialized=false, id=17, status=false]

شاید بد توضیح دادم یکبار دیگه اشاره کنم به این مورد که میخوام عدد رندوم بین 0 و تعداد آیتمهای لیست باشه یعنی بین 0 و list.Size

مثلا اگر لیستمون 12 آیتم داشت عدد رندوم بین 0 تا 12 باشه، اگر لیستمون 74 آیتم داشت عدد رندوم بین 0 تا 74 باشه

نمیخوام مقادیر آیتم رو بگیرم

[DexterFstone 396]

Dim Data as List ' لیستی که مقداری داخل خودش دارد
Dim cData as List

sub RndNum
	If cData.size == 0 Then
        For i = 0 To Data.size
        cData.add(i)
        End loop
	Dim r as int = rnd(0,cData.size)
	Dim v as int = cData.get(r)
	cData.removeAt(r)
	return v