EpikTimer/de: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		(Befindet sich in Übersetzung...)
2	2
3	3		### Beschreibung
4	4
5	5		EpikTimer ermöglicht dem Programmierer eine extrem genaue Zeitmessung - etwa für sehr kurz aufeinanderfolgende Ereigniss. Epiktimer lässt sich einfach verwenden, verbraucht keine CPU-Resourcen und benötigt nur 25 Bytes zusätzlichen RAM bei der Ausführung des Programms. Intern unterstützt diese Komponente einen einzigen Timer - extern kann jedoch eine beliebige Anzahl an Zeitmessungen deklariert und ausgeführt werden.
6	6
7	7		Die Komponente EpikTimer ist plattformunabhängig und wurde spezielle für die Lazarus-IDE sowie den FreePascal-Compiler geschrieben.
8	8
9	9		### Autor
10	10
11	11		Tom Lisjac
12	12
13	13		#### Unterstützer
14	14
15	15		- Felipe Monteiro de Carvalho
16	16		- Marcel Minderhoud
17	17
18	18		### Lizenz
19	19
20	20		[LGPL](http://www.opensource.org/licenses/lgpl-license.php) (Kontaktieren Sie den Autor, wenn die LGPL unvereinbar mit Ihrem Projekt ist)
21	21
22	22		### Download
23	23
24	24		In der Downloaddatei sind die EpikTimer Komponente, zugehörige Installationsroutinen sowie ein Beispielprogramm zur Illustration der Fähigkeiten der Komponente.
25	25
26	26		Die neuste stabile Version gibt es auf der [Lazarus CCR-Dateien Website](http://sourceforge.net/project/showfiles.php?group_id=92177) oder [hier](http://sourceforge.net/project/showfiles.php?group_id=92177&package_id=98235).
27	27
28	28		Status: Production/Stable
29	29
30	30		### Änderungs Log
31	31
32	32		- Initially written on 24-06-2003 TL
33	33		- Pre-release 30-06-2003 TL - Needs testing on the BSD's and Win32
34	34		- Version 0.1 1-7-2003 TL
35	35
36	36		1. initial beta release
37	37
38	38		- Version 0.2 3-7-2003 TL
39	39
40	40		1. Revised logic around hardware detection to prevent executing extended instructions if the HasCapabilityData call returns false.
41	41		2. Removed exposed low level diagnositic functions from unit interface.
42	42		3. Revised demo.
43	43
44	44		- Version 0.3 15-11-2005
45	45
46	46		1. Updated 0.2 version to make it compile on the latest Lazarus (0.9.10).
47	47		2. Added LCL to the required packages.
48	48		3. Changed mode to Delphi in order to compile.
49	49		4. Changed windows timebase to use QueryPerformanceCounter, because has a much greater precision then GetSystemTime.
50	50		5. Added changes to ensure the component compiles on Delphi 7.0
51	51		6. Made tests on Windows and Linux
52	52		7. Small changes to the demo to make it compile
53	53
54	54		- Version 1.0 06-10-2006
55	55
56	56		1. Changes for 64 bits operation
57	57		2. Added units BaseUnix, Unix and UnixUtil, removed oldlinux (obsolete)
58	58		3. Gettimeofday -\> fpGettimeofday
59	59		4. Changed systemsleep for 64 bits systems
60	60		5. Some changes in timeval
61	61		6. Tested on AMD64 (linux)
62	62
63	63		### Abhängigkeiten / Systemvoraussetzungen
64	64
65	65		- Für eine nanosekundengenaue Zeitmessung wird eine Intel-Pentium-kompatible CPU mit einem "Timestamp Counter" benötigt.
66	66		- Eine mikrosekundengenaue Zeitmessung wird auf allen Systemen unterstützt.
67	67
68	68		Getestet auf den folgenden Systemen:
69	69
70	70		- Pentium IV 3,2Mhz (Unter Linux wie Windows mit großer Präzession (~ 3,220,000,000 ticks per second))
71	71		- Pentium 233Mhz unter Damm Small Linux. Arbeitet mit Hardware Uhr.
72	72		- Mobile AMD 64 Athlon 3200+ unter Windows XP Home (32 bit), Lazarus 9.13
73	73		- AMD 64 CPU, unter Ubuntu Linux 64 bit, Lazarus 9.18.
74	74
75	75		Issues: Muss noch unter FreeBSD sowie älteren Rechnern ohne TSC-Hardware getestet werden.
76	76
77	77		### Installation
78	78
79	79		- Starten Sie Lazarus.
80	80		- Öffnen Sie im Menü "Komponenten -\> Package-Datei öffnen" die Datei "etpackage.lpk".
81	81		- Kompilieren Sie die Komponente testweise, um sicher zu gehen, dass sie vollständig ist.
82	82		- Erstellen Sie Lazarus erneut unter "Werkzeuge -\> Lazarus erstellen"
83	83
84	84		- Die Komponente EpicTimer erscheint nun in dem Reiter "System" (Stoppuhr-Icon)
85	85
86	86		### Verwendung
87	87
88	88		Ziehen sie die Komponente auf ein Formular. Die Komponente beinhaltet eine Timer-Instanz, die parameterlos gestartet, gestoppt, abgefragt und zurückgesetzt werden kann.
89	89
90	90		Beispiel: Timer ET
91	91
92	92		`Procedure InstrumentedCall;`\
93	93		` Begin`\
94	94		` ET.Clear; // optional... timer is cleared at creation`\
95	95		` ET.Start;`\
96	96		` ExecuteFirstTimedSection;`\
97	97		` ET.Stop; // the timer is actually paused and can be restarted later`\
98	98		` TimedSection1:=ET.Elapsed; // store the elapsed in a global`\
99	99		` MakeAnUntimedOverheadCall; // not counted in the timer`\
100	100		` ET.Start; //resume the timer... continue accumulating ticks`\
101	101		` CallTimedSection2;`\
102	102		` TimedSection2:=ET.Elapsed; //timer keeps running... we've just sample it.`\
103	103		` CallTimedSection3;`\
104	104		` CallSomethingElse;`\
105	105		` TimedSection3:=ET.Elapsed; //keep counting... tap the elapsed`\
106	106		` CallTimedSection4;`\
107	107		` TimedSection4:=ET.Elapsed; //keep counting... tap the elapsed`\
108	108		` ET.clear // done... timer is stopped and zeroed`\
109	109		` end;`
110	110
111	111		Sie können aus einer einzigen Komponente eine beliebige Anzahl an Timer erstellen, indem Sie einen TimerData-record deklarieren. You can also create any number of timers from a single component on the form by declaring a TimerData record and passing it as a parameter to start, stop, elapsed and clear using the overloaded methods in the component. Ein Beispiel wäre:
112	112
113	113		`Function TimedExecution:Extended;`\
114	114		` Var DiskAccessTime:TimerData;`\
115	115		` Begin`\
116	116		` ET.Clear(DiskAccessTimer); // Declared timers must be cleared before use. `\
117	117		` ET.Start(DiskAccessTimer);`\
118	118		` ExecuteTheTimedSection;`\
119	119		` Result:=ET.Elapsed(DiskAccessTimer); // the timer keeps running...`\
120	120		` etc...`
121	121
122	122		One particular use for EpikTimer is checking is a given amount of time has elapsed before continuing with a task or to another iteration of the same task.
123	123
124	124		DelayInSeconds := 8.5; // oder einen beliebigen Wert
125	125		OldTime := ET.Elapse;
126	126
127	127		while ((ET.Elapsed - OldTime) < DelayInSeconds) do
128	128		begin
129	129		ET.SystemSleep(10);
130	130		end;
131	131
132	132		// DelayInSeconds ist abgelaufen und jetzt können sie mit der Ausführung des Codes fortfahren
133	133
134	134		Siehe etdemo.pas für zusätzliche Beispiele der Verwendung der Komponente.
135	135
136	136		### Die ETDemo Anwendung
137	137
138	138		Zum Kompilieren und Ausführen der ETDemo Anwendung ist es nicht erforderlich, dass EpikTimer installiert ist. Ich mochte noch nie eine Palette voller Komponenten nur um herauszufinden, dass ich keine von ihnen mag! :)
139	139
140	140		Installation
141	141
142	142		- Öffnen sie etdemo.lpi
143	143		- Kompilieren
144	144		- Starten
145	145
146	146		### Mitwirkende
147	147
148	148		Diese Seite wurde vom epikwiki konvertiert. Der originale Inhalt stammt von Tom Lisjac.\
149		-	\
150	149
151	150		---
152	151		From the Free Pascal wiki, page "EpikTimer/de", as it stood on 2015-09-27 after a change by FTurtle, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
153	152		Category: FCL/de

Back to history