PROCEDUR DAN FUNCTION

Mencari Luas Alas dan Volume Balok menggunakan Procedur dan Function

Dibawah ini interface program yang akan saya buat :

Cara membuatnya sebagai berikut :

1.   
Buka program delphi 7

2.  Buatlah interface seperti gambar dibawah ini :

3.    Ubahlah property dari object inspector

·         Form1 Namenya diubah “Ali_2b”

·         Label1 Captionnya diubah “Menghitung Volume dan Luas Alas Balok”

·         Label2 Captionnya diubah “Panjang”

·         Label3 Captionnya diubah “Lebar”

·         Label4 Captionnya diubah “Tinggi”

·         Label5 Captionnya diubah “Luas Alas Balok”

·         Label6 Captionnya diubah “Volume Balok”

·         Edit1 Textnya dikosongkan

·         Edit2 Textnya dikosongkan

·         Edit3 Textnya dikosongkan

·         Edit4 Textnya dikosongkan

·         Edit5 Textnya dikosongkan

·         Button1 Captionnya diubah “PROSES”

·         Button2 Captionnya diubah “RESET”

·         Button3 Captionnya diubah “CLOSE”

4. Buatlah Listing programnya

a.   

Buatlah fungsi Balok dan Prosedur Reset

public

    { Public declarations }

    Function VBalok(Panjang,Lebar,Tinggi:TEdit;out Luas:integer):String;

    procedure reset;

  end;

var

  Ali_2b: TAli_2b;

implementation

{$R *.dfm}

procedure TAli_2b.reset;

var i:Byte; Komponen:TComponent;

begin

for i:=0 to ComponentCount-1 do

begin

  Komponen:=Components[i];

  if Komponen.InheritsFrom(TEdit)then

  begin

    TEdit (Komponen).Clear;

    if TEdit (Komponen).TabOrder=0 then

    begin

      TEdit(Komponen).SetFocus

      end;

    end;

  end;

end;

Function TAli_2b.VBalok(Panjang,Lebar,Tinggi:TEdit;out Luas:integer):string;

var P,L,T, Vol:integer;

begin

  P:=StrToInt(Panjang.Text);

  L:=StrToInt(Lebar.Text);

  T:=StrToInt(Tinggi.Text);

  Luas:=P*L;

  Vol:=Luas*T;

  Result:=IntToStr(Vol)+ ' cm3';

  end;

b.    Double Klik Button “PROSES” Lalu ketik listing programnya

procedure TAli_2b.Button1Click(Sender: TObject);

var

LBalok:integer;

begin

  Edit5.Text:= VBalok(Edit1,Edit2,Edit3,LBalok);

  Edit4.Text:=IntToStr(LBalok)+' cm2';

  end;

c.    Double Klik Button “RESET”, Ketik Listing programnya

procedure TAli_2b.Button2Click(Sender: TObject);

begin

  reset

end;

d.    Double Klik Button “CLOSE”, Ketik Listing programnya

procedure TAli_2b.Button3Click(Sender: TObject);

begin

close;

end;

end.

5.    Jalankan Programnya dengan menekan f9 ( Running )

Jika tidak ada kesalahan maka akan tampil seperti pada gambar, semisal saya coba masukkan :

Panjang : 14, Lebar : 6, Tinggi : 4 maka

Luas Alas Balok : 84 cm² dan Volume Balok : 336 cm³