Timer für langsamen Textaufbau ???

  • VB.NET

Es gibt 52 Antworten in diesem Thema. Der letzte Beitrag () ist von zn-gong.

    VB1963 schrieb:

    Der Timer tickt jede Sekunde aber du willst erst nach 3, 5, 7 und 9 Sekunden etwas tun. Daher ein Counter, den du je Tick um 1 erhöhst und dir somit den Stand der verstrichenen Zeit merktst und abfrägst...


    Das ist mir soweit noch klar.

    Mein Problem ist nur, wenn ich diesen Text in Visual Basic übernehme bekomme ich immer eine Fehlermeldung.

    Counter wurde nicht deklariert.....

    Was mache ich falsch ?

    keyman schrieb:

    Was mache ich falsch ?
    Du ignorierst Fragen:

    RodFromGermany schrieb:

    Was ganz genau ist

    keyman schrieb:

    VB.NET-Quellcode

    1. Timer1
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wenn es zum Beispiel ein fester satz ist dann kannst du eine Schleife verwenden

    VB.NET-Quellcode

    1. For i as Integer = 1 to 10
    2. If i = 1 then TextBox1.Text = "Hallo"
    3. If i = 3 then TextBox1.Text = "Hallo Ich"
    4. ODER
    5. If i = 3 then TextBox.Text += " Ich"
    6. Thread.Sleep(ZEIT)
    7. Next


    Wenn du keinen festen Text hast dann splitte den String in eine Liste
    zum Beispiel List(Of String)

    Dann machst du die Schleife So

    VB.NET-Quellcode

    1. For i as integer = 0 to Liste.items.count -1
    2. Textbox1.text += " " + Liste(i)
    3. Thread.Sleep(ZEIT)
    4. Next


    Das war jetzt frei aus dem Kopf

    @popopirat97
    Funktioniert, nur ist das eher suboptimal. Die Idee mit dem Timer ist schon so richtig, da so der UI-Thread durch das Sleep eingefroren wird.
    »There's no need to "teach" atheism. It's the natural result of education without indoctrination.« — Ricky Gervais

    keyman schrieb:

    Timer1 ist der Timer den ich nutze.
    Wieso ?
    weil diese Aussage nicht zu diesem Code hier passt:

    keyman schrieb:

    VB.NET-Quellcode

    1. if Timer1=3 then Me.Label1.Text = text(0)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Funktioniert, nur ist das eher suboptimal. Die Idee mit dem Timer ist schon so richtig, da so der UI-Thread durch das Sleep eingefroren wird.


    Stimmt auffällig, kommt natürlich drauf an ob während so einer Grafik überhaupt eingaben im User Interface erforderlich sind :)
    LG

    Hier mal mein Code.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim Counter1 As Integer
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Timer1.Start()
    8. End Sub
    10. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    11. If Counter1 = 2 Then Me.Label1.Text = Text(0)
    12. If counter1 = 5 Then Me.Label1.Text = Text(1)
    13. If counter1 = 7 Then Me.Label1.Text = Text(2)
    14. If counter1 = 9 Then Me.Label1.Text = Text(3)
    15. If counter1 <> 9 Then
    16. counter1 += 1
    17. Else
    18. Timer1.Stop()
    19. counter1 = 0
    21. End If
    22. End Sub
    23. End Class


    Es funktioniert soweit jetzt auch.

    Was noch gut wäre, wenn er den Text geschrieben hat, soll da Label wieder auf null sein.
    So wie es jetzt eingestellt ist, bleibt das letzte Wort immer stehen.

    Vielen Dank an alle.

    Und was noch gut wäre, wenn er den Text geschrieben hat, soll da Label wieder auf null sein.
    ...in Zeile 20 schreibst du einfach Me.Label1.Text = ""
    Nur wo kann ich den Text ändern ?
    der Text steht doch in folgendem Array - das musst du doch vorher definiert haben...
    Dim text As String() = new String() {"hallo", "ich", "bin", "da"}

    @TE: ja, gut

    nun brauchst du noch ein String-Array, wo dein Text auch drin steht.

    Weil einfach Text(0), Text(1) etc. auszugeben - vermutlich weißt du garnet, wo diese Texte herkommen.

    Also mach ein eigenes Text-Array - mehr noch nicht.

    poste dann den Code nochmal, dann kann man das funktionsfähig machen.

    VB1963 schrieb:

    der Text steht doch in folgender Liste<br>Dim text As String() = new String() {"hallo", "ich", "bin", "da"}
    naja - bei ihm ja grad noch nicht.

    So hier mal der neue Code

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim Counter1 As Integer
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Timer1.Start()
    8. End Sub
    10. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    11. Dim Text As String() = New String() {"hallo", "ich", "bin", "da"}
    12. If Counter1 = 2 Then Me.Label1.Text = Text(0)
    13. If Counter1 = 5 Then Me.Label1.Text = Text(1)
    14. If Counter1 = 6 Then Me.Label1.Text = Text(2)
    15. If Counter1 = 7 Then Me.Label1.Text = Text(3)
    16. If Counter1 <> 9 Then
    17. Counter1 += 1
    19. Else
    21. Timer1.Stop()
    22. Counter1 = 0
    24. Me.Label1.Text = ""
    26. End If
    27. End Sub
    28. End Class



    Was ich noch getestet habe war so.

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim Counter1 As Integer
    5. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    6. Timer1.Start()
    8. End Sub
    10. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    11. If Counter1 = 2 Then Me.Label1.Text = "hallo"
    12. If Counter1 = 5 Then Me.Label1.Text = "ich"
    13. If Counter1 = 6 Then Me.Label1.Text = "bin"
    14. If Counter1 = 7 Then Me.Label1.Text = "da"
    15. If Counter1 <> 9 Then
    16. Counter1 += 1
    18. Else
    20. Timer1.Stop()
    21. Counter1 = 0
    23. Me.Label1.Text = ""
    25. End If
    26. End Sub
    27. End Class



    Diese Version funktioniert genau so.
    Nur ist mein Weg der Falsche ?
    Oder könnte ich auch beide Wege gehen ?

    Bzw wo genau liegt der Unterschied?

    Vielen Dank

    keyman schrieb:

    Diese Version funktioniert genau so.
    Was heißt "genau so"?
    genau so richtig, oder genau so falsch?

    Also wenns das tut, was du willst, dann ist ja gut, und dann kann man nicht wirklich sagen "eines der beiden ist Falsch".

    (Allenfalls kann man noch von falsch sprechen, wenn die eine Lösung klar besser ist. Weil dann gibts keinen Grund, die annere zu nehmen - die wäre also falsch.)

Facebook
Telefonspende