Hey! I'm very very very new to programming and I got the idea to make a random 4 letter generator.
It's very basic, but the code is tedious. It works, but I'd like to know if there is a shorter way to achieve this.
Here's my code:
All suggestions/tips/complaints are welcome!
Thanks a lot!
Stroop.
It's very basic, but the code is tedious. It works, but I'd like to know if there is a shorter way to achieve this.
Here's my code:
Code:
Label1.Text = ""
Randomize()
getal = CInt(Int((26 * Rnd()) + 1))
If getal = 1 Then Label1.Text = Label1.Text + "a"
If getal = 2 Then Label1.Text = Label1.Text + "b"
If getal = 3 Then Label1.Text = Label1.Text + "c"
If getal = 4 Then Label1.Text = Label1.Text + "d"
If getal = 5 Then Label1.Text = Label1.Text + "e"
If getal = 6 Then Label1.Text = Label1.Text + "f"
If getal = 7 Then Label1.Text = Label1.Text + "g"
If getal = 8 Then Label1.Text = Label1.Text + "h"
If getal = 9 Then Label1.Text = Label1.Text + "i"
If getal = 10 Then Label1.Text = Label1.Text + "j"
If getal = 11 Then Label1.Text = Label1.Text + "k"
If getal = 12 Then Label1.Text = Label1.Text + "l"
If getal = 13 Then Label1.Text = Label1.Text + "m"
If getal = 14 Then Label1.Text = Label1.Text + "n"
If getal = 15 Then Label1.Text = Label1.Text + "o"
If getal = 16 Then Label1.Text = Label1.Text + "p"
If getal = 17 Then Label1.Text = Label1.Text + "q"
If getal = 18 Then Label1.Text = Label1.Text + "r"
If getal = 19 Then Label1.Text = Label1.Text + "s"
If getal = 20 Then Label1.Text = Label1.Text + "t"
If getal = 21 Then Label1.Text = Label1.Text + "u"
If getal = 22 Then Label1.Text = Label1.Text + "v"
If getal = 23 Then Label1.Text = Label1.Text + "w"
If getal = 24 Then Label1.Text = Label1.Text + "x"
If getal = 25 Then Label1.Text = Label1.Text + "y"
If getal = 26 Then Label1.Text = Label1.Text + "z"
getal2 = CInt(Int((26 * Rnd()) + 1))
If getal2 = 1 Then Label1.Text = Label1.Text + "a"
If getal2 = 2 Then Label1.Text = Label1.Text + "b"
If getal2 = 3 Then Label1.Text = Label1.Text + "c"
If getal2 = 4 Then Label1.Text = Label1.Text + "d"
If getal2 = 5 Then Label1.Text = Label1.Text + "e"
If getal2 = 6 Then Label1.Text = Label1.Text + "f"
If getal2 = 7 Then Label1.Text = Label1.Text + "g"
If getal2 = 8 Then Label1.Text = Label1.Text + "h"
If getal2 = 9 Then Label1.Text = Label1.Text + "i"
If getal2 = 10 Then Label1.Text = Label1.Text + "j"
If getal2 = 11 Then Label1.Text = Label1.Text + "k"
If getal2 = 12 Then Label1.Text = Label1.Text + "l"
If getal2 = 13 Then Label1.Text = Label1.Text + "m"
If getal2 = 14 Then Label1.Text = Label1.Text + "n"
If getal2 = 15 Then Label1.Text = Label1.Text + "o"
If getal2 = 16 Then Label1.Text = Label1.Text + "p"
If getal2 = 17 Then Label1.Text = Label1.Text + "q"
If getal2 = 18 Then Label1.Text = Label1.Text + "r"
If getal2 = 19 Then Label1.Text = Label1.Text + "s"
If getal2 = 20 Then Label1.Text = Label1.Text + "t"
If getal2 = 21 Then Label1.Text = Label1.Text + "u"
If getal2 = 22 Then Label1.Text = Label1.Text + "v"
If getal2 = 23 Then Label1.Text = Label1.Text + "w"
If getal2 = 24 Then Label1.Text = Label1.Text + "x"
If getal2 = 25 Then Label1.Text = Label1.Text + "y"
If getal2 = 26 Then Label1.Text = Label1.Text + "z"
getal3 = CInt(Int((26 * Rnd()) + 1))
If getal3 = 1 Then Label1.Text = Label1.Text + "a"
If getal3 = 2 Then Label1.Text = Label1.Text + "b"
If getal3 = 3 Then Label1.Text = Label1.Text + "c"
If getal3 = 4 Then Label1.Text = Label1.Text + "d"
If getal3 = 5 Then Label1.Text = Label1.Text + "e"
If getal3 = 6 Then Label1.Text = Label1.Text + "f"
If getal3 = 7 Then Label1.Text = Label1.Text + "g"
If getal3 = 8 Then Label1.Text = Label1.Text + "h"
If getal3 = 9 Then Label1.Text = Label1.Text + "i"
If getal3 = 10 Then Label1.Text = Label1.Text + "j"
If getal3 = 11 Then Label1.Text = Label1.Text + "k"
If getal3 = 12 Then Label1.Text = Label1.Text + "l"
If getal3 = 13 Then Label1.Text = Label1.Text + "m"
If getal3 = 14 Then Label1.Text = Label1.Text + "n"
If getal3 = 15 Then Label1.Text = Label1.Text + "o"
If getal3 = 16 Then Label1.Text = Label1.Text + "p"
If getal3 = 17 Then Label1.Text = Label1.Text + "q"
If getal3 = 18 Then Label1.Text = Label1.Text + "r"
If getal3 = 19 Then Label1.Text = Label1.Text + "s"
If getal3 = 20 Then Label1.Text = Label1.Text + "t"
If getal3 = 21 Then Label1.Text = Label1.Text + "u"
If getal3 = 22 Then Label1.Text = Label1.Text + "v"
If getal3 = 23 Then Label1.Text = Label1.Text + "w"
If getal3 = 24 Then Label1.Text = Label1.Text + "x"
If getal3 = 25 Then Label1.Text = Label1.Text + "y"
If getal3 = 26 Then Label1.Text = Label1.Text + "z"
getal4 = CInt(Int((26 * Rnd()) + 1))
If getal4 = 1 Then Label1.Text = Label1.Text + "a"
If getal4 = 2 Then Label1.Text = Label1.Text + "b"
If getal4 = 3 Then Label1.Text = Label1.Text + "c"
If getal4 = 4 Then Label1.Text = Label1.Text + "d"
If getal4 = 5 Then Label1.Text = Label1.Text + "e"
If getal4 = 6 Then Label1.Text = Label1.Text + "f"
If getal4 = 7 Then Label1.Text = Label1.Text + "g"
If getal4 = 8 Then Label1.Text = Label1.Text + "h"
If getal4 = 9 Then Label1.Text = Label1.Text + "i"
If getal4 = 10 Then Label1.Text = Label1.Text + "j"
If getal4 = 11 Then Label1.Text = Label1.Text + "k"
If getal4 = 12 Then Label1.Text = Label1.Text + "l"
If getal4 = 13 Then Label1.Text = Label1.Text + "m"
If getal4 = 14 Then Label1.Text = Label1.Text + "n"
If getal4 = 15 Then Label1.Text = Label1.Text + "o"
If getal4 = 16 Then Label1.Text = Label1.Text + "p"
If getal4 = 17 Then Label1.Text = Label1.Text + "q"
If getal4 = 18 Then Label1.Text = Label1.Text + "r"
If getal4 = 19 Then Label1.Text = Label1.Text + "s"
If getal4 = 20 Then Label1.Text = Label1.Text + "t"
If getal4 = 21 Then Label1.Text = Label1.Text + "u"
If getal4 = 22 Then Label1.Text = Label1.Text + "v"
If getal4 = 23 Then Label1.Text = Label1.Text + "w"
If getal4 = 24 Then Label1.Text = Label1.Text + "x"
If getal4 = 25 Then Label1.Text = Label1.Text + "y"
If getal4 = 26 Then Label1.Text = Label1.Text + "z"Thanks a lot!
Stroop.