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*