Program Menghitung Luas Lingkaran dan Luas keliling Persegi Lengkap Delphi 7.0

Program Menghitung
Luas Lingkaran dan Luas keliling Persegi Lengkap 
memakai Software Delphi 7.0

Menghitung Luas Lingkaran dan Keliling Persegi Menggunakan Delphi 7.0

    Kali ini saya ingin membahas gimana cara membuat program Luas Keling Lingkaran dan Luas Keliling Persegi menggunakan bahasa pemrograman Delphi 7.0. 

1. Komponen Utama Menghitung Luas Lingkaran

- Sebelum kita Mendesain kita membuat komponen seperti berikut serta kita mengatur Caption pada label dan button yang kita buat. seperti gambar di bawah ini :

2. Kompone Utama Menghitung Luas Persegi

- Sebelum kita Mendesain kita membuat komponen seperti berikut serta kita mengatur Caption pada label dan button yang kita buat. seperti gambar di bawah ini :

- Perlu di perhatikan gambar di atas, komponenapa saja yang kita ubah. supaya lebih memudahkan kita dalam merangkai dan memasukan koding programnya. 

- Setelah selesai sekarang kita memasukan koding programnya seperti di bawah ini :

- Perlu di perhatikan ada dua project dalam 1 tampilan maka kodingnya juga ada 2  yaitu koding hitung luas lingkaran dan koding hitung luas Persegi.

Source Program

Sekarang kita memasukan koding program di button yang telah tersedia yaitu : button Luas, Button Keliling, Button Submit dan Button Exit.

1. Koding hitung luas Lingkaran

- Button Luas

var

  jarling,luas : real;

begin

  if (edit1.text ='') then

  MessageDlg('Eitss...Nilai Jari-Jari Masih Kosong!',mtWarning,[mbok],0)

  else

     jarling:=strtofloat(edit1.Text);

     luas:=22/7*jarling*jarling;

     edit2.Text:=floattostr(luas);

     edit2.Text:=formatfloat('#,##0.00',luas);

end;

- Button Keliling

var

  jarling,keliling : real;

begin

  if (edit1.text ='') then

  MessageDlg('Eitss...Nilai Jari-Jari Masih Kosong!',mtWarning,[mbok],0)

  else

     jarling:=strtofloat(edit1.Text);

     keliling:=2*(22/7*jarling);

     edit2.Text:=floattostr(keliling);

     edit2.Text:=formatfloat('#,##0.00',keliling);

end;

- Button Submit

begin

  edit1.Text :='';

  edit2.Text :='';

  edit1.SetFocus;

end;

- Button Close

Close;

2. Koding hitung luas Lingkaran

- Button Luas

var

  sisi,luas : real;

begin

  if (edit3.text ='') then

  MessageDlg('Eitss...Nilai Sisi Masih Kosong!',mtWarning,[mbok],0)

  else

    sisi:=strtofloat(edit3.Text);

    luas:=sisi*sisi;

    edit5.Text:=floattostr(luas);

    edit5.Text :=formatfloat('#,##0.00',luas);

end;

- Button Keliling

var

  sisi,keliling : real;

begin

  if (edit3.text ='') then

  MessageDlg('Eitss...Nilai Sisi Masih Kosong!',mtWarning,[mbok],0)

  else

    sisi:=strtofloat(edit3.Text);

    keliling:=sisi+sisi+sisi+sisi;

    edit5.Text:=floattostr(keliling);

    edit5.Text:=formatfloat('#,##0.00',keliling);

end;

- Button Submit

begin

  edit3.Text:='';

  edit5.Text:='';

  edit3.SetFocus;

end;

- Button Exit

Close;

- Setelah  Selesai bisa langsung jalankan dengan menggunakan F9.

- Hasil Program seperti dibawah ini :

Hasil Hitungan Luas Lingkaran dan Hasil Luas Hitungan Sisi Persegi

- Setelah itu kita menghitung hasil keling seperti gambar di bawah ini.

Hasil Hitungan Keliling Lingkaran dan Hasil Keliling Persegi

Penjelasan Koding

- di button luas dan keliling terdapat soure MessageDlg('Eitss...Nilai Sisi Masih Kosong!',mtWarning,[mbok],0) gunanya untuk memberitahu kepada pengguna. semisal kita menghitung luas lingkaran tapi kita belum mengisi berapa form jari-jari lingkaran yang akan kita hitung. seperti gambar di bawah ni :

- Button Submit berguna untuk membuat halaman baru  dan exit untuk keluar

- Sekian program menghitung luas lingkaran dan luas keliling persegi semoga bermanfaat