گرفتن رندم بین 2 عدد

[arsalansalar]

با سلام
چه جوری می شود بین 2 عدد یک رندم گرفت؟
یعنی عددی رندم بین 1000 و 1500؟

[anooshiran]

سلام دوست عزيز




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