Belajar Delphi - Simulasi Mudah Membuat Lampu Lalu Lintas

Belajar Delphi - Simulasi Mudah Membuat Lampu Lalu Lintas- - -Setiap orang dewasa pasti pernah melewati rambu-rambu lalu lintas, salah satunya adalah Lampu Lalu Lintas (Merah, Kuning, Hijau). Yach Rambu - rambu lalu lintas yang satu ini memang sangatlah penting untuk mengatur keselamatan pengendara motor dan mobil, tanpa adanya pengaturan lampu lalu lintas dapat membuat orang tidak beraturan dalam mengendari sebuah mobil dan motor, karena pasti semua orang ingin selalu duluan dan ingin cepat sampai yang akibatnya tejebak macet, oleh karena itu lampu lalu lintas ini sangat membantu banyak orang dalam mengurangi kemacetan dan kecelakaan.

Masih bicara mengenai Lampu Lalu Lintas, pernahkah teman -teman berfikir tentang seperti apa cara kerjanya dan bagaimana cara membuatnya, biasanya bagi para teknik sangat senang mendalami hal seperti ini, apalagi ketika hendak menyusun skripsi atau tugas akhir, maka tugas seperti inilah yang cocok untuk judul skripsi atau tugas akhir teman - teman, Simulasi Lampu Lalu Lintas Menggunakan Delphi.

Menggunakan Program Delphi untuk Lampu Lalu Lintas sangatlah mudah, karena aplikasi delphi lebih mudah digunakan dan mudah dipahami masalah logikanya, So tidak perlu berpanjang lebar lagi, silahkan saja teman - teman lihat dibawah ini Simulasi Lampu Lalu Lintas (Merah, Kuning, Hijau).

Cara Mudah Membuat Lampu Lalu Lintas Dengan Delhpi

Pertama Tama Temen Temen bisa buat design Form Sebagai Berikut : cukup gunakan 3 button.

Atur Properties Namenya Seperti Gambar di bawah ini.

  • Form Setting Di Sebelah kanan atas untuk mensetting detik berjalannya lampu untuk jalanan Atas, Kanan, Bawah dan Kiri.
  • Jika Button Aktifkan di Klik namun belum ada isi detik berjalan makan akan ada peringatan Data Setting Belum Terisi.

  • Jika Semua sudah di Masukkan dan Button Aktifkan Di Klik maka akan berjalan sesuai dengan urutan arah jam dari Atas dulu yang boleh jalan, kemudian ke kanan, bawah dan kiri.

  • Lampu Hijau dan merah diarahkan berseberangan karena nanti yang mereka lihat adalah yang ada di seberang mereka sesuai dengan setting waktu untuk tiap ruas jalan.
  • Jika button Stop Di klik makan akan berhenti, dan jika button keluar di klik akan keluar dari program

Berikut ini adalah Source Code Membuat Lampu Lalu Lintas

procedure Tform_materi16.button_informasiClick(Sender: TObject);
var
Form1: TForm1;
kiri,bawah,atas,kanan,jatas,jkanan,jkiri,jbawah:integer;
Pertama-tama Buat Variable Integer dulu untuk Inisialisasi Waktu perdetik.
procedure TForm1.btnaktifClick(Sender: TObject);
begin
if(editsetatas.Text='') then
begin
application.Messagebox ('Maaf Setting Time Atas Masih ada yang kosong','Konfirmasi');
editsetatas.SetFocus;
end
else if(editsetbawah.Text='')then
begin
application.Messagebox ('Maaf Setting Time Bawah Masih ada yang kosong','Konfirmasi');
editsetbawah.SetFocus;
end
else if(editsetkanan.Text='')then
begin
application.Messagebox ('Maaf Setting Time Kanan Masih ada yang kosong','Konfirmasi');
editsetkanan.SetFocus;
end
else if(editsetkiri.Text='')then
begin
application.Messagebox ('Maaf Setting Time Kiri Masih ada yang kosong','Konfirmasi');
editsetkiri.SetFocus;
end
else
begin
kiri:=strtoint(editsetkiri.Text);
kanan:=strtoint(editsetkanan.Text);
atas:=strtoint(editsetatas.Text);
bawah:=strtoint(editsetbawah.Text);

editatas.Text:=inttostr(atas);
lamp.Enabled:=true;
editstatus.Text:='atas';
hijaubawah.Visible:=true;
hijauatas.Visible:=false;
hijaukiri.Visible:=false;
hijaukanan.Visible:=false;
merahbawah.Visible:=false;
merahatas.Visible:=true;
merahkiri.Visible:=true;
merahkanan.Visible:=true;
end;
end;
Prosedur Button Aktif di klik masukkan code seperti diatas dmana setting pertama akan kita lakukan di jalanan atas dan menjalankan fungsi timer yang akan berfungsi sebagai detik yang menggerakkan settingan lampu lalu lintas yang sudah kita buat.
procedure TForm1.lampTimer(Sender: TObject);
begin
if(editstatus.Text='atas')then
begin
jatas:=strtoint(editatas.Text);
if(jatas<>0)then
begin
jatas:=jatas-1;
editatas.Text:=inttostr(jatas);
end
else
begin
editstatus.Text:='kanan';
editkanan.Text:=editsetkanan.Text;
jkanan:=strtoint(editkanan.Text);
hijaubawah.Visible:=false;
hijauatas.Visible:=false;
hijaukiri.Visible:=true;
hijaukanan.Visible:=false;
merahbawah.Visible:=true;
merahatas.Visible:=true;
merahkiri.Visible:=false;
merahkanan.Visible:=true;
end;
end
else if(editstatus.Text='kanan')then
begin
jkanan:=strtoint(editkanan.Text);
if(jkanan<>0)then
begin
jkanan:=jkanan-1;
editkanan.Text:=inttostr(jkanan);
end
else
begin
editstatus.Text:='bawah';
editbawah.Text:=editsetbawah.Text;
jkanan:=strtoint(editkanan.Text);
hijaubawah.Visible:=false;
hijauatas.Visible:=true;
hijaukiri.Visible:=false;
hijaukanan.Visible:=false;
merahbawah.Visible:=true;
merahatas.Visible:=false;
merahkiri.Visible:=true;
merahkanan.Visible:=true;
end;
end
else if(editstatus.Text='bawah')then
begin
jbawah:=strtoint(editbawah.Text);
if(jbawah<>0)then
begin
jbawah:=jbawah-1;
editbawah.Text:=inttostr(jbawah);
end
else
begin
editstatus.Text:='kiri';
editkiri.Text:=editsetkiri.Text;
jkiri:=strtoint(editkiri.Text);
hijaubawah.Visible:=false;
hijauatas.Visible:=false;
hijaukiri.Visible:=false;
hijaukanan.Visible:=true;
merahbawah.Visible:=true;
merahatas.Visible:=true;
merahkiri.Visible:=true;
merahkanan.Visible:=false;
end;
end
else
begin
if(jkiri<>0)then
begin
jkiri:=jkiri-1;
editkiri.Text:=inttostr(jkiri);
end
else
begin
editstatus.Text:='atas';
editatas.Text:=editsetatas.Text;
jatas:=strtoint(editatas.Text);
hijaubawah.Visible:=true;
hijauatas.Visible:=false;
hijaukiri.Visible:=false;
hijaukanan.Visible:=false;
merahbawah.Visible:=false;
merahatas.Visible:=true;
merahkiri.Visible:=true;
merahkanan.Visible:=true;
end;
end;
end;
Jika Timer diaktifkan maka fungsi inilah yang akan berjalan perdetiknya. dimana jika edit setatus bertuliskan atas maka fungsi atas yang akan berjalan sesuai dengan detik yang sudah di setting. jika detik atas sudah habis maka otomatis memindahkan ke status kanan, dan code kanan akan berjalan hingga detik terakhir dan begitu seterusnya sampai kembali lagi keatas.
procedure TForm1.Button1Click(Sender: TObject);
begin
lamp.Enabled:=false;

editatas.Text:='';
editbawah.Text:='';
editkiri.Text:='';
editkanan.Text:='';

editsetatas.Text:='';
editsetbawah.Text:='';
editsetkiri.Text:='';
editsetkanan.Text:='';

editstatus.Text:='';

hijaubawah.Visible:=false;
hijauatas.Visible:=false;
hijaukiri.Visible:=false;
hijaukanan.Visible:=false;
merahbawah.Visible:=false;
merahatas.Visible:=false;
merahkiri.Visible:=false;
merahkanan.Visible:=false;

end;
Jika Button Stop Di klik maka kita akan mematikan fungsi timer dan mebersihkan semua fielt teks dan menghilangkan lampu yang menyala. Jika button keluar di klik maka akan keluar dari program. Demikianlah apa yang dapat admin mulyatutorial tentang Simulasi Lampu Lalu Lintas, semoga dapat menambah pengetahuan teman - teman, selamat mencoba dan semoga berhasil.

Hasil Program Delphi - Simulasi Lalu Lintas







 
© Copyright 2012 Mulya Nyaa Shekali Template Modify by Dunia Komputer dan Internet | Partnership Kumpulan Informasi Pendidikan | Powered by Blogger.com.