CARA MEMBUAT LAMPU KEDIP BUAT INJECT DI DELPHI 7

Kali Ini Saya Akan Membagikan Ilmu Yang Ane Dapet Kemarin Yaitu : Cara Membuat Lampu Kedip Buat Inject Di Delphi 7, Langsung Aja Kita Pratekan Cermati, Ikuti Tutor Berikut Ini:

KOMPONEN YANG HARUS DISIAPKAN
1.-[ 2 Buah Shape]

#LANGKAH PERTAMA#
1.-Tambahkan 2 Shape Letaknya di [ Additional ]
   -Lihat Gambar Dibawah Ini :

-Tambahkan Code Dibawah Ini Tepat Di Bawah [ Type ]

Procedure LedBlinkUpload;
Procedure LedBlinkDownload;

       

#LANGKAH KEDUA#

2.-Tambahkan Code Dibawah ini Secara Manual:

procedure TForm1.LedBlinkUpload;

begin

shape1.Refresh;

if shape1.brush.color=clSilver then

begin

  shape1.brush.color:=$0007F513;

end else

begin

  shape1.brush.color:=clSilver;

end;

end;

procedure TForm1.LedBlinkDownload;

begin

shape2.Refresh;

if shape2.brush.color=clSilver then

begin

  shape2.brush.color:=$000404DD;

end else

begin

  shape2.brush.color:=clSilver;

end;

end;

#LANGKAH KETIGA#

3.-Tambahkan Code ini Di procedure TForm1.TCPExecute(AThread: TIdMappedPortThread);

   begin

LedBlinkUpload;

  -Tambahkan Code Ini Di procedure TForm1.TCPOutboundData(AThread: TIdMappedPortThread);

LedBlinkDownload;

#LANGKAH KEEMPAT#
4.-Klik Run
  -Selesai


Note :  Ikuti Tutor Di Atas Dengan Benar Kalau Tidak Pasti Akan Eror!!!!

!!!!! Jika Mau Copas Sertakan Sumbernya !!!!!

Atau Bisa Lihat Langsung Video nya Dibawah Sini :

klik Disini

FB : KLIK DISINI
GRUP FB : KLIK DISINI
BLOG : KLIK DISINI
YOUTUBE : KLIK DISINI

Creat By: Fatkhur Rozak