CARA MEMBUAT GAMBAR Di sBitBtn DI DELPHI 7

Ane Mau Berbagi Ilmu Lagi Nie Siapa Tau Ada Yang Lagi Mencari Ini "CARA MEMBUAT GAMBAR Di sBitBtn  DI DELPHI 7,  Ok Langsung Aja Kita Praktekan. Oh ya Sebelum Membuat Ini, Di Delphi 7 Kalian Sudah Harus Terinstal AlphaSkin Dulu. Kalau Belum Punya AlphaSkin 8.10 Jangan Khawatir Silahkan Download Dibawah sini :

AlphaSkin 8.10   Download Disini

Jika Kalian Sudah Punya Langsung Aja Kita Menuju Ke Tutor, Silahkan Simak Baik* Biar Sukses Project Yang Kalian Buat.

KOMPONEN YANG HARUS DI PERSIAPKAN
1. 1 sBitBtn


# LANGKAH PERTAMA #
1.-Klik Alpha Standard
  -Tambahkan 1 Buah "sBitBtn"

  -Caption Boleh diKosongkan atau Boleh Diberi Nama [Terserah Anda]
  -Cari Tulisan "Glyph" Di Properties
  -Klik Disebelahnya -> Klik Load

  -Cari Gambar -> Klik Gambar -> Klik Open

  -Jika sudah Klik Ok

  -Atur Ukuran Gambar
  -Kemudian Run

  -Selesai


NOTE : Jika Mau Copas Sertakan Sumbernya !!!

TERIMA KASIH :)

Jika Kalian Masih Kebinggungan Bisa Nonton Video Dibawah Sini

Tonton Disini

Creat By : Fatkhur rozak

CARA MEMBUAT JAM DIGITAL DI DELPHI 7

Kali Ini Saya Akan Berbagi ilmu Lagi Yang Ane Dapatkan Yaitu : CARA MEMBUAT JAM DIGITAL DI DELPHI 7 , Ok Langsung Aja Kita Mulai, Simak Baik* Tutor Dibawah Ini : 

KOMPONEN YANG DI PERLUKAN :
1. 1 LABEL
2. 1 TIMER

# LANGKAH PERTAMA #
1.-Buka Delphi 7
  -Tambahkan 1 Label

  -Tambahkan 1 Timer

# LANGKAH KEDUA #
2.-Klik 2 kali Pada Timer
  -Isi Code di Bawah Begin

Label1.caption:=TimetoStr(Now);

  -Kemudian Klik Run

  -Selesai

Note : Jika Mau Copas Sertakan Sumbernya !!!

Jika Masih Binggung Bisa Lihat Video Di Bawah Ini

Download Disini

Creat By : Fatkhur Rozak

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