Random Problem | Visual Basic Verfasst am: 03.12.2010, 22:02
Code:
Public Class Form1
Dim Zahlen As String = "1234567890"
Dim z As New Random
Dim Buchstaben As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890"
Dim l As New Random
Dim Buchstabennur As String = "-nopqrstuvwxABCDEFGHIJKefghijklmyzLMNOPQRSTUVWXYZabcd"
Dim r As New Random
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = ""
For i As Integer = 1 To NumericUpDown1.Value
erstellenz()
Next
TextBox2.Text = ""
For i As Integer = 1 To NumericUpDown1.Value
erstellen()
Next
TextBox1.Text = ""
For i As Integer = 1 To NumericUpDown1.Value
generieren()
Next
End Sub
Private Sub generieren()
Try
TextBox1.Text += Buchstaben.Substring(l.Next(1, 60), 1)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub erstellen()
Try
TextBox2.Text += Buchstabennur.Substring(r.Next(1, 61), 1)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub erstellenz()
Try
TextBox3.Text += Zahlen.Substring(z.Next(1, 62), 1)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Das Sollte eigentlich ein Random Code ausgeben.
Der je nach dem wie "NumericUpDown1.Value" eingestellt ist
viele Stellen hat. Funktioniert auch eigentlich , nur gibt er immer
Zitat:
startIndex darf nicht länger als die Länge der Zeichenfolge sein.
Parametername: startIndex
Ich bin noch ein total anfänger und weiß nicht was ich
daran ändern muss , damit es geht.
Registrieren
Login
