Untuk dapat membaut program
menghitung luas permukaan bangun ruang dengan Delphi, maka langkah awal adalah
menampilkan jendela aplikasi dari Delphi terlebih dahulu dengan memilih “New à Aplication à Ok”.
Disini hanya akan ditampilkan program menghitung luas permukaan balok. Pada
dasarnya program ini hanya menggunakan perhitungan aritmatika biasa karna untuk
mencari luas permukaan balok sudah terdapat rumus yang telah ada.
Untuk
membuatnya hanya diperlukan 3 tool saja, yaitu edit untuk input, menu button
untuk menjalankan aplikasi, dan menu label
untuk memberi keterangan dari menu edit agar pengguna dapat dengan mudah menggunakan
program dengan benar. Source code untuk program menghitung luas permukaan balok
adalah sebagai berikut.|
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label6: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
p,l,t,luas : integer;
implementation
{$R
*.dfm}
procedure
TForm1.Button1Click(Sender: TObject);
begin
p := strtoint (edit1.Text);
l := strtoint (edit2.Text);
t := strtoint (edit3.Text);
luas :=2*p*l+2*P*t+2*l*t;
edit4.text:=inttostr(luas);
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit3.clear;
edit4.clear;
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.
|
Setelah dicompile dengan menekan tombol F9, maka tampilan dari program adalah seperti berikut:
Demikian cara membuat program menghitung luas permukaan, semoga bermanfaat.
0 komentar
Posting Komentar