[ForNesiaFreak]

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:

[Only registered and activated users can see links Click here to register]

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

Code:

http://www.tusfiles.net/m9qovq1fvj21

Component TMS bisa Download disini

[Only registered and activated users can see links Click here to register]

[ranay]

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

[Aiden]

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

[adi]

mantap ijin sedot

[ervan329]

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

[kakashi83]

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

[LXIV]

top dah, ini yg di cari² selama ini