Cara Membuat Perhitungan Sederhana

form Desain

 Yang di butuhkan adalah
Form1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Txtlama: TEdit;
    txtharga: TEdit;
    txtjumlah: TEdit;
    txtdiskon: TEdit;
    txttotal: TEdit;
    GroupBox2: TGroupBox;

> Klik 2x Pada Button Hitung dan Masukan coding Berikut
procedure TForm1.Button3Click(Sender: TObject);
var
lama,harga,jumlah,diskon,total:real;
begin
 lama:=strtofloat(txtlama.Text );
 harga:=strtofloat(txtharga.Text );
 jumlah:=lama*harga;
 txtjumlah.Text :=floattostr(jumlah);
if jumlah>=100000
 then
 diskon:=0.1*jumlah
 else
 diskon:=0;
 total:=jumlah-diskon;
 txtdiskon.Text :=floattostr(diskon);
 txttotal.Text :=floattostr(total);

end;
>> Untuk Tombol Exit
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
>>> Untuk Tobol Clear
procedure TForm1.Button2Click(Sender: TObject);
begin
txtlama.Text :='';
txtharga.Text :='';
txtjumlah.Text :='0';
txtdiskon.Text :='0';
txttotal.Text :='0';
end;