[suryadewa]

langsung saja kali ini tutorial simple untuk kalian cara Membuat Warna Trafik pada Project ( seperti pada gambar )

buat 2 shape pada project

tambahkan code dibawah pada type

Code:

type
Procedure LedBlinkUpload;
Procedure LedBlinkDownload;

buat procedure pada project

Code:

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;

sisipkan code berikut pada request dan respons

request

Code:

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

respons

Code:

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

selamat mencoba

[redfandy]

[ask] klo ganti warna gimana caranya gan
misalnya :di LedBlinkDownload; sy mau kasih warna biru caranya gimana gan
mohon pencerahannya

[heriza07]

tinggal ganti code di procedurenya om misal

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;

ganti aja

procedure TForm1.LedBlinkUpload;
begin
shape1.Refresh;

if shape1.brush.color=clSilver then
begin
shape1.brush.color:=clblue;
end else
begin
shape1.brush.color:=clSilver;
end;
end;

[kasara]

kalo nerapinya di ssh tunel gmna,,,?jd ambilnya d ssh tunel nya gmn ?klo ini d tcp ma outbond kan..jd bkan pake indy gt

[suneo_honekawa]

kalo nerapinya di ssh tunel gmna,,,?jd ambilnya d ssh tunel nya gmn ?klo ini d tcp ma outbond kan..jd bkan pake indy gt

kalo gak salah di taruh di buttonnya om,, CMIIW

[kasara]

kalo nerapinya di ssh tunel gmna,,,?jd ambilnya d ssh tunel nya gmn ?klo ini d tcp ma outbond kan..jd bkan pake indy gt

kalo gak salah di taruh di buttonnya om,, CMIIW

ia sih tapi ga kelap kelip ga seperti di injek gt..supaya gonta gnti wrna gmn yaa heheh

[suneo_honekawa]

Kayaknya gak bisa om...
Soalnya kalo bv kan file external :3

[sadek89]

kalau ga bisa ganti warna cb kaya ini gan

procedure TForm1.newtereExecute(AThread: TIdMappedPortThread);
begin
LedBlinkUpload;

procedure TForm1.newtereOutboundData(AThread: TIdMappedPortThread);
begin
LedBlinkDownload;

[arief29]

Masih bingung pada bagian Request & Respon om.. mohon pencerahannya. TQ

---

Kok gak mau kedip ya gan...

Spoiler:

[smoz]

Masih bingung pada bagian Request & Respon om.. mohon pencerahannya. TQ

---

Kok gak mau kedip ya gan...

Spoiler:

source ini udah taruh ato blum??

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

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

[arief29]

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

Sudah om,, kemarin uwik uwik lagi.. ternyata salah letak aja om.. thanks om..

[Jihyo]

Kok saya error terus ya? Bisa kasih tutor pake ss gak om? Thanks...

[riez1989]

Liat tutorial source TS ternyata ga seribet yg saya kira, mudah2an pas prakteknya jg ga ada kendala. Saya coba dulu om.

[wawan740]

ada tutor lewat video atau gif ngk gan? :wah: biar jelas, heheh maklum nubie ane om :v

[raditya]

yg clsilver bisa agan ubah jadi
[spoiler]

Register or login to see this content