Timer progressbar

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von m9898.

    Timer progressbar

    Moin,

    ich hab ein Problem mit meinem Timer ;)

    und zwar berechne ich etwas über einen Backgroundworker welcher dann immer eine progressbar auf einem wait_form aktualisiert. Das funktioniert auch soweit. Jetzt wollte ich noch eine "verbleibende Zeit" information wiedergeben.

    Da ich nicht genau weis wie lange jeder loop der brechnungsschleife dauert habe ich mir gedacht ich messe einfach die zeit jedes mal und reche das dann auf die noch bevorstehenden zyklen hoch.

    hier mein ansatz:

    VB.NET-Quellcode

    1. Public Sub calc_ProgressChanged(ByVal sender As System.Object, ByVal e As ProgressChangedEventArgs) Handles calc.ProgressChanged
    2. Dim parts As String()
    4. Select Case e.UserState
    5. Case "Fractions ermitteln ..."
    6. prgbar_wait.Style = ProgressBarStyle.Marquee
    7. stlabel_wait.Text = e.UserState
    8. Case "Marker setzen ..."
    9. prgbar_wait.Style = ProgressBarStyle.Marquee
    10. stlabel_wait.Text = e.UserState
    11. Case "Analysieren ..."
    12. timer1.Interval = 1000
    13. AddHandler timer1.Tick, AddressOf timer1_Tick
    14. timer1.Enabled = True
    15. timer1.Start()
    17. prgbar_wait.Style = ProgressBarStyle.Marquee
    18. stlabel_wait.Text = e.UserState
    19. stlabel_time.Visible = True
    21. Case Else
    23. prgbar_wait.Style = ProgressBarStyle.Continuous
    24. prgbar_wait.Value = e.ProgressPercentage
    26. parts = Split(e.UserState, "#")
    27. stlabel_wait.Text = "Fraction " & parts(0) & " / " & parts(1)
    29. If Not temp_date.Year <> 1800 Then
    31. span = Now().Subtract(temp_date)
    32. span.Add(New TimeSpan(span.Ticks * (parts(1) - parts(0))))
    34. End If
    36. temp_date = Now
    38. End Select
    40. End Sub


    VB.NET-Quellcode

    1. Private Sub timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
    3. span.Subtract(New TimeSpan(0, 0, 1))
    4. stlabel_time.Text = span.Minutes & ":" & span.Seconds
    6. End Sub


    VB.NET-Quellcode

    1. Friend WithEvents prgbar_wait As System.Windows.Forms.ProgressBar = frm_wait.pgr1_status
    2. Friend WithEvents stlabel_wait As System.Windows.Forms.Label = frm_wait.lbl_status
    3. Friend WithEvents stlabel_time As System.Windows.Forms.Label = frm_wait.lbl_time
    4. Friend WithEvents calc As System.ComponentModel.BackgroundWorker
    6. Friend WithEvents calc_all_files As List(Of source_File) = functions.all_files
    7. Friend WithEvents calc_messurements As List(Of mes_group) = functions.messurements


    das problem an der geschichte ist, dass das Label nicht aktualisiert wird ... hab ich da einen denkfehler ?

    Mach doch mal nach dem Setzen nen Refresh (oder hieß es in vb Reload?!) der Form?
    Me.Refresh
    oder
    Me.Reload

    irgendwie sowas.
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    Dat is doch genau das Gleiche oO
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    Es war einmal ein kleiner Bär... der wollte eine Geschichte hörn... Da erzählte ihm seine Mutti:
    ... Nun solltest es selber wissen. :'D

    In VB 2008 gibt es dann aber einen Fehler.

    Naja, jedenfalls ist an dem Code ansonsten nichts falsch.
    Setz doch auch mal einen Haltepunkt an die Zeilen "Select Case e.UserState" und "stlabel_wait.Text = "Fraction " & parts(0) & " / " & parts(1)".
    Dann kannst du nachschauen, was in e.UserState und dem Array parts drinnsteht.

Facebook
Telefonspende