BAB 4

BAB IV. PROSES BEBERAPA IF DENGAN RADIO BUTTON

Unit prak4;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,ExtCtrls;
type
TForm = Class(TForm)
Label1:Tlabel;
Label2:Tlabel;
Label3:Tlabel;
TLM:TEdit;
THK:TEdit;
TJUMLAH:TEdit;
CMULAI:TButton;
CSELESAI:TButton;
Label4:Tlabel;
Label6:Tlabel;
TDIS:TEdit;
TBAYAR:TEdit;
Label7:TEdit;
TKDIS:TEdit;
RadioGroup1:TRadioGroup;
RDIS30:TRadioButton;
RDIS20:TRadioButton;
RDIS10:TRadioButton;
RDIS0:TRadioButton;
Procedure CMULAIClick(sender:Tobject);
Procedure CSELESAIClick(sender:Tobject);
Procedure FormCreate(sender:Tobject);
Procedure TLMChange(sender:Tobject);

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

Var
 Form1:TFrom1;
implementation
{$R*>DFM}
Procedure TForm1.CMULAIClick (sender:Tobject);
begin
 TLM.text:=' ';
 THK.text:=' ';
 TJUMLAH.text:=' ';
 TDIS.text:=' ';
 TBAYAR.text:=' ';
TLM.setfocus;
end;

Procedure TForm1.CSELESAIClick(sender : Tobject);
begin
 Application.Terminate;
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;
end;
Procedure TForm1.TLMChange(sender:Tobject);
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=true
then
Sdis:=Sjumlah*0.3
else
if Rdis20.checked=trie
then
Sdis:=Sjumlah*0.2
else
if Rdis10.checke=true
then
Sdis:=Sjumlah*0.1
else
Sdis:=0;

if(Rdis30.checked=true) or (Rdis20.checked=true) or (Rdis10.checked=true)
then
Skdis:='DAPAT DISKON';
Tkdis.text:=Skdis;
Sbayar:=Sjumlah-Sdis;
Sbayar:=Sjumlah-Sdis;
Str(Sbayar:30:0,Sbyr);
Str(Sdis:30:0,Sds);
Tbayar.text:=Sbyr;
end;
end.

Hasil program: