[suryadewa]

karena banyak yang bertanya di chat fb skrg biar gampang saya tulis disini aja sekalian .. langsung saja ..



yang dibutuhkan :

-2 label
-timer

ubah name label menjadi downText dan UploadText

lalu masukan code berikut pada var cari diatas {$R *.dfm}
lengkapnya

Code:

var
  Form1: TForm1;
  Download : Integer;
  Upload : Integer;

klik 2x pada timer dan masukan code dibawah

Code:

downText.Caption :=  FormatFloat('Down: ##0.## KB/s',download/1024);
UploadText.Caption :=  FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;

sisipkan code dibawah pada request dan respon

request :

Code:

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

respons

Code:

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

contoh lengkapnya seperti ini

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPServer,
  IdMappedPortTCP;

type
  TForm1 = class(TForm)
    CP1: TIdMappedPortTCP;
    downText: TLabel;
    UploadText: TLabel;
    Timer: TTimer;
    procedure CP1Execute(AThread: TIdMappedPortThread);
    procedure CP1OutboundData(AThread: TIdMappedPortThread);
    procedure TimerTimer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Download : Integer;
  Upload : Integer;

implementation

{$R *.dfm}

procedure TForm1.CP1Execute(AThread: TIdMappedPortThread);
begin
upload:= upload+Length(AThread.NetData);
end;

procedure TForm1.CP1OutboundData(AThread: TIdMappedPortThread);
begin
download:= download+Length(AThread.NetData);
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
  downText.Caption :=  FormatFloat('Down: ##0.## KB/s',download/1024);
  UploadText.Caption :=  FormatFloat('Up: ##0.## KB/s',upload/1024);
  download:= 0;
  upload:= 0;
end;

end.

[adi]

sangat bermanfaat. thanks

[adika]

koq cuman tampil 0kb trus y,,
ndk jalan om,,

[smoz]

gan bagaimana mau buat meter digital sperti ini..


penampakan

Show ContentSpoiler:

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

[stupIDiot]

nambah component lagi tuh om, digilabel

banyak kok, dari yg free sampe yg berbayar.

[zeph]

sangat bermanfaat mas infonya

btw kalo di terapin di launcer bisa ndak yaa mas..??