Membuat Program Sederhana dengan BORLAND DELPHI 7.0

MEMBUAT PROGRAM SEDERHANADENGAN  BORLAND DELPHI 7.0

Oke kali ini saya akan conttoh sederhana bagaimana cara membuat kotak atau lingkaran berwarna pada delphi 7.0

1.      Buka delphi 7.0 klik pada additonal plih shape (Extctrls).

2.     Pada Object Inspector pilih shape kemudian pilih sesuai dengan yang diinginkan misalnya bentuk lingkaran, persegi, roundsquare dan lain – lain.

3.  Pada tab pilihan klik pada Standard kemudian pilih kotak button sesuai dengan yang anda inginkan dalam contoh ini gunakan Button (StdCtrls).

4.    Double klik pada tombol buton1 tapi sebelum itu ubah nama button1 menjadi start pada object Inspector maka anda masuk pada form untuk menulis program. Isikan baris printah atau program sebagai berikut :

begin

If button1.Caption=’start’ then

Begin

Shape1.Brush.Color:=Clred ;     #warna kotak atau lingkaran berwana merah.

Shape2.Brush.Color:=Clblue ;    # warna kotak atau lingkaran berwana biru

Button1.Caption:=’stop’;

end;

else if  button1.Caption=’stop’ then

begin

Shape1.Brush.Color:=ClBtnFace ;         #warna kotak atau lingkaran berwana merah.

Shape2.Brush.Color:=ClBtnFace ;         # warna kotak atau lingkaran berwana biru

Button1.Caption:=’start’;

end;

end;

Oh ya saya lupa klo anda mengganti warna mengganti warna tinggal tambahkan sintaks program berikut dibawah Shape2.Brush.Color:=Clblue yaitu ebagai berikut :

Form1.Color:=Clbackground ;     #untuk mengganti warna form menjadi warna hitam

Berikut dibawah ini adalah hasil running program untuk membuat lingkaran dan kotak berwarna pada Borlang Delphi 7.0.Dan semoga bermanfaat thanks.