timeGetTime Division durch 0

[EWeiss]

Um mein Fenster(bis es grau ist) stepweise einzufaden verwende ich timeGetTime
Mein Problem dabei ist nun das wenn ich die Anwendung debugge das ich ein Division durch 0 erhalte bedingt durch den Haltepunkt.
Wie kann ich diesen fehler abfangen?

WinProcessmessages scheint dafür nicht die ideale lösung.

gruss

[BUG]

Bei was genau erhälst du eine Division durch Null?
Wenn du irgendwie durch eine Variable teilst: überprüfe sie doch einfach vorher und setze sie etweder auf einen vernünftigen Wert oder lass dann das Dividieren.

[EWeiss]

Zitat von BUG:

Bei was genau erhälst du eine Division durch Null?
Wenn du irgendwie durch eine Variable teilst: überprüfe sie doch einfach vorher und setze sie etweder auf einen vernünftigen Wert oder lass dann das Dividieren.

Mach ich doch timeGetTime läuft weiter oder ? Wie soll ich das aufhalten..

Delphi-Quellcode:

   for IntI := 0 to 100 do
   begin
    dwStartCount := timeGetTime;

      if m_hNewBitmap <> 0 then
      begin
         DeleteObject(m_hNewBitmap);
         m_hNewBitmap := 0;
      end;

      m_hNewBitmap := FadeBitmap(m_hBitmap, IntI);

      OnDraw(ClientDC);

      dwEndCount := timeGetTime;

      if nStep = 0 then
      begin
         // timer frequency calculation
         if (dwEndCount > dwStartCount) then
            nStep := 1500 div (dwEndCount - dwStartCount)
         else
         nStep := 20;

         // time to frequency
         nStep := 100 div nStep;

         nStep := max(nStep,  3);
         nStep := min(nStep, 49);

      end;
   end;

Hier kracht es meistens
Aber nur wenn ich die Schleife duch einen Haltepunkt unterbreche.


nStep := 100 div nStep;

gruss

[himitsu]

Zitat von EWeiss:

Wie kann ich diesen fehler abfangen?

Dafür sorgen, daß der Divisor nicht 0 ist.
Das ist die einzige korrekte Möglichkeit.

Via IF prüfen, ob 0 und dann was Anderes machen.

[Uwe Raabe]

Wenn das Programm am BreaakPoint anhält, kann es vorkommen, daß die Differenz der beiden TimeStamps größer als 1500 ms ist. Dann wird nStep = 0.

Daß kann übrigens auch durch einen längeren Aufenthalt in OnDraw passieren.

[EWeiss]

Zitat von himitsu:

Zitat von EWeiss:

Wie kann ich diesen fehler abfangen?

Dafür sorgen, daß der Divisor nicht 0 ist.
Das ist die einzige korrekte Möglichkeit.

Via IF prüfen, ob 0 und dann was Anderes machen.

Versteh ich schon da bleibt mir nix anderes übrig.

Delphi-Quellcode:

  if nStep = 0 then
  break;
      
  // time to frequency
  nStep := 100 div nStep;

Zitat:

Daß kann übrigens auch durch einen längeren Aufenthalt in OnDraw passieren.

Will nicht hoffen dass das passiert dann wäre mein Bild nur Halb Grau
In dem Fall müßte ich mir noch was anderes überlegen.
Das zeichnen sollte aber eigentlich in 1.5 Sekunden erledigt sein.

gruss

[TiGü]

Mir fehlt ein bisschen der Kontext und weiterer Quellcode, um das Ursprungsproblem zu verstehen, aber warum nimmst du nicht einfach einen TTimer und machst das Schrittweise einfaden über OnTimer?

[EWeiss]

Zitat von TiGü:

Mir fehlt ein bisschen der Kontext und weiterer Quellcode, um das Ursprungsproblem zu verstehen, aber warum nimmst du nicht einfach einen TTimer und machst das Schrittweise einfaden über OnTimer?

Danke im moment geht es ja..
Sollte jedoch das Faden nicht so sein wie ich es mir wünsche (abhängig von der Zeit) wäre das eine alternative.

PS:
TTimer kann ich so nicht verwenden müßte dann ein APITimer sein (bzw. bevorzugt) da ich über keine Form in der DLL verfüge.
Wäre aber kein problem das zu machen .. notfalls

gruss

[Medium]

Nen Thread eventuell? Damit mach ich eh immer meine Fading-Forms. Ziemlich handlich!