BAB 5

BAB V. PROSES BEBERAPA IF DENGAN CHECK BOX & RADIO BUTTON

Unit prak5;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Stdctrls,ExtCtrls;
type
 TForm1 = class(TForm)
   Label1 : Tlabel;
   Label2 : Tlabel;
   Label3 : Tlabel;
   Label4 : Tlabel;
   Label5 : Tlabel;
   Label6 : Tlabel;
   TLM : TEdit;
   THK : TEdit;
   TJUMLAH : TEdit;
   TKDIS : TEdit;
   RadioGroup1 : TRadioGroup;
   RDIS30 : TRadioButton;
   RDIS20 : TRadioButton;
   RDIS10 : TRadioButton;
   RDIS0 : TRadioButton;
   GroupBox1 : TGroupBox;
   CKETANG : TCheckBox;
   CKETUM : TCheckBox;
   CMULAI : TButton;
   CSELESAI : TButton;
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 := Flase;
 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);
begin
var
 Sjml, Sbyr, Sds, Skdis : string[30];
 Tsem:integer;
 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;
if Rdis30.checked
then
Sdis:=Sjumlah*0.3;
if Rdis20.checked
then
Sdis:=Sjumlah*0.2;
if Rdis10.checked
then
Sdis:=Sjumlah*0.1;
if Rdis0.checked
then
Sdis:=0;
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