Cara memasang dua lampu di inject dengan delphi7

By : Naldo hatake 7 Comments

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



Naldz Harry Hatake

Author :

Anda Baru Saja Membaca Artikel Tentang Cara memasang dua lampu di inject dengan delphi7 ,Anda Boleh Menyebarluaskan / Mengcopy Paste Artikel Cara memasang dua lampu di inject dengan delphi7 Ini Jika Bermanfaat Buat Anda , Namun Saya Mohon Untuk Mencantumkan Link Cara memasang dua lampu di inject dengan delphi7 Sebagai SumberNya Dan jangan Lupa Berikan Komentarnya. Terimakasih atas kunjungannya kalian baru saja membaca artikel berjudul Cara memasang dua lampu di inject dengan delphi7
.
Share Artikel

Artikel Terkait

7 comments

banyak gan yg work.cuma limit aja masalahnya

ini nih yang ane cari-cari.. thx gan

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

Thank you so much, Gan. :D

-----------GUNAKAN GOOGLE CROME UNTUK TAMPILAN MAKSIMAL BLOG INI-----------

Berikan Comentarnya ya Gan, :)
--Berkomentarlah yang Relevan
--Berkomentar dengan bahasa yang baik dan benar
--Dilarang membuat rusuh [-(
--Dilarang meletakan LINK aktif [-(
--Dilarang meletakan link porno/iklan [-(
--Boleh meletakan Link non aktif selama tidak menyalahi aturan :-)
--Jika ingin dikunjung/komentar balik(yang sebelumnya belum ada perjanjian) harap sertakan link non aktif

---Terimakasih Telah Berkunjung Dan Komentarnya

“Selamat Datang DiBlog Naldo Hatake”
Saya Naldz Harry Hatake selaku Admin disini mengucapkan TerimaKasih Kepada agan Yang telah berkunjung keblog Sederhana Ini, "Semoga Pada Artikel yang akan Agan baca dan simak bisa bermanfaat untuk agan", "Pastikan anda menggunakan GOOGLE CROME agar tampilan tidak kacau"
"Jangan lupa berikan comentarnya YA :)"

Lanjutkan →