Posted by : rynsuji.blogspot.com
Minggu, 26 Oktober 2014
PROGRAM KUBUS
Program di buat menggunakan Delphi 7. 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 :
Bagi yang ingin mendownload silahkan klik Di Sini!!!
;