Membuat Traffic Lamp (lampu lalulintas) dengan Delphi

Langsung saja tidak usah basa-basi.

1. Pertama-tama kita buka dulu delphi yang sudah terinstall di komputer atau laptop anda.

2. Setelah itu Klik tab Properties pada Object Inspetor. Ubah Caption "Form1" menjadi "Fauzan Traffic Lamp". Terus pada color "clBtnFace" ubah menjadi "clAqua".

3. Klik dua kali pada form1 lalu isikan listing program berikut :

procedure TForm1.FormCreate(Sender: TObject);
begin
shape2.Brush.Color:=clred;
label1.Font.Color:=clred;
label1.Caption :='10';
label2.Caption:='Stop!!!';
label2.font.color:= clred;
end;

4. Pada menu bar additional klik "shape" (gambar segitiga,linkaran,persegi). Tambahkan tujuh buah "shape" pada form1 dan atur sesuai gambar dibawah ini :

5. Untuk mengganti warna pada "shape" tersebut, klik sekali "shape" yang ingin di ubah warnanya, setelah itu pada object inspector, klik tanda "+" pada "brush" sehingga dibawahnya akan muncul "color dan style". Dan pada color tersebut pilih warna yang anda sukai.

6. Selanjutnya tambahkan dua buah "label" dan satu buah "timer". label terdapat pada menu bar "standard" yang lambangya huruf "A". Sedangkan timer terdapat pada menu bar "system" lambangnya bergambar jam.

7. Langkah selanjutnya mengubah tampilan kedua label tersebut agar kelihatan menarik.

a. Label pertama : klik sekali "label1", pada Object Inspetor. Hapus "label1" pada Caption sehingga kosong, pada color "clAqua" ganti dengan "clDefault"

b. Label kedua : klik sekali "label2", pada Object Inspetor. Ubah Caption "label2" menjadi "Fauzan".

c. Mengubah tulisan label: klik sekali "label yang ingin di edit", pada Object Inspetor. klik tombol "..." (terdapat pada font) sehingga akan muncul tampilan seperti dibawah ini:

8. Atur komponen-komponen program yang baru di tambahkan tersebut sesuai gambar di bawah ini :

9. Mengisikan listning program pada timer. klik dua kali komponen timer lalu isikan program seperti di bawah ini :

procedure TForm1.Timer1Timer(Sender: TObject);
var bil1,bil2 :integer;
begin
bil1:=strtoint(label1.caption);
bil2:=bil1-1;
label1.Caption:=inttostr(bil2);
if label1.caption='-1' then
if label1.Font.color=clred then
begin
label1.caption:='7';
shape2.Brush.Color:=clGrayText;
shape3.Brush.Color:=clGrayText;
shape4.Brush.Color:=cllime;
label1.Font.Color:=cllime;
label2.Caption:='Go!!!!!!!!!!';
label2.font.color:= cllime;
end
else
if label1.caption ='-1' then
if label1.Font.Color=cllime then
begin
label1.caption :='3';
shape2.Brush.Color:=clGrayText;
shape3.Brush.Color:=clYellow;
shape4.Brush.Color:=clGrayText;
label1.Font.Color:=clblack;
label2.Caption:='Slow!!!';
label2.font.color:= clyellow;
end
else
if label1.caption ='-1' then
if label1.Font.Color=clBlack then
begin
shape2.Brush.Color:=clRed;
shape3.Brush.Color:=clGrayText;
shape4.Brush.Color:=clGrayText;
label1.Font.Color:=clRed;
label1.Caption :='10';
label2.Caption:='Stop!!!';
label2.font.color:= clred;
end
end;
end.

10. Jalankan Program, jika tidak ada kesalahan maka program akan berjalan dengan baik seperti gambar dibawah ini :

SELAMAT MENCOBA ^_^

atau dowload disini untuk melihat program yang sudah saya buat.