AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Verwendung einer ProgressBar

Ein Thema von ManniSt · begonnen am 10. Feb 2020 · letzter Beitrag vom 11. Feb 2020
Antwort Antwort
Seite 1 von 2  1 2   
ManniSt

Registriert seit: 16. Okt 2019
28 Beiträge
 
FreePascal / Lazarus
 
#1

Verwendung einer ProgressBar

  Alt 10. Feb 2020, 17:36
Hi,

ich muss eine ganze Rehe von Nummern crunchen. Die beginnen bei X und enden bei Y. Das kann gfls. echt lange dauern. Nun habe ich da eine TProgressBar eingebaut:

ProgressBar.Min := X;
Progressbar.Max := Y;
ProgressBar.Step := 1;

for X := 1 to Y do
begin
irgendwas...
ProgressBar.StepIt;
ProgressBar.Update;
end;

Funktioniert soweit richtig gut. NUR...die Bar verzögert das Numbercruching um ganze Größenordnungen. Wie kann man das Teil beschleunigen oder gibt es eine schnellere Möglichkeit?

Manni
Manfred
  Mit Zitat antworten Zitat
DieDolly

Registriert seit: 22. Jun 2018
2.173 Beiträge
 
#2

AW: Verwendung einer ProgressBar

  Alt 10. Feb 2020, 17:40
Zitat:
ich muss eine ganze Rehe von Nummern crunchen.
Es wäre echt schön, wenn du bei Deutsch bleiben würdest. Was bitte willst mit den Nummern machen?
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.269 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Verwendung einer ProgressBar

  Alt 10. Feb 2020, 17:42
Hallo,
wie groß ist denn Y?

ich würde z.B. nicht jeden Schritt (Number) das Stepit machen.

Wenn Du z.B. 10.000 Numbers hast, ändert sich in der Anzeige doch nichts.

Nimm eine lokale Variable zum Zählern der Numbers und zum Berechnen des prozentualen Fortschritts.

Und dann sowas wie

PG.Min:= 0;
PG.Max:= 100;

Delphi-Quellcode:
if Numbers mod iCountPercent = 5 then
begin
  PG aktualisieren
end;
Der PG würde also nur alle 5% deiner Numbers aktualisiert werden.
Heiko
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.016 Beiträge
 
Delphi 12 Athens
 
#4

AW: Verwendung einer ProgressBar

  Alt 10. Feb 2020, 17:55
[DEL "Falsches "Langsam" zuerst im Kopf gehabt und zuspät weitergelesen"]

Das ist eine Verbesserung des OS, die animieren die Ausgabe langsam beim Hochzählen.

Es gibt aus den Delphi-Demos ein vorinstalliertes TGauge, da es von Borland vor Jahrzehnten entwickelt wurde, ist dort auch rein garnichts optimiert oder verbessert wurden und demnach malt es seinen Zustand auch sehr schnell.


Ansonsten bleibt nur Eines, denn Rückwärts wird umgehend aktualisiert.
Delphi-Quellcode:
ProgressBar.Position := ProgressBar.Position + 2; // bzw. ProgressBar.StepBy(2);
ProgressBar.Position := ProgressBar.Position - 1; // ProgressBar.StepBy(-1);
ProgressBar.Update;

// oder
ProgressBar.Position := ProgressBar.Max - 1;
ProgressBar.Position := Zähler;
ProgressBar.Update;
[/DEL]

Jupp, wenn es viele Schritte sind, die extrem schnell durchlaufen, dann ist das Überspringen ein sehr guttes Mittel, damit deine Fortschrittsanzeige nicht alles unnötig extrem ausbremst.
Wobei ich hier lieber mit einem zeitlichen Interval (100-500 Millisekunden) arbeite, anstatt mit einem festen Abstand, der überall anders schnell/langsam ist.
Delphi-Quellcode:
T := GetTickCount;
for ....

  if Integer(GetTickCount - T) > 250 then begin
    T := GetTickCount;
    ProgressBar.Position := i;
    ProgressBar.Update;
  end;

end;
ProgressBar.Position := Max; // wenn Anzeige nach Ende noch sichtbar bleibt
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (10. Feb 2020 um 18:06 Uhr)
  Mit Zitat antworten Zitat
ManniSt

Registriert seit: 16. Okt 2019
28 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Verwendung einer ProgressBar

  Alt 10. Feb 2020, 18:06
Danke für den Hinweis mit %, das ist tatsächlich deutlich schneller.

Manni
Manfred
  Mit Zitat antworten Zitat
ManniSt

Registriert seit: 16. Okt 2019
28 Beiträge
 
FreePascal / Lazarus
 
#6

AW: Verwendung einer ProgressBar

  Alt 10. Feb 2020, 18:15
Das mit den Ticks ist anahezu optimal. Die Verzögerung ist tolerabel.

Danke für die brauchbaren Antworten!

Manni
Manfred
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

AW: Verwendung einer ProgressBar

  Alt 10. Feb 2020, 18:57
Warum extra rumrechnen?

Delphi-Quellcode:
for start := 1 to ende do
begin
  if start mod start = 5 then
  begin
    // mach was
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#8

AW: Verwendung einer ProgressBar

  Alt 10. Feb 2020, 20:57
Hab ich da etwas übersehen?
x mod x sollte immer 0 ergeben ?

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
ManniSt

Registriert seit: 16. Okt 2019
28 Beiträge
 
FreePascal / Lazarus
 
#9

AW: Verwendung einer ProgressBar

  Alt 10. Feb 2020, 21:01
Korrekt.

Die Methode mit den Ticks ist allerdings DEUTLICH schneller (1-2 Größenordnungen).

Manni
Manfred
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#10

AW: Verwendung einer ProgressBar

  Alt 10. Feb 2020, 21:20
Mist. Ich sollte nicht versuchen zu programmieren mit starken Schmerzmitteln intus und Fentanyl Schmerzpflastern.

Wie würde denn meine Idee richtig umgesetzt aussehen?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Alt 10. Feb 2020, 21:35     Erstellt von ManniSt
Dieser Beitrag wurde von Luckie gelöscht. - Grund: Versehentliches Doppelposting
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:15 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz