Senin, 18 April 2011

Lampu Lalu Lintas Delphi Sederhana

| Senin, 18 April 2011 |



Dipostingan pertama saya ini saya akan mengajarkan cara membuat aplikasi lampu lalu lintas sederhana ( hehehe kaya dah profesional aja ). Sebelumya saya minta maaf kalo ada yang kurang berkenan karena saya baru pertama ini membuat artikel sendiri. Langsung saja kita membuat programnya .
Pertama kita buka program delphinya trus lalu buat form seperti tampilan dibawah ini.


Ubah propertis label

Caption
20
Font -> size
38


Ubah properties masing- masing shape

Shape
stCircle
Brush -> color
clWhite


Setelah sudah dirubah semua propertisnya sekarang langsung kita tuliskan sintax programnya.

Ø  Yang pertama doubel klik form crete nya dan isikan sintax dibawah ini :

procedure TForm1.FormCreate(Sender: TObject);
begin
if label1.Caption='20' then
begin
Shape1.Brush.Color:=clRed;
Shape2.Brush.Color:=clWhite;
Shape3.Brush.Color:=clWhite;
end;
end;

Ø  Yang kedua doubel klik komponen timer dan masukkan sintax dibawah ini :

procedure TForm1.Timer1Timer(Sender: TObject);
var
a:integer;
begin
a:=StrToInt(label1.Caption);
a:=a-1;
label1.Caption:=IntToStr(a);
if label1.Caption='0' then label1.Caption:='20';

if a=15 then
 begin
Shape1.Brush.Color:=clWhite;
Shape2.Brush.Color:=clYellow;
Shape3.Brush.Color:=clWhite;
  end
else if a=10 then
 begin
 Shape1.Brush.Color:=clWhite;
 Shape2.Brush.Color:=clWhite;
 Shape3.Brush.Color:=clGreen;
 end
else if a=0 then
begin
Shape1.Brush.Color:=clRed;
Shape2.Brush.Color:=clWhite;
Shape3.Brush.Color:=clWhite;
end;
end;

setelah selesai coba dirun (F9) dan lihat apa yang terjadi .
Demikian yang bisa saya sajikan semoga bisa bermanfaat .
Trima kasih .




Baca Juga Artikel Yang Berkaitan



 
© Copyright 2011. All rights reserved powered by Blogger.com | Template by o-om.com - zoomtemplate.com
ILMU KIETA | Tempat Sharing Dan Bertukar Ilmu | ILMU KIETA