[VB.NET] Zahlen aufzählen?

[SuperOwnBash]

hallo,
habe folgendes problem, da ich schon lange nichts mehr mit Visual Basic gemacht habe und nun an ein neues Projekt dran bin.

Mein problem ist das ich keinen stabil laufenden Code hinkriege der folgendes machen soll:

Zahlen von 0 bis 999999 aufzählen, wichtig hierbei ist das meine GUI mir nicht einfriert und das ich das jederzeit stoppen/pausieren kann:

z.b:

die Ganzen zahlen sollen in einer Richtextbox geschrieben werden..
start:
0
1
2
3
4
5
6
7
8
9
10
11
12
13
.
.
.
12342
12343
12344
.
.
.
.
999999
Stop

hat da jemand denkanstöße wie ich das realisieren könnte, egal ob mit Timer, Backgroundworker oder auch do-Loop :P

Danke im vorraus

[tolio]

a) doevents dazwischen hauen (einfach/schnell)
b) in nen thread packen (paar mehr zeilen code)

[MrSm!th]

#moved

[NiGHT~]

muss das wirklich untereinander sein oder kann das in der gleichen Zeile passieren..?

im Prinzip machste dir nen Timer und schreibst das rein

RichTextBox1.Text = CStr(CInt(RichTextBox1.Text) + 1)

in der RichTextBox muss aber ne 0 stehen sonst gibsn Error, den Timer lässt du dann per Button oder so starten (Timer1.Start) und er zählt es dir hoch..

zum Pausieren hab ich den Timer einfach wieder gestoppt (Timer1.Stop) via 2ten Button
und wennde weiterzählen willst einfach wieder den 1sten Button um den Timer1 zu starten

und wegem dem stoppen bei bestimmten Zahlen

das einfach mit in den Timer1 geschrieben an erste Stelle

If RichTextBox1.Text = "" & TextBox1.Text Then Timer1.Stop()

und natürlich noch eine Textbox erstellen, beliebige Zahl in die Textbox rein am besten immer -1 also du willst auf 500 zählen gibste 499 ein bei mir hat er immernoch +1 Zahl gerechnet kann auch am Timer Interval liegen denk mal wenn der Interval net so schnell ist, dass er dann genau stoppt musste halt ausprobieren

am Ende sollte der Timer Tick so aussehen

If RichTextBox1.Text = "" & TextBox1.Text Then Timer1.Stop()
RichTextBox1.Text = CStr(CInt(RichTextBox1.Text) + 1)

der rest mit den Buttons erklärt sich ja von selbst...

hoffe du kannst damit was anfangen

das ganze ist etwas/ziemlich durcheinander o_o sorry dafür hoffe ich konnts dir wenigstens etwas erklären

[adistoe]

Timer starten stoppen per button, Timer macht folgendes:

Dim zahl as Integer = 0

RichTextBox1.Text = RichtextBox1.Text & vbCrLf & zahl +1


Müsste eig. klappen

[SuperOwnBash]

danke, ihr habt alle recht mit euren codes bzw. konzepten
was ich vorhabe ist ein Wordlist-generator und wie man sich gut vorstellen kann generiert es *** zahlenkombination die sehr lang sind.

problem ist das es 1. *** stunden dauert
2. den Computer sehr fordert bzw. arbeitsleistung

ich will das er 16-stellige zahlenkombinationen von 0 bis 10.000.000 durchgeht
mein problem hat sich leider noch nicht erledigt

[Sedrika]

PHP Code:

Dim Count As Integer = 0

Do While Count < 999999
RichTextBox1.Text &= Count.ToString() & vbNewLine
Count += 1
Application.DoEvents()
Loop 


[SuperOwnBash]

Originally Posted by Sedrika

PHP Code:

Dim Count As Integer = 0

Do While Count < 999999
RichTextBox1.Text &= Count.ToString() & vbNewLine
Count += 1
Application.DoEvents()
Loop 


Danke

[qkuh]

Bitte DoEvents vermeiden. (Mit Hilfe von Threads z.B.)
Wieso? Google ist dein Freund. DoEvents kann für unnötige Probleme sorgen.

[SuperOwnBash]

hier habe ich vor 4 tagen dieses Tool von einem forum runtergeladen, da hatte jemand das selbe problem:

HINWEIS: DAS TOOL STAMMT NICHT VON MIR!



Was sehr schön ist, ist das es innerhalb kürzester zeit Zahlenkombinationen. Allerdings schreibt er nicht nach der reihenfolge und wahrscheinlich auch nach der Random-Methode. Sowas will ich auch coden

Wahrscheinlich ein Java-Tool, weil es auch auf meinen Ubuntu-System lief

[nkkk]

du solltest noch ganauer beschrieben was du eig. willst besonders wie (worauf) du die zahlenkombinationen testest.

und die meisten Leute werden sich auch nicht iwelche programme runterladen selbst wenn sie mit virustotal getestet sind. deshalb solltest du auch das progrmm beschreiben, bzw den originallink aus dem ander forum geben.

[qkuh]

Originally Posted by SuperOwnBash

hier habe ich vor 4 tagen dieses Tool von einem forum runtergeladen, da hatte jemand das selbe problem:

HINWEIS: DAS TOOL STAMMT NICHT VON MIR!



Was sehr schön ist, ist das es innerhalb kürzester zeit Zahlenkombinationen. Allerdings schreibt er nicht nach der reihenfolge und wahrscheinlich auch nach der Random-Methode. Sowas will ich auch coden

Wahrscheinlich ein Java-Tool, weil es auch auf meinen Ubuntu-System lief

Das Programm ist in Delphi geschrieben.

Hab dir mal eben eine VB.Net Version geschrieben (Mit Start-/Stopfunktion)

Imports System.Threading

Public Class Form1
    ReadOnly iFrom As Integer = 0
    ReadOnly iTo As Integer = 2000
    Private thCounter As Thread

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Button1.Text = "Start" Then
            Button1.Text = "Stop"

            RichTextBox1.Clear()
            thCounter = New Thread(AddressOf Counter)
            thCounter.Start()
        Else
            Button1.Text = "Start"

            thCounter.Abort()
        End If
    End Sub

    Private Sub Counter()
        For i As Integer = iFrom To iTo
            RichTextBox1.Invoke(New Action(Of String)(AddressOf AddText), i.ToString())
        Next

        Button1.Invoke(New Action(Of String)(AddressOf ChangeButtonText), "Start")
    End Sub

    Private Sub AddText(ByVal text As String)
        RichTextBox1.Text += text + Environment.NewLine
    End Sub

    Private Sub ChangeButtonText(ByVal text As String)
        Button1.Text = text
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        If thCounter IsNot Nothing Then
            If thCounter.IsAlive Then
                thCounter.Abort()
            End If
        End If
    End Sub
End Class