BAB 6

BAB VI. PROSES PENCABANGAN CASE

Unit prak6;
interface
uses
 Windws, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, ExtCtrls;
type
 TForm1 = class (TForm)
   Label1: Tlabe1;
   Label2 : Tlabel;
   Label3 : Tlabel

   Label4 : Tlabel;
   Label5 : Tlabel;
   Label6 : Tlabel;
   TLM : TEdit;
   THK : TEdit;
   TJUMLAH : TEdit;
   TKDIS : TEdit;
   TBAYAR : TEdit;
   TDIS : TEdit;
    RadioGroup1 : TRadioGroup;
    RDIS30 : TRadioButton;
    RDIS20 : TRadioButton;
    RDIS10 : TRadioButton;
    RDIS0 : TRadioButton;
    GroupBox1 : TGroupBox;
    CKETANG : TCheckBox;
    CKETUM : TCheckBox;
    CKETKRY : TCheckBox;
    CMULAI : TButton;
    CSELESAI : TButton;
    TPIL : TEdit;
Procedure CMULAIClick (sender : Tobject);
Procedure FormCreate( sender : Tobejct);
Procedure CSELESAIClick (sender : Tobject);
Procedure TLMChange (sender : Tobject);

Private
 { private declarations}
Public
 {public declarations}
end;

var
 Form1 : TForm1;
implementation
{$R*.DFM}

Procedure TForm1.CMULAIClick (sender : Tobject);
begin
TLM.text :=' ';
THK.text :=' ';
TJUMLAH.text :=' ';
TDIS.text :=' ';
TBAYAR.text :=' ';
TLM.setfocus;
end;

Procedure TForm1.FormCreate(sender : Tobject);
begin
 Tjumlah.enabled := False;
 Tjumlah.color := clbtnface;
 Tkdis.enabled := False;
 Tkdis.color := clbtnface;
 Tdis.enabled := False;
 Tdis.color := clbtnface;
 Tbayar.enabled := False;
 Tbayar.color := clbtnface;
 RDIS30.checked := true;
end;

Procedure TForm1.CSELESAIClick (sender : Tobject);
begin
 Application.Terminate;
end;

Procedure TForm1.TLMChange ( sender : Tobject);
var
 Sjml, Sbyr, Sds, Skdis:string[30];
 Tsem:integer;
Spil : byte;
Slm, Shk, Sjumlah, Sdis, Sbayar:single;
begin
 Val(Tlm.text,Slm,Tsem);
 Val(Thk.text,Shk,Tsem);
 Sjumlah:=Slm*Shk;
 Str(Sjumlah:30:0,Sjml);
 Tjumlah.text:=Sjml;
 Val(Tpil.text,Spil,Tsem);
case spil of
1: begin
 Rdis30.checked;
 Rdis30.checked:=true;
 Sdis:Sjumlah*0.3;
end;
2: begin
 Rdis20.checked;
 Rdis20.checked:= true;
 Sdis:= Sjumlah*0.2;
end;
3:begin
 Rdis10.checked;
 Rdis10.checked :=true;
 Sdis:=Sjumlah*0.1;
4: begin
 Rdis0.checked;
 Rdis0.checked:=true;
 Sdis:=0;
end;
end;
if Rdis30.checked or Rdis20.checked or Rdis10.checked
then
Skdis :='DAPAT DISKON'
else
Skdis :='TAK DISKON';

if Cketang.checked or Cketkry.checked
then
begin
Sdis:=Sdis+Sjumlah*0.05;
Cketum.state:=cbunchecked;
end;
if Cketang.checked and Cketkry.checked
then
begin
Sdis:= Sdis+Sjumlah*0.10;
Cketum.state :=cbunchecked;
end;
if Cketum.checked
then
begin
Cketkry.state :=cbunchecked;
Cketang.state:=cbunchecked;
end;
Tkdis.text:=Skdis;
Sbayar:=Sjumlah-Sdis;
Str(Sbayar:30:0,Sbyr);
Str(Sdis:30:0,Sds);
Tdis.text:=Sds;
Tbayar.text:= Sbyr;
end;
end.

Hasil Program: