Dipostingan pertama saya ini saya akan mengajarkan cara membuat aplikasi lampu lalu lintas sederhana ( hehehe kaya dah profesional aja ). Sebelumya saya minta maaf kalo ada yang kurang berkenan karena saya baru pertama ini membuat artikel sendiri. Langsung saja kita membuat programnya .
Pertama kita buka program delphinya trus lalu buat form seperti tampilan dibawah ini.
Ubah propertis label
Caption | 20 |
Font -> size | 38 |
Ubah properties masing- masing shape
Shape | stCircle |
Brush -> color | clWhite |
Setelah sudah dirubah semua propertisnya sekarang langsung kita tuliskan sintax programnya.
Ø Yang pertama doubel klik form crete nya dan isikan sintax dibawah ini :
procedure TForm1.FormCreate(Sender: TObject);
begin
if label1.Caption='20' then
begin
Shape1.Brush.Color:=clRed;
Shape2.Brush.Color:=clWhite;
Shape3.Brush.Color:=clWhite;
end;
end;
Ø Yang kedua doubel klik komponen timer dan masukkan sintax dibawah ini :
procedure TForm1.Timer1Timer(Sender: TObject);
var
a:integer;
begin
a:=StrToInt(label1.Caption);
a:=a-1;
label1.Caption:=IntToStr(a);
if label1.Caption='0' then label1.Caption:='20';
if a=15 then
begin
Shape1.Brush.Color:=clWhite;
Shape2.Brush.Color:=clYellow;
Shape3.Brush.Color:=clWhite;
end
else if a=10 then
begin
Shape1.Brush.Color:=clWhite;
Shape2.Brush.Color:=clWhite;
Shape3.Brush.Color:=clGreen;
end
else if a=0 then
begin
Shape1.Brush.Color:=clRed;
Shape2.Brush.Color:=clWhite;
Shape3.Brush.Color:=clWhite;
end;
end;
setelah selesai coba dirun (F9) dan lihat apa yang terjadi .
Demikian yang bisa saya sajikan semoga bisa bermanfaat .
Trima kasih .
1 komentar:
bisa ga kalau aplikasinya di satukan ke hardware??? jadi beneran keliatannya
saya pengen bisa dong......tolong ya...........;)
Posting Komentar