[badarudinhasan]

Langsung aja yak , Maaf Min Mod ane belom bisa masuk ke SF yang benar
soalnya masih ada syarat

btw pasti yang udah pengalaman tau software ini
yap yaitu TMS Commponen
itu tuh yang buat tampilan aplikasi di delphi menjadi menarik

ane mau share cara gunain ke yang bagian speed nya aja

Spoiler:

- pertama buka delphi 7 nya
- lalu buka form yang udah agan" sekalian uwik"
- Pada variabel, kita tambahkan dulu seperti ini:
Download : Integer;
Upload : Integer;

- Kemudian, kita tambahkan pada bagian Execute:
upload:= upload+Length(AThread.NetData);
- dan bagian OutBound:
download:= download+Length(AThread.NetData);

- Cara masih sama seperti membuat traffic menggunakan label.Sebagaimana coding yang kita letakan pada Timer awalnya menggunakan label seperti berikut:
Label1.Caption := FormatFloat('Down: ##0.## KB/s',download/1024);
Label2.Caption := FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;

- Jangan dihapus. Rubah saja menjadi seperti ini:
Label1.Caption := FormatFloat('Down: ##0.## KB/s',download/1024);
Label2.Caption := FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;

- Kemudian tambahkan komponen TMS VrNum. (Komponent ada di akhir postingan ini)

- Beri 2 buah VrNum dan tambahkan pada bagian bawah coding label tadi menjadi seperti ini:

sLabel3.Caption := FormatFloat('0',download/1024);
sLabel4.Caption := FormatFloat('0',upload/1024);
VrNum1.Value := StrToInt (sLabel1.Caption);
VrNum2.Value := StrToInt (sLabel2.Caption);
download:= 0;
upload:= 0;
- Coba Run atau tekan F9

CMIIW
Selamat Berkreasi.

Download Komponen

Register or login to see this content