Hitung Total Harga Menggunakan Delphi

Tambahkan :

1. Label Dengan Properti Caption Nama Barang, Harga, Quantitas, Sub Total, Diskon (10%), Total.

2. TextEdit Dengan Properti Name EHarga, EQuantitas, ESubTotal, EDiskon, ETotal.

3. Button Dengan Properti Caption Hitung & Keluar.

Setelah itu Klik 2 kali Button Hitung kemudian masukan scrpit dibawah :

var

  Quantitas : Integer;

  Harga, SubTotal, Diskon, Total : Currency;

begin

  Harga:=StrToCurr(EHarga.Text);

  Quantitas:=StrToInt(EQuantitas.Text);

  SubTotal:=Harga*Quantitas;

  ESubTotal.Text:=CurrToStr(SubTotal);

  Diskon:=0.1*SubTotal;

  EDiskon.Text:=CurrToStr(Diskon);

  Total:=SubTotal - Diskon;

  ETotal.Text:=CurrToStr(Total);

end;

Klik Button Close :

begin

  close;

end;