Performance probleme ; Problem beim Beenden

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von noname.

    Performance probleme ; Problem beim Beenden

    Hallo ich bin noch ein kleiner Anfänger und habe ein kleines Programm geschrieben, welches den Rechner zu einer bestimmten Zeit herunterfahren soll.

    Ich habe 2 Probleme:

    1. Sobald ich die funtion des Programms aktiviere (also nicht sobald ic es starte, sondern auf den startbutton drücke)
    schnellt die CDP und Ram Auslastung auf über 50% hoch!!!

    2. ICh denke, dass ich einen Button programmiert habe, welcher zum abbruch der Timerschleife führen sollte. es tut es aber nciht. ICh bekomme eine Fehlermeldung und das PRogramm sowie die CPU-Auslastung bleiben gleich hoch.

    Folgend ist der code!!! ICh hoffe mir kann da jemand helfen!!!!!
    DANKE

    Programmablauf:
    Timerinterval auf 30 sek.

    alle 30 sek. einlesen PCzeit ; Einlesen Textbox; Vergleichen; Aktion ausführen
    Button2: Timer beenden

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Timer1.Interval = 30000 ' Tickereignis alle 30 Sekunden
    6. Timer1.Start()
    8. End Sub
    10. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    12. Dim Zeit As String
    13. Dim ZeitPC As String
    15. Zeit = TextBox1.Text
    16. ZeitPC = System.DateTime.Now.ToShortTimeString()
    17. Label6.Text = "TimeDown ist aktiviert!!!!"
    19. If Zeit <= ZeitPC Then
    21. System.Diagnostics.Process.Start("shutdown", "-s")
    23. ElseIf Zeit < ZeitPC Then
    25. Exit Sub
    27. End If
    29. End Sub
    31. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    33. Timer1.Stop()
    34. Label6.Text = "TimeDown ist deaktiviert"
    35. End Sub
    37. End Class

    hai !

    probiers das aus :

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    5. Timer1.Enabled = True
    6. Timer1.Interval = 30000 ' Tickereignis alle 30 Sekunden
    9. End Sub
    11. Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    13. Dim Zeit As String
    14. Dim ZeitPC As String
    16. Zeit = TextBox1.Text
    17. ZeitPC = System.DateTime.Now.ToShortTimeString()
    18. Label6.Text = "TimeDown ist aktiviert!!!!"
    20. If Zeit = ZeitPC Then
    22. System.Diagnostics.Process.Start("shutdown", "-s")
    24. ElseIf Zeit <> ZeitPC Then
    26. Timer1.Enabled =False
    28. Exit Sub
    30. End If
    32. End Sub
    34. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    36. Timer1.Enabled =False
    38. Label6.Text = "TimeDown ist deaktiviert"
    39. End Sub



    Mfg Alex

    Hallo, ich habe den Code so überarbeitet wie vorgeschlagen. Aber jetzt FUNKTIONIERT es nicht mehr. Die CPU Auslastung ist ok (0) aber das programm fährt den rechner jetzt nicht mehr runter.

    1. was bedeztet das enabled = true / = false
    2. warum funktioniert der code jetzt nicht mehr. Wie kann ich das abändern.

    Danke

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

    hallo philip,

    VB.NET-Quellcode

    1. Timer.Start
    2. Timer.Enabled = True

    ist das gleiche
    genau wie

    VB.NET-Quellcode

    1. Timer.Stop
    2. Timer.Enabled = False


    ich persönlich verwende start und stop - ist für mich irgendwie klarer.

    gruss

    mikeb69

    VB.NET-Quellcode

    1. If Zeit = ZeitPC Then
    2. System.Diagnostics.Process.Start("shutdown", "-s")
    3. ElseIf Zeit <> ZeitPC Then
    4. Timer1.Enabled =False
    5. Exit Sub
    6. End If


    Da sind aber viele Fehler drin!

    Der Computer wird nur heruntergefahren wenn die Zeit GENAU auf dem angegeben Zeitpunkt liegt, da der Timer nur alle 30 Sekunden tickt ist das ein Glückspiel.

    Dann wird der Timer ausgeschaltet wenn die Zeit ungleich des Zeitpunktes ist. Der Sinn davon ist fraglich, da der Timer alle 30 Sekunden ticken soll, er aber nach dem ersten Mal einfach ausgeht.

    So würde es im Timer schon reichen:

    VB.NET-Quellcode

    1. If Zeit <= ZeitPC Then System.Diagnostics.Process.Start("shutdown", "-s")