Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Beschleunigung
Autor: Hans
Datum: 14.08.01 20:00
Kann mir jemand helfen diesen Code hier zu beschleunigen? Dim Wert1 As Long, n As Long, m As Long Static intCounter For m = 1 To 500000 ' Dadurch werden 500000 Kennwörter generiert intCounter = intCounter + 1 ProgressBar1.Value = intCounter ' Aktualisieren der Fortschrittsleiste. For n = 1 To 25 ' Es soll 25 stellig sein Wert1 = Int((36 * Rnd) + 0) Next n If m = zufahlszahl Then For n = 1 To 25 ' Es soll 25 stellig sein Wert1 = Int((36 * Rnd) + 0) ' Zufallszahl im Bereich von 0 bis 36 ' generieren. txtkennwörter.Text = txtkennwörter.Text & lstbuchstaben.List(Wert1) ' Der Zufahlszahl ist ein Zeichen zugeordnet Next n lstkennwörter.AddItem txtkennwörter.Text txtkennwörter.Text = "" End If Next m

Beschleunigung	101	Hans	14.08.01 20:00
Re: Beschleunigung	69	Tolwyn	15.08.01 14:03

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen