[Tut] Generating Random Strings (200 Random Results = LIMIT) [Tut]

[Resistance]

Hey guys... Today I am going to show you how to generate random strings. You may call this a Keygen, but an amateur version.

Start off with 2 buttons and a textbox.


Button1 Code [Generate]:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Key As Integer
        Key = Int(Rnd() * 5) 'The number 5 is replaced with the Maximum number of cases you have created.
        Select Key
            Case 0
                TextBox1.Text = "John Ronder"
            Case 1
                TextBox1.Text = "Mary Hudkins"
            Case 2
                TextBox1.Text = "Jessy Gonvolio"
            Case 3
                TextBox1.Text = "Emily Jansen"
            Case 4
                TextBox1.Text = "Josh Federton"
            Case 5
                TextBox1.Text = "Sean Richman"
        End Select
    End Sub

Button2 Code [Copy Text]:

Code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Clipboard.SetText(TextBox1.Text)
        Catch ex As Exception
            MsgBox("Please Generate a name", 16, "Error")
        End Try
    End Sub

Results Should Look like This:


Enjoy and don't forget to say thanks if you liked my tutorial.

[z3r0c00l]

Can you put a code that Adds a Case With a Random Name entered by the user?

[Resistance]

Can you put a code that Adds a Case With a Random Name entered by the user?

Yes definitely, it would be like this:

ButtonX.Click()
TextBox1.Text = My.Settings.*NameOfString*
My.Settings.Save()

To allow custom values with My.Settings and if you would want a in depth tutorial on that stuff, go to my tutorial on My.Settings."WhateverString", CLICK HERE

Then you could make the program have a code like this:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Key As Integer
        Key = Int(Rnd() * 5) 'The number 5 is replaced with the Maximum number of cases you have created.
        Select Key
            Case 0
                TextBox1.Text = My.Settings.*NameOfString0*
            Case 1
                TextBox1.Text = My.Settings.*NameOfString1*
            Case 2
                TextBox1.Text = My.Settings.*NameOfString2*
            Case 3
                TextBox1.Text = My.Settings.*NameOfString3*
            Case 4
                TextBox1.Text = My.Settings.*NameOfString4*
            Case 5
                TextBox1.Text = My.Settings.*NameOfString5*
        End Select
    End Sub

So basically what this code I have written for you is allowing the user to set a value for a string like you said, then it would find the strings value (what the user typed) at random and generate it into TextBox2, because TextBox1 is already being occupied at the moment.

[KoBE]

Should look at storing first and last names in different arrays.. that way you would have even more possibilities with less code.

[Pyratepig]

Cases aren't the best way to do a generator, but then again since you said amateur version, it does fit the post.

[Anarchy]

keep up the amazing work and i will defently be using this

[prince of persia]

I don't think this is generating random number it is just picking one from the list you gave it.

[Resistance]

I don't think this is generating random number it is just picking one from the list you gave it.

Who's generating random numbers? First of all we're using names as results, and they are called Strings. Smart ass.

---