CARA MEMBUAT LED BLINK INJECT DELPHI

Get paid to share your links!

Untuk kesempatan kalinya saya akan berbagi cara buat LedBlink Inject Delphi, sebagaimana kalau
 Inject tampa kedap kedip rsanya kurang asyik (menurut saya), hehee..
Nah sekarang ke Pengerjaan'y cara buat LedBlink Inject.

1. Buka Delphi sobat
2. New Aplikasi (Form1)
3. Tambah 2 buah Shape yg ada di Adittional,
4. 2 sLabel yg ada di Standar menu..


Masukan code di bawah,

public
{ Public declarations }
Procedure LedBlinkUpload;
Procedure LedBlinkDownload;
end;
var
end;
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.LedBlinkUpload;
begin
shape1.Refresh;
if shape1.brush.color=clSilver then
shape1.brush.color:=clred
else
shape1.brush.color:=clSilver;
end;

procedure TForm1.LedBlinkDownload;
begin
shape2.Refresh;
if shape2.brush.color=clSilver then
shape2.brush.color:=clYellow
else
shape2.brush.color:=clSilver;
end;

procedure TForm1.IndyTCPExecute(AThread: TIdMappedPortThread);
begin
LedBlinkUpload;
end;

procedure TForm1.IndyTCPOutboundData(AThread: TIdMappedPortThread);
begin
LedBlinkDownload;
end;

Lalu save Project dan untuk mencoba Run atau F9.
Untuk hasil kurang lebih seperti gambar di bawah


                                                                  PENAMPAKAN

 

 Untuk yang mau nyoba T-SEL INTIMIDASI silahkan ambil di   S O N O

                                                                    PENAMPAKAN

Get paid to share your links!