Program menghitung luas dan keliling lingkaran dengan Borland Delphi 7.0

12:06:00 PM Edit Artikel
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.
Previous
Next Post »
Show comments