Membuat program : Menghitung Luas dan Keliling Persegi Panjang Dengan Delphi 7

Ini Listing Programnya :

unit edit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm2 = class(TForm)

    label1: TLabel;

    label2: TLabel;

    label3: TLabel;

    label4: TLabel;

    Editpanjang: TEdit;

    Editlebar: TEdit;

    Editluas: TEdit;

    Editkeliling: TEdit;

    mulai: TButton;

    hitung: TButton;

    Button3: TButton;

    procedure FormCreate(Sender: TObject);

    procedure mulaiClick(Sender: TObject);

    procedure hitungClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

  p,l,luas,keliling:integer;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);

begin

editpanjang.Enabled:=false;

editlebar.Enabled:=false;

editluas.Enabled:=false;

editkeliling.Enabled:=false;

end;

procedure TForm2.mulaiClick(Sender: TObject);

begin

editPanjang.Enabled:=true;

editLebar.Enabled:=true;

editPanjang.Setfocus;

end;

procedure TForm2.hitungClick(Sender: TObject);

begin

//koreksi dari string ke integer

p:=strtoint(editpanjang.Text);

l:=strtoint(editlebar.text);

luas:=p*l;

keliling:=2*(p+l);  ;

editluas.text:=inttostr(luas);

editkeliling.text:=inttostr(keliling);

end;

end.

*SELAMAT MENCOBA*

Share this

Bayu_Budianto, S.Kom

Simple And Humoris..