Program Penghitungan Luas Segitiga Menggunakan Delphi

Program Penghitungan Luas Segitiga Menggunakan Delphi

\     1. Membuat form di Delphi

Membuat Form menggunakan 5 Label, 3 Edit , dan 2 Button.

·         Label1 atur dengan caption “PENGHITUNGAN LUAS SEGITIGA”.

·         Label2 atur dengan caption “Alas”.

·         Label3 atur dengan caption “Tinggi”.

·         Label4 atur dengan caption “Hasil”.

·         Label5 dibuat untuk hasil output berupa tulisan text dan digabungkan dengan inputan nanti pada Edit. Dan caption pada Label5 dikosongkan.

·         Edit1 dibuat disamping Label2 untuk memasukan nilai inputan untuk alas.

·         Edit2 dibuat disamping Label3 untuk memasukan nilai inputan untuk tinggi.

·         Edit3 dibuat disamping Label4 untuk nanti output keluaran yang dihasilkan setelah penghitungan selesai.

·         Button1 diatur dengan caption “Hitung” dan masukan kodingan sebagi berikut.

procedure TForm1.Button1Click(Sender: TObject);

var

alas,tinggi,luas:real;

begin

alas:=StrToFloat(Edit1.Text);

tinggi:=StrToFloat(Edit2.Text);

luas:=alas*tinggi/2;

Edit3.Text:=FloatToStr(luas);

Label5.Caption:= 'Luas Segitiga dengan alas '+Edit1.Text+' dan tinggi '+Edit2.Text+ ' adalah : '+Edit3.Text

end;

·         Button2 diatur dengan caption “Clear” dan masukan dengan kodingan berikut.

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Label5.Caption:='';

end;

      2. Menjalankan Program

Tekan F9 dan program akan berjalan.

Setelah muncul jendela program yang kita buat tadi isikan variable alas dan tinggi.

Setelah itu tekan Hitung dan program akan melakukan penghitungan sesuai dengan rumus segitiga yang kita masukan pada kodingan Button1. Dan Label5 akan merubah captionya sesuai dengan text yg kita inginkan yang sebelumnya kita sudah rancang pada program di Button1.

Dan jika kita mengklik Clear semua input yg kita masukan sekaligus outputnya akan dihapus.