Contoh Project Mesin Kasir Dengan Delphi 7

ini contoh program mesin kasir menggunakan boland delphi 7.,saya jelaskan nih gan.
untuk judulnua saya menggunakan PANEL gan.harga satuan menggunakan RADIO BUTTON .,yg di dalamnya saya kasih paduan LABEL dan EDIT .begitu jg dengan jumlah barang dan yg lain ya.,.

untuk menjalankan perintah pembayaran.,.di sini anda harus mengisikan harga monitor dan jumlah barang.,.itu dengan mengklik button TOTAL BAYAR.
 untuk keluar program ,anda bsa klik button KELUAR,.,.

INI PROJECTNYA GAN...:





unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Button1: TButton;
    Edit10: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}




procedure TForm1.Button1Click(Sender: TObject);
var hrgdasmon,hrgdascpu,hrgdasram: currency;
jummon,jumcpu,jumram :integer;
totmon,totcpu,totram :currency;
diskon,totalbayar:double;
begin
 //untuk satuan barang
 hrgdasmon:=StrToCurr(Edit1.Text);
 hrgdascpu:=StrToCurr(Edit2.Text);
 hrgdasram:=StrToCurr(Edit3.Text);

 //untuk jmlah barang
 jummon:=StrToInt(Edit4.Text);
 jumcpu:=StrToInt(Edit5.Text);
 jumram:=StrToInt(Edit6.Text);

 //harga satuan * jumlah harga
 totmon:=hrgdasmon*jummon;
 totcpu:=hrgdascpu*jumcpu;
 totram:=hrgdasram*jumram;

 //menampilkan per jenis barang

 Edit7.Text:=CurrToStr(totmon);
 Edit8.Text:=CurrToStr(totcpu);
 Edit9.Text:=CurrToStr(totram);

 // totalbayar
 totalbayar:=totmon +totcpu+totram;
 Edit10.Text:= CurrToStr(totalbayar);


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;



end.

SEMOGA BERMANFAAT GAN.