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 )
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....)"
yang akan harus di tambah dan harus kalian ubah....)"
-SELAMAT MENCOBA-
This comment has been removed by the author.
ReplyDeleteShip.
ReplyDeleteSekalian mas,posting listing program menghitung luas dan keliling persegi panjangnya,Untuk bahan belajar Ok.
Maturnuwun.
ok mas edwin....di tunggu programnya!!kalau ada kesulitan di bahas di sini...buat bahan belajar!!!Semoga Sukses
ReplyDeletemakasih..sudah aku coba...tanpa kopi paste...
ReplyDeleteTerus setelah di run sudah jalankah.....???
ReplyDeletethanks
ReplyDeletesekalian yang konversi suhu kak :)