BAB IV
Prosedur , Perulangan dan Megenal Input Box
4.1. Prosedur
Prosedur
adalah suatu program terpisah dan berdiri dalam suatu blok program dan
befungsi sebagai sebuah sub program (program bagian). Penulisan
prosedur diawali dengan kata Procedure pada bagian deklarasi program dan
cukup menuliskan nama prosedur yang dibuat pada bagian Implementasi.
Alasan penggunaan prosedur
1. Digunakan untuk penggalan program yang akan digunakan secara berulang – ulang dalam suatu proses program.
2. Digunakan untuk memmecah – mecah program menjadi sebuah modul program, sehingga listing program menjadi lebih sederhana.
Syarat penulisan nama procedure
1. harus diawali dengan karakter.
2.
untuk nama prosedur dengan menggunakan dua kata atau lebih penulisannya
tidak boleh menggunakan spasi, harus digabung atau dihubungkan dengan
underscore ( _ )
3. tidak mengenal tanda baca.
Contoh
a. Pendeklarasian Prosedur
Penulisan
pendeklarian sebuah prosedur dalam Delphi ditempatkan setelah kata
public agar dapat dikenali oleh semua object yang ada dalam proses
program tersebut. Penulisannya diawali dengan kata Procedure diikuti
nama procedure.
Public
Procedure bersih;
b. Penulisan prosedur
Penulisan pogram prosedur terdapat dalam bagian implementation,
Procedure TForm1.Bersih;
Begin
Enama.text := ‘’;
Ealamat.text := ‘’;
Ekota := ‘’;
End;
c. Pemanggilan Prosedur
Pemanggilan
prosedur terdapat dalam bagian implementation, pada umumnya pemanggilan
prosedur terdapat dalam suatu ruang lingkup object yang mempunyai
sebuah event. Cara pemenggilannya cukup hanya dituliskan nama
prosedurnya saja.
Procedure.TForm1.button1click(sender: Tobject);
Begin
Bersih;
End;
atau
ketika program prosedur digunakan pada object yang lain untuk memanggil
program yang sama kita hanya cukup menuliskan nama prosedurnya tanpa
dibutuhkan pendeklarasian prosedur baru.
Procedure TForm1.enamakeypress(sender: Tobject; var key:char);
Begin
If key = #13 then
Bersih;
End;
4.2. Perulangan
Merupakan
control program yang digunakan untuk suatu proses yang akan berjalan
terus menerus. Kondisi perulangan merupakan proses berjalannya program
secara terus menerus dan akan berhenti ketika proses mendapatkan
kondisi yang sudah ditentukan.
Di dalam Delphi mengenal 3 jenis perulangan
a. Perulangan For – To - Do
Perulangan
dengan statement for adalah perulangan yang digunakan untuk melakukan
suatu proses dalam sebuah blok program. Proses perulangan For – To – Do
dimulai dengan nilai terkecil ke besar.
Bentuk Umum
For variabel := nilai awal to nilaiakhir statement
Catatan : semua variabel yang berhubungan dengan perulangan harus mempunyai tipe data sama.
Contoh
procedure TForm4.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 1 to 5 do
edit1.SelText := inttostr(i);
end;
end.
Bila Program tesebut dijalankan maka nilai i akan ditampilkan pada edit1 dengan hasil sebagai berikut =
b. Perulangan For – DownTo-Do
Perulangan
For-Dowbto-Do adalah perulangan yang mengihutng suatu proses dengan
nilai awal besar dan nilai akhinya lebih kecil, maka variabel sebagai
control program yang diperoleh adalah dari besar ke kecil.
Bentuk Umum
For Variabel := nilai-awal Downto Nilai-akhir Do Pernyataan
Contoh
procedure TForm4.Button2Click(Sender: TObject);
var
i : integer;
begin
for i := 5 Downto 1 do
edit2.SelText := inttostr(i);
end;
Bila program tersebut dijalankan maka hasil yang diperoleh adalah sebagai berikut ;
c. Perulangan While Do
Perulangan
While Do adalah statement perulangan akan terus melakukan suatu proses
selama kondisi/syarat yang ditentukan bernilai benar.
Bentuk Umum
Statement While – Variabel Syarat – Do Pernyataan
Contoh
procedure TForm4.Button3Click(Sender: TObject);
var
i : integer;
begin
i := 0;
while i < 5 do
begin
edit3.SelText := inttostr(i);
i := i + 1;
end;
end;
Bila program tersebut dijalankan maka hasil yang akan diperoleh adalah sebagai berikut :
d. Perulangan Repeat Until
Perulangan repeat until digunakan untuk mengulang suatu kondisi sampai (until) kondisi bernilai salah.
Bentuk Umum
Repeat – Statement/penyataan — Until --- ungkapan logika
Contoh
procedure TForm4.Button4Click(Sender: TObject);
var
i : integer;
begin
i := 1;
repeat
i := i + 2;
edit4.SelText := inttostr(i);
until i = 15;
end;
Bila program tersebut dijalankan maka akan diperoleh hasil sebagai berikut :
4.3. Mengenal Input Box
Input Box adalah sebuah kotak pesan bagi user. Selain itu juga bisa digunakan untuk menginput data.
Bentuk umum
Var
Indentifier : typedata;
begin
Identifier := inputbox(‘string_title’,’string_subtitle’,’’);
end;
Contoh
Var
Inputnama : string;
Begin
Inputnama := inputbox(‘Info’,’Ketikan Nama’,’’);
End;
4.4. Study Kasus Perulangan
a. Hasil Setelah Dijalankan
Gambar 4.1 Form Penjualan
Ketentuan Dan Alur Logika
1. Total item digunakan sebagai pembatas berapa kali, pelanggan akan membeli barang.
2.
Ketika jumlah item diberikan nilai maka ketika kita klik OK akan
ditampilkan kotak pesan (input Box) untuk menginput nama barang dan
harga barang yang dibeli. Begitu seterusnya sampai kondisi dari total
item terpenuhi.
3. Total Penjualan diperoleh dari penjumlahan seluruh harga barang yang dibeli.
4. isi data lagi diberikan untuk mengulang pembelian.
5. Close untuk menutup form.
6. Untuk tanggal ditampilkan secara otomatis.
b. Desain Form
Gambar 4.2 Desain Form Penjualan
c. Desain Properties
Object Caption Name
Label 1 Total Item yang dibeli Label1
Label 2 Tanggal Label2
Label 3 NO Faktur Label3
Label 4 Total Penjualan Label4
GroupBox1 Data Penjualan Groupbox1
GroupBox2 Daftar Nama Barang Yang Debeli Groupbox2
Groupbox3 Daftar Harga Barang Groupbox3
Command1 OK Cmdok
Command2 Isi Data Lagi Cmdlagi
Command3 Close cmdclose
Object Text Name
Edit1 - eitem
Edit2 - enofaktur
Edit3 - etgl
Edit4 - Etotal
ListBox1 - lnama
Listbox2 - lharga
d. Listing Program
Program untuk menampilkan tanggal secara otomatis ketika form dijalankan
procedure TForm5.FormCreate(Sender: TObject);
begin
DateSeparator := '-';
ShortDateFormat := 'mm/dd/yyyy';
etanggal.Text := 'Hari ini' + DateToStr(Date);
end;
Program command OK
procedure TForm5.bokClick(Sender: TObject);
var
inputnama : string;
inputharga : string;
i : integer;
j : integer;
harga : real;
begin
harga := 0;
j := 0;
j:= strtoint(eitem.Text);
if j <= 0 then
begin
showmessage('Data Tidak boleh lebih kecil dari Nol');
exit;
end
else
begin
for i := 1 to j do
begin
inputnama := inputbox('INput','Ketikan Nama Barang','');
inputharga := inputbox('INput','Ketikan Harga Barang','');
lnama.Items.Add(inputnama) ;
lharga.Items.Add(inputharga);
harga := harga + strtofloat(inputharga);
end;
end;
etotal.Text := floattostr(harga);
end;
Program Untuk Isi Data Lagi
procedure TForm5.clagiClick(Sender: TObject);
begin
eitem.Text :='';
enofaktur.Text := '';
lnama.Clear;
lharga.Clear;
etotal.Text :='';
end;
Program Untuk Menutup Form
Close;
4.5. Aplikasi Konversi Suhu
a. hasil yang Diinginkan
Gambar 4.4 Hasil Form Penjualan
b. Ketentuan Program
1. Batas Awal dan Batas akhir diberikan untuk mengetahui nilai awal dan akhir derajat celcius yang ingin cetak.
2. Penambahan diberikan untuk memberikan penambahan dari nilai awal untuk mencapai nilai akhir.
3. Close adalah untuk keluar dari program
4. Rumus Mencari Fahrenheit adalah = 1.8*Celcius+32
