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-

Share this

Bayu_Budianto, S.Kom

Simple And Humoris..