Fortschrittsanzeige

Bei Verarbeitungen die länger als ein paar Sekunden dauern, gehört es zum guten Ton, den Anwender über eine Fortschrittsanzeige über den aktuellen Status der Operation zu informieren.

In diesem Artikel stelle ich ein universelles Modul zur Steuerung einer Fortschrittsanzeige unter Verwendung des Progress-Objektes vor.

Das Modul SysPrg, das Sie am Ende des Artikels downloaden können basiert auf dem Paradigma der Modularen Programmierung und stellt eine definierte Schnittstelle zur Anzeige von Fortschrittsinformationen zur Verfügung.

Im einfachsten Fall werden nur drei Funktionen benötigt, um einen ansprechenden Dialog zur Visualisierung eines Fortschritts anzuzeigen:

// Anzahl Elemente
tCount # 500;

// Fortschrittanzeige starten
Prg.Start(tCount);

for   tCounter # 1;
loop  Inc (tCounter);
while (tCounter <= tCount)
{
  // Fortschritt aktualisieren
  if (Prg.Update(tCounter, 0, CnvAI(tCounter)) < 0)
    // Abbruch
    break;

  // Verarbeitung
  // ...
}

// Fortschrittsanzeige beenden
Prg.Stop();

Mit der Funktion Prg.Start() wird die Fortschrittsanzeige gestartet. Dabei wird die Anzahl der zu verarbeitenden Elemente übergeben. Anschließend wird innerhalb einer Schleife mit der Funktion Prg.Update() der Fortschritt aktualisiert. Hierfür wird das aktuelle Element und ein optionaler Elementtext übergeben. Am Ende der Verarbeitung wird die Anzeige durch die Funktion Prg.Stop() beendet.

Der dargestellte Dialog sieht so aus:

Neben dem Fortschrittsbalken, der den prozentualen Fortschritt der Verarbeitung anzeigt, wird auch das aktuelle Element, die Anzahl der bereits verarbeiteten Elemente, die geschätzte noch benötigte Zeit und die durchschnittliche Geschwindigkeit angezeigt.

Wird die dargestellte Abbrechen-Schaltfläche gedrückt, liefert die Funktion Prg.Update() einen negativen Wert zurück und die Verarbeitungsschleife wird abgebrochen.

Durch die Übergabe weiterer Argumente an die Funktion Prg.Start(), kann die Anzeige um einen Titel und eine Einheit ergänzt werden. Außerdem kann über Optionen gesteuert werden, ob der Elementtext und die Abbrechen-Schaltfläche angezeigt werden sollen:

Prg.Start(
  tCount, // Anzahl Elemente
  'Datenbank sichern', // Titel
  'MB', // Einheit
  0, // Aktualisierungsintervall [ms] (Standard: 1000)
  0.0, // Faktor (Standard: 1.0)
  _Prg.NoText | _Prg.NoStop // Optionen
);

Der dabei dargestellte Dialog sieht so aus:

Statt für die Fortschrittsanzeige einen eigenen Dialog zu starten, kann das Modul den Fortschritt auch in einem bereits sichtbaren Fenster anzeigen. Dazu müssen die Deskriptoren der anzusteuernden Oberflächenobjekte beim Aufruf der Funktion Prg.Start() übergeben werden:

with MyFrame
{
  Prg.Start(
    tCount, // Anzahl Elemente
    '', // Titel
    '', // Einheit
    0, // Aktualisierungsintervall [ms] (Standard: 1000)
    0.0, // Faktor (Standard: 1.0)
    0, // Optionen
    $:prgProgress, // Progress-Objekt
    0, // Label-Objekt für Elementtext
    $:lblProgress // Label-Objekt für Fortschrittsinformation
  );
}

Eine solche Fortschrittsanzeige könnte beispielsweise so aussehen:

Das Modul bietet noch weitere Möglichkeiten zur Konfiguration der Fortschrittsanzeige. Laden Sie sich die Ressourcen herunter und probieren Sie es doch einfach mal aus.