Desaing Delphi Dengan Hitung Diskon

DASAR PEMROGRAMAN

PROCEDURE DAN FUNCTION

 

Disusun oleh:

Helio Rofino Correia

15330001

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS JANABADRA

YOGYAKARTA

2015

                                                            BAB I

                                                PENDAHULUAN

1.1       Persiapan

a.      Perangkat Keras

·         CPU

·         Monitor

·         Keyboard

·         Mouse

b.      Perangkat Lunak

·         Microsoft Excel Word 2007

1.2        Tujuan Pratikum

v  Dapat memahami dan menggunakan procedure dan function

v  Dapat memahami penggunaan procedure dan fuction

1.3  Dasar Teori

      Prosedur adalah suatu program terpisah dan berdiri dalam bentuk blok dan berfungsi 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 memecah-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 pendeklarasian sebuah prosedur dalam delphi ditempatkan setelah kata public agar dapat dikenali oleh semua object yang ada dalam proses program tersebut. Penulisannya dengan kata procedure diikuti nama procedure.

Public

Procedur bersih;

b.      Penulisan prosedur program prosedur terdapat dalam bagian implementation.

Procedure Tform1.Bersih;

Begin

     Ednama.text:=” ”;

     EdAlamat.text:=” ”;

     EdKota.text:=” ”;

EdProvinsi.text:=” ”;

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 pemanggilannya cukup hanya dituliskan nama prosedurnya saja.

Procedure.Tform1.button1click(sender.Tobject);

Begin

     Bersih;

End;

v  Fungsi

Pengertian secara umum mengenai fungsi merupakan sebuah penggalan program yang terpisah dari program utama dan berfungsi sebagai sebuah program bagian dari program utama. Penulisan fungsi diawali dengan kata cadangan function dan dideklarasikan dalam bagian deklarasi fungsi,dan penulisan program fungsi ditempatkan pada program utama. Penulisan fungsi harus diikuti dengan tipe datanya.

Bentuk umum penulisan fungsi

Function indentifier (daftar-parameter):type;

Contoh :

Function hitung (var a,b : real) : real;

Penulisan blok fungsi diawali dengan kata cadangan begin dan diakhiri dengan end;

                                               BAB II

                                    PELAKSANAAN PRAKTIKUM

1.      Praktikum 1

Kami memBuat design form seperti dibawah ini :

Koding Pada Button1.Hitung

procedure TForm1.Button1Click(Sender: TObject);

 var

  a,b,c:integer;

begin

 a:=StrToInt(Edit1.Text);

 b:=StrToInt(Edit2.Text);

 c:=a+b;

 Edit3.Text:=inttostr(c);

end;

Koding Pada Button2.Close

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

Hasil Run

2.      Praktikum 2

Fungsi untuk memanggil fungsi lain

Lalu membuatkan design form seperti dibawah ini :

Komponen yang di pakai

 

Berikut ini adalah Soure codenya pada latihan II:

Function pangkat (x,y: real):real;

Begin

            Pangakat :=exp(ln(x)*y);

End;

Function bunga (e,f,g :real) :real;

Begin

Bunga :=e*pangkat((1+f/100),g);

End;

Koding Pada Button 1/Total.

Procedure TForm1.ButtonClick(Senter: TObject);

Var a,b,c,d,e:Real;

Begin

a:=StrToFloat (Edit2.Text)

b:=StrToFloat (Edit3.Text)

c:=StrToFloat (Edit4.Text)

d:=bunga(a,b,c);

Edit5.Text:=FloatToStr(d);

Edit5.Text:=FormatFload(‘#.###’,d);

E:=d/c;

Edit6.Text:=FloadToStr(e);

Edit.Text:=FormatFloat(‘#.###’,e);

End;

Koding Pada Button2. Bersih

Procedure TForm1.Button2Click(Sender:TObject);

Begin

Edit1.Text:=’’;

Edit2.Text:=’’;

Edit3.Text:=’’;

Edit4.Text:=’’;

Edit5.Text:=’’;

Edit6.Text:=’’;

End;

Koding pada Button3.Close

Procdure TForm1.Button3Click(Sender: TObject);

Begin

Close;

End;

Hasil run program

 

SELAMAT MENCOBA