Aplikasi Mengetahui Kecepatan CPU

Pertemuan 9 /Lab D (TK)

Nach postingan kali ini saya mau mencoba share lagi pengetahuan  yang baru saya dapatkan dari kuliahan dan langsung saya praktekan sendiri..hehe..mata kuliah pembuatan aplikasi ini adalah Pemograman Visual ll ,dengan menggunakan program Delphi 7,aplikasi ini kita bisa mengetahui speed CPU kita  ketika sedang menjalankan perintah-perintah komputer.

Ok langsung aja ya kita  lihat hasilnya  di bawah ini!!

Tampilan Desain

Untuk menjalankan aplikasi ini kita klik teks perintah yang ada di form tesebut dan aplikasi ini akan membaca berapa speed CPU kita.

  Hasil

Kemudian hasil perintah aplikasi di atas tadi seperti ini tampilannya.

Dwonload aplikasinya disini !!

Listing Pembuatannya.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
function GetCPUSpeed:Double;
const
DelayTime=500;
var
TimerHi,TimerLo:DWORD;
PriorityClass,Priority:integer;
begin
PriorityClass:=GetPriorityClass(GetCurrentProcess);
Priority:=GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess,REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread,THREAD_PRIORITY_TiME_CRITICAL);
Sleep(10);
asm
dw 310Fh
mov TimerLo,eax
mov TimerHi,edx
end;
Sleep(DelayTime);
asm
dw 310Fh
sub eax,TimerLo
sub edx,Timerhi
mov TimerLo,eax
mov TimerHi,edx
end;
SetThreadPriority(GetCurrentThread,Priority);
SetPriorityClass(GetCurrentProcess,PriorityClass);
Result:=TimerLo/(1000.0*DelayTime);
end;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:='Klik Disini Jika Ingin Mengetahui Kecepatan CPU Anda !!';
label1.Font.Size:=12;
end;

procedure TForm1.Label1Click(Sender: TObject);
var stop:Boolean;
begin
stop:=false;
while not stop do
begin
label1.Caption:=Format('CPU speed:%fMHz',[GetCPUSpeed]);
application.ProcessMessages;
end;
end;

end.