Lampu Lalu Lintas Delphi Sederhana

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