Schleife mit Timer steuern

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Kaktus-Stecher.

    Schleife mit Timer steuern

    Hallo Community!

    Habe mal wieder eine Frage, weil ich mal wieder nicht weiter weiß :)
    Ich versuche grad den Timer zu lernen.

    Und zwar habe ich in meiner Form 3 Richboxtext-Elemente und ein Button. Mit dem Button kann ich eine angelegte Liste in Richboxtext1 laden. Dabei sieht der Inhalt der Liste so aus "Wort1:Wort2" , "Wort3:Wort4". Split etc. habe ich auch gelernt und kann das auch recht gut anwenden. Daher wird gesplittet und Wort1 und Wort3 in Richboxtext2 geladen und Wort2 und Wort4 in Richboxtext3.
    Nun möchte ich noch den Timer verwenden. Und zwar soll jede Zeile nach einem bestimmten Intervall eingetragen werden.

    Habe eine globale Zählvariable "i". Habe die If-, While- und die For-Schleife versucht. Habe dann beim Timer-Event "i +=1" benutzt, um die Zählvariable um 1 zu erhöhen, nur klappt das leider irgendwie nicht :(

    Hat jemand eine Idee für mich? :)

    Klaro.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Public username As String
    3. Public password As String
    4. Public i As Integer = 0
    5. Public Sub DatenHolen()
    6. Try
    8. Dim openfile As New OpenFileDialog
    9. openfile.Filter = "(*.txt)|*.txt"
    10. If openfile.ShowDialog = System.Windows.Forms.DialogResult.OK Then
    11. Dim openstring As String() = IO.File.ReadAllLines(openfile.FileName)
    12. Dim anzahl As Integer = openstring.Count()
    13. '___________________________________________
    14. 'For i = 0 To anzahl - 1
    15. While i <> anzahl - 1
    16. Dim username_zeile As String = openstring(i)
    17. Dim passwort_zeile As String = openstring(i)
    18. Dim v As Object = Split(username_zeile, ":")
    19. username = v(0)
    20. Dim t As Object = Split(passwort_zeile, ":")
    21. password = t(1)
    22. RichTextBox2.Text &= username & vbCrLf
    23. RichTextBox3.Text &= password & vbCrLf
    24. 'i +=1
    25. End While
    26. 'Next
    28. '___________________________________________
    29. RichTextBox1.Text = ""
    30. For Each line As String In openstring
    31. RichTextBox1.Text &= line & vbCrLf
    32. Next
    34. End If
    35. Catch
    36. MessageBox.Show("FEHLER")
    37. End Try
    40. End Sub
    42. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    43. DatenHolen()
    44. Timer1.Start()
    45. End Sub
    47. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    48. i += 1
    49. End Sub
    50. End Class



    Das ist bisher alles, was ich habe.

    was soll das für einen Sinn ergeben, mit dem Timer?

    Er glaubt, DatenHolen würde in der Schleife so vor sich hinmachen, irgendwann würde der Timer gestartet und wenn der Timer dann i erhöht geht es weiter. Und wenn er zuerst den Timer starten und dann DatenHolen aufrufen würde, könnte es sogar theoretisch klappen.

    @Kaktus-Stecher (tut das nicht weh?):
    Zieh in Daten holen nur die Sachen in RichTextbox1 und starte den Timer. In den Timer kommt dann die Programmlogik für das Aufsplitten und in die restlichen Boxen packen, sowie das Hochzählen von i. Natürlich musst Du passend zum i dann auch die richtige Box mit dem richtigen Inhalt füllen.

    Aber hey: I lol'd. Und das auf einen Freitag. Gut gemacht :)
    Ansonsten aber noch einmal das Prinzip der Nebenläufigkeit durchgehen und vor allen Dingen was passiert, wenn man eben keine Nebenläufigkeit hat.

    Gruß FatFire

    @jvbsl: der timer steuert doch die intervalle oder net, und wenn ich jede Sekunde eine Zeile einlesen will, muss ich die doch wohl benutzen.

    @FatFire: freut mich, dass du an einem Freitag, den 13., über einen Anfänger lol'en konntest :)
    Bin halt kein Pro und habe bewusst hingeschrieben, dass ich um Hilfe bete. Ich würd ja wohl nicht um Hilfe bitten, wenn ichs könnte ;)
    Und so wie du es geschrieben hast, in den Timer die Programmlogik habe ich auch versucht, aber ich habe es nicht hinbekommen.
    Ich werde es jetzt noch einmal versuchen

    Okay, ich hatte mal ein wenig Langeweile, ich denke, es tut das, was Du wolltest:

    VB.NET-Quellcode

    1. Dim ActiveLine As Integer
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. Dim openfile As New OpenFileDialog
    5. openfile.Filter = "(*.txt)|*.txt"
    6. If openfile.ShowDialog = System.Windows.Forms.DialogResult.OK Then
    7. RichTextBox1.Lines = IO.File.ReadAllLines("D:\test.txt")
    8. ' Vorbereitungen zum Auseinanderschnippeln
    9. ActiveLine = 0
    10. RichTextBox2.Clear()
    11. RichTextBox3.Clear()
    12. Timer1.Enabled = True
    13. End If
    14. End Sub
    16. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    17. If ActiveLine < RichTextBox1.Lines.Length Then
    18. ' Aktive Zeile zerlegen
    19. Dim SplittedLine As String()
    20. SplittedLine = RichTextBox1.Lines(ActiveLine).Split(":")
    21. ' Auf Textboxen verteilen
    22. RichTextBox2.AppendText(SplittedLine(0) & Environment.NewLine)
    23. RichTextBox3.AppendText(SplittedLine(1) & Environment.NewLine)
    24. ' Zeiger auf nächste Zeile setzen
    25. ActiveLine += 1
    26. Else
    27. ' Wenn keine Zeilen übrig, Timer abschalten
    28. Timer1.Enabled = False
    29. End If
    30. End Sub

    über einen Anfänger lol'en konntest :)
    Bin halt kein Pro und habe bewusst hingeschrieben, dass ich um Hilfe bete. Ich würd ja wohl nicht um Hilfe bitten, wenn ichs könnte ;)

    Ähm, das war von mir nicht böse gemeint. Eher so wie wenn ein Kind gerade Essen lernt und dabei seinen kompletten Hochstuhl und sich selbst einsaut. Man ist weder sauer noch hält man das Kind für dumm...es ist einfach total süss...okay...das könntest Du jetzt auch in den falschen Hals kriegen.
    Also glaub mir einfach wenn ich sage: es war nicht böse gemeint und ich hoffe, ich konnte helfen.

    Gruß FatFire

    Ich danke dir vielmals für den Code. Werde ich gleich Zeile für Zeile durchgehen, damit ichs auch verstehe! :)
    Und wegen dem lol'en und dem Freitag :P ich habs nur halt leicht "böse" interpretiert, halt bisschen negativ. Aber wenn du sagst, so war das nicht gemeint, dann glaub ich dir das!
    Danke nochmals!
    Gruß,
    kaktus

Facebook
Telefonspende