cara membuat Traffic UL & DL Digital

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
Uploaded : +Cireng
Tusfiles :Clik Here

Sertakan Sumber Jika Ingin Copas Link Downloads. Atau Akan Kami Laporkan Blog Anda Ke Google Panda / Google DMCA.