Sunday, 22 January 2017T1/22/2017 08:44:00 pm

MEMBUAT SIMULASI LAMPU LALU LINTAS DENGAN DELPHI

Salam blogger…pada postingan kali ini saya akan share cara sederhana membuat simulasi lampu lalu lintas dengan menggunakan Delphi. Pada dasarnya setiap orang dijalan raya pasti pernah melewati rambu – rambu lalu lintas, salah satunya dalah melewati lampu lalu lintas, pada lampu lalu lintas tersebut terdapat 3 buah warna yaitu merah, kuning dan hijau. Tentunya lampu lalu lintas ini sangat lah penting gunanya, salah satu nya adalah untuk mengatur arus lalu lintas di persimpangan jalan, selain itu gunanya adalh untuk menjaga keselamatan pengguna jalan, karena tanpa lampu ini pengendara akan mengendarai kendaraannya dengan tidak beraturan. 
Mengenai lampu lalu lintas ini, pastilah kita pernah terpikir bagaimana cara mengatur lampu lalu lintas tersebut yang menyala secara bergantian, nah pada postingan saya kali ini saya akan share cara sederhana simulasi cara kerja dari lampu lalu lintas tersebut dengan menggunakan Delphi. Program ini dapat dibuat di versi Delphi apa saja, karena disini saya hanya menggunakan komponen yang biasa digunakan dalam membuat project/program Delphi. Disini kita akan membuat pengaturan waktu lampu yang menyala secara bergantian dengan interval waktu tertentu dengan menggunakan komponen timer yang ada di Delphi.

Untuk pembuatan programnya pertama – tama kita buat project baru pada Delphi. Selanjutnya design form delphinya seperti pada gambar di bawah ini.
Adapun komponen yang di perlukan adalah sebagai berikut :
 - 1 buah groupbox, atur align nya menjadi alclient.
 - 3 buah shape, ubah shape pada object inspector nya menjadi stcircle.
 - 1 buah timer, ubah intervalnya menjadi 100.
 - 1 buah label, caption nya di kosongkan.
Jika suda maka selanjutnya adalah menambahkan koding program nya pada form tersebut. Maka masukan koding program di bawah ini pada form tersebut.
unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    Timer1: TTimer;
    Label2: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  detik:integer;

implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
detik:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
detik:=detik+1;
begin
  if ((detik>=0) and (detik<35 br="" then="">begin
  shape3.Brush.Color:=clLime;
  shape1.Brush.Color:=clwhite;
  shape2.Brush.Color:=clwhite;
  label1.Caption:='Silahkan jalan';
  timer1.Interval:=100;
  end
  else if ((detik>=35) and (detik<45 br="" 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 br="" then="">begin
  shape1.Brush.Color:=clred;
  shape3.Brush.Color:=clwhite;
  shape2.Brush.Color:=clwhite;
  label1.Caption:='Berhenti';
  timer1.Interval:=100;
  end
  else if detik=75 then
  begin
  detik:=0;
end;
end;
end;
end.


Jika sudah maka selanjutnya sobat tinggal menjalankan programnya dengan cara menekan F9/RUN. dan lihat hasilnya, jika langkah yang dibuat sudah benar, maka tampilan programnya akan berjalan seperti pada gambar diatas. Demikian tutorial tentang cara sederhana membuat simulasi lampu lalu lintas menggunakan Delphi yang dapat saya share kali ini, semoga dapat bermanfaat dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "MEMBUAT SIMULASI LAMPU LALU LINTAS DENGAN DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status