Statusanzeigen [ERLEDIGT]

[Manfred]

Moin,

es fiel mir im Moment kein besseres Thema dazu ein...

Im Thread Index Treiber wurde auch das Problem der Ablaufanzeige während einer Abarbeitung angesprochen.

Ich habe bisher jedesmal beim Durchlaufen einer Datenbank die RECNO() angezeigt, oder einen Zähler mitlaufen lassen, der in Einzelschritten zwischendurch den Stand des Laufes anzeigte.
Jetzt habe ich die Intervalle des Anzeigens von 1 auf 500 angehoben, oder ganz abgeschaltet, wenn die DB nicht zu groß war. Es ist doch tatsächlich ein Tempogewinn von ca. 50% mindestens zu erreichen. Also frißt die Anzeige jedes einzelnen Increment ganz schön Performance.

Nur mal so, falls es einen interessieren sollte

Vielleicht hat jemand von euch noch ein paar Tricks, oder Experimente auf dem Gebiet gemacht und kann sie hier unterbringen? Wäre doch sicherlich interessant zu erfahren, bei welchen Abläufen man noch Geschwindigkeit herauskitzeln kann.

[Martin Altmann]

Hallo Manfred,

Ich habe bisher jedesmal beim Durchlaufen einer Datenbank die RECNO() angezeigt, oder einen Zähler mitlaufen lassen, der in Einzelschritten zwischendurch den Stand des Laufes anzeigte.
Jetzt habe ich die Intervalle des Anzeigens von 1 auf 500 angehoben, oder ganz abgeschaltet, wenn die DB nicht zu groß war.

nur zum Verständnis: Du hast doch Deine Prüfung nicht in der Funktion mit der Ausgabe gemacht, sondern vorher, oder?
Also: erst geprüft, ob die Funktion aufgerufen werden soll
und nicht: immer aufgerufen, und in der Funktion geprüft, ob eine Nummer geschrieben werden soll
Ersteres ist nicht nämlich wesentlich schneller als letzteres

Viele Grüße,
Martin

[Manfred]

Moin Martin,

Hallo Manfred,
nur zum Verständnis: Du hast doch Deine Prüfung nicht in der Funktion mit der Ausgabe gemacht, sondern vorher, oder?
Also: erst geprüft, ob die Funktion aufgerufen werden soll
und nicht: immer aufgerufen, und in der Funktion geprüft, ob eine Nummer geschrieben werden soll
Ersteres ist nicht nämlich wesentlich schneller als letzteres

wie ich es im Falle des Indexaufbaus gemacht hatte, weißt Du ja schon. Beim Ablauf eines Durchlaufes lief es vereinfacht so:

DO WHILE ! db->(EOF())
@ x,y SAY db->RECNO()) PICTURE "9999999"
db->(DBSKIP())
ENDDO
das habe ich dann so geändert:

nZaehler := 0
DO WHILE ! db->(EOF())
nZaehler++
IF nZaehler = 500
@ x,y SAY db->RECNO()) PICTURE "9999999"
nZaehler := 0
ENDIF
db->(DBSKIP())
ENDDO

Das hat dann den besagten Tempogewinn gebracht. Mir fällt nicht ein, wie man das eleganter machen könnte um noch mehr Tempo herauszuholen.
Ich rede jetzt rein vom Textmodus.

[Martin Altmann]

Hallo Manfred,

Vielleicht hat jemand von euch noch ein paar Tricks, oder Experimente auf dem Gebiet gemacht und kann sie hier unterbringen? Wäre doch sicherlich interessant zu erfahren, bei welchen Abläufen man noch Geschwindigkeit herauskitzeln kann.

hatte ich an anderer Stelle schon mal geschrieben (glaube ich): Wenn man eine (kleinere) Datenbank hat, aus der man immer wieder Daten braucht, ist es oft schneller, diese in ein Array zu laden und die Daten dann aus diesem Array heraus zu benutzen.

Viele Grüße,
Martin