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*

  
  
    

pengalaman yang memalukan dan tak terlupakan

PROBLEM SALAH KOSTUM

Pernah mengalami salah seragam? Aduh itu malu banget ya pasti. Yang lain kostumnya sama, saya beda sendiri. Apalagi salah kostum di sekolah, alias salah pakai seragam. Hmm…siap-siap diejekkin sama teman-teman dan bakal dapat hukuman dari guru. Memang, banyak faktor yang kerap kali menjadi penyebab salah seragam. Ada yang karena lupa ataupun salah informasi. Langsung saja nih simak komentar sobat  tentang pengalaman saya saat salah seragam saat masa SMA.

Pengalaman pertama saya. saya mengaku pernah salah kostum karena telat dan terburu-buru ke sekolah.

“Pernah waktu  sekolah. Aku pikir hari ini hari kamis, jadi pakainya seragam pramuka. Eh pas nyampe sekolah teman-teman pake seragam abu putih. Malu banget rasanya salah seragam,”

“Harusnya pakai baju abu putih, tapi yah namanya terlambat . Jadi aku terburu-buru ke sekolah, pas sampai di sekolah aku kena hukuman deh,”

“Ya tetap percaya diri aja walaupun dihukum. Mau gimana lagi seragamnya udah salah ,telat lagi,” .

“Baru ingetnya pas udah nyampe sekolah. Kan kalau lagi UTS pakainya putih abu-abu, tapi aku malah pake pramuka. Malu sih, tapi untungnya cuma ditegur aja,”