CPU-Auslastung 95% :-)

[Delle]

Mein simples Programm nimmt 95% der CPU in Anspruch

Wie kann man das beseitigen? Mit Delay in der Hauptschleife?

Wenn ja, welcher Wert ist da angemessen OHNE das das Programm ruckelt etc.?

[DrShrek]

ja, und Delay(1) ist ausreichend.
Probiers halt mal aus...

[Lukas-P]

jenachdem was das fürne Anwendung ist. Wenn das eine Anwenung in einem Fenster ist würde ich kein delay(1) nehmen denn das würde laggen dann solltest du doch lieber delay(10) nehmen. Oder einfach ausprobieren

[MVXA]

Wenn du in einer For:Next schleife arbeitest, könnte ich dir noch einen Trick empfehlen:

Code: Alles auswählen

For lngI = 1 to 1000
    ; Code hier
    if (lngI%10) = 0 
       delay(1)
    endif
Next

klaut nicht die gesamte CPU und die For Schleife wird trozdem akzeptabel schnell ausgeführt. Die 10 kannst du natürlich auch durch einen anderen Wert ersetzen.

[NicTheQuick]

Welche Schleife ist es denn?

Auf deine Frage gibt es keine allgemeine Lösung.

@MVXA:
Damit nicht ständig der Modulo ausgerechnet werden muss:

Code: Alles auswählen

Forr lngI = 1 to 1000
    ; Code hier
    If lngI & %111 = 0
       Delay(1)
    EndIf
Next

Das geht dann natürlich nur in 2-er-Potenzen-Schritten.

[Delle]

Die ganz normale Schleife Repeat / Until...

[bluejoke]

Achja, Lukas-P:
Delay(10) verzögert die Ausführung der weiteren Befehle um die zehnfache Zeit von Delay(1) - genauer gesagt um 10, statt 1 Millisekunde. Laggt daher deutlich mehr.

IMHO spielt es aber keine großartige Rolle, ob man nun Delay(10) oder Delay(1) hernimmt, das beste wäre sowieso WaitWindowEvent() statt WindowEvent() - wenns um ein Fenster geht.

Simon

[MVXA]

@NIC
und den optimierungs sieg hat MVXA gewonnen <_<.

Folgender Code wurde getestet:

Code: Alles auswählen

lngtime = ElapsedMilliseconds()
For lngI = 1 To 1000
    ; Code hier
    If lngI & %111 = 0
        Delay(1)
    EndIf
Next
Debug "NIC: " + Str(ElapsedMilliseconds()-lngtime)

lngtime = ElapsedMilliseconds()
For lngI = 1 To 1000
    ; Code hier
    If (lngI%10) = 0
        Delay(1)
    EndIf
Next
Debug "MVXA: " + Str(ElapsedMilliseconds()-lngtime)

Das Ergebniss sieht so aus:

NIC: 1954
MVXA: 1562

Ich weiss, dass ich ein Held bin ~_~... Rund 400 ms schneller <_<

[NicTheQuick]

@MVXA: Wie willst du denn die beiden Codes anständig vergleichen?
Bei meinem Code wird das [c]Delay(1)[/c] z.B. immer alle 8 Durchläufe aufgerufen, bei dir nur alle 10 Durchläufe. Da musst du schon dein Modulo auch auf 8 setzen.

Außerdem macht man Geschwindigkeitstest nicht mit dem Debugger. Wer hat dich den geritten?

Ich hab mal einen neuen Test aufgesetzt und festgestellt, dass keiner von beiden schneller ist. Im Durchschnitt sind sie genau gleich. Das liegt unter anderem daran, dass [c]Delay(1)[/c] nie genau 1 ms ist.

[traumatic]

MVXA, klar bist Du der Held, das weiß doch jeder.

Dennoch behaupte ich mal, NTQs Lösung ist generell die schnellere
- trotz Deines anschaulichen Tests:

Code: Alles auswählen

OpenConsole()

lngtime = ElapsedMilliseconds()
For lngI = 1 To $FFFFFFF
  res.l = lngI & %111
Next
PrintN("NIC: " + Str(ElapsedMilliseconds()-lngtime))

lngtime = ElapsedMilliseconds()
For lngI = 1 To $FFFFFFF
  res.l = lngI%10
Next
PrintN("MVXA: " + Str(ElapsedMilliseconds()-lngtime))
Input()

BTW: Bitte nie "Performance-Tests" mit Debugger machen!
Im übrigen sind solche "Tests" ohnehin fern jeglicher Realitätsnähe...