• Home
  • Disclaimer
  • Privacy Policy
Dunia Komputer dan Internet

DAFTAR SEKOLAH KEDINASAN SEMARANG


CONTOH APLIKASI ABSENSI SEKOLAH


Kredit Komputer Tanpa Jaminan

  • Tutorial Delphi
  • Tutorial Web
  • Tutorial Handphone
  • Tips and Trik

MENU

  • Asus
  • Delphi
  • Evercoss-Cross
  • Instalasi
  • Internet
  • iPhone
  • Lenovo
  • Mito
  • Samsung
  • Tips dan Trik
  • Web Service
Home » Delphi » Belajar Delphi - Simulasi Mudah Membuat Lampu Lalu Lintas

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







Tweet

Terimakasih anda telah membaca artikel tentang Belajar Delphi - Simulasi Mudah Membuat Lampu Lalu Lintas. Jika ingin menduplikasi artikel ini diharapkan anda untuk mencantumkan link http://mulyatutorial.blogspot.com/2015/08/simulasi-mudah-membuat-lampu-lalu-lintas-menggunakan-delphi.html. Terimakasih atas perhatiannya.

Related Posts

Label: Delphi
Posting Lebih Baru Posting Lama Beranda

Popular Posts

  • Tips Cara Mudah Mengatasi Tombol Back Android Yang Tidak Berfungsi
    Tips Cara Mudah Mengatasi Tombol Back Android Yang Tidak Berfungsi
    Tips Cara Mudah Mengatasi Tombol Back Android Yang Tidak Berfungsi- - - Pernahkah anda melihat atau mengalami tombol kembali pada android an...
  • Kenapa Akun Facebook Gak Bisa Dibuka ? Bukan Dihacker Atau Diblokir Namanya
    Kenapa Akun Facebook Gak Bisa Dibuka ? Bukan Dihacker Atau Diblokir Namanya
    Kenapa Akun Facebook Gak Bisa Dibuka ? Bukan Dihacker Atau Diblokir Namanya- - - Bingung kenpa facebook gak bisa dibuka, atau pernah berpiki...
  • Cara Membuat Form Login Admin Pada Delphi
    Cara Membuat Form Login Admin Pada Delphi
    Cara Membuat Form Login Admin Pada Delphi- - - Membuat Log-in menggunakan delphi bisa dibilang sulit dan bisa dibilang mudah, tergantung seb...
  • Ciri Ciri Akun Facebook Kena Hack Dan Cara Mudah Memperbaiki FB
    Ciri Ciri Akun Facebook Kena Hack Dan Cara Mudah Memperbaiki FB
    Ciri Ciri Akun Facebook Kena Hack Dan Cara Mudah Memperbaiki FB- - - Pernahkan akun facebook anda tidak bisa dibuka seperti diblokir seseora...
  • Tutorial Cara Mengaktifkan Akun Facebook Yang Sudah Diblokir Atau Rusak
    Tutorial Cara Mengaktifkan Akun Facebook Yang Sudah Diblokir Atau Rusak
    Tutorial Cara Mengaktifkan Akun Facebook Yang Sudah Diblokir Atau Rusak- - - Facebook adalah sebuah layanan jejaring sosial yang diluncurkan...
  • Tips Cara Mudah Untuk Mempercepat Download File Besar Di Android
    Tips Cara Mudah Untuk Mempercepat Download File Besar Di Android
    Tips Cara Mudah Untuk Mempercepat Download File Besar Di Android- - - Pernah mencoba untuk mendownload sebuah file yang ukurannya besar dari...
  • Tips Cara Mudah Cara Melakukan Auto Text Di Android
    Tips Cara Mudah Cara Melakukan Auto Text Di Android
    Tips Cara Mudah Cara Melakukan Auto Text Di Android- - - Autotext merupakan kemampuan program pengolah kata untuk memasukkan sebuah kata ke ...
  • Download Firmware Official Kitkat 4.4.2 | Cara Flash/Install Samsung Galaxy Core 2 SM-G355H-
    Download Firmware Official Kitkat 4.4.2 | Cara Flash/Install Samsung Galaxy Core 2 SM-G355H-
    Download Firmware Official Kitkat 4.4.2 | Cara Flash/Install Samsung Galaxy Core 2 SM-G355H- - - Firmware untuk Galaxy Core 2 SM-G355H . fir...
  • Tips Cara Mudah Memindahkan Aplikasi Dan Game Android Ke SD Card Tanpa Root
    Tips Cara Mudah Memindahkan Aplikasi Dan Game Android Ke SD Card Tanpa Root
    Tips Cara Mudah Memindahkan Aplikasi Dan Game Android Ke SD Card Tanpa Root- - - Game pada android memang banyak disukai pencinta game, sebu...
  • Tips Cara Mudah Backup Dan Restore ROM Android Dengan CWM Recovery
    Tips Cara Mudah Backup Dan Restore ROM Android Dengan CWM Recovery
    Tips Cara Mudah Backup Dan Restore ROM Android Dengan CWM Recovery- - - CWM adalah singkatan dari ClockWorkMod yaitu recoveri sekunder untu...
Copyright Dunia Komputer dan Internet: Belajar Delphi - Simulasi Mudah Membuat Lampu Lalu Lintas