Senin, 22 Februari 2016

Cara Membuat Upload Download Shape di Delphi 7 [5]

Berikut adalah tips Cara Membuat Upload Download Shape di Delphi 7 [5] yang dimana ini adalah tutorial yang kelima dari sebelumnya yaitu Cara buat Traffic UL DL dengan label tetapi kali ini kita akan buat dengan bantuan shape warna yang sering anda temui dan pastikan anda sudah memahaminya dari tutorial awalnya yaitu bagian [T1] dan untuk tutorial sekarang yuk kita langsung praktek saja.

Sebenarnya tutorial dl ul ini sudah sangat lama pernah dibahas sehubung kita mau membuat program multy fungsi nantinya makanya dari itu tiap bagiannya akan dibahas, yang dimana maksud dari multy fuungsi ini adalah maka nantinya tiap artikel [T1] dst, akan menjadi 1 buah program yang serba ada, modem, injek, route, plink, sock tap dan masih banyak lagi

1. Langkah pertama silahkan tambahkan 2 buah shape di palette additional kemudian ubah namanya jadi sp1 dan sp2.

Panduann Dasar Internet Gratis Terbaru 2016

2. Langkah kedua kemudian dari kedua shape tersebut silahkan ubah shape menjadi stcircle (Bulat) jika anda ingin agar bentuk shapenya jadi bulat kalau persegi biarkan default saja dan untuk ukurannya height width silahkan sesuaikan saja.

Panduann Dasar Internet Gratis Terbaru 2016

3. Langkah yang ketiga silahkan masukan kode dibawah ini dan pasangkan diatas kode private contohnya bisa lihat gambar saja, lalu tekan CTRL+SHIFT+C

Procedure LedBlinkUpload;
Procedure LedBlinkDownload;

Panduann Dasar Internet Gratis Terbaru 2016

4. Langkah yang keempat kemudain masukan kode dibawah ini pada procedure ledblinkdownloadnya

sp2.Refresh;
if sp2.brush.color=clGray then
begin
  sp2.brush.color:=clRed;
end else
begin
  sp2.brush.color:=clGray;
end;

Panduann Dasar Internet Gratis Terbaru 2016

5. Langkah yang kelima kemudian silahkan masukan kode dibawah ini pada procedure ledblinkuploadnya.

sp1.Refresh;
if sp1.brush.color=clGray then
begin
sp1.brush.color:=clBlue;
end else
begin
  sp1.brush.color:=clGray;
end;

Panduann Dasar Internet Gratis Terbaru 2016

6. Yang keenam kemudain silahkan tambahkan kode dibawah ini pada dutimernya, contoh bisa lihat digambar saja.

sp1.Brush.Color:=clwhite;
sp2.Brush.Color:=clwhite;

Panduann Dasar Internet Gratis Terbaru 2016

7. Langkah yang ketujuh lalu kemudian silahkan tambahkan kode dibawah ini pada TCP > Object Inspector > Events > OnExecute

LedBlinkUpload;

Panduann Dasar Internet Gratis Terbaru 2016

8. Langkah yang kedelapan kemudain silahkan tambahkan kode dibawah ini pada  TCP > Object Inspector > Events > On OutboundData

LedBlinkDownload;

Panduann Dasar Internet Gratis Terbaru 2016

Ya dengan begitu maka akan membuat injek anda ada led upload downloadnya dengan warna shape, tanpa dijelaskan kembalipun pasti anda sudah paham dari maksud postingan ini.

Update untuk tutorial [T6] silahkan bisa anda baca DISINI

Ya sudah cuman itu saja dulu info Tentang Cara Membuat Upload Download Shape di Delphi 7 [5] Terbaru 2016 semoga bermanfaat dan bisa menambah wawasan bagi anda dan sahabat semuanya terima kasih.