Pengertian prosedur dan function pada delphi dan contoh programnya

Pengertian prosedur dan function pada delphi dan contoh programnya – Dalam membuat sebuah syntax tentunya kita harus memahami terlebih dahulu logika program yang akan kita buat. Sehingga, jika kita sudah mengetahui logikanya kita bisa mengetahui syntax apa saja yang akan kita gunakan dalam membuat sebuah program. Seperti, penggunaan syntax yang sama dalam beberapa proses itu kurang efektif jika kita harus mendeklarasikannya dalam setiap proses tersebut. Oleh karena itu, penggunaan prosedur dan function sangat penting untuk menangani masalah seperti ini. Selain itu, penggunaan prosedur dan function akan sangat membantu agar syntax yang dideklarasikan lebih sederhana. Untuk itu, silahkan simak pengertian prosedur dan function berikut ini:

Baca artikel sebelumya : Pengertian looping dalam bahasa pemrograman delphi

Prosedur

Prosedur adalah suatu program terpisah dari program utama, yang mana untuk memanggilnya cukup dengan mendeklarasikan nama prosedur di bagian program utama. Sementara itu, untuk membuat sebuah prosedur anda hanya perlu menuliskan “procedure namaprocedure;” (tanpa tanda petik) dibagian publik, setelah itu anda tinggal membuat syntax prosedurnya di bagian implementasi. Atau untuk lebih jelasnya silahkan simak contoh programnya dibawah ini:

Contoh Program Procedure
Langkah pertama buat desain program seperti pada gambar berikut:

Setelah itu masuk ke mode code dan buat procedure dia area public dan buat programnya tepat dibawah implementation. Seperti yang ada dibawah ini:

public
    { Public declarations }
    procedure tambah;
    procedure kurang;
    procedure kali;
    procedure bagi;
  end;

var
  Form1: TForm1;

implementation
procedure TForm1.tambah;
var a,b,hasil:Integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  hasil:=a+b;
  Edit3.Text:=IntToStr(hasil);
end;
procedure TForm1.kurang;
var a,b,hasil:Integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  hasil:=a-b;
  Edit3.Text:=IntToStr(hasil);
end;
procedure TForm1.kali;
var a,b,hasil:Integer;
begin
  a:=StrToInt(Edit1.Text);
  b:=StrToInt(Edit2.Text);
  hasil:=a*b;
  Edit3.Text:=IntToStr(hasil);
end;
procedure TForm1.Bagi;
var a,b,hasil:real;
begin
  a:=StrToFloat(Edit1.Text);
  b:=StrToFloat(Edit2.Text);
  hasil:=a/b;
  Edit3.Text:=FloatToStr(hasil);
end;

Lalu panggil procedure yang telah dibuat tadi dengan cara mendeklarasikan nama peocedure di tombol yang telah dibuat seperti yang terlihat dibawah ini:

procedure TForm1.Button1Click(Sender: TObject);
begin
Tambah;//masukan di button tambah
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Kurang;//masukan di button kurang
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Kali;//masukan di button kali
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Bagi; //masukan di button bagi
end;

Setelah selesai coba jalankan/Run.

Function

Sementara itu function hampir sama seperti prosedur akan tetapi yang membedakan adalah dalam pendeklarasian function harus ditambahkan dengan variable dan tipe data “function namafunction {variable : typedata} typedata;”. Atau untuk lebih jelasnya silahkan simak contoh programnya dibawah ini:

Contoh Program Function

Pertama Buat Desain Program seperti berikut:

Setelah itu masukan syntax function tepat dibawah implementation seperti dibawah ini:

implementation
Function Diskon(total:real):real;
begin
  Diskon:=total*0.1;
end;

Setelah itu dobel klik button proses dan masukan syntax berikut:

procedure TForm1.Button1Click(Sender: TObject);
var Hargabrg,Banyakbrg,total,Diskonya,bayar:Real;
begin
Hargabrg:=StrToFloat(Edit2.Text);
Banyakbrg:=StrToFloat(Edit3.Text);
if Banyakbrg>=5 then
begin
  Total:=Hargabrg*Banyakbrg;
  Diskonya:=diskon(total);
  Edit5.Text:=FloatToStr(Diskonya);
  bayar:=Total-Diskonya;
  Edit4.Text:=FloatToStr(bayar);
end
else
begin
  Total:=Hargabrg*Banyakbrg;
  Edit4.Text:=FloatToStr(Total);
end;

Lalu dobel klik pada tombol ulang dan masukan syntax berikut:

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit1.SetFocus;
end;

Setelah selesai memasukan semua syntax diatas setelah itu jalankan/run program ...

Demikian artikel mengenai Pengertian prosedur dan function pada delphi dan contoh programnya semoga bermanfaat .....

• 1comment

Achmad Fajar

"Musuh yang sebenarnya bukanlah orang lain, melainkan ego diri kita sendiri. Jadi, kalahkanlah ego diri kita sendiri, maka kesuksesan dapat diraih!".

Related Posts

Delphi