arsalansalar
شنبه 19 اردیبهشت 1388, 13:49 عصر
با سلام
چه جوری می شود بین 2 عدد یک رندم گرفت؟
یعنی عددی رندم بین 1000 و 1500؟
anooshiran
شنبه 19 اردیبهشت 1388, 17:57 عصر
سلام دوست عزيز
Public Function RandomNumber(ByVal minNumber As Integer, ByVal maxNumber As Integer) As Integer
Dim rdNr As New Random(System.DateTime.Now.Millisecond)
If minNumber > maxNumber Then
Dim minNr As Integer = minNumber
minNumber = maxNumber
maxNumber = minNr
End If
Return rdNr.Next(minNumber, maxNumber)
End Function
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.