BAB 8

BAB VII.PROSES PENGULANGAN DENGAN FOR

unit Unit1;
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;
 TPOSISI: TEdit;
 TS: TEdit;
 CMULAI: TButton;
 CSELESAI: TButton;
 procedure CMULAIClick(Sender: TObject);
 procedure FormCreate(Sender: TObject);
 procedure CSELESAIClick(Sender: TObject);
 procedure TPOSISIChange(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CMULAIClick(Sender: TObject);
begin
 tposisi.text:=' ';
 ts.text:=' ';
 tposisi.SetFocus;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 ts.enabled:=false;
 ts.color:=clbtnface;
end;
procedure TForm1.CSELESAIClick(Sender: TObject);
begin
 Application.Terminate;
end;
procedure TForm1.TPOSISIChange(Sender: TObject);
var
 tsem, a, ss, i, f, sposisi: integer;
 tss: string[30];
begin
 val(tposisi.text,sposisi,tsem);
 if sposisi<1
 then
 ss:=0
 else
 if sposisi=1
 then
 ss:=1
 else
 begin
 a:=2;
 ss:=1;
 f:=2;
 for i:=2 to sposisi
 do
 begin
 f:=f*a;
 ss:=ss+(f-1);
 end;
 end;
 str(ss:30,tss);
 ts.text:=tss;
end;
end.

Hasil Program:

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

BAB 7

BABVIII. PROSES PENGULANGAN DENGAN WHILE

unit Unit1;
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;
 TPOSISI: TEdit;
 TS: TEdit;
 CMULAI: TButton;
 CSELESAI: TButton;
 procedure CSELESAIClick(Sender: );
 procedure CMULAIClick(Sender: TObject);
 procedure FormCreate(Sender: TObject);
 procedure TPOSISIChange(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CSELESAIClick(Sender: TObject);
begin
 Application.terminate;
end;
procedure TForm1.CMULAIClick(Sender: TObject);
begin
 tposisi.text:=' ';
 ts.text:=' ';
 tposisi.setfocus;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 ts.enabled:=false;
 ts.color:=clbtnface;
end;
procedure TForm1.TPOSISIChange(Sender: TObject);
var
 tsem, a, ss, i, f, sposisi: integer;
 tss: string[30];
begin
 val(tposisi.text, sposisi,tsem);
 if sposisi<1
 then
 ss:=0
 else
 if sposisi=1
 then
 ss:=1
 else
 begin
 a:=2;
 ss:=1;
 f:=2;
 i:=2;
 while i<=sposisi
 do
 begin
 f:=f*a;
 ss:=ss+(f-1);
 i:=i+1;
 end;
 end;
 str(ss:30,tss);
 ts.text:=tss;
end;
end.
Hasil Program:

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:

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:

BAB 3

BAB III. PROSES PENCABANGAN IF BEBERAPA PERNYATAAN

I. ALGORITMA
   Output ('Lama Menginap');
   Input (TLM)
   Output ('Harga Kamar/Hari);
   Input(THK)
   Tjumlah ← TLM*THK
   If TJUMLAH >= 100000 then
                        TKDIS ← 'DAPAT DISKON'
                        TDIS ← TJUMLAH*0.1
   else
                         TKDIS ← 'TAK DISKON'
                         TDIS ← 0
Endif
   TBAYAR ← TJUMLAH - TDIS
   Output(TDIS)
   Output(TJUMLAH)
   Output(TKDIS)
   Output(TBAYAR)


II. LISTING PROGRAM LENGKAP
Unit Prak3;
interface
uses
 Windows, Messages, SysUtils, Classes, Graphics, ControlS, Forms, Dialogs ,
StdCtrls;
type
 TForm1 = class(TForm)
    Label1 : Tlabel;
    Label2 : Tlabel;
    Label3 : Tlabel;
    TLM : TEdit;
    THK : TEdit;
    TJUMLAH : TEdit;
    THK : TEdit;
    CMULAI : TButton;
    CSELESAI : TButton;
    Label4 : Tlabel;
    Label5 : Tlabel;
    Label6 : Tlabel;
    TDIS : TEdit;
    TBAYAR : TEdit;
    Label7 : Tlabel;
    TKDIS : TEdit;
    procedure CMULAIClick (sender : Tobject);
    procedure CSELESAIClick (sender : Tobject);
    procedure FormCreate (sender : Tobject);
    procedure THKChange (sender : Tobject);
    procedure TLMChange (sender : object);
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.CSELESAIClick (sender : Tobejct);
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 RForm1.THKChange (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 Sjumlah >= 100000
   then
   begin
   Sdis := Sjumlah*0.1;
   Skdis := ' DAPAT DISKON';
   end
else
begin
  Sdis := 0;
  Skdis := 'TAK DISKON';
end;
Tkdis.text := Skdis;
Sbayar := Sjumlah-Sdis;
Str(Sbayar:30:0, Sbyr);
str(Sdis:30:0, Sds);
Tdis.text :=sds;
Tbyar.text := Sbyr;
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 Sjumlah >= 100000
 then
begin
  Sdis := Sjumlah*0.1;
  Skdis := ' DAPAT DISKON';
end
else
begin
Sdis := 0;
Skdis := "TAK DISKON';
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*

BAB 2

BAB II. PROSES PENCABANGAN IF SATU PERNYATAAN

I. ALGORITMA
   Output('Lama Menginap')
    Input(TLM)
   Output('Harga Kamar/Hari')
    Input(THK)
   Tjumlah ← TLM*THK
   If Tjumlah >=100000 then
                    TDIS ← Tjumlah * 0.1
   Else
          TDIS ← 0
Endif
          Tbayar ← Tjumlah - TDIS
          Output(TDIS)
          Output(Tjumlah)
          Output(TBAYAR)

II. LISTING PROGRAM LENGKAP
   Unit Prak2;
   Interface
   Uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,
           StdCtrls;
       Type
           TForm1 = class(TForm)
           Label1 : Tlabel;
           Label2 : Tlabel;
           Label3 : Tlabel;
           TLM : TEdit;
           THK : TEdit;
           TJUMLAH : TEdit;
           CMULAI : TButton;
           CSELESAI : TButton;
           Label4 : Tlabel;

           Label5 : Tlabel;

           Label6 : Tlabel;

          TDIS : TEdit;
          TBAYAR : TEdit;
          Procedure CMULAIClick (sender : Tobject);
          Procedure CSELESAIClick (sender : TObject);

          Procedure FormCreate (sender : TObject);

          Procedure THKChange (sender : TObject);

          Procedure TLMChange (sender : TObject);

Private

   { Private declarations }

Public

   { Public declarations }

end;

var

 Form1 : Form1;

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;

  Tdis.enabled := False;

  Tdis.color := clbtnface;

  Tbayar.enabled := False;

  Tbayar.color := clbtnface;

end;

procedure TForm1 . THKChange (sender : Tobject);

var

 Sjml, Sbyr, Sds : 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 Sjumlah >= 100000

     then

    Sdis := Sjumlah*0,1

 else

    Sdis :=0;

Sbayar := Sjumlah-Sdis;

Str(Sbayar:30:0, Sbyr);

Str(Sdis:30:0, Sbyr);

Tdis.text := Sds;

Tbayar.text := Sbyr;

end;

procedure TForm1.TLMChange(sender : Tobject);

var

   Sjml, Sbyr, Sds : 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 sjumlah >= 100000

   then

     Sdis := Sjumlah*0.1

   else

     Sdis := 0;

Sbayar := Sjumlah - Sdis;

Str(Sbayar:30:0,Sbyr);

Str(Sdis:30:0, Sds);

Tdis.text :=Sds;

Tbayar.text := Sbyr;

end;

end.

*HASIL RUN*

BAB 1

Bab1. Proses berurutan
Tujuan 
1. Mengerti cara membuat program proses berurutan
2. Dapat menggunakan obyek label,edit,button
3. Mengerti Cara menggunakan prosedur standar val dan str

1.1 FORM
1.  Cara membuat form
- start > program > borderland delphi 5 > delphi 5
- Klik 2 kali obyek label sebanyak 3 kali dan masing** properti label di ganti

2 Event Onclick
Event yang akan di laksanakan apabila kita mengkliktmbol perintah (button) tertentu
-Klik 2 kali obyek button yang captionnya mulai
-ketik perintah di antara begin.. end ; sebagai berikut:
Cth:
Tlm.text :='   ';
 Thk.text :='   ';
Tjumlah.text :='   ';
Tlm.Setfocus;

1.2 Algoritma
Output ('Lama menginap')
Input(tlm)
output('Harga Kamar/hari')
Input(THK)
Tjumlah < TLM*THK
Output (Tjumlah)

1.3 Listing Program
Unit prak 1;
Interface
uses
windows,messages,sysutils,classes,Graphics,Controls,Form,Dialog,
   stdctrls;
Type
 Tform =  class(Tform)
 Label 1 : Tlabel;
 Label 2 : Tlabel;
 Label 3 : Tlabel ;
 TLM : TEdit;
 THK: TButton;
 TJumlah: TEdit;
 CMulai : TButton;
 CSelesai : TButton;
 Procedure CMULAIClick (Sender :Tobject); 
 Procedure CSELESAIClick (Sender :Tobject); 
 Procedure FormCreate (Sender :Tobject);
 Procedure THKChange (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:='    ' ; 

 Tlm.setfocus:='    ' ; 

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

Procedure TForm1. FormCreate (Sender: TObject );
begin
Tjumlah.enabled:=false;
TJumlah.color:=clbtnface;
end;

procedure TForm1. Formcreate(Sender:TObject);
Var
    Sjml:string[30];
    Tsem:integer;
    slm,shlk.Sjumlah:single;
Begin 
    Val(Tlm.text,slm,tsem);
    Val(Tlm.text,shk,tsem);
Sjumlah:=Slm*shk;
str(Sjumlah:30:0,sjml) ;
Tjumlah.text:text:=Sjml);
End;

Procedure TForm1.TLMChange(Sender: TObject );
var
  sjml:string[30];
  Tsem:integer;
  Slm,shk,sjmlah:single;
Begin
  val(Tlm.text,slm,tsem);
  val(Thk.text,slm,tsem);
sjumlah:slm*shk;
str(sjumlah:30:0.Sjml);
TJumlah.Text: =Sjml);
end;
end.

1.4 ANALISA PERINTAH
Procedure TForm1.CMULAIClick)Sender :TObject);
begin
 Tlm.text:='    ' ; 
 Thk.text:='    ' ; 

 Tjumlah.text:='    ' ; 

 Tlm.setfocus:='    ' ;
=NILAI AWAL

procedure TForm1.CSELESAIClick(Sender : TObject);
begin
    Application.Terminate;
end;
=KELUAR PROGRAM

Procedure TForm1. FormCreate (Sender: TObject );
begin
Tjumlah.enabled:=false;
TJumlah.color:=clbtnface;

end;
=TJumlah Obyektidak aktif

procedure TForm1. Formcreate(Sender:TObject);
Var
    Sjml:string[30];
    Tsem:integer;
    slm,shlk.Sjumlah:single;
Begin 
    Val(Tlm.text,slm,tsem);
    Val(Tlm.text,shk,tsem);
Sjumlah:=Slm*shk;
str(Sjumlah:30:0,sjml) ;
Tjumlah.text:text:=Sjml);
End;

Procedure TForm1.TLMChange(Sender: TObject );
var
  sjml:string[30];
  Tsem:integer;
  Slm,shk,sjmlah:single;
Begin
  val(Tlm.text,slm,tsem);
  val(Thk.text,slm,tsem);
sjumlah:slm*shk;
str(sjumlah:30:0.Sjml);
TJumlah.Text: =Sjml);
end;

end.
=MEMPERKENALKAN VARIABEL


CATATAN
-F12 = TOGGLE KEY , MENUJU KE FORM /EDITOR
-SAVE AND SAVE AS=  MENYIMPAN PROGRAM
-F9=MENJALANKAN PROGRAM
-FILE>EXIT=KELUAR DARI BORDERLAND

*HASIL PROGRAM*