Program menghitung luas dan keliling lingkaran dengan Borland Delphi 7.0

Komponen Pembuatan Program

Komponen-komponen yang harus dibuat adalah :

• Label untuk indikator Text Sisi dari Jari-jari Lingkaran.

Properties :

Caption = Masukkan Jari-Jari Lingkaran

Name = Label1

• Text Editor Untuk memasukan Nilai Jari-Jari Lingkaran.

Properties :

Text = kosong

Name = jari-jari

• Label untuk indikator Text Hasil Perhitungan Luas.

Properties :

Caption = Luas

Name = Label3

• Label untuk indikator Text Hasil Perhitingan Keliling.

Properties :

Caption = Keliling

Name = Label4

• Label untuk Menempatkan Hasil Perhitingan Luas.

Properties :

Caption = (Blank/Kosong)

Name = Luas

• Label untuk Menempatkan Hasil Perhitingan Keliling.

Properties :

Caption = (Blank/Kosong)

Name = Keliling

• Button Untuk Memulai Perhitungan

Properties :

Caption = Mulai Menghitung

Name = Button1

• Button Untuk menghapus

Propertise:

Caption= Hapus

Name=hapus

Listing Program

procedure TForm1.Button1Click (Sender: TObject);

Var

k,l,r:real;

Begin

r:=strtofloat(edit1.text);

k:=2*pi*r;

l:=pi*r*r;

edit1.text:=floattostr(r);

edit2.text:=floattostr(l);

edit3.text:=floattostr(k);

end;

procedure TForm1.Button2Click (Sender: TObject);

begin

close;

end;

procedure TForm1.Button3Click (Sender: TObject);

begin

edit1.Text :=”;

edit2.Text :=”;

edit3.Text :=”;

end;

end.

Share Share Tweet Share Share Share

KLIK

DONASI VIA PAYPAL Bantu berikan donasi jika artikelnya dirasa bermanfaat. Donasi akan digunakan untuk memperpanjang domain https://4rrwani.blogspot.com/. Terima kasih.