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


buat procedure pada project



sisipkan code berikut pada request dan respons

request

respons


selamat mencoba

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

tinggal ganti code di procedurenya om misal

Quote: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

Quote: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;

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

(09-10-2014 01:20 AM)kasara Wrote:  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

(09-10-2014 01:37 AM)suneo_honekawa Wrote:  

(09-10-2014 01:20 AM)kasara Wrote:  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

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

kalau ga bisa ganti warna cb kaya ini gan

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

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

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

---

Kok gak mau kedip ya gan...

Spoiler :

(12-12-2014 02:56 PM)arief29 Wrote:  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;

Quote: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..

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

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

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

yg clsilver bisa agan ubah jadi

Spoiler :

Register or Login to see this content

---

AA Tamvan yang suka banget sama ANIME