Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by xZise,
30. Apr 2010
Moin,
also ich habe jetzt mal deine angebliche Heizung implementiert. Wenn ich die Zeit auf 0 setze, dann hast du recht, aber bei 10 ms zeigt die CPU Werte um 0 % an.
So wie der Code da aber steht ist das nicht eine sondern sind es genau 24 Sekunden ;) Das heißt 3600 * 24 nehmen dann passt es wieder.
Das ist übrigens der Code:
procedure TForm1.BPowerClick(Sender: TObject);
begin
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by xZise,
29. Apr 2010
Moin,
Naja das geht. Er wartet immerhin 10 ms bevor er wieder was rechnet. Das heizt die CPU sehr (!) viel mehr auf:
while now - tick < 0 do ;
Wenn man bei Andorra z.B. das Idle Event von Application nimmt und nur Sleep(1); hinzufügt, sinkt die Prozessorlast von 100 % (für ein Kern) auf sehr viel niedrigere Werte. Weil während das Programm schläft arbeitet die CPU (zumindest an diesem...