Wieder ein Sekunden-Bug Problem! Sorry!

  • VB.NET
  • .NET (FX) 3.0–3.5

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

    Wieder ein Sekunden-Bug Problem! Sorry!

    Moin! :)
    Entschuldigung, dass ich wieder mit einem ähnlichen Problem komme.
    Ich möchte dass eine Variable mit einem Timer1 runtergezählt wird.
    Zum Beispiel von 60 Sekunden auf 0.
    Leider habe ich es bis jetzt nur geschafft, das es von 0 auf 59 Sekunden schaltet.
    Da mein Timer1 den Intervall von 1000ms hat, verstehe ich das Verhalten noch nicht richtig!
    Im Code habe ich drei Zeilen Code auskommentiert.
    Nur wenn ich diese Zeilen hinzufüge, funktioniert es so wie ich es möchte.
    Da ich aber gerne wissen möchte, warum das Programm so ausgeführt wird.
    Mein Ziel ist es ohne die Manuelle hoch Zählung des kommentierten Codes.
    Ich hoffe ich könnte mein Vorhaben genau erklären.
    Gibt es nun auch eine passende Lösung!?
    BIG THX

    VB.NET-Quellcode

    1. If intZeitProzesse = 0 Then
    2. JedeMinutePROZESSE()
    3. 'intZeitProzesse += 1
    4. End If
    5. If intZeitClipboard = 0 Then
    6. ZwischenablageFestlegen()
    7. 'intZeitClipboard += 1
    8. End If
    9. If intZeitRam = 0 Then
    10. RamWarnungFestlegen()
    11. ' intZeitRam += 1
    12. End If


    WindowsApp5.zip
    Visual Basic.NET 8o
    MS-SQL     8o

    @Cheffboss Die Methode von slice war die richtige.

    Ich habe das ganze so umgesetzt:

    VB.NET-Quellcode

    1. Dim isFirstRun As Boolean = True
    3. #Region "Zeiten-Festlegen"
    5. Private Sub RamWarnungFestlegen()
    6. If isFirstRun Then
    7. intZeitRam = 60
    8. Else
    9. intZeitRam = 61
    10. End If
    11. End Sub
    12. Private Sub ZwischenablageFestlegen()
    13. If isFirstRun Then
    14. intZeitClipboard = 60
    15. Else
    16. intZeitClipboard = 61
    17. End If
    18. End Sub
    19. Private Sub JedeMinutePROZESSE()
    20. If isFirstRun Then
    21. intZeitProzesse = 60
    22. isFirstRun = False ' JedeMinutePROZESSE wird zuerst aufgerufen darum wird hier die variable umgestellt
    23. Else
    24. intZeitProzesse = 61
    25. End If
    26. End Sub
    28. #End Region

    Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button :thumbup:

    Für VB.NET Entwickler: Option Strict On nicht vergessen!

    @Cheffboss Pack doch Deine Zahl einfach in einen TimeSpan-Wert und gib den formatiert aus.
    docs.microsoft.com/de-de/dotne…timespan?view=netcore-3.1
    Feddich.
    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!

    @an beide
    Vielen Dank, für eure Hilfe. :thumbsup:
    Danke, an ClonkAndre. :thumbsup:

    Aber leider ging der Code in meinem Projekt nicht, er zeigte manchmal auf einmal 61 an.
    Ich habe das Problem nun anders lösen können.

    Der Lösungsweg:
    Einen Timer1 auf Intervall 500 stellen.
    Und als Zeitvariable ein Decimal verwenden.
    Diese dann immer 0.5 abziehen, dass entspricht dann eine Sekunde.
    Und die drei aus kommentierten Codezeilen benötige man nicht mehr...
    8o
    Bis jetzt läuft das Programm wunderbar!
    Ich werde es morgen nochmals gründlich testen, und kurz Bescheid geben!

    VB.NET-Quellcode

    1. 'Option Strict On
    2. Public Class Form1
    3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. RamWarnungFestlegen() : ZwischenablageFestlegen() : JedeMinutePROZESSE()
    5. End Sub
    7. Dim ZeitProzesse, ZeitClipboard, ZeitRam As Decimal
    8. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    9. ' Anzeige...
    10. Me.lblProzesseInfofeld.Text = String.Format("Prüfe Prozesse in {0} Sekunde(n)", Math.Round(ZeitProzesse))
    11. Me.lblZwischenablageInfofeld.Text = String.Format("Zwischenablage leeren in {0} Sekunde(n)", Math.Round(ZeitClipboard))
    12. Me.lblRAMInfofeld.Text = String.Format("Prüfe Arbeitspeicher in {0} Sekunde(n)", Math.Round(ZeitRam))
    14. ' Steuerung...
    15. If ZeitProzesse = 0 Then JedeMinutePROZESSE()
    16. If ZeitClipboard = 0 Then ZwischenablageFestlegen()
    17. If ZeitRam = 0 Then RamWarnungFestlegen()
    19. ' Abziehen...
    20. If Not ZeitProzesse = 0 Then ZeitProzesse -= 0.5
    21. If Not ZeitRam = 0 Then ZeitRam -= 0.5
    22. If Not ZeitClipboard = 0 Then ZeitClipboard -= 0.5
    23. End Sub
    25. #Region "Zeiten-Festlegen"
    27. Private Sub RamWarnungFestlegen()
    28. ZeitRam = 60
    29. End Sub
    31. Private Sub ZwischenablageFestlegen()
    32. ZeitClipboard = 60
    33. End Sub
    34. Private Sub JedeMinutePROZESSE()
    35. ZeitProzesse = 60
    36. End Sub
    38. #End Region
    40. Private Sub btnProzesseErinnerungBeenden_Click(sender As Object, e As EventArgs) Handles btnProzesseErinnerungBeenden.Click
    41. ' Los...
    42. ZeitProzesse = 2
    43. ZeitClipboard = 2
    44. ZeitRam = 2
    45. End Sub
    47. End Class



    edit2:
    @RodFromGermany
    Danke, werde ich morgen dann mal ausprobieren...
    Denn mir wäre es lieber wenn der Timer1 nur jede Sekunde aktiv ist.
    Visual Basic.NET 8o
    MS-SQL     8o

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Cheffboss“ ()

    @RodFromGermany
    Vielen Dank, für deinen Tipp mit dem TimeSpan.
    Ich habe nun einen neuen Code geschrieben.
    In dieser der Timer1 jede Sekunde aktiv ist.
    Und nicht jede 500ms.
    Schau dir mal bitte den Code an.
    Hast du es so gemeint?
    Vielleicht könnte man die Zeile etwas verbessern.

    VB.NET-Quellcode

    1. ' TimeSpans aktualisieren...
    2. Dim timespan1 As New TimeSpan(0, 0, intZeitProzesse)

    Ich habe aber leider keine andere Lösung gefunden.
    Ist das sinnvoll jede Sekunde, den TimeSpan neu anzulegen?
    Freue mich auf Antwort!
    Nochmals Vielen Dank.

    @an alle
    Vielen Dank!



    Mein neuer Code: :thumbup:

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form2
    4. Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. JedeMinutePROZESSE(Einstellungen.ErsterStart)
    6. End Sub
    8. Private Enum Einstellungen As Byte
    9. BereitsGestartet = 0
    10. ErsterStart = 1
    11. End Enum
    13. Private intZeitProzesse As Integer
    14. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    15. ' TimeSpans aktualisieren...
    16. Dim timespan1 As New TimeSpan(0, 0, intZeitProzesse)
    18. ' Anzeige...
    19. Me.lblProzesseInfofeld.Text = String.Format("Prüfe Prozesse in {0} Sekunde(n)", Math.Round(timespan1.TotalSeconds))
    21. ' Steuerung...
    22. If intZeitProzesse = 0 Then
    23. Me.Timer1.Enabled = False
    24. MsgBox("Neues Fenster!")
    25. JedeMinutePROZESSE(Einstellungen.BereitsGestartet)
    26. Me.Timer1.Enabled = True
    27. End If
    29. ' Abziehen...
    30. intZeitProzesse -= 1
    31. End Sub
    33. Private Sub JedeMinutePROZESSE(blnwert As Byte)
    34. If Convert.ToBoolean(blnwert) Then intZeitProzesse = 60 Else intZeitProzesse = 61
    35. End Sub
    38. ' Debuging
    39. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    40. intZeitProzesse = 3
    41. End Sub
    43. End Class

    Visual Basic.NET 8o
    MS-SQL     8o

    Datentypen respektieren:

    VB.NET-Quellcode

    1. Private Sub JedeMinutePROZESSE(blnwert As Einstellungen )
    2. intZeitProzesse = if(blnwert = Einstellungen.ErsterStart, 60, 61)
    3. End Sub
    Du übergibst der Methode doch ein Enum, dann soll die doch auch ein Enum erwarten.
    Und wenn sie ein Enum erwartet braucht man auch nicht diese etwas abenteuerliche Konvertierung mit Convert.ToBoolean().

    Cheffboss schrieb:

    Ist das sinnvoll jede Sekunde, den TimeSpan neu anzulegen?
    Das ist absolut kein Problem. Ob das aber die Lösung ist, weiß ich noch nicht.
    Formuliere mal aus jetziger Sicht Dein Problem erneut.
    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!

Facebook
Telefonspende