Problem mit for next schleife

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Fire88.

    Problem mit for next schleife

    hey VBler

    ich habe ein kleines Problem, ich habe folgenden Code, der soll den thread in einer for next schleife durchlaufen lassen. es geht eig. auch, nur wen ich 5 eingebe zählt es nicht hoch, sondern ladet und dan steht nur noch 5 da.
    wo habe ich hier den Fehler in der Schleife?

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Threading
    3. Imports System.Web
    4. Public Class Form1
    6. Shared link As String
    7. Shared hit As Integer
    13. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    14. link = TextBox1.Text.ToString
    15. hit = TextBox2.Text
    16. WebBrowser1.Navigate(link)
    17. Threading.Thread.Sleep(1000)
    18. For i = 1 To hit
    19. Threading.Thread.Sleep(800)
    20. WebBrowser1.Refresh()
    22. Label2.Text += 1
    24. Next
    26. MessageBox.Show("Erfolgreich")
    30. End Sub
    33. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    34. WebBrowser1.Dispose()
    35. Me.Close()
    36. End Sub
    40. End Class

    Ohne weitere Einzelheiten zu kennen und mit Option Strict On
    läuft bei mir folgender Code, der auf Deinem basiert:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Threading
    3. Imports System.Web
    5. Public Class Form1
    6. Shared link As String
    7. Shared hit As Integer
    9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    10. link = TextBox1.Text
    11. hit = CInt(TextBox2.Text)
    12. WebBrowser1.Navigate(link)
    13. Threading.Thread.Sleep(1000)
    14. For i = 0 To hit - 1
    15. Threading.Thread.Sleep(800)
    16. WebBrowser1.Refresh()
    18. Label2.Text = i.ToString
    19. Label2.Refresh() ' dies hier
    20. Next
    22. MessageBox.Show("Erfolgreich")
    24. End Sub
    26. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    27. WebBrowser1.Dispose()
    28. Me.Close()
    29. End Sub
    31. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    32. TextBox2.Text = "10"
    33. End Sub
    34. End Class

    Für weitere Fragen solltest Du ein paar Einzelheiten erläutern.
    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!

    hmm okey, die funktion die ich mir gewünscht habe geht so wie du es hier zeigst.

    nur verstehe ich nicht ganz wo mein fehler wahr in der schleife.

    ich hatte ja

    VB.NET-Quellcode

    1. For i = 1 To hit
    2. Threading.Thread.Sleep(800)
    3. WebBrowser1.Refresh()
    5. Label2.Text += 1
    7. Next


    und du hast gemacht

    VB.NET-Quellcode

    1. For i = 0 To hit - 1
    2. Threading.Thread.Sleep(800)
    3. WebBrowser1.Refresh()
    5. Label2.Text = i.ToString
    6. Label2.Refresh() ' dies hier
    7. Next

    ich verstehe nicht ganz warum hinter hit -1 sein muss.

    wen hit 10 ist dan sag ich ja von 0 to 10 -1 (sry, versteh die logik nicht) aber laufen tut es auf die weise.


    vielen dank

    Rinecamo schrieb:

    Wenn du 10 hinschreibst, läuft die Schleife 11 mal.
    Anders gesagt (bzw. dargestellt):

    Quellcode

    1. 0
    2. 1
    3. 2
    4. 3
    5. 4
    6. 5
    7. 6
    8. 7
    9. 8
    10. 9
    11. 10


    ^this

    das ist mi klar, nur was bedeutet den das was ich geamcht habe mit " For i = 1 To hit " ?

    hit= 10

    das ist ja auch i ist von 1 bis 10 (oder ist es auf meine art ohne schrittweise?)

    mfg

    Ob die Schleife von {1 bis n} oder von {0 bis (n-1)} läuft, ist in diesem Beispiel egal.
    Sobald Du aber ein Feld adressieren willst, musst Du die schleife von {0 bis (n-1)} laufen lassen, um alle Feldelemente zu erwischen.
    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!