Current time: 02-19-2018, 05:11 PM Stay in touch via Twitter Facebook RSS Feed
Ada Baiknya anda baca Peraturan Forum ForNesia Disini Dan Disitu Sebelum Terlambat!
System Registration Forums Mulai Kedepan Sewaktu waktu akan Di Tutup.
Silahkan Dibaca Mengenai Auto Pruning User . Agar tidak ada pertanyaan lagi tentang kehilangan akses forum.



Membuat Warna Trafik pada Project

12-25-2013 02:14 PM Membuat Warna Trafik pada Project
#1


suryadewa Away
NewBie
Administrators
*********

Posts: 341
Joined: Oct 2013

Reputation:

FCoin: 93.00ƒc
langsung saja kali ini tutorial simple untuk kalian cara Membuat Warna Trafik pada Project ( seperti pada gambar )

[Image: 2xzf.gif]

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 Smile

http://www.suryadewa.com
01-20-2014 10:20 AM RE: Membuat Warna Trafik pada Project
#2


redfandy Away
FNS MEMBER
FNS Member
**

Posts: 103
Joined: Jan 2014

Reputation:

FCoin: 9.73ƒc
[ask] klo ganti warna gimana caranya gan
misalnya ketawaaai LedBlinkDownload; sy mau kasih warna biru caranya gimana gan
mohon pencerahannya

redfandy, proud to be a member of ForNesia Family since Jan 2014.
01-21-2014 05:39 AM RE: Membuat Warna Trafik pada Project
#3


heriza07 Away
moderator kece
Registered
*

Posts: 76
Joined: Dec 2013

Reputation:

FCoin: 2.00ƒc
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;

[Image: 480993_345889928821169_1538210009_n.jpg]
09-10-2014 01:20 AM RE: Membuat Warna Trafik pada Project
#4


kasara Away
HunteR
HunteR
*

Posts: 44
Joined: Aug 2014

Reputation:

FCoin: 2.36ƒc
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:37 AM RE: Membuat Warna Trafik pada Project
#5


suneo_honekawa Away
FNS MEMBER
FNS Member
**

Posts: 134
Joined: May 2014

Reputation:

FCoin: 5.87ƒc
(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 06:30 PM RE: Membuat Warna Trafik pada Project
#6


kasara Away
HunteR
HunteR
*

Posts: 44
Joined: Aug 2014

Reputation:

FCoin: 2.36ƒc
(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
09-10-2014 08:52 PM RE: Membuat Warna Trafik pada Project
#7


suneo_honekawa Away
FNS MEMBER
FNS Member
**

Posts: 134
Joined: May 2014

Reputation:

FCoin: 5.87ƒc
Kayaknya gak bisa om...
Soalnya kalo bv kan file external :3

Timber#44

hick
09-10-2014 10:26 PM RE: Membuat Warna Trafik pada Project
#8


sadek89 Away
HunteR
HunteR
*

Posts: 53
Joined: Sep 2014

Reputation:

FCoin: 2.00ƒc
kalau ga bisa ganti warna cb kaya ini gan

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

procedure TForm1.newtereOutboundData(AThread: TIdMappedPortThread);
begin
LedBlinkDownload;
12-12-2014 02:56 PM RE: Membuat Warna Trafik pada Project
#9


arief29 Away
FNS MEMBER
FNS Member
**

Posts: 179
Joined: Dec 2014

Reputation:

FCoin: 2.00ƒc
Masih bingung pada bagian Request & Respon om.. mohon pencerahannya. TQ

Kok gak mau kedip ya gan...
Spoiler :
[Image: set3wj.png]
(This post was last modified: 12-12-2014 03:45 PM by arief29.)
12-15-2014 12:46 PM RE: Membuat Warna Trafik pada Project
#10


smoz Away
Coding Moderators
Coding Moderators
*****

Posts: 78
Joined: Feb 2014

Reputation:

FCoin: 2.09ƒc
(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 :
[Image: set3wj.png]

source ini udah taruh ato blum??

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

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

[Image: fornesia_2.gif]
12-15-2014 05:34 PM RE: Membuat Warna Trafik pada Project
#11


arief29 Away
FNS MEMBER
FNS Member
**

Posts: 179
Joined: Dec 2014

Reputation:

FCoin: 2.00ƒc
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.. ketawaaa
02-20-2015 11:51 AM RE: Membuat Warna Trafik pada Project
#12


Jihyo Away
HunteR
HunteR
*

Posts: 47
Joined: Oct 2014

Reputation:

FCoin: 2.27ƒc
Kok saya error terus ya? Bisa kasih tutor pake ss gak om? Thanks...

[Image: foto_foto_snsd_bergerak.gif]
03-14-2015 11:05 PM RE: Membuat Warna Trafik pada Project
#13


riez1989 Away
FNS MEMBER
FNS Member
**

Posts: 233
Joined: Mar 2015

Reputation:

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

Indonesian Prayboy | Pengecer issue dan wacana |bisnis silaturahmi |pemimpi paruh waktu | 1 dari 10 pemuda pesanan soekarno
10-14-2015 05:35 PM RE: Membuat Warna Trafik pada Project
#14


wawan740 Away
FNS MEMBER
FNS Member
**

Posts: 88
Joined: Aug 2015

Reputation:

FCoin: 34.33ƒc
ada tutor lewat video atau gif ngk gan? :wah: biar jelas, heheh maklum nubie ane om :v
10-14-2015 06:54 PM RE: Membuat Warna Trafik pada Project
#15


raditya Away
Unbanned -20
FNS Member
**

Posts: 323
Joined: Sep 2015

Reputation:

FCoin: 44.37ƒc
yg clsilver bisa agan ubah jadi
Spoiler :
Register or Login to see this content

AA Tamvan yang suka banget sama ANIME siagasatu




Possibly Related Threads...
Thread: Author Last Post
  Coding Menampilkan IP di Project suryadewa 04-28-2016 09:51 PM
Last Post: shenjai47
  [Share] Source Code UMS Mini Project v3 (MDMA) ForNesiaFreak 03-25-2015 01:05 PM
Last Post: Barron

Search thread:


[-]
Advertisement