Cara Membuat Aplikasi Tentang cara menghitung Volume Kubus Dengan Delphi

Kali in saya ingin berbagi informasi tentang bagaimana cara membuat program atau aplikasi cara menghitung volume kubus menggunakan aplikasi delphi. pada kesempatan ini saya menggunakan  aplikasi Embarcadero Delphi 2010.

Ok langsung saja, langkah-langkah nya sebagi berikut:
1. Jalankan terlebih dahulu program Delphi 2010

2. Buka aplikasi Delphi, pilih New >VCL Forms Application, seperti gambar dibawah ini

kemudian buat desain form seperti  gambar dibawah ini, yang diperlukan diantaranya:

1.  Label1,Label2, Label3, dan Label4;
2.  GroupBox1, dan GroupBox2;
3.  Edit1, Edit2, dan Edit3;
4. BitBtn1, BitBtn1, dan BitBtn3.  
5. Gambar Kubus
   

cara membuatnya: Label1 beri nama menghitung volume kubus, pada GroupBox1 Beri nama input yang didalamnya berisi Label2 berinama Panjang Sisi dan  Edit1, kemudian pada GroupBox2 berinama Outpun yang didalamnya berisi Label3 berinama panjang sisi beserta dengan Edit2 , dan Label4 berinama Volume kubus beserta dengan Edit3, seperti gambar dibawah ini.

 3. Tambahkan kodenya:

 Kode untuk Button1 (Tambah) :
procedure TForm1.BitBtn1Click(Sender: TObject);
var
s, vol,luas : real;
begin
s:=StrToInt(Edit1.text);
Vol := s*s*s;
edit2.text:=floattostr(s);
edit3.text:=floattostr(Vol);
end;


 Kode untuk Button2 (Tambah) :
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.text :='';
edit2.Text :='';
edit3.Text :='';
end;

 Kode untuk Button3 (Tambah) :
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
close;
end;

4. Jalankan programnya tekan Run atau F9, seperti gambar dibawah ini:

 5. Selesai, selamat mencoba.

Sekian dulu postingan tentang Cara Membuat Aplikasi Tentang cara menghitung Volume Kubus Dengan Delphi, untuk request atau pertanyaan tentang Delphi, silahkan bertanya lewat kotak komentar, saya juga belajar jadi kita saling belajar disini.

Program Komputer

Share This :