Home > DeveloperSection > Forums > How to generate random numbers in VB.NET?
Anurag Sharma
Anurag Sharma

Total Post:19

Points:133
Posted on    October-20-2010 7:49 AM

 VB.Net VB.Net 
Ratings:


 2 Reply(s)
 4120  View(s)
Rate this:
Hello everyone,
I am very new in VB.NET and I have a small task to generate random numbers in VB.NET.

Please provide me sample of code.

Thanks


Uttam Misra

Total Post:111

Points:777
Posted on    October-20-2010 8:01 AM

Check this

http://msdn.microsoft.com/en-us/library/system.random.aspx

Dim n as Integer
dim sm as Integer
 
Redim cntArray(High-Low)
For x as Integer = 0 to Iter
 n =rand.Next(Low,High)
 sm += 1
 cntArray(n-Low) +=1
Next
 
Dim st1 as string
 
For x As Integer = 0 to cntArray.Length - 1
 st1 = (x +Low).ToString 'The number.
 st1 &="  " & cntArray(x).ToString'The count of that number.
 st1 &="  " & (100 * cntArray(x) /sm).ToString 'The percent of that number
 <your listboxhere>.Items.Add(st1)
Next


manigovi manigovinth
manigovi manigovinth

Total Post:3

Points:21
Posted on    August-10-2011 2:20 AM

Hi...i provides sample vb.net codes here...

The following code returns a random number:

Dim num As Integer = random.Next()

The following code returns a random number less than 1000.

Dim num As Integer = random.Next(1000)

The following code returns a random number between min and max:

Private Function RandomNumber(min As Integer, max As Integer) As Integer
   Dim random As New Random()
   Return random.Next(min, max)
End Function 'RandomNumber

At some point, you may also want to generate random strings. I have created a method, which takes first parameter as the size of string and second parameter if you want the string to be lowercase.

'/ '/ Generates a random string with the given length
'/ '/ Size of the string '/ If true, generate lowercase string
'/ Random string
Private Function RandomString(size As Integer, lowerCase As Boolean) As String
   Dim builder As New StringBuilder()
   Dim random As New Random()
   Dim ch As Char
   Dim i As Integer
   For i = 0 To size - 1
      ch = Convert.ToChar(Convert.ToInt32((26 * random.NextDouble() + 65)))
      builder.Append(ch)
   Next
   i
If lowerCase Then
      Return builder.ToString().ToLower()
   End If
   Return builder.ToString()
End Function 'RandomString

You can even combine the two methods-RandomNumber and RandomString to generate a combination of random string and numbers. For example, the following code generates a password of length 10 with first 4 letters lowercase, next 4 letters numbers, and last 2 letters as uppercase.

Public Function GetPassword() As String
   Dim builder As New StringBuilder()
   builder.Append(RandomString(4,
True))
   builder.Append(RandomInt(1000, 9999))
   builder.Append(RandomString(2,
False))
   Return builder.ToString()
End Function 'GetPassword



--------------------------------------------------------

Cegonsoft
















Recent Activities

Kamlakar Singh added new Article Working with Web-SQL Database & HTML5   11 hours ago

Kamlakar Singh added new Blog Online and Offline Events in HTML5   11 hours ago


Sumit Kesarwani added new Question What is the serialization?   6 days ago

Don't want to miss updates? Please click the below button!