07-17-2010, 06:11 AM
Hi
This Morning i was Bored and i wanted to make a Random Numbers and Letters For FUN and Simplicity. Yes i Already Make Some others Functions Generate Random Numbers and Letters But there was all the Time Big ass Functions and Not Simple. Its Takes me around 20 MINs (Its not a lie Like some People doing all the Time)BTW There is it Enjoy
FUNCTION:
USE IT:
This Morning i was Bored and i wanted to make a Random Numbers and Letters For FUN and Simplicity. Yes i Already Make Some others Functions Generate Random Numbers and Letters But there was all the Time Big ass Functions and Not Simple. Its Takes me around 20 MINs (Its not a lie Like some People doing all the Time)BTW There is it Enjoy
FUNCTION:
Code:
'Note: The Stuff = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" You Can put Whatever crap in it like Symbols or whatever you want.
Public Function Gennn(ByVal length As Integer)
Dim charz() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
Dim RAN As New Random
Dim STR As String = Nothing
For INT As Integer = 1 To length
STR += charz.ElementAt(RAN.Next(charz.Length))
Next
TextBox3.Text = STR
Return STR
End Function
End ClassUSE IT:
Code:
'Note: The "(16)" is the Length of the Generated Strings.
Gennn(16)
