VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Timer1.Start()
- Timer1.Enabled = True
- End Sub
- Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
- Dim zeichenliste As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" 'Groß, Klein, und Zahlen 'For i = 0 To 61
- Dim zeichenlistegroß As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'Groß 'For i = 0 To 25
- Dim zeichenlisteklein As String = "abcdefghijklmnopqrstuvwxyz" 'Klein For i = 0 To 25
- Dim zeichenlistezahlen As String = "0123456789" 'Zahlen For i = 0 To 9
- Dim zufall As New Random
- Dim zufallszeichen As String
- For i = 0 To 25
- zufallszeichen = zufall.Next(0, 25)
- RichTextBox1.Text = RichTextBox1.Text & zeichenlisteklein(zufallszeichen)
- RichTextBox1.AppendText(zufallszeichen)
- Label3.Text = RichTextBox1.TextLength
- Application.DoEvents()
- Next
- If RichTextBox1.Text = Textbox1.Text Then ' Hier steckt der zu Suchende String beispielsweise das Wort "Affe"
- Timer1.Stop()
- End If
- End Sub
- Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- RichTextBox1.Clear()
- End Sub
- End Class
Hi, da ich gerade erst mit dem Programmieren anfange, wollte ich mal fragen wo die Fehler liegen, weil das Programm nicht das macht was es eigentlich soll.
Ich habe beispielsweise alles auskommentiert bis auf zeichenlisteklein, trotzdem werden aber auch zahlen benutzt.
Dann hab ich noch 2 Fragen, 1. Gibt es einen effizienteren, also schnelleren weg diese Zeichenketten zu generieren? Und 2. wie stelle ich es an das eine Bestimmte Zeichenfolge, beispielsweise das wort "affe" gefunden wird, der vorgang gestoppt wird?
Ich denk mir mal das ich schon viele fehler gemacht habe beispielsweise der Timer, dieser dürfte die Geschwindigkeit des Programmes extrem limitieren, ich habe aber keine ahnung wie ich das sonst lösen soll
Ich hoffe ich habe nix vergessen, und würde ich über Hilfe sehr freuen.
Lg Keineahnung1234