Sinauku Telaten

          Setelah kita program sebelumnya yaitu Pembutan program penjualan kecil sekarang kita akan mulai belajar lagi tentang pembuatan lampu lalu-lintas tentunya masih dengan program Delphi.Yang pertama kita siapkan adalah instal program delphinya dulu.Bila sudah buka programnya,terus mulai dech bikin programnya .

Langkah-langkahnya yaitu:

1. Pertama klik File>new>aplication
2. Setelah itu akan muncul form kerja kita,selanjutnya buat componen yaitu Groupbox,Label,Shape dan Timer.
3. Cara membuat elemenya yaitu tingal klik componen yang dibutuhkan terus taruh di form kerja kita.
4. Berikut adalah tanpilan form lampu lalu-lintas yang saya buat :

5. Lampu lalu-lintas

6. Setelah bentuk form jadi maka langkah selanjutnya adalah menulis sintax program,dengna cara klik timer lalu tulis sintax seperti dibawah ini :


procedure TForm1.Timer1Timer(Sender: TObject); begin detik:=detik+1; begin if ((detik>=0) and (detik<35)) then begin Shape3.brush.Color:=clLime; Shape1.brush.Color:=clWhite; Shape2.brush.Color:=clWhite; Label1.Caption:='Jalan' ; Timer1.Interval:=100; end else if ((detik>=35) and (detik<45)) then begin Shape2.brush.Color:=clYellow; Shape3.brush.Color:=clWhite; Shape1.brush.Color:=clWhite; Label1.Caption:='Hati-hati' ; Timer1.Interval:=100; end else if ((detik>=45) and (detik<75)) then begin Shape1.brush.Color:=clred; Shape2.brush.Color:=clWhite; Shape3.brush.Color:=clWhite; Label1.Caption:='Berhenti' ; Timer1.Interval:=100; end else if detik=75 then begin detik:=0; end; end; end; procedure TForm1.FormCreate(Sender: TObject); begin detik:=0; end;;
7. Setelah selesai semuanya sekarang kita coba program kita dengan cara klik run pada menu bar.
8. Apabila ingin mendapatkan program lengkapnya silahkan klik link download dibawah ini :