Cara pakai TMS Component

Halo Sobat Toke Ketemu lg dengan Cireng saya akan Share Cara membuat Traffic UL & DL Digital dengan Delphi7. Penampakan:

langsung saja yg mau silakan simak :

1.Pada variabel, kita tambahkan dulu seperti ini:

Download : Integer;

Upload : Integer;

2.Kemudian, kita tambahkan pada bagian Execute:

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

3.dan bagian OutBound:

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

4.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;

5.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;

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

7.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;
8.Coba Run atau tekan F9
9.InsyaAllah tidak ada error apabila mengikuti tutorialnya dengan benar.
10.Semoga bisa membantu teman-teman yang lain.