Delphi : Program Menghitung Diskon dan Total Harga

Delphi : Program Menghitung Diskon dan Total Harga

Kali ini sudah meningkat dari postingan sebelumnya yang memposting tentang program Pascal. Karena sekarang sudah hampir semester 4, jadinya akan memposting tentang program Delphi. Program Delphi kali ini yaitu tentang Program Menghitung Diskon dan Total Harga dari suatu pembelian.

Dengan program ini, maka perhitungan diskon dan total harga dari potongan diskon itu akan lebih mudah. Semoga postingan saya ini bisa bermanfaat bagi kehidupan Anda. Juga semoga bisa jadi referensi tugas-tugas kuliah Anda.

Kalau ada yang ingin ditanyakan silahkan comment.

unit Unit1;

interface

uses
  SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, 
  QDialogs, QStdCtrls, QExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Panel2: TPanel;
    Label6: TLabel;
    Label7: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Panel3: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.xfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 a,b,diskon,tot : real;
begin
 a:=strtofloat(edit4.Text);
 b:=strtofloat(edit5.Text);

 diskon:=a*b*10/100;
 tot:=(a*b)-diskon;

 edit6.Text:=floattostr(diskon);
 edit7.Text:=floattostr(tot);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 edit1.Clear;
 edit2.Clear;
 edit3.Clear;
 edit4.Clear;
 edit5.Clear;
 edit6.Clear;
 edit7.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 close;
end;

end.