Cara Membuat Speedometer Traffic Dengan Delphi

Tutorial Cara Membuat Speedometer Traffic Dengan Delphi, Tutorial Snippet ini tidak begitu ribett dan susah, jadi simak dengan seksama langkah langkahnya, dan anda siap mempercantik tampilan project Delphi anda dengan memakai Speedometer ini,

Langsung saja biar ga kepanjangan ...

Anda membutuhkan Komponen VrAngularMeter

1. 2 VrAngularMeter1 Timer
2. 2 Label
3. 1Timer

Letakan Code berikut pada var :

var
Download : Integer;
Upload : Integer;

Lalu Letakan Code Pemanggilan pada Tcp anda

Tcpexecute :

upload:= upload+Length(AThread.NetData);

Tcpoutbound :

download:= download+Length(AThread.NetData);

Letakan Kode Dibawah ini pada Timer :

Label1.Caption := FormatFloat('0',download/1024);
Label2.Caption := FormatFloat('0',Upload/1024);
VrAngularMeter1.Position := StrToInt (Label1.Caption); // Down speedometer
VrAngularMeter2.Position := StrToInt (Label2.Caption); // upload speedometer
download:= 0;
Upload:= 0;

Selesai :D