Velocidade do processador (Hz)

Question

Aqui estou eu novamente com mais uma pergunta de resposta �til...Outro dia precisei de uma fun��o que me retornasse o n�mero de ciclos do processador...O amigo e_gama respondeu, veja a resposta em: ht...

Aroldo Zanela · Answer

Peguei aqui no Clube:[code:1:9173f31bf1]const  ID_BIT = $200000; // EFLAGS ID bitfunction GetCPUSpeed: Double;const DelayTime = 500;var TimerHi, TimerLo: DWORD; PriorityClass, Priority: integer;begin try  priorityclass := getpriorityclass(GetCurrentProcess);  Priority := GetThreadPriority(GetCurrentThread);  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);  Sleep(10);  asm  dw 310Fh // rdtsc  mov TimerLo, eax  mov TimerHi, edx   end;   Sleep(DelayTime);   asm   dw 310Fh // rdtsc   sub eax, TimerLo   sbb edx, TimerHi   mov TimerLo, eax   mov TimerHi, edx   end;SetThreadPriority(GetCurrentThread, Priority);SetPriorityClass(GetCurrentProcess, PriorityClass);Result := TimerLo / (1000.0 * DelayTime);except end;end;procedure TForm1.Button1Click(Sender: TObject);var cpuspeed : string;begin  cpuspeed := format(��f MHz�, &#91;getcpuspeed&93;);  edit1.text := cpuspeed;end;[/code:1:9173f31bf1]...

Carlos Filho · Answer

[quote:42cdb05962=�Aroldo Zanela�]Peguei aqui no Clube:

const
  ID_BIT = $200000; // EFLAGS ID bit

function GetCPUSpeed: Double;

const
 DelayTime = 500;

var
 TimerHi, TimerLo: DWORD;
 PriorityClass, Priority: integer;
begin
 try
  priorityclass := getpriorityclass(GetCurrentProcess);
  Priority := GetThreadPriority(GetCurrentThread);

  SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

  Sleep(10);
  asm
  dw 310Fh // rdtsc
  mov TimerLo, eax
  mov TimerHi, edx
   end;
   Sleep(DelayTime);
   asm
   dw 310Fh // rdtsc
   sub eax, TimerLo
   sbb edx, TimerHi
   mov TimerLo, eax
   mov TimerHi, edx
   end;

SetThreadPriority(GetCurrentThread, Priority);

SetPriorityClass(GetCurrentProcess, PriorityClass);
Result := TimerLo / (1000.0 * DelayTime);
except end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 cpuspeed : string;
begin

  cpuspeed := format(��f MHz�, [getcpuspeed]);
  edit1.text := cpuspeed;
end;

[/quote:42cdb05962]

valeu pela ajuda, vou testar agora!

E_gama · Answer

Amigo Derek, caso queira dar uma olhada, segue um exemplo que faz isso. Na verdade, o c�digo � muito parecido com esse que o nosso amigo Aroldo Zanela postou.

[url]http://br.groups.yahoo.com/group/es_gama_ejay/files/calcticks.zip[/url]

Carlos Filho · Answer

[quote:d89bb1e415=�e_gama�]Amigo Derek, caso queira dar uma olhada, segue um exemplo que faz isso. Na verdade, o c�digo � muito parecido com esse que o nosso amigo Aroldo Zanela postou.[url]//br.groups.yahoo.com/group/es_gama_ejay/files/calcticks.zip[/url][/quote:d89bb1e415]Opa valeu pela dica, vou pegar o arquivo...Mas j� terminei o programa � coisa simples mesmo ele conta o tempo que a m�quina est� ligada...� simples. valeu!...