RONI BSD
Juli 24, 2014

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.

Download Komponennya

Size : 3.3 MB
Tusfiles :Clik Here

Anda baru saja membaca artikel tentang - Cara pakai TMS Component . Silahkan baca artikel berikutnya dari - maknyus blogger - Jangan lupa g+1 / fb / twit :)

Artikel Terkait

loading...

0 komentar:

Posting Komentar