PROGRAM KUBUS

PROGRAM KUBUS

09.56
kbs
Program ini adalah tentang menghitung kubus, yang di cari adalah luas, keliling dan volume. Program ini menggunakan label, edit, button, memo, panel dan image. Didalam program ini kita bisa menginput data pada Input nilai, data yang kita input bisa di lihat hasilnya pada pilihan hitung, kalau kita ingin mencari menghapus semua data maka pilih reset dan exit adalah untuk keluar dari program. Inputan yang di masukkan adalah berapa nilai yang ingin di masukkan, nilai yang di masukkan. Output yang di tampilkan adalah luas kubus, keliling kubus dan volume kubus. berikut souce kodenya :
unit Kubus;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg;

type
  TForm1 = class(TForm)
    Hitung: TButton;
    Reset: TButton;
    Exit: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    Panel2: TPanel;
    Image1: TImage;
    Label1: TLabel;
    procedure HitungClick(Sender: TObject);
    procedure ResetClick(Sender: TObject);
    procedure ExitClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses kubus4;

{$R *.dfm}

procedure TForm1.HitungClick(Sender: TObject);
 var p, l, t, lu, kel, vol:integer;
 w:tcolor;
begin
p:= StrToInt(Edit1.Text);
Memo1.Clear;
  Memo1.Font.Color := clblack;
lu:=p*p*6;
kel:=12*p;
vol:=p*p*p;
memo1.lines.add('Alas Kubus       = 6 x '+edit1.text +' x ' +edit1.text);
memo1.Lines.add('                         = ' +inttostr(lu));
memo1.Lines.add('Keliling Kubus   = 12 x ' + edit1.text);
memo1.Lines.add('                         = ' +inttostr(kel));
memo1.Lines.add('Volume Kubus  =  ' +edit1.text +' x ' +edit1.text +' x ' +edit1.text);
memo1.Lines.add('                         = ' +inttostr(vol));
end;

procedure TForm1.ResetClick(Sender: TObject);
begin
edit1.Clear;
Memo1.Clear;
end;

procedure TForm1.ExitClick(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 form2.Show;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
 form2.Show;
end;



end.

Berikut Tampilan Output :

 
 





 












Untuk Source Codenya bisa juga download DISINI