TI Indonesia: Cara Membuat lampu lalulintas Dengan DELPHI 7

Objek yang digunakan:
1.Gruopbox
2.Timer
3.label

langkah-langkahnya sebagai berikut:

1.buat goupbox pada form 1 dan dikasih nama(CAPTION) "BANGJO".buat juga groupbox sebagai tiangnya.
2.Buat Groupbox sebanyak 3 buah didalam groupbox diatas
3.Buat tombol timer juaga dan label seperti gambar berikut:

4.KLIK 2X pada lembar kerja form..isikan script berikut:








procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Brush.Color:=clPurple;
Shape1.Shape:=stCircle;
Shape2.Shape:=stCircle;
Shape3.Shape:=stCircle;

Shape1.Brush.Color:=clRed;
Shape2.Brush.Color:=clBlack;
Shape3.Brush.Color:=clBlack;

Label1.Caption:='BERHENTI';
end;

5.Kelbali ke form.Lalu Klik 2X OBJEK Timer.lalu isikan scrip dibawah ini:





procedure TForm1.Timer1Timer(Sender: TObject);
begin
If shape1.Brush.Color=clRed then
begin
Shape1.Brush.Color:=clBlack;
Shape2.Brush.Color:=clBlack;
Shape3.Brush.Color:=clGreen;

Label1.Caption:=' JALAN';
Timer1.Interval:=2000;
END
Else if Shape3.Brush.Color=clGreen then
begin
Shape1.Brush.Color:=clBlack;
Shape2.Brush.Color:=clYellow;
Shape3.Brush.Color:=clBlack;

Label1.Caption:='HATI-HATI';
Timer1.Interval:=2000;
end
Else if Shape2.Brush.Color=clyellow then
begin
Shape1.Brush.Color:=clRed;
Shape2.Brush.Color:=clBlack;
Shape3.Brush.Color:=clBlack;

Label1.Caption:='BERHENTI';
Timer1.Interval:=2000;
end

end;
end.

6.Tekan F9 untuk melihat hasilnya,sebagai beikut: