Паскаль / do11 / tmtp390d / SAMPLES / ZENTIMER / Ulztest

(***********************************************)
(* *)
(* Demo Program for ZenTimer Unit *)
(* Copyright (c) 1999 by TMT Development Corp. *)
(* Author: Vadim Bodrov, TMT Development Corp. *)
(* *)
(* Targets: *)
(* MS-DOS 32-bit protected mode *)
(* OS/2 console application *)
(* WIN32 console application *)
(* *)
(***********************************************)

program ULZTest;

{$ifndef __CON__}
This program must be compiled for MS-DOS, OS/2 or Win32 console mode
{$endif}

uses ZenTimer,CRT;

var
Timer1: ULZTimer; // ULZTimer #1
Timer2: ULZTimer; // ULZTimer #2
Key: Char;

function ZeroFill(n: Real): String;
var
i: Dword;
s: String;
begin
str(n:10:2,s);
Result := '';
for i := 1 to Length(s) do
if s[i] = ' ' then
Result := Result + '0'
else
Result := Result + s[i];
end;

begin
ULZTimerOn;

ClrScr;
HideCursor;
Writeln('Zen Timer Demo');
Writeln('Copyright (c) 1995-99 TMT Development Corporation');
Writeln;

Writeln('CPU type : ', CPUTypes[CPU_getProcessorType]);
Writeln('CPU speed : ', CPU_getProcessorSpeed,' Mhz');

Write('RDTSC instruction : ');
if CPU_haveRDTSC then
Writeln('Supported')
else
Writeln('Not supported');

Write('MMX technology : ');
if CPU_haveMMX then
Writeln('Supported')
else
Writeln('Not supported');

Write('3DNow! technology : ');
if CPU_have3DNow then
Writeln('Supported')
else
Writeln('Not supported');

Timer1.Start;
Timer2.Start;

GotoXY(1, 13);
Writeln('Press "Esc" to quit this test');
repeat
if Keypressed then
Key := ReadKey
else
Key := Char(0);
GotoXY(1, 10);
Writeln('ULZ Timer #1 : ', ZeroFill(Timer1.Lap * Timer1.Resolution),
' - press `1` to restart this timer');
Writeln('ULZ Timer #2 : ', ZeroFill(Timer2.Lap * Timer2.Resolution),
' - press `2` to restart this timer');

if Key='1' then Timer1.Restart;
if Key='2' then Timer2.Restart;
until Key = #27;

GotoXY(1, 17);
Writeln('Wait for 3 seconds..');
ULZDelay(Trunc(3 / ULZTimerResolution));

Timer1.Stop;
Timer2.Stop;
ShowCursor;

ULZTimerOff;

Writeln;
Writeln('Test performing time: ', Round(ULZTimerCount * ULZTimerResolution), ' secs.');
end.