Thursday

Cara memasang dua lampu di inject dengan delphi7

     Oke jumpa lagi diblog sederhana ini.Kali ini saya akan mengeshare cara memasang dua lampu di inject kita dengan delphi7.Sebenar itu bukan lampu hehehe,tapi shape,tapi kita sebagai newbie tentu akan membuat seperti itu dipencarian google,soalnya saya juga gitu pas baru belajar buat inject.

Sebenarnya cukup mudah taapi bisa jadi susah kalau nggak teliti

  • Pertama pada inject yang agan buat,kalian masukan dua bua lampu atau shape
Cara memasang dua lampu di inject dengan delphi7

  • Kemudian di tempat memasukan kode atau perintah kalian cari tulisan private lalu masukan kode berikut diatasnya
    Procedure LedBlinkUpload;
    Procedure LedBlinkDownload;

Cara memasang dua lampu di inject dengan delphi7


  • lalu kalian cari tulisan var yang berada dibawah lalu masukan kode berikut dibawahnya

  Download : Integer;
  Upload : Integer;

Cara memasang dua lampu di inject dengan delphi7


  • dibawah tulisan 

implementation

{$R *.dfm}

kalian masukan kode berikut

procedure
TForm1.LedBlinkUpload;
begin
shape1.Refresh;
if shape1.brush.color=clScrollBar
then
begin shape1.brush.color:=cllime;
end else
begin
shape1.brush.color:=clScrollBar;
end;
end;
procedure
TForm1.LedBlinkDownload;
begin
shape2.Refresh;
if shape2.brush.color=Clwhite
then
begin
shape2.brush.color:=clblue;
end else
begin
shape2.brush.color:=Clwhite;
end;
end;

Cara memasang dua lampu di inject dengan delphi7



  • kemudian kalian cari tulisan seperti ini
procedure TForm1.IdMappedPortTCP1Execute(AThread: TIdMappedPortThread);

itu adalah tempat kalian memasukan bug kalian,nah dibawah tulisan login kalian masukan kode


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


Cara memasang dua lampu di inject dengan delphi7
  • lalu kalian cari lagi tulisan seperti ini

procedure TForm1.IdMappedPortTCP1OutboundData(
  AThread: TIdMappedPortThread);

setelah ketemu kalian masukan kode berikut dibawah tulisan login

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

Cara memasang dua lampu di inject dengan delphi7


terakhir kalian test,setelah itu save dan build project kalian dan silahkan dicoba

terimakasih telah berkunjung



Artikel Terkait

Cara memasang dua lampu di inject dengan delphi7
4/ 5
Oleh

7 comments

5 February 2015 at 05:33 Delete

banyak gan yg work.cuma limit aja masalahnya

Reply
avatar
5 February 2015 at 21:33 Delete

ini nih yang ane cari-cari.. thx gan

Reply
avatar
16 February 2015 at 03:06 Delete

Shape1: TShape;
Shape2: TShape;
IdMappedPortTCP1: TIdMappedPortTCP;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
Procedure LedBlinkUpload;
Procedure LedBlinkDownload;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;


eror gan. Pemula nie...

Reply
avatar
Anonymous
20 February 2015 at 07:41 Delete

Thank you so much, Gan. :D

Reply
avatar