Visual Basic 2008 Help Needed

[Never_Forget]

So I'm trying to make a password generator, but it's not letting me set a b c d ect as a string. Heres the code I try::


Dim TextSelect As Integer
TextSelect = Int(Rnd() * 26)
Dim Letter As String
Select Case TextSelect
Case 1 = Letter = "a"
Case 2 = Letter = "b"
Case 3 = Letter = "c"
Case 4 = Letter = "d"
Case 5 = Letter = "e"
Case 6 = Letter = "f"
Case 7 = Letter = "g"
Case 8 = Letter = "h"
Case 9 = Letter = "i"
Case 10 = Letter = "j"
Case 11 = Letter = "k"
Case 12 = Letter = "l"
Case 13 = Letter = "m"
Case 14 = Letter = "n"
Case 15 = Letter = "o"
Case 16 = Letter = "p"
Case 17 = Letter = "q"
Case 18 = Letter = "r"
Case 19 = Letter = "s"
Case 20 = Letter = "t"
Case 21 = Letter = "u"
Case 22 = Letter = "v"
Case 23 = Letter = "w"
Case 24 = Letter = "x"
Case 25 = Letter = "y"
Case 26 = Letter = "z"
End Select


Only problem is, it gives me a runtime error saying "A" cannot be converted to Boolean. If i try char it says the operator = is not needed, but that screws up the select command. How do i set a string as a single letter?

[Falk 'Ace' Flyer]

I don't really know Basic, but it seems like Select Case only supports booleans or something; I know in most other languages, case <x> is followed by a colon ( : ) not an equals sign ( = ).

[Never_Forget]

Oh thanks : ) It worked.
Finally!
Thank you SO MUCH!

[Falk 'Ace' Flyer]

Wow, I really am a super-genius...

Of course, now we all know how your generator works ;)

[Never_Forget]

Oh, I gave up, it was awful, lol.
But I might make a new, better one, which instead of doing like, o266o62 it'll go through doing random letters and numbers until its a specified length, I suppose the code would go a lot like i already had.

[Never_Forget]

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
Timer1.Start()




End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If TextBox1.TextLength.ToString = TextBox2.Text Then
Timer1.Stop()
End If

Dim TextSelect As Integer
TextSelect = Int(Rnd() * (9 - 0) + 1)
Dim Letter As String
Select Case TextSelect
Case 1 : Letter = "a"
Case 2 : Letter = "b"
Case 3 : Letter = "c"
Case 4 : Letter = "d"
Case 5 : Letter = "e"
Case 6 : Letter = "f"
Case 7 : Letter = "g"
Case 8 : Letter = "h"
Case 9 : Letter = "i"
Case 10 : Letter = "j"
Case 11 : Letter = "k"
Case 12 : Letter = "l"
Case 13 : Letter = "m"
Case 14 : Letter = "n"
Case 15 : Letter = "o"
Case 16 : Letter = "p"
Case 17 : Letter = "q"
Case 18 : Letter = "r"
Case 19 : Letter = "s"
Case 20 : Letter = "t"
Case 21 : Letter = "u"
Case 22 : Letter = "v"
Case 23 : Letter = "w"
Case 24 : Letter = "x"
Case 25 : Letter = "y"
Case 26 : Letter = "z"
End Select
Dim Number As Integer
Number = Int(Rnd() * 10)
Dim numberr As String
Select Case Number
Case 1 : numberr = 0
Case 2 : numberr = 1
Case 3 : numberr = 2
Case 4 : numberr = 3
Case 5 : numberr = 4
Case 6 : numberr = 5
Case 7 : numberr = 6
Case 8 : numberr = 7
Case 9 : numberr = 8
Case 10 : numberr = 9
End Select
Dim Which As Integer
Which = Int(Rnd() * (1 + 2))
Select Case Which
Case 1 : TextBox1.Text = TextBox1.Text & numberr
Case 2 : TextBox1.Text = TextBox1.Text & Letter
End Select
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.ShowDialog()
System.IO.File.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text)
End Sub
End Class

You lose, VB.NET!
I win : )

[Falk 'Ace' Flyer]

Ell Oh Ell?

[Skhorpion]

Or you can learn C?

[Kiros]

Well I don't think he was asking what language he should learn. :|