Malam agan-agan pada malan ini saya akan memberi sedikit tips dan trik untuk membuat contoh program lampu lalu lintas Merah Kunin Hijau yang dengan sendirinya berganti-ganti. Dari pada kebanyakan cing cong langsung saja desain form seperti gambar di samping ok ok ok
komponen yang di pakai antara lain :
>> 2 panel ambil di pallet standard
>> 1 timer ambil di pallet system
>> 3 image di pallet aditional (untuk image kita buat 3 gambar dengan paint dengan warna merah kuning hijau dan disimpan dengan format BMP)
untuk pengisian scripnya sebagai berikut :
pada timer 1 klik dua kali(double klik);
procedure TForm1.Timer1Timer(Sender: TObject);
var
waktu : integer; //untuk variabel waktu adalah integer/angka
begin
waktu:=strtoint(panel2.Caption); //untuk membuat agar oanel ter indeksi integer
waktu:=waktu+1;
panel2.Caption:=inttostr(waktu);
if panel2.Caption='6' then
begin
Image1.Visible:=true;//agar image 1 terlihat
Image2.Visible:=false;//agar image 2 tidak terlihat
Image3.Visible:=false;//agar gambar 3 tidak terlihat
end
else
if panel2.caption='12' then
begin
Image1.Visible:=false;//agar image 1 tidak terlihat
Image2.Visible:=false;//agar image 2 terlihat
Image3.Visible:=true;//agar image 3 tidak terlihat
end
else
if panel2.caption='18' then //pada saat panel 2 captionnya 18
begin //maka
Image1.Visible:=false;//agar image 1 tidak terlihat
Image2.Visible:=true;//agar image 2 tidak terlihat
Image3.Visible:=false;//agar image 3 terlihat
panel2.caption:='0';//panel2 kembali ke posisi 0
end;
sekian postingan kali ini selamat mencoba dan semoga berhasil untuk membuatnya.Good Luck dan Salam Ilmu
