تولید اعداد تصادفی ار 1 تا 10

[noogool]

سلام خدمت دوستان. می خواستم یه برنامه بنویسم که یه تکست باکس دارم و یه دکمه. با زدن دکمه توی تکست باکسم اعداد از یک تا ده به صورت رندم و بدون تکرار بیاد. اگه ممکنه کمکم کنین. خیلی حیاتیه.

[samispeed]

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



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = RandomNumber(10, 1)
End Sub


و تابع مورد نظر



Public Function RandomNumber(ByVal MaxN As Integer, _
ByVal MinN As Integer) As Integer

Dim r As New Random(System.DateTime.Now.Millisecond)


If MinN > MaxN Then
Dim t As Integer = MinN
MinN = MaxN
MaxN = t
End If

Return r.Next(MinN, MaxN)

End Function