Tyc0rc
08.10.2008, 22:50
Hmm folgener code scheint nicht sauber zu laufen.
beim start der anwendung blebt das programm hängen.
es handelt sich um einen simplen PW generator
Timer1 :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim a As Integer
Dim b As String
Static x As Integer
"Der Fehler muss irgendwo hier sein
x = x + 1
Do Until x = 4
a = Int((Rnd() * 1) * 27)
If a = 1 Then b = "a"
If a = 2 Then b = "b"
If a = 3 Then b = "c"
If a = 4 Then b = "d"
If a = 5 Then b = "e"
If a = 6 Then b = "f"
If a = 7 Then b = "g"
If a = 8 Then b = "h"
If a = 9 Then b = "i"
If a = 10 Then b = "j"
If a = 11 Then b = "k"
If a = 12 Then b = "l"
If a = 13 Then b = "m"
If a = 14 Then b = "n"
If a = 15 Then b = "o"
If a = 16 Then b = "p"
If a = 17 Then b = "q"
If a = 18 Then b = "r"
If a = 19 Then b = "s"
If a = 21 Then b = "t"
If a = 22 Then b = "u"
If a = 23 Then b = "v"
If a = 24 Then b = "w"
If a = 25 Then b = "x"
If a = 26 Then b = "y"
If a = 27 Then b = "z"
Loop
TextBox1.Text = TextBox1.Text + b
End Sub
hmm kann einer das prob erkennen? :S
beim start der anwendung blebt das programm hängen.
es handelt sich um einen simplen PW generator
Timer1 :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim a As Integer
Dim b As String
Static x As Integer
"Der Fehler muss irgendwo hier sein
x = x + 1
Do Until x = 4
a = Int((Rnd() * 1) * 27)
If a = 1 Then b = "a"
If a = 2 Then b = "b"
If a = 3 Then b = "c"
If a = 4 Then b = "d"
If a = 5 Then b = "e"
If a = 6 Then b = "f"
If a = 7 Then b = "g"
If a = 8 Then b = "h"
If a = 9 Then b = "i"
If a = 10 Then b = "j"
If a = 11 Then b = "k"
If a = 12 Then b = "l"
If a = 13 Then b = "m"
If a = 14 Then b = "n"
If a = 15 Then b = "o"
If a = 16 Then b = "p"
If a = 17 Then b = "q"
If a = 18 Then b = "r"
If a = 19 Then b = "s"
If a = 21 Then b = "t"
If a = 22 Then b = "u"
If a = 23 Then b = "v"
If a = 24 Then b = "w"
If a = 25 Then b = "x"
If a = 26 Then b = "y"
If a = 27 Then b = "z"
Loop
TextBox1.Text = TextBox1.Text + b
End Sub
hmm kann einer das prob erkennen? :S