Program Sederhana Menghitung Volume Bangun Ruang Tabung Dan Bola

Posted by oenoen kk Jumat, 22 Maret 2013 0 komentar

Program ini adalah sebuah program sederhana yang dibuat untuk menghitung volume sebuah tabung dan volume bola secara bersama.

Cara menghitung volume tabung dan bola pada program ini yaitu dengan memasukkan jari-jari dan tingginya saja.
Setelah itu langsung klik pada button Hitung.
Maka hasil yang diperoleh akan ditampilkan pada label yang di bawahnya.












Syntax Program:


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

procedure TForm1.BitBtn1Click(Sender: TObject);
var
jari2,tinggi,volume_t,volume_b:real;
begin
jari2:=StrToFloat(Edit1.Text);
tinggi:=StrToFloat(Edit2.Text);
volume_t:=3.14*jari2*jari2*tinggi;
volume_b:=(4/3)*3.14*jari2*jari2*jari2;
Label10.Caption:=FloatToStr(volume_t);
Label11.Caption:=FloatToStr(volume_b);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if MessageDlg('Yakin Mau Dihapus?',mtConfirmation,[mbyes]+[mbno],0)=mryes
then
Edit1.Clear;
Edit2.Clear;
Label10.Caption:=' ';
Label11.Caption:=' ';
end;


procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if MessageDlg('Yakin Mau Keluar?',mtConfirmation,[mbyes]+[mbno],0)=mryes
then
close;
end;
end.


Pada text yang Berwarna Orange itu akan menghasilkan Show Message.



Show Message Saat Akan Menghapus Data yg di Input

Show Message Saat Akan Keluar Dari Program






















Link Download dengan format pdf Klik Disini





Follow My Twitter @oenoen16

0 komentar:

Poskan Komentar