CPU Auslastung beim Timer zu hoch - verringern?

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von sothere.

    CPU Auslastung beim Timer zu hoch - verringern?

    Moin zusammen,

    ich habe ein Tool mit einem Liveticker wie folgt:

    VB.NET-Quellcode

    1. Public Class mainpanel
    4. Dim sAnimatedText As String = "Herzlich Willkommen"
    5. Dim nPos As Integer = 0
    6. Dim WithEvents oTimer As Timer
    10. Private Sub mainpanel_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    11. 'Me.Size = New Point(772, 22)
    12. With Screen.PrimaryScreen.WorkingArea
    13. Me.Location = New Point(.Left + (.Right - .Left - Me.Width) / 2, 0)
    14. End With
    16. oTimer = New Timer
    17. oTimer.Interval = 100
    18. oTimer.Start()
    19. End Sub
    23. Private Sub oTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles oTimer.Tick
    24. nPos += Int(Tickerspeed.Text)
    25. PictureBox1.Invalidate()
    26. End Sub
    30. Private Sub PictureBox1_Paint(ByVal sender As Object, _
    31. ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
    33. ' String zusammensetzen
    34. Dim sText As String = ""
    35. With sAnimatedText
    36. Dim x As Integer
    37. If .Length > 0 Then
    38. If .Length < 180 Then
    39. x = 180 - .Length
    40. Dim MyString As String = sAnimatedText
    41. sAnimatedText = MyString.PadRight(x, " ")
    42. End If
    43. If nPos < 1 OrElse nPos > .Length Then nPos = 1
    44. sText = .Substring(nPos - 1) & IIf(nPos > 1, .Substring(0, nPos - 1), "")
    45. End If
    46. End With
    48. ' String-Format (kein Zeilenumbruch)
    49. Dim DrawFormat As New StringFormat
    50. DrawFormat.FormatFlags = StringFormatFlags.NoWrap
    52. ' Rechteck für die Textausgabe
    53. Dim oRect As New Rectangle(5, 3, e.ClipRectangle.Right - 5, _
    54. e.ClipRectangle.Bottom - 5)
    56. ' Jetzt den Text in das Graphics-Objekt zeichnen
    57. e.Graphics.DrawString(sText, New Font("Arial", 12, FontStyle.Bold), _
    58. Brushes.SteelBlue, oRect, DrawFormat)
    59. End Sub
    61. end class


    Die CPU Auslastung liegt bei dem Tool bei 25%. Das ist im laufenden Betrieb und Nutzung weiterer Programme ganz schön Fett. Gibts denn eine Möglichkeit die Auslastung auf 5% zu fahren?

    Ohne den Timer liegt sie bei 0-3% je nach Aktion.

    Vielen Dank im voraus.
    Ich würde gern die Welt verändern, aber Gott gibt mir den Quelltext nicht.

    @MSB2000 Soll das eine Laufschrift werden?
    Mach das vllt. in einer einzeiligen Textbox oder einem Label.
    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!

    MSB2000 schrieb:

    genauso viel Resourcen
    Probier es einfach aus. :D
    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!

    Das Rad muss in die andere Richtung:-) Statt wie vorher 25% CPU Auslastung habe ich jetzt 50% CPU Auslastung:-) das ist zu fett.

    Code habe ich konform disen hier genommen zum testen:

    VB.NET-Quellcode

    1. Public Class Form1
    3. ' Text, der als Laufschrift angezeigt werden soll
    4. Dim sAnimatedText As String = "Herzlich Willkommen bei " & _
    5. "www.vbarchiv.net - die deutschsprachige Internetseite, " & _
    6. "wenn es ums Programmieren mit Visual Basic geht +++ "
    7. Dim txFont As Font = New Font("Arial", 14.0F, FontStyle.Regular)
    8. Dim txColor As Color = Color.Blue
    10. ' Timer-Objekt zum Steuern der Laufschrift
    11. Dim WithEvents oTimer As Timer
    13. Private Sub Form1_Load(ByVal sender As System.Object, _
    14. ByVal e As System.EventArgs) Handles MyBase.Load
    16. With Label1
    17. .Parent = Panel1
    18. .Text = sAnimatedText
    19. .Font = txFont
    20. .ForeColor = txColor
    21. .Left = .Parent.Right
    22. .Top = (.Parent.Height - .Height) / 2
    23. End With
    25. Dim faktor As Short = Panel1.Width / Label1.Width - 1
    26. For i As Short = 0 To faktor - 1
    27. Label1.Text += sAnimatedText
    28. Next
    30. With Label2
    31. .Parent = Panel1
    32. .Font = txFont
    33. .ForeColor = txColor
    34. .Top = Label1.Top
    35. .Left = Label1.Right
    36. .Text = Label1.Text
    37. End With
    39. ' Timer starten
    40. oTimer = New Timer
    41. oTimer.Interval = 30
    42. oTimer.Start()
    43. End Sub
    45. Private Sub oTimer_Tick(ByVal sender As Object, _
    46. ByVal e As System.EventArgs) Handles oTimer.Tick
    48. ' bewegen der Labels
    49. Label1.Left -= 1
    50. Label2.Left -= 1
    51. If Label2.Right < 0 Then Label2.Left = Label1.Right
    52. If Label1.Right < 0 Then Label1.Left = Label2.Right
    53. End Sub
    55. Private Sub Form1_FormClosing(ByVal sender As Object, _
    56. ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    58. ' Timer stoppen
    59. oTimer.Stop()
    60. oTimer.Dispose()
    61. End Sub
    63. End Class
    Ich würde gern die Welt verändern, aber Gott gibt mir den Quelltext nicht.

    Ne obwohl die Teile richtig cool sind:-) wollte damit mal ne Homematic Haussteuerung anpeilen und als server laufen haben - naja anderes Thema 8o

    wenn ich den Timer Intervall vergrößere sinkt die Auslastung - aber halt Meeega langsame Laufschrift :D

    Wenn die Timer off sind ist alles schick...muss also an den Timer liegen.

    läuft auf: Intel Core Due E4400 2,00GHz mit 2GB Ram und WIN7 32Bit System
    Ich würde gern die Welt verändern, aber Gott gibt mir den Quelltext nicht.

    Aber mal so nebenbei, warum benutzt du an dieser Stelle:

    VB.NET-Quellcode

    1. Dim faktor As Short = Panel1.Width / Label1.Width - 1
    2. For i As Short = 0 To faktor - 1
    3. Label1.Text += sAnimatedText
    4. Next
    Einen short, statt eines Ints? C# lässt mich hier nicht einfach so dividieren, ich müsste schon mindestens eine Konvertierung ausführen.
    Option Strict on? Vllt. aber auch nur eine eigenart von C#.

    MSB2000 schrieb:

    VB.NET-Quellcode

    1. Label1.Left -= 1
    Du musst nicht das Label bewegen, sondern den Text im Label "rollen" lassen.

    VB.NET-Quellcode

    1. Dim txt = Label1.Text
    2. Label1.Text = txt.Substring(1) & txt(0)
    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!

    MAcht leider keinen Unterschied aus ob das Label bewegt wird oder der Text gerollt wird...zumindest nicht zum Ursprungsproblem von 25%..

    lasse ich das Label bewegen sind es 50% (irgendwie verständlich)
    lasse ich den Text rollen sind es zwar weniger aber immer noch 25% wie im ersten Code....

    Komisch - das kann doch nie soviel Resourcen fressen....
    Ich würde gern die Welt verändern, aber Gott gibt mir den Quelltext nicht.

    MSB2000 schrieb:

    VB.NET-Quellcode

    1. oTimer.Interval = 30
    Ist dieser Wert nötig?
    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!

    So recht scheint es hierfür auch keine Lösung zu geben. Onkel Google spuckt diesbezüglich zwar verschiedene Methoden aus aber die Auslastung bleibt.
    klar ist auch das der Prozessor ne Rolle spielt. Auf meinem Firmenlappi (I5 2,5GHz 8GB RAM) hab ich gerade mal zwischen 3-5%.

    Aber auf den Kisten in der Firma das fünffache:-)

    Ich werde es anders machen - eben keine Laufschrift, sondern blinken. Das steht die Leistung bei 0 - 4%.
    Ich würde gern die Welt verändern, aber Gott gibt mir den Quelltext nicht.

    Also wenn du wirklich Text scrollst, dürftest du niemals eine so hohe Auslastung haben. Hast du sowas mal probiert: dotnettutorials.com/tutorials/…et/text-scroll-effect-cs/. Zumindest vom Prinzip her. Hier wirste nämlich das Problem haben, dass beim Scrollen die Form hängt (da du den GUI Thread einfrierst - kannste aber genau so gut mit nem Timer machen).
    Edit: Sowas meinte ich:

    C#-Quellcode

    1. ​ public partial class Form1 : Form
    2. {
    3. private string _textToScroll = "Dein Text den du scrollen willst.";
    4. private int _scrollOffset;
    6. ...
    8. private void timer1_Tick( object sender, EventArgs e )
    9. {
    10. string textToDisplay = _textToScroll.Substring( _scrollOffset++ );
    12. this.toolStripLabel1.Text = textToDisplay;
    14. if ( _scrollOffset > _labelText.Length )
    15. {
    16. _scrollOffset = 0;
    17. }
    18. }
    19. }

    Sowas kostet eigentlich so gut wie keine Performance (es sei denn du verwendest kp was für nen absurdes Interval). Hier musst du das Interval so oder so etwas langsamer wählen, da der Text um einen Buchstaben verschoben wird. Wenn du da ein Interval von 30 ms verwendet, dann kannste so oder so nix mehr lesen.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „thefiloe“ ()

Facebook
Telefonspende