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*

Menghitung Luas Permukaan dan Volume Bola Dengan Menggunakan Borland Delphi 7

Menghitung Luas Permukaan dan Volume Bola

Dengan Menggunakan Borland Delphi 

Berikut Adalah Listing Programnya :

unit bola;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm3 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    edvolume: TEdit;

    edluas: TEdit;

    Button1: TButton;

    LABEL5: TLabel;

    Button2: TButton;

    Button3: TButton;

    edjari: TEdit;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

  r,volume,luas :Real;

implementation

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);( di klik 2* di sembarang tempat
 tapi masih dalam 1 lokasi design yang anda buat ) 

begin

edjari.Enabled:=false;

edluas.Enabled:=false;

edvolume.Enabled:=false;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

edjari.Enabled:=true;

edjari.Setfocus;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

r:=strtofloat(edjari.Text);

volume:=(4/3)*(22/7)*(r*r*r);( Ini Rumus Volume Bola )

luas:=4*3.14*(r*r);( Rumus Luas Permukaan Bola )

edvolume.text:=FloatToStr(volume);

edluas.text:=FloatToStr(luas);

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

Application.Terminate;

end;

end.

PERHATIAN!!!!!!!!!

"Listing Program Jangan Di copy Paste....untuk anjuran mending sobat-sobat membuat sesuai dengan tulisan yang sudah saya cetak tebal, ( Itu listing program 
yang akan harus  di tambah dan harus kalian ubah....)"

-SELAMAT MENCOBA-