Borland Delphi

unit Latihan;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    ckode: TComboBox;
    tnama: TEdit;
    tbiaya: TEdit;
    tjenis: TEdit;
    tlama: TEdit;
    ttotal: TEdit;
    tdiskon: TEdit;
    tbonus: TEdit;
    Label9: TLabel;
    ttobay: TEdit;
    binput: TButton;
    bbatal: TButton;
    bkeluar: TButton;
    procedure ckodeClick(Sender: TObject);
    procedure tlamaKeyPress(Sender: TObject; var Key: Char);
    procedure binputClick(Sender: TObject);
    procedure bbatalClick(Sender: TObject);
    procedure bkeluarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure Bersih;
    Procedure Aktif;
    Procedure Nonaktif;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure tform1.bersih;
begin
ckode.Text:='';
tnama.text:='';
tbiaya.text:='0';
tjenis.text:='';
tlama.text:='';
ttotal.text:='0';
tdiskon.text:='';
ttobay.text:='0';
tbonus.Text:='';
end;

procedure tform1.aktif;
begin
ckode.Enabled:=true;
tnama.Enabled:=true;
tbiaya.Enabled:=true;
tjenis.Enabled:=true;
tlama.Enabled:=true;
ttotal.Enabled:=true;
tdiskon.Enabled:=true;
ttobay.Enabled:=true;
tbonus.Enabled:=true;
end;

procedure tform1.Nonaktif;
begin
ckode.Enabled:=false;
tnama.Enabled:=false;
tbiaya.Enabled:=false;
tjenis.Enabled:=false;
tlama.Enabled:=false;
ttotal.Enabled:=false;
tdiskon.Enabled:=false;
ttobay.Enabled:=false;
tbonus.Enabled:=false;
end;


procedure TForm1.ckodeClick(Sender: TObject);
begin
if copy(ckode.Text,1,2)='MR' then
tnama.Text:='Mawar'
else
if copy(ckode.Text,1,2)='ML' then
tnama.Text:='Melati'
else
if copy(ckode.Text,1,2)='KB' then
tnama.Text:='Kamboja'
else
tnama.Text:='Cempaka';

if copy(ckode.Text,4,2)='15' then
tbiaya.Text:='150000'
else
if copy(ckode.Text,4,2)='13' then
tbiaya.Text:='130000'
else
if copy(ckode.Text,4,2)='11' then
tbiaya.Text:='110000'
else
tbiaya.Text:='200000';

if copy(ckode.Text,7,1)='V' then
tjenis.Text:='VIP'
else
if copy(ckode.Text,7,1)='R' then
tjenis.Text:='Reguler'
else
if copy(ckode.Text,7,1)='S' then
tjenis.Text:='Small'
else
tjenis.Text:='Family';
end;
procedure TForm1.tlamaKeyPress(Sender: TObject; var Key: Char);
const
persen=0.1;
var
a,b,c,d,e:real;
begin
if key=#13 then
begin
a:=strtofloat(tbiaya.Text);
b:=strtofloat(tlama.Text);
c:=a*b;
ttotal.Text:=floattostr(c);
if b>5 then
tdiskon.Text:='10%'
else
tdiskon.Text:='Tidak Ada';
d:=strtofloat(ttotal.Text);
e:=d-(d*persen);
ttobay.Text:=floattostr(e);
if e>1000000 then
tbonus.Text:='1 set alat dapur'
else
tbonus.Text:='Terima Kasih';
end
end;
procedure TForm1.binputClick(Sender: TObject);
begin
Aktif;
end;

procedure TForm1.bbatalClick(Sender: TObject);
begin
Bersih;
Nonaktif;
end;

procedure TForm1.bkeluarClick(Sender: TObject);
begin
if(application.MessageBox('Yakin Akan Keluar?', 'Konfirmasi',MB_OkCancel)=ID_Ok) then
close;
end;

end.