Announcement

**Hagen Reddmann** · 30.06.2003, 10:25

Einfach die Gr��e der Einzelschritte addieren und dann beide Progressbars um den gleichen Betrag wie die Einzelschrittprogressbar erh�hen. 
Angenommen 4 Einzelschritte a 50 Schritte. Macht f�r Einzelschrittprogressbar 4 mal jeweils 50 Steps, und f�r die Gesamtprogressbar 1 mal von 0 - 200, mit 4 * 50 Steps. 

Gru� Hage

**Nico St�ckigt** · 30.06.2003, 11:05

Hi! 
 
Leider ist das nicht ganz so einfach - das h�tte ich auch noch hinbekommen! Das ganze ist absolut dynamisch! d.h. die Einzelschritte sind unterschiedlich gro� (1 bis >10.000) und teilen sich in beliebig viele Schritte auf. 
Zur Verdeutlichung ein Beispiel: 
 
Ein Grid mit ca. 9000 Eintr�gen. Der Benutzer w�hlt jetzt unterschiedliche 'ranges' aus, so das wir - sagen wir mal - auf 6 'ranges' kommen. Eine der 'ranges' hat nur einen Eintrag die n�chste hat vielleicht 20 und eine andere vielleicht 1000. 
Ich bekomme also die Anzahl der 'ranges' und die Anzahl der Eintr�ge in der aktuellen 'range' sowie den Index der aktuellen 'range' und den aktuellen Index des Eintrags der aktuellen 'range'. Ich kann mir auch noch die Anzahl aller ausgew�hlten Eintrage zur�ckgeben lassen. 
Gehen wir also von 2000 Eintragen in 6 'ranges' aus. 
 
Range0 = 7 Eintr�ge 
Range1 = 965 Eintr�ge 
Range2 = 1 Eintrag 
Range3 = 214 Entr�ge 
Range4 = 312 Eintr�ge 
Range5 = 501 Eintr�ge 
 
Wie mu� jetzt also meine Berechnung lauten, damit ich diese Einzelschritte entsprechend skaliert auf meinem PBTotal angezeigt bekomme?!? 
 
Vielen Dank! 
 Nico St�ckigt<br&gt

**Ulrich Gerhardt** · 30.06.2003, 11:43

Hallo Nico, 
ich hab Hagens Idee grad mal ausprobiert:
<pre class="sourcecode"><code>
const
Ranges: array[0..5] of Integer = (7, 965, 1, 214, 312, 501);
var
SumRange: Integer;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i, j, sum: Integer;
begin
sum := 0;
for i := 0 to 5 do
begin
ProgressBar2.Max := Ranges[i];
for j := 0 to pred(Ranges[i]) do
begin
ProgressBar1.Position := sum;
Label1.Caption := Format('%d von %d', [sum, SumRange]);
Inc(sum);
ProgressBar2.Position := j;
Label2.Caption := Format('%d von %d', [j, Ranges[i]]);
Sleep(1);
Application.ProcessMessages;
end;
end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
SumRange := 0;
for i := 0 to 5 do
Inc(SumRange, Ranges[i]);
ProgressBar1.Max := SumRange;
end;
</code></pre>
und das schaut mit "smoothen" ProgressBars ganz gut aus (bis auf ein paar One-Off-Fehler meinerseits).
Uli

**Nico St�ckigt** · 30.06.2003, 12:15

...so weit, so gut! 
 
Ein simples Beispiel mit dieser L�sung aufziehen geht ja noch... aber ich habe hier ein recht komplexes Projekt in dem von �berall her Funktionen angesto�en werden die dann �ber eine (bzw. insgesamt 3) ProgressBar(s) ihren Status zur�ckgeben. 
Wenn ich das auf die Art und Weise, wie Du's oben gemacht hast, in mein Projekt einbinden w�rde, w�re es die Arbeit nicht wert! 
F�r diese ganze Geschichte gibt es auch einen mathematischen Weg auf den ich imo nicht komme. Ich wei� meine Max-Werte und meine aktuellen Werte. Anhand der Max-Werte kann ich die Skala eines PB berechnen. Den Fortschritt des SubPB wei� ich und mu� ihn nur noch auf die Skala des ParentPB umrechnen <- das ist genau mein Problem... 
 
Also... 
Insgesamt sind es x Schritte die jeweils den selben Anteil am gesamt Prozess haben. Jeder Schritt hat eine unbestimmte aber konstante Anzahl an Unterschritten (y) die zusammen wieder den Gesamtfortschritt darstellen.<pre>x/100=(y[x-x]+...+y[x])/100</pre>Mit der Entsprechendn Formel kann man, wenn man wei� wieviele Schritte es sind und in welchem Schritt ich mich gerade befinde sowie die Anzahl der Subschritte und deren Index bekannt sind, ermitteln zu welchem Anzeil der Gesamtprozess sich gerade befindet... und nun wieder das gro�e Problem... die beiden PBs haben unterschiedliche Skalierungen (1:x und 1:y) und der SubProzess mu� auf den ParentProzess aufskaliert werden... irgend ein findiger Informatik- oder Mathe-Student wird doch sowas schonmal gemacht haben!.. 
 
1000 Dank! 
 Nico St�ckigt<br&gt

**Ulrich Gerhardt** · 30.06.2003, 13:38

Nochmal die Voraussetzungen: Du kennst im Voraus die Anzahl der Ranges und ihre Max-Werte? Und wann immer du die ProgressBars updaten willst, wei�t du den Index der aktuellen Range und den Fortschritt *innerhalb* dieser Range?
Wenn das soweit richtig ist, dann setze vor Start der Aktion das Max der Gesamt-PB auf die Summe aller Teil-Max-Werte (siehe mein FormCreate).
Bei jedem Update w�hrend des Laufs summiere die Max-Werte aller schon vollst�ndig durchlaufenen Ranges, addiere den aktuellen Teilfortschritt dazu und fertig.
Oder habe ich jetzt schon wieder das Wesentliche �bersehen? ;-)
Ciao, Uli

**Nico St�ckigt** · 30.06.2003, 13:57

...mmh! So k�nnte es auch gehen (hab' ich aufgrund der Einfachheit �bersehen =b ). Der mathematische Weg ist halt der sch�nste und l��t sich zudem sehr gut kapseln und weiterverwenden... 
Montag ist einfach nicht der beste Tag um sich sowas auszudenken! Ich denke ich versuche es jetzt erstmal so, und wenn ich wiedermal einen geistigen H�henflug habe, poste ich den mathematischen Weg hier rein. 
 
t.a.l. 
 Nico St�ckigt<br&gt

**Ulrich Gerhardt** · 30.06.2003, 14:20

Also, ich empfinde die L�sung als ziemlich mathematisch. Allerdings bin ich Mathematiker und habe laut Aussage meiner Kollegen die Tendenz, *alles* mathematisch zu sehen. :-)
 Uli

**Sebastian Henrich** · 30.06.2003, 14:57

Also, so ganz verstehe ich dein Problem nicht!

Alle Datens�tze (=2000=allCount), alle Datens�tze der aktuellen Range (=7=allSubCount), aktueller Datensatz in aktueller Range (=2=subCount).

Hieraus ergibt sich f�r den Gesamtfortschritt:
allCount/allSubCount=100/x. Somit ist der Anteil der deiner Range an den 100% Fortschritt das x.

F�r den SubFortschritt gilt:
allSubCount/subCount=(100*(allSubCount/allCount))/y. Was das selbe ist wie: =100*(subCount/allCount). Dein y ist also der Anteil an dem Anteil der gesamten Range im Gesamtfortschritt.

Zur Umsetzung. Dein Max Wert in der ProgressBar f�r den Gesamtfortschritt ist immer 100. Der f�r den SubFortschritt ist immer das x. Beim abarbeiten der Ranges ergibts sich somit folgende Formel f�r die n-te Range: x-Wert Range0+...+x-Wert Range(n-1)+y. Das war es. Ich hoffe du blickst bei dem was ich geschrieben habe durch. Ansonsten melde dich nochmal und ich schicke es dir per Mail als sch�ne Formel.

Gru�

Sebastia

**Hagen Reddmann** · 30.06.2003, 17:43

Ich wei� nicht. So wie es Ulrich erkl�rt hat ist es doch die einfachste L�sung. �brigens genau das Gleiche was ich meinte. 
Warum noch irgendwelche Verh�ltnisgleichungen aufstellen ?? 
Einzigstes Problem ist das die Progressbar nur mit ShortInt arbeiten kann. Die max Werte sollten also > 32xxx nicht �bersteigen. 
Aber auch dann ist es einfach. Du rechnest den gesamten Maximalen Wert durch addieren aus. Dann rechnest du ihn auf 100 um. Step := 100 / Max. Nun realtivierst du jeden Telschritt per Progressbar.Step := Step * TeilMax. Also immer relativ zum gesamten Maximum. 
Zum Schlu� w�rden so alle Progressbars von 0-99 z�hlen. 

Gru� Hage

**Nico St�ckigt** · 01.07.2003, 08:20

He! Das klingt verdammt nach dem was ich eigentlich suchte... Es ist nat�rlich viel einfacher jede beteiligte PB mit der gleichen Skalierung laufen zu lassen, dann erspart man sich komplizierte Berechnungen und jede Menge unn�tze Knoten im Hirn =) ! 
Hab mal wieder viel zu kompliziert gedacht... 
 
Vielen Dank! 
 
Gru� 
 Nico St�ckigt 
 
--- Thread closed --

Announcement

Cascadierte Progressbars...

Cascadierte Progressbars...

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment