Skip to main content

Membuat Traffic Lamp (lampu lalulintas) dengan Delphi

Langsung saja tidak usah basa-basi.

1. Pertama-tama kita buka dulu delphi yang sudah terinstall di komputer atau laptop anda.

2. Setelah itu Klik tab Properties pada Object Inspetor. Ubah Caption "Form1" menjadi "Fauzan Traffic Lamp". Terus pada color "clBtnFace" ubah menjadi "clAqua".

3. Klik dua kali pada form1 lalu isikan listing program berikut :

procedure TForm1.FormCreate(Sender: TObject);
begin
shape2.Brush.Color:=clred;
label1.Font.Color:=clred;
label1.Caption :='10';
label2.Caption:='Stop!!!';
label2.font.color:= clred;
end;


4. Pada menu bar additional klik "shape" (gambar segitiga,linkaran,persegi). Tambahkan tujuh buah "shape" pada form1 dan atur sesuai gambar dibawah ini :


5. Untuk mengganti warna pada "shape" tersebut, klik sekali "shape" yang ingin di ubah warnanya, setelah itu pada object inspector, klik tanda "+" pada "brush" sehingga dibawahnya akan muncul "color dan style". Dan pada color tersebut pilih warna yang anda sukai.

6. Selanjutnya tambahkan dua buah "label" dan satu buah "timer". label terdapat pada menu bar "standard" yang lambangya huruf "A". Sedangkan timer terdapat pada menu bar "system" lambangnya bergambar jam.

7. Langkah selanjutnya mengubah tampilan kedua label tersebut agar kelihatan menarik.

a. Label pertama : klik sekali "label1", pada Object Inspetor. Hapus "label1" pada Caption sehingga kosong, pada color "clAqua" ganti dengan "clDefault"

b. Label kedua : klik sekali "label2", pada Object Inspetor. Ubah Caption "label2" menjadi "Fauzan".

c. Mengubah tulisan label: klik sekali "label yang ingin di edit", pada Object Inspetor. klik tombol "..." (terdapat pada font) sehingga akan muncul tampilan seperti dibawah ini:


8. Atur komponen-komponen program yang baru di tambahkan tersebut sesuai gambar di bawah ini :


9. Mengisikan listning program pada timer. klik dua kali komponen timer lalu isikan program seperti di bawah ini :

procedure TForm1.Timer1Timer(Sender: TObject);
var bil1,bil2 :integer;
begin
bil1:=strtoint(label1.caption);
bil2:=bil1-1;
label1.Caption:=inttostr(bil2);
if label1.caption='-1' then
if label1.Font.color=clred then
begin
label1.caption:='7';
shape2.Brush.Color:=clGrayText;
shape3.Brush.Color:=clGrayText;
shape4.Brush.Color:=cllime;
label1.Font.Color:=cllime;
label2.Caption:='Go!!!!!!!!!!';
label2.font.color:= cllime;
end
else
if label1.caption ='-1' then
if label1.Font.Color=cllime then
begin
label1.caption :='3';
shape2.Brush.Color:=clGrayText;
shape3.Brush.Color:=clYellow;
shape4.Brush.Color:=clGrayText;
label1.Font.Color:=clblack;
label2.Caption:='Slow!!!';
label2.font.color:= clyellow;
end
else
if label1.caption ='-1' then
if label1.Font.Color=clBlack then
begin
shape2.Brush.Color:=clRed;
shape3.Brush.Color:=clGrayText;
shape4.Brush.Color:=clGrayText;
label1.Font.Color:=clRed;
label1.Caption :='10';
label2.Caption:='Stop!!!';
label2.font.color:= clred;
end
end;
end.


10. Jalankan Program, jika tidak ada kesalahan maka program akan berjalan dengan baik seperti gambar dibawah ini :


SELAMAT MENCOBA ^_^

atau dowload disini untuk melihat program yang sudah saya buat.


Comments

Post a Comment

Popular posts from this blog

Menghitung Volume Bangun Ruang Dengan PHP

Dalam kesempatan kedua ini saya akan sharing tugas saya yang kedua. yaitu pemrograman PHP, Di dalam tugas ini mahasiswa disuruh menampilkan Volume Bola, kerucut dan kubus.Dengan ketentuan jari-jari,tinggi,sisi yang sudah ditentukan. Untuk lebih jelasnya silahkan lihat dan pelajari program dan outputanya dibawah ini : <? $phi=3.14; $r=7; $t=14; $s=10; $volbola=(4/3)*$phi*$r*$r*$r; $volkerucut=(1/3)*$phi*$r*$r*$t; $volkubus=$s*$s*$s; echo"========================================="; echo"<br/>"; echo"Nama = Fauzan Vega Saputra"; echo"<br/>"; echo"Kelas = TI_B"; echo"<br/>"; echo"NIM = 3085111136"; echo"<br/>"; echo"========================================="; echo"<br/>"; echo"| Menghitung Volume Bola, Kerucut dan Kubus |"; echo"<br/>"; echo"========================================="; echo"<br/>"; echo"

Program Konversi Uang Dengan Delphi

Pertama-tama wajib mendownload delphi 7, cari aja di mbah google pasti ada banyak banget. Setelah download selesai, install di kompi atau laptop anda, kalau dah punya delphi 7 gak diwajibkan untuk download, siapkan aja ember,gayung dan air, cari dikamar mandi jangan di mbah google.. xixixxi bingung ya kok pake ember,gayung dan air???? yaiaylah orang aku boongin,,, ckckckck udah deh bercandanya sekarang serius.... Langkah pembuatan program : 1. Jalankan Delphi 7 2. Pada kotak objek inspector terdapat 2 baris dan banyak kolom. pada kolom color isi dengan warna kesukaan anda. Disini saya contohkan dengan warna "clAqua" 3. Pada kolom caption "Form1" ganti dengan "konversi uang" 4. Tambahkan label,edit,dan button pada form konversi uang, dengan mengeklik simbol "A","OK","AB|" pada bagian atas lalu klik kan ke form konversi uang. lihat gambar dibawah : 5. dan di atur letaknya seperti gambar dibawah ini: 6. Untuk me

Program java Menghitung Bangun Kerucut & Tabung

Didalam program ini user menginputkan tinggi dan jari - jari untuk bangun A dan bangun B. kemudian program mengeksekusinya sehingga akan di ketahui luas permukaan dan volume bangun A maupun bangun B, sesuai tinggi dan jari - jari yang telah di inputkan. Berikut contoh programnya : import java.io.*; class fauyan {     double r,s,t;     double phi = 3.14;     double volumekerucut, volumetabung;     double luaskerucut, luastabung; /* Email  : f_zan.hack@yahoo.com Web   : fzan-aquana.blogspot.com             fauzanvs.blogspot.com */     void hitung() {         luaskerucut = (phi * r) * (s + r);         luastabung = (phi* r * 2) * (t + r);         System.out.println(" ");         System.out.println("  Luas Permukaan Kerucut : " +luaskerucut +" cm^2");         System.out.println("  Luas Permukaan Tabung : " +luastabung +" cm^2");         System.out.println(" ");         volumekerucut = (phi * r * r * t) / 3;