Headlines News :
Banner iskaruji dot com
TERIMA KASIH TELAH BERKUNJUNG DI PHOPHO POOMKILLER THE'SAINT BLOG

BAG IV Prosedur , Perulangan dan Megenal Input Box

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
Share on :