Permisi untuk yang belum tau saya mau share Source Code Speedometer Traffic menggunakan component TMS, Speedometer ini temenya traffic digital yang sudah dishare dengan agan smoz , Speedometer Traffic Kira Kira Penampakanya seperti ini. Tergantung kalian mengkreasikanya nanti seperti apa supaya lebih cOOL :dodgy:



Langsung aja gausa berbelit belit

Snippetnya seperti ini

Yang dibutuhkan :

1 VrAngularMeter = dari Tms component
2 Label
1Timer

Spoiler :

Letakan Code berikut pada var :

Code:

var
Download : Integer;
Upload : Integer;

Lalu Letakan Code Pemanggilan pada Tcp anda

Code:

Tcpexecute :

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

    Tcpoutbound :

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

Letakan Kode Dibawah ini pada Timer :

Code:

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;

Untuk lengkap Sourcenya bisa download disini


Component TMS bisa Download disini

http://www.fornesia.com/Thread-Share-TMS...kshop-v1-3

memang lebih keren yg ini daripada yg lainnya gan
Top gan...

MANTAP om surya, request dong source code Bypass avg buat injek T-sel. wah:

mantap ijin sedot

mantap deh,
coba praktek di form new..
happy:

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;
===============================

klo tdk mw pake label1 dan 2, kode diatas bisa dirubah menjadi :

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

top dah, ini yg di cari² selama ini