Generate limited(min.max) random Number in Visual Basic
- Visual Basic
Public Function get_random(ByVal max As Long, ByVal min As Long) As Long
Randomize Timer
get_random = Int(((max + 1) * Rnd) + (min + 1)) - 1
End Function - Visual Basic .net
Public Function get_random_min_max(ByVal min As Int16, ByVal max As Int16) As Int16
Try
Dim rnd As Random = New Random
Return rnd.Next( min , max )
Catch ex As Exception
MessageBox.Show(ex.Message, "GenerateRndNumber")
End Try
End Function
Comments
Write the first comment
Leave a trace
Post being viewed right now
