Benutzer:Damadmax - Versionsgeschichte

Damadmax: /* Klassen */

2008-06-30T23:49:40Z

‎Klassen

Damadmax: /* Timing Klasse */

2008-06-30T23:38:39Z

‎Timing Klasse

Damadmax: /* Klassen */

2008-06-30T23:38:23Z

‎Klassen

Damadmax: /* Klassen */

2008-06-30T23:36:32Z

‎Klassen

Damadmax am 30. Juni 2008 um 23:32 Uhr

2008-06-30T23:32:18Z

Damadmax am 10. November 2007 um 16:50 Uhr

2007-11-10T16:50:10Z

Damadmax am 10. November 2007 um 16:48 Uhr

2007-11-10T16:48:36Z

Damadmax am 10. November 2007 um 16:48 Uhr

2007-11-10T16:48:21Z

Damadmax: Die Seite wurde neu angelegt: ''BETRETEN DER BAUSTELLE AUF EIGENE GEFAHR!'' == Über mich == == Testanwendungen == Die ich in den vergangenen Monaten geschrieben habe. === Landschaft ===

2007-11-10T16:40:05Z

Die Seite wurde neu angelegt: ''BETRETEN DER BAUSTELLE AUF EIGENE GEFAHR!'' == Über mich == == Testanwendungen == Die ich in den vergangenen Monaten geschrieben habe. === Landschaft ===

Neue Seite

''BETRETEN DER BAUSTELLE AUF EIGENE GEFAHR!''

== Über mich ==

== Testanwendungen ==
Die ich in den vergangenen Monaten geschrieben habe.
=== Landschaft ===

@@ Zeile 6: / Zeile 6: @@
 Über die vergangene Zeit sind ein paar Klassen entstanden, die vielleicht für den ein oder anderen nützlich sein könnten.
 Dies ist die Timing-Klasse wie ich sie in allen meiner Testprogramme und Projekte verwende.
 <pascal>unit DETiming;
@@ Zeile 72: / Zeile 71: @@
 ==Klasse Profiler==
 <pascal>
 unit DEProfiler;
@@ Zeile 80: / Zeile 82: @@
    TDEProfiler = class
    public
-     constructor Create;overload;
+     constructor Create; overload;
-     constructor Create(AMeasureCount:word);overload;
+     constructor Create(AMeasureCount:word); overload;
      procedure Add(AIndex:word);
      function GetSum: int64;
      function GetValue(AIndex:word): int64;
      function AsString : String;                          // Hilfsfunktion fuer Logausgabe   (in %)
-     destructor Destroy; override;
+     procedure Reset;
    private
@@ Zeile 95: / Zeile 98: @@
      procedure Init(ASize:word);
      function CheckRange(AIndex:word): Boolean;
    end;
@@ Zeile 101: / Zeile 105: @@
 uses
-   Windows;
+   Windows,
 constructor TDEProfiler.Create;
 begin
    inherited Create;
-   Init(32);                 // Standardmaessig 32 Eintraege
+   Init(8);                 // Standardmaessig 8 Eintraege
 end;
@@ Zeile 115: / Zeile 120: @@
 end;
-procedure TDEProfiler.Init(ASize:word);
+destructor TDEProfiler.Destroy;
 begin
-   FSize := ASize;
+   inherited Destroy;
 end;
@@ Zeile 147: / Zeile 150: @@
 end;
-function TDEProfiler.CheckRange(AIndex:word): Boolean;
+procedure TDEProfiler.Reset;
 begin
-   Result := (Low(FMeasuredValues) <= AIndex) and (High(FMeasuredValues) >= AIndex);
+   ResetValues;
 end;
 function TDEProfiler.AsString: String;
 var
-   i : integer;
+   i : word;
 begin
    for i := Low(FMeasuredValues) to High(FMeasuredValues) do begin
@@ Zeile 161: / Zeile 164: @@
 end;
-destructor TDEProfiler.Destroy;
+procedure TDEProfiler.Init(ASize:word);
 begin
-   inherited Destroy;
+   Result := (Low(FMeasuredValues) <= AIndex) and (High(FMeasuredValues) >= AIndex);
 end;

@@ Zeile 8: / Zeile 8: @@
 Dies ist die Timing-Klasse wie ich sie in allen meiner Testprogramme und Projekte verwende.
-==Timing Klasse==
+==Klasse Timing==
 <pascal>unit DETiming;

@@ Zeile 70: / Zeile 70: @@
    QPCLast          := QPCNow;                          // PerfCounter speichern
 end;</pascal>
 =Testanwendungen=
 Die ich in den vergangenen Monaten geschrieben habe.
 ==Landschaft==

@@ Zeile 8: / Zeile 8: @@
 Dies ist die Timing-Klasse wie ich sie in allen meiner Testprogramme und Projekte verwende.
 <pascal>unit DETiming;
@@ Zeile 69: / Zeile 70: @@
    QPCLast          := QPCNow;                          // PerfCounter speichern
 end;</pascal>
 =Testanwendungen=
 Die ich in den vergangenen Monaten geschrieben habe.
 ==Landschaft==

← Nächstältere Version		Version vom 30. Juni 2008, 23:32 Uhr
Zeile 2:		Zeile 2:
	''BETRETEN DER BAUSTELLE AUF EIGENE GEFAHR!''		''BETRETEN DER BAUSTELLE AUF EIGENE GEFAHR!''

		+	=Klassen=
		+
		+	Über die vergangene Zeit sind ein paar Klassen entstanden, die vielleicht für den ein oder anderen nützlich sein könnten.
		+
		+	Dies ist die Timing-Klasse wie ich sie in allen meiner Testprogramme und Projekte verwende.
		+
		+	<pascal>unit DETiming;
		+
		+	interface
		+
		+	type
		+	TDETiming = class
		+	public
		+	constructor Create;
		+	destructor Destroy; override;
		+	procedure Init;
		+	procedure Tick;
		+
		+	var
		+	FrameTime : single;
		+	FramesPerSecond : single;
		+	FrameTimeInMs : single;
		+	TotalFramesDrawn : int64;
		+	CurrentFrames : integer;
		+	TotalTimeRunning : single;
		+
		+	private var
		+	QPCFreq : int64;
		+	QPCLast : int64;
		+	QPCNow : int64;
		+	end;
		+
		+	implementation
		+
		+	uses
		+	Windows;
		+
		+	constructor TDETiming.Create;
		+	begin
		+	inherited Create;
		+	Init;
		+	end;
		+
		+	destructor TDETiming.Destroy;
		+	begin
		+	inherited Destroy;
		+	end;
		+
		+	procedure TDETiming.Init;
		+	begin
		+	QueryPerformanceCounter(QPCLast);
		+	QueryPerformanceFrequency(QPCFreq);
		+	CurrentFrames := 0;
		+	TotalFramesDrawn := 0;
		+	TotalTimeRunning := 0;
		+	end;
		+
		+	procedure TDETiming.Tick;
		+	begin
		+	QueryPerformanceCounter(QPCNow); // PerfCounter abfragen
		+	TotalFramesDrawn := TotalFramesDrawn + 1; // Selbsterklaerend :)
		+	FrameTimeInMS := (QPCNow - QPCLast) / QPCFreq; // Zeit in Millisekunden pro Frame; fuer Timebased Movement
		+	FrameTime := FrameTimeInMS * 1000.0; // Zeit in Sekunden
		+	TotalTimeRunning := TotalTimeRunning + FrameTime; // Laufzeit in Sekunden
		+	FramesPerSecond := 1.0 / FrameTimeInMs; // Frames pro Sekunde
		+	QPCLast := QPCNow; // PerfCounter speichern
		+	end;</pascal>

@@ Zeile 1: / Zeile 1: @@
-= Über mich =
+=Über mich=
 ''BETRETEN DER BAUSTELLE AUF EIGENE GEFAHR!''
-= Testanwendungen =
+=Testanwendungen=
 Die ich in den vergangenen Monaten geschrieben habe.
-== Landschaft ==
+==Landschaft==

← Nächstältere Version		Version vom 10. November 2007, 16:48 Uhr
Zeile 1:		Zeile 1:
		+	= Über mich =
	''BETRETEN DER BAUSTELLE AUF EIGENE GEFAHR!''		''BETRETEN DER BAUSTELLE AUF EIGENE GEFAHR!''

−	~~= Über mich =~~